home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare-Standard / 32C.lsf next >
Text File  |  2003-04-01  |  4KB  |  172 lines
  1. Include "DruckNT.int"
  2. Include "Lak_NT.int"
  3.  
  4. 'Descriptions
  5. Description Form_Description as "Einkommensteuer normal"
  6. Description Form_Code as "Tarifbegrenzung º32c EStG"
  7. Description Page_Orientation as PAGE_PORTRAIT
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15. 'Funktion, um die Fu▀zeile zu schreiben
  16. Function OnPrintFooter()
  17.  
  18.             DrawLineExt(0,GetPosY(),1700,GetPosY())
  19.             SetPos(0,GetPosY()+20)
  20.             SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  21.             RemoveAllTabs()
  22.             SetTabs("L30 R-30")
  23.             TL("\tLexware lohnauskunft  " +GetProgramVersion()+"\t"+FormatDate("%d.%m.%Y",Now()))
  24.             
  25. End Function
  26.  
  27.  
  28. 'Hauptteil
  29. SetBodyMargin(200,200,200,180)
  30. 'SetFooterMargin(200,250,200,100)
  31.  
  32.  
  33. 'SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)
  34.  
  35. Dim hNormal as FontType = CreateFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  36. Dim hBold as FontType = CreateFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  37.  
  38. Dim NumTmp as Numeric
  39. Dim NumJahr as Numeric 
  40.  
  41.  
  42. NumJahr = GetInt("C",14)
  43.  
  44. Function EinfgTitel(Text as String)
  45.     SelectFont(hBold)
  46.     SetPos(0,GetPosY()+120)
  47.     TL(Text)
  48.     NumTmp=GetPosY()+30
  49.     DrawLineExt(0,NumTmp,1700,NumTmp)
  50.     SetPos(0,NumTmp+40)
  51.     SelectFont(hNormal)
  52. End Function
  53.  
  54. Function EinfgPos(Text as String)
  55.     TL(Text)
  56.     NumTmp=GetPosY()+30
  57.     SetPos(0,NumTmp)
  58. End Function
  59.  
  60.  
  61. Function EinfgPos35(Text as String)
  62.  
  63.     TL(Text)
  64.     NumTmp=GetPosY()+30
  65.     DrawLineExt(0,NumTmp,1700,NumTmp)
  66.     SetPos(0,NumTmp+40)
  67.  
  68. End Function
  69.  
  70.  
  71. Function EinfgPos35Bold(Text as String)
  72.     
  73.     SelectFont(hBold)
  74. '    SetPos(0,GetPosY()+120)
  75.     TL(Text)
  76.     NumTmp=GetPosY()+30
  77.     DrawLineExt(0,NumTmp,1700,NumTmp)
  78.     SetPos(0,NumTmp+40)
  79.     SelectFont(hNormal)
  80.     
  81. End Function
  82.  
  83.  
  84.  
  85. If  ( NumJahr <= 2000 )  Then
  86.  
  87.  
  88.     DrawLineExt(0,0,1700,0)
  89.     SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
  90.     LF
  91.     RemoveAllTabs()
  92.     SetTabs("C")
  93.     TL("\tErmittlung der Einkommensteuer nach º 32 c EStG  "+ FormatNumeric( "%0.0f", NumJahr ) )            
  94.     LF
  95.     NumTmp=GetPosY()
  96.     DrawLineExt(0,NumTmp,1700,NumTmp)
  97.     DrawLineExt(0,0,0,2520)
  98.     DrawLineExt(1700,0,1700,2520)
  99.     
  100.     
  101.     LF
  102.     LF
  103.     LF
  104.     LF
  105.     LF
  106.     
  107.     RemoveAllTabs()
  108.     SetTabs("L50 R-50")
  109.     EinfgTitel("\tBerechnungsdaten")
  110.     EinfgPos("\tGewerbliche Einkⁿnfte\t"+StrAmt("C",1))
  111.     EinfgPos("\t▄brige Einkⁿnfte\t"+StrAmt("C",2))
  112.     EinfgPos("\tZu versteuernde Einkⁿnfte\t"+StrAmt("C",3))
  113.     EinfgTitel("\tGewerblicher Anteil nach º 32 c EStG")
  114.     EinfgPos("\tAnteil der gewerblichen Einkⁿnfte am zu versteuernden Einkommen\t"+StrAmt("C",4))
  115.     EinfgPos("\tGewerblicher Anteil (durch 54 teilbar)\t"+StrAmt("C",5))
  116.     EinfgTitel("\tErmittlung des Entlastungsbetrages")
  117.     EinfgPos("\tTarifliche Einkommensteuer fⁿr den gewerblichen Anteil (Regelsteuerfall)\t"+StrAmt("C",6))
  118.     EinfgPos("\tEinkommensteuer fⁿr den Grenzbetrag\t"+StrAmt("C",7))
  119.     EinfgPos("\tEinkommensteuer fⁿr den ⁿbersteigenden Betrag ("+StrInt("C",16)+" %)\t"+StrAmt("C",8))
  120.     EinfgPos("\tEntlastungsbetrag gerundet\t"+StrAmt("C",9))
  121.     EinfgTitel("\tFestzusetzende Einkommensteuer")
  122.     EinfgPos("\tTarifliche Einkommensteuer ("+StrStr("C",12)+")\t"+StrAmt("C",10))
  123.     EinfgPos("\tEntlastungsbetrag\t"+StrAmt("C",9))
  124.     EinfgPos("\tFestzusetzende Einkommensteuer\t"+StrAmt("C",11))
  125.     EinfgPos("\tSolidaritΣtszuschlag\t"+StrAmt("C",15))
  126.         
  127.     
  128. Else
  129.  
  130.  
  131.     DrawLineExt(0,0,1700,0)
  132.     SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
  133.     LF
  134.     RemoveAllTabs()
  135.     SetTabs("C")
  136.     TL("\tErmittlung der Einkommensteuer nach º 35 EStG  "+ FormatNumeric( "%0.0f", NumJahr ) )            
  137.     LF
  138.     NumTmp=GetPosY()
  139.     DrawLineExt(0,NumTmp,1700,NumTmp)
  140.     DrawLineExt(0,0,0,2520)
  141.     DrawLineExt(1700,0,1700,2520)
  142.  
  143.     DrawLineExt(0,800,1700,800)
  144.  
  145.     SetPos( 0, 840 )
  146.  
  147.     RemoveAllTabs()
  148.     SetTabs("L50 R-50")
  149.     SelectFont(hNormal)
  150.  
  151.     EinfgPos35("\tZu versteuernde Einkⁿnfte\t"+StrAmt("C",3))
  152.     SetPenWidth( 2 )
  153.     EinfgPos35Bold("\tTarifliche Einkommensteuer ("+StrStr("C",12)+")\t"+StrAmt("C",10))
  154.     SetPenWidth( 0 )
  155.     EinfgPos35("\tGewerbesteuer Messbetrag\t"+StrAmt("C",17))                    
  156.     SetPenWidth( 3 )
  157.     EinfgPos35("\tEntlastungsbetrag\t"+StrAmt("C",9))
  158.     SetPenWidth( 0 )
  159.     EinfgPos35Bold("\tFestzusetzende Einkommensteuer\t"+StrAmt("C",11))
  160.  
  161.  
  162. End If
  163.  
  164.  
  165. DrawLineExt(0,2520,1700,2520)
  166. SetPos(0,2540)
  167. SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
  168. RemoveAllTabs()
  169. SetTabs("L30 R-30")
  170. TL("\tLexware lohnauskunft  " +GetProgramVersion()+"\t"+FormatDate("%d.%m.%Y",Now()))
  171.  
  172.