home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare / input.lsf < prev    next >
Text File  |  2003-04-01  |  3KB  |  95 lines
  1. Include "DruckNT.int"
  2. Include "Lak_NT.int"
  3.  
  4. 'Descriptions
  5. Description Form_Description as "Grundtabelle normal"
  6. Description Form_Code as "Eingabewerte"
  7. Description Page_Orientation as PAGE_PORTRAIT
  8.  
  9. 'Funktion, um die Kopfzeile zu schreiben
  10. Function OnPrintHeader()
  11.  
  12.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  13.             SetTabs("L10 R1780")
  14.             TL("\t"+StrStr("F",1)+", "+StrStr("F",2)+", "+StrStr("F",3)+"  "+StrStr("F",4)+"\tMonat: "+StrStr("D",1)+"  "+StrInt("D",2))
  15.             SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
  16.             TL("\tEingabewerte\tFall: "+StrStr("P",1)+"  "+StrStr("P",2)+", "+StrStr("P",3))
  17.             LF
  18.             LF
  19.             LF
  20.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  21.             RemoveAllTabs()
  22.             SetTabs("L10 L700")
  23.             TL("\tVOREINSTELLUNGEN")
  24.             TL("\tAnzahl Fahrten pro Jahr\t"+StrInt("Y",5))
  25.             TL("\tGeringverdiener\t"+StrBool("Y",6))
  26.             LF
  27.             TL("\tBUNDESLAND")
  28.             LF
  29.             TL("\tName\t"+StrStr("Y",7))
  30.             TL("\tAG-Anteil Pflegeversicherung\t"+StrAmt("Y",8))
  31.             LF
  32.             TL("\tEINMALZAHLUNG")
  33.             LF
  34.             TL("\Rechenart")
  35.             TL("\Typ\t"+StrStr("Y",18))
  36.             TL("\tBetrag\t"+StrAmt("Y",20))
  37.             TL ("\tGeschΣtztes Jahresbrutto\t"+StrAmt("Y",21))
  38.             TL("\tMonat\t"+StrInt("Y",19))
  39.             LF
  40.             TL("\tTage KV\t"+StrInt("Y",26))
  41.             TL("\tEntgelt bisher KV\t"+StrAmt("Y",22))
  42.             TL("\tTage PV\t"+StrInt("Y",27))
  43.             TL("\tEntgelt bisher PV\t"+StrAmt("Y",23))
  44.             TL("\tTage RV\t"+StrInt("Y",28))
  45.             TL("\tEntgelt bisher RV\t"+StrAmt("Y",24))
  46.             TL("\tTage AV\t"+StrInt("Y",29))
  47.             TL("\tEntgelt bisher AV\t"+StrAmt("Y",25))
  48.             LF
  49.             TL("\tMΣrzklausel\t"+StrBool("Y",30))
  50.             LF
  51.             TL("\tDIENSTWAGEN")
  52.             LF
  53.             TL("\tPreis+Zubeh÷r\t"+StrAmt("Y",1))
  54.             TL("KM Wohnung-ArbeitsstΣtte\t"+StrInt("Y",2))
  55.             TL("Steuer trΣgt AG\t"+StrBool("Y",3))
  56.             TL("\tpauschale KiSt in %\t"+StrAmt("Y",4))
  57.             LF
  58.             LF
  59.             TL("\tFAHRGELD")
  60.             LF
  61.             TL("Steuer trΣgt\t"+StrStr("Y",13))
  62.             LF
  63.             LF
  64.             TL("\tU1\t"+StrBool("Y",16))
  65.             TL("\tU1 Prozente\t"+StrAmt("Y",14))
  66.             TL("\tU2\t"+StrBool("Y",17))
  67.             TL("\tU2 Prozente\t"+StrAmt("Y",15))
  68.             LF
  69.             LF
  70.  
  71. End Function
  72.  
  73.  
  74. 'Funktion, um die Fu▀zeile zu schreiben
  75. Function OnPrintFooter()
  76.  
  77.             DrawHorzLine(FALSE)
  78.             LF
  79.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  80.             SetTabs("L1 C R")
  81.             TL("\tLexware lohnauskunft  " +GetProgramVersion()+ "\t(c) Lexware GmbH")
  82.  
  83. End Function
  84.  
  85.  
  86. 'Hauptteil
  87. 'Nomenklatur
  88. SetHeaderMargin(150,200,150,2000)
  89. SetBodyMargin(150,2200,150,350)
  90. SetFooterMargin(150,200,150,150)
  91.  
  92. SetEventHandler(EVENT_PRINT_HEADER,OnPrintHeader)
  93. SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)
  94.  
  95.