home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare / pers.lsf < prev    next >
Text File  |  2003-04-01  |  2KB  |  80 lines
  1. Include "DruckNT.int"
  2. Include "Lak_NT.int"
  3.  
  4. 'Descriptions
  5. description Form_Description as "Personalliste"
  6. description Form_Code as "Personalliste"
  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("L50")
  16.             TL("\tPersonalliste")            
  17.             NumTmp=GetPosY()+30
  18.             SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  19.             RemoveAllTabs()
  20.             SetTabs("R-30")
  21.             SetPos(0,15)
  22.             T("\t"+StrStr("F",1))
  23.             DrawLineExt(0,NumTmp,1800,NumTmp)
  24.             NumTmp=0
  25.             RemoveAllTabs()
  26. End Function
  27.  
  28. 'Funktion, um die Fu▀zeile zu schreiben
  29. Function OnPrintFooter()
  30.             
  31.             DrawLineExt(0,0,1800,0)
  32.             SetPos(0, 30)
  33.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  34.             SetTabs("L30 C R-30")
  35.             TL("\tLexware lohnauskunft  " +GetProgramVersion()+ "\t- " +PAGENUMBER+ " -\t" +FormatDate("%d.%m.%Y",Now()))
  36.             RemoveAllTabs()
  37.             
  38. End Function
  39.  
  40.  
  41.  
  42.  
  43. SetHeaderMargin(150,100,150,130)
  44. SetBodyMargin(150,230,150,250)
  45. SetFooterMargin(150,250,150,100)
  46.  
  47. SetEventHandler(EVENT_PRINT_HEADER,OnPrintHeader)
  48. SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)
  49.  
  50.  
  51. SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  52. SetTabs("L30 L320 L370 L1150 L1540 R-30")
  53.  
  54. Dim Zeilenhoehe as Numeric
  55.  
  56. Zeilenhoehe=GetLineHeight()
  57.  
  58. Dim mitarbeiterFound as Bool
  59. mitarbeiterFound=FirstRecord("P")
  60.  
  61. 'Schleife ⁿber alle Mitarbeiter
  62. While mitarbeiterFound Do
  63.         If (2490-NumTmp)<((6*Zeilenhoehe)+70) Then
  64.              PageBreak()
  65.         End If
  66.         SetPos(0, NumTmp+35)
  67.         TL("\tPersonal-Nr.\t:\t" +StrStr("P",1)+ "\tUrlaubsanspruch\t:\t" +StrAmt("P",63)+ " Tage")
  68.         TL("\tName\t:\t" +StrStr("P",2)+ ", " +StrStr("P",3)+ "\tResturlaub\t:\t" +StrAmt("P",64)+ " Tage")
  69.         TL("\tStra▀e\t:\t" +StrStr("P",4))
  70.         TL("\tPLZ, Ort\t:\t" +StrStr("P",5)+ " " +StrStr("P",6))
  71.         TL("\tTelefon\t:\t" +StrStr("P",7))
  72.         TL("\temail\t:\t" +StrStr("P",10))
  73.         NumTmp=GetPosY()+35
  74.         If NumTmp<2270 Then DrawLineExt(0,NumTmp,1800,NumTmp) End If
  75.         mitarbeiterFound=NextRecord("P")
  76.  
  77. End While
  78.  
  79.  
  80.