home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare / krank.lsf < prev    next >
Text File  |  2003-04-01  |  4KB  |  116 lines
  1. Include "DruckNT.int" 'Funktionsdeklarationen aus der DruckNT-Bibliothek
  2. Include "Lak_NT.int"  'Funktionen aus Loge
  3.  
  4. 'Descriptions
  5. description Form_Description as "Krankenkassenliste"
  6. description Form_Code as "Liste aller Krankenkassen"
  7. description Page_Orientation as PAGE_PORTRAIT
  8.  
  9. Dim NumTmp as Numeric
  10.  
  11. 'Funktion, um die Kopfzeile zu schreiben
  12. Function OnPrintHeader()
  13.  
  14.             SetFont("Arial",14,FONT_BOLD,COLOR_BLACK)
  15.             SetTabs("L25 R1265 R1600 R-10")
  16.             T("\tKrankenkassenliste")
  17.             SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  18.             SetPos(GetPosX(), GetPosY()+15)
  19.             TL("\tUmlagen\tGⁿltig ab\tProzentsatz")
  20.             NumTmp=GetPosY()+30
  21.             DrawLineExt(0,NumTmp,1850,NumTmp)
  22.             NumTmp=0
  23. End Function
  24.  
  25. 'Funktion, um die Fu▀zeile zu schreiben
  26. Function OnPrintFooter()
  27.             
  28.             DrawLineExt(0,0,1850,0)
  29.             SetPos(0, 30)
  30.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  31.             SetTabs("L10 C R-10")
  32.             TL("\tLexware lohnauskunft  " +GetProgramVersion()+ "\t- " +PAGENUMBER+ " -\t" +FormatDate("%d.%m.%Y",Now()))
  33.             RemoveAllTabs()
  34.             
  35. End Function
  36.  
  37. Function PrintLZ()
  38.     SetPos(0,35)
  39. End Function
  40.  
  41.  
  42. SetHeaderMargin(135,100,115,130)
  43. SetBodyMargin(135,230,115,250)
  44. SetFooterMargin(135,250,115,100)
  45.  
  46. SetEventHandler(EVENT_PRINT_HEADER,OnPrintHeader)
  47. SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)
  48. 'SetEventHandler(EVENT_START_PAGE, PrintLZ)
  49.  
  50. SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  51. SetTabs("L30 L320 L370 L1150 R1550 R-30")
  52.  
  53.  
  54. SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  55.  
  56. Dim krankenkasseFound as Bool
  57. krankenkasseFound=FirstRecord("K") 'der Bereich K umfa▀t alle Angaben zur Krankenkasse
  58.  
  59. Dim i as Numeric
  60. Dim n as Numeric
  61.  
  62. Dim Zeilenhoehe as Numeric
  63. Dim KK_Height_Min as Numeric
  64. Dim KK_Height_Max as Numeric
  65. Zeilenhoehe=GetLineHeight()
  66. KK_Height_Min=(5*Zeilenhoehe)+70
  67. KK_Height_Max=(10*Zeilenhoehe)+70
  68. 'Ausdruck der Krankenkassen der Mitarbeiter
  69. While krankenkasseFound Do
  70.                 
  71.         If (2490-NumTmp)<KK_Height_Min Then 
  72.             PageBreak() 
  73.         Else
  74.             If (2490-NumTmp)<KK_Height_Max Then    
  75.                 i=5
  76.                 n=0
  77.                 While ((i<=9) AND Is("K",30+i)) Do
  78.                     n=n+1
  79.                     i=i+1
  80.                  End While
  81.                 If (2490-NumTmp)<(KK_Height_Min+(n*Zeilenhoehe)-10) Then PageBreak() End If
  82.             End If
  83.         End If
  84.         
  85.         SetPos(0, NumTmp+35)
  86.         RemoveAllTabs()
  87.         SetTabs("L10 L300 L330 L1050 R1265 R1600 R-10")
  88.         T("\tName\t:\t" +StrStr("K",1)+"\tU1 :\t")
  89.         If Is("K",50) Then T(StrAmt("K",52)+" %") Else T("-") End If
  90.         If Is("K",30) Then TL("\t" +StrDate("K",20)+ "\t" +StrAmt("K",40)+ " %") Else TL("")End If
  91.         T("\tKurzbezeichnung\t:\t" +StrStr("K",9)+"\tU2 :\t")
  92.         If Is("K",51) Then T(StrAmt("K",53)+" %") Else T("-") End If
  93.         If Is("K",31) Then TL("\t" +StrDate("K",21)+ "\t" +StrAmt("K",41)+ " %") Else TL("") End If
  94.         T("\tStra▀e\t:\t" +StrStr("K",2))
  95.         If Is("K",32) Then TL("\t\t\t" +StrDate("K",22)+ "\t" +StrAmt("K",42)+ " %") Else TL("") End If 
  96.         T("\tPLZ, Ort\t:\t" +StrStr("K",3)+ " " +StrStr("K",4))
  97.         If Is("K",33) Then TL("\t\t\t" +StrDate("K",23)+ "\t" +StrAmt("K",43)+ " %") Else TL("") End If
  98.         T("\tTelefon\t:\t" +StrStr("K",5))
  99.         If Is("K",34) Then TL("\t\t\t" +StrDate("K",24)+ "\t" +StrAmt("K",44)+ " %") Else TL("") End If
  100.         RemoveAllTabs()
  101.         SetTabs("R1600 R-10")
  102.         If Is("K",35) Then TL("\t" +StrDate("K",25)+ "\t" +StrAmt("K",45)+ " %") End If
  103.         If Is("K",36) Then TL("\t" +StrDate("K",26)+ "\t" +StrAmt("K",46)+ " %") End If
  104.         If Is("K",37) Then TL("\t" +StrDate("K",27)+ "\t" +StrAmt("K",47)+ " %") End If
  105.         If Is("K",38) Then TL("\t" +StrDate("K",28)+ "\t" +StrAmt("K",48)+ " %") End If
  106.         If Is("K",39) Then TL("\t" +StrDate("K",29)+ "\t" +StrAmt("K",49)+ " %") End If
  107.         RemoveAllTabs()
  108.         NumTmp=GetPosY()+35
  109.         If NumTmp<2270 Then DrawLineExt(0,NumTmp,1850,NumTmp)    End If    
  110.         krankenkasseFound=NextRecord("K")
  111.  
  112. End While
  113.  
  114.  
  115.  
  116.