Chip: 25 Years Anniversary/CHIP_25Jahre_Jubilaeum.iso/downloads/400616/data1.cab/_lohnauskunft-Formulare/tarif.lsf

Text File | 2003-04-01 | 5KB | 197 lines

Include "DruckNT.int"
Include "Lak_NT.int"

'Descriptions
description Form_Description as "Tarifszenario"
description Form_Code as "Tarifszenario bis 2005"
description Page_Orientation as PAGE_PORTRAIT

Dim NumTmp as Numeric
Dim NumVorteilWo as Numeric

'Funktion, um die Kopfzeile zu schreiben
Function OnPrintHeader()

            SetFont("Arial",14,FONT_BOLD,COLOR_BLACK)
            SetTabs("L30 ")
            TL("\tTarifszenario   "+StrInt("H",30)+"  -  "+StrInt("H",31))
            NumTmp=GetPosY()+30
            DrawLineExt(0,NumTmp,1800,NumTmp)

End Function


'Funktion, um die Fu▀zeile zu schreiben
Function OnPrintFooter()

            DrawLineExt(0,0,GetAreaWidth(),0)
            SetPos(0,GetPosY()+20)
            SetFont("Arial",8,FONT_NORMAL,COLOR_BLACK)
            SetTabs("L10 R-10")
            TL("\tLexware lohnauskunft  " +GetProgramVersion()+"\t" +FormatDate("%d.%m.%Y",Now()))
            RemoveAllTabs()

End Function

    Dim Steuerklasse as String

    Steuerklasse=StrInt("H",36)

    If Steuerklasse="0" Then Steuerklasse="0" End If
    If Steuerklasse="1" Then Steuerklasse="I" End If
    If Steuerklasse="2" Then Steuerklasse="II" End If
    If Steuerklasse="3" Then Steuerklasse="III" End If
    If Steuerklasse="4" Then Steuerklasse="IV" End If
    If Steuerklasse="5" Then Steuerklasse="V" End If
    If Steuerklasse="6" Then Steuerklasse="VI" End If
    If Steuerklasse="-2" Then Steuerklasse="Pauschal" End If





    'Hauptteil
    SetHeaderMargin(150,200,150,150)
    SetBodyMargin(150,600,150,350)
    SetFooterMargin(150,250,150,150)

    SetEventHandler(EVENT_PRINT_HEADER,OnPrintHeader)
    SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)

    SetPen(3,PEN_SOLID,COLOR_BLACK)
    DrawLineExt(0,0,1800,0)
    DrawLineExt(0,0,0,1580)
    DrawLineExt(1800,0,1800,1580)

    SetPen(0,PEN_SOLID,COLOR_BLACK)
    SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
    NumTmp=GetPosY()
    LF
    LF
    LF
    LF
    LF



    SetTabs("L50")
    TL("\tAllgemeine Angaben")
'    NumTmp=GetPosY()+30
'    DrawLineExt(0,NumTmp,1800,NumTmp)


    SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
    SetPos(0,NumTmp)
    LF
    RemoveAllTabs()
    SetTabs("R1100 R1600")
    LF
    LF
    TL("\tEinkommen\t"+StrAmt("H",32)+" "+StrStr("H",132))
    LF
    TL("\tTabelle\t"+StrStr("H",33))
    LF
    TL("\tJahresfreibetrag\t"+StrAmt("H",34)+" "+StrStr("H",134))
    LF
'    TL("\tSolidaritΣtszuschlag\t"+StrStr("H",20))
    TL("\tAbrechnung\t"+StrStr("H",35))
    LF
    TL("\tSteuerklasse\t"+Steuerklasse)
    LF
    TL("\tKinderfreibetrag\t"+StrKfb("H",37))
    LF
    LF



    NumTmp=GetPosY()+30
    DrawLineExt(0,NumTmp,1800,NumTmp)
    LF
    LF
    LF
    LF


    LF


    RemoveAllTabs()
    SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
    SetTabs("L50 R1100 R1600")
    T("\tErgebnisse\t"+StrInt("H",30)+"\t"+StrInt("H",31))

    SetFont("Arial",10,FONT_BOLD,COLOR_BLACK)
    SetPos(GetPosX(),GetPosY()+25)
    TL("")
    NumTmp=GetPosY()+30
    DrawLineExt(0,NumTmp,1800,NumTmp)
    SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
    RemoveAllTabs()
    SetTabs("L50 R1100 R1600")
    LF
    LF
    LF
    TL("\tBrutto\t"+StrAmt("H",40)+" "+StrStr("H",140)+"\t"+StrAmt("H",50)+" "+StrStr("H",150))
    LF
    TL("\tFreibetrag\t"+StrAmt("H",41)+" "+StrStr("H",141)+"\t"+StrAmt("H",51)+" "+StrStr("H",151))
    LF
    TL("\tLohnsteuer\t"+StrAmt("H",42)+" "+StrStr("H",142)+"\t"+StrAmt("H",52)+" "+StrStr("H",152))
    LF
    TL("\tSolidaritΣtszuschlag\t"+StrAmt("H",43)+" "+StrStr("H",143)+"\t"+StrAmt("H",53)+" "+StrStr("H",153))
    LF
'    TL("\tKirchensteuer\t"+StrAmt("H",44)+" "+StrStr("H",144)+"\t"+StrAmt("H",54)+" "+StrStr("H",154))
'    LF
'    LF
    NumTmp=GetPosY()+50
    DrawLineExt(0,NumTmp,1800,NumTmp)
    LF
    LF
    LF

    SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
    RemoveAllTabs()
    SetTabs("L50 R1100 R1600")
'    T("\tVorteil")
    NumVorteilWo=GetInt("H",61)
    If (NumVorteilWo<>0) Then
        T("\tVorteil")
        If NumVorteilWo=2 Then T("\t") End If
        T("\t"+StrAmt("H",60)+" "+StrStr("H",160))
    Else
         T("\tBeide Szenarien sind gleich vorteilhaft.")
    End If
'     SetFont("Arial",10,FONT_BOLD,COLOR_BLACK)
'    SetPos(GetPosX(),GetPosY()+5)
'    TL("\tSteuerpflichtiger 1\tSteuerpflichtiger 2\tSumme")
'    NumTmp=GetPosY()+30
'    DrawLineExt(0,NumTmp,1800,NumTmp)
'    SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
'    RemoveAllTabs()
'    SetTabs("L30 R900 R1400 R-30")
'    LF
'    LF
'
'    TL("\t"+StrStr("H",13)+"\t"+StrAmt("H",10)+" "+StrStr("H",110)+"\t"+StrAmt("H",11)+" "+StrStr("H",111)+"\t"+StrAmt("H",12)+" "+StrStr("H",112))
'    LF
'    TL("\tSteuerklasse IV/IV\t"+StrAmt("H",14)+" "+StrStr("H",114)+"\t"+StrAmt("H",15)+" "+StrStr("H",115)+"\t"+StrAmt("H",16)+" "+StrStr("H",116))
'    LF
'    LF
    SetPen(3,PEN_SOLID,COLOR_BLACK)
'    NumTmp=GetPosY()+30
'    DrawLineExt(0,NumTmp,1800,NumTmp)
'    LF
'    LF
'    LF
'    LF
'    RemoveAllTabs()
'    SetFont("Arial",10,FONT_BOLD,COLOR_BLACK)
'    SetTabs("L30 R-30")
'    TL("\t"+StrStr("H",18)+"\t"+StrAmt("H",17)+" "+StrStr("H",117))
'    SetPen(3,PEN_SOLID,COLOR_BLACK)
    DrawLineExt(0,1580,1800,1580)