home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare-Standard / pfand.lsf < prev    next >
Text File  |  2003-04-01  |  4KB  |  154 lines
  1. Include "DruckNT.int"
  2. Include "Lak_NT.int"
  3.  
  4. 'Descriptions
  5. Description Form_Description as "PfΣndungstabelle normal"
  6. Description Form_Code as "PfΣndungstabelle"
  7. Description Page_Orientation as PAGE_PORTRAIT
  8.  
  9. SetBodyMargin(145,100,100,360)
  10. SetFooterMargin(145,360,165,150)
  11. Dim hNormal as FontType = CreateFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  12. Dim hBold as FontType = CreateFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  13. Dim hMini as FontType = CreateFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  14. Dim hTitel as FontType=CreateFont("Arial", 16, FONT_BOLD, COLOR_BLACK)
  15.  
  16. Dim i as Numeric
  17. Dim NumTmp as Numeric
  18. Dim NumTmp2 as Numeric
  19. Dim NumTmp3 as Numeric
  20.  
  21. Dim Datensatz as Bool
  22. Dim ESt as String
  23. Dim SolZ as String
  24. Dim GesBelastg as String
  25. Dim BelastgLetzte1000 as String
  26. Dim Waehrung as String
  27.  
  28.  
  29. Function Vordruck()
  30.     
  31.     RemoveAllTabs()
  32.     SetTabs("C910")
  33.     SelectFont(hTitel)
  34.     SetPos(0,GetPosY()+50)
  35.     TL("\tPfΣndungstabelle")
  36.     RemoveAllTabs()
  37.     SelectFont(hNormal)
  38.     SetPos(0,GetPosY()+30)
  39.     NumTmp=GetPosY()
  40.     NumTmp2=NumTmp
  41.     DrawLineExt(0,NumTmp,1820,NumTmp)
  42.     DrawLineExt(530,NumTmp,530,2510)        '    If PAGENUMBER<>"3" Then  End If
  43.     SetPos(0,NumTmp+40)
  44.     SetTabs("C1175")
  45.     SelectFont(hBold)
  46.     TL("\tPfΣndbarer Betrag in " + Waehrung + " bei Unterhaltspflicht *) fⁿr") 
  47.     
  48.     NumTmp=GetPosY()+30
  49.     NumTmp3=NumTmp
  50.     DrawLineExt(0,0,1820,0)
  51.     DrawLineExt(0,2510,1820,2510)
  52.     DrawLineExt(0,0,0,2550)
  53.     
  54.     DrawLineExt(745,NumTmp,745,2510)        '    If PAGENUMBER<>"3" Then  End If
  55.     DrawLineExt(960,NumTmp,960,2510)
  56.     DrawLineExt(1175,NumTmp,1175,2510)
  57.     DrawLineExt(1390,NumTmp,1390,2510)
  58.     DrawLineExt(1605,NumTmp,1605,2510)
  59.     DrawLineExt(1820,0,1820,2550)
  60.     SetPos(0,NumTmp)
  61.     RemoveAllTabs()
  62.     SetTabs("C265 C638 C853 C1068 C1283 C1498 C1713")
  63.     T("\t"+StrStr("U",8)+" Nettolohn")
  64.     SelectFont(hNormal)
  65.     TL("\t0 Personen"+"\t1 Person"+"\t2 Personen"+"\t3 Personen"+"\t4 Personen"+"\t5 und mehr")
  66.     TL("\t\t\t\t\t\t\tPersonen")
  67.     NumTmp=GetPosY()+20
  68.     DrawLineExt(0,NumTmp,1820,NumTmp)
  69.     SetPos(0,NumTmp+40)
  70.     RemoveAllTabs()
  71.     SetTabs("R285 R450 R715 R930 R1145 R1360 R1575 R1790")
  72.     SelectFont(hNormal)
  73.     i=1
  74. End Function     
  75.  
  76.  
  77. Function PrintZeile()
  78.     
  79.     Dim j as Numeric
  80.     Dim StrZeile as String
  81.     Dim StrTmp as String
  82.  
  83.     StrZeile="\t"+StrAmt("U",16)+" bis\t"+StrAmt("U",1)
  84.  
  85.     While j<=5 Do
  86.         StrTmp=StrAmt("U",j+2)
  87.         If StrTmp="0,00" Then StrZeile=StrZeile+"\t-"
  88.                               Else StrZeile=StrZeile+"\t"+StrAmt("U",j+2) End If
  89.         j=j+1
  90.     End While
  91.     TL(StrZeile)
  92. End Function
  93.  
  94.  
  95. Function PrintFooter()
  96.     SelectFont(hMini)
  97.     RemoveAllTabs()
  98.     SetTabs("L20 L50")
  99.     SetPos(0,GetPosY()+20)
  100.     TL("\t*)\tZu berⁿcksichtigen sind Unterhaltsleistungen des Schuldners gegenⁿber seinem Ehegatten, einem frⁿheren Ehegatten,\n\t\teinem Verwandten oder der Mutter eines nichtehelichen Kindes nach ºº 1615 |,1615 n des Bⁿrgerlichen Gesetzbuchs.")
  101.     NumTmp=GetPosY()+20
  102.     DrawLineExt(0,NumTmp,1820,NumTmp)
  103.     DrawLineExt(0,0,0,NumTmp)
  104.     DrawLineExt(1820,0,1820,NumTmp)
  105.     SetPos(0,NumTmp+20)
  106.     RemoveAllTabs()
  107.     SetTabs("L10 C910 R")
  108.     T("\tLexware lohnauskunft "+ GetProgramVersion()+"\t- " +PAGENUMBER+ " -\t"+FormatDate("%d.%m.%Y",Now()))
  109. End Function
  110.  
  111.  
  112. SetEventHandler(EVENT_START_PAGE,Vordruck)
  113. SetEventHandler(EVENT_PRINT_FOOTER,PrintFooter)
  114.  
  115. Datensatz=FirstRecord("U")
  116.  
  117. Waehrung = StrStr( "U", 17 )
  118.  
  119.  
  120. Vordruck()
  121. RemoveAllTabs()
  122. SetTabs("R285 R450  R715 R930 R1145 R1360 R1575 R1790")
  123. SelectFont(hNormal)
  124.  
  125. Dim Zeilenhoehe as Numeric
  126. Dim NumTmp4 as Numeric
  127. Zeilenhoehe=GetLineHeight()
  128.  
  129. While Datensatz Do
  130.     PrintZeile()
  131.     NumTmp4=GetPosY()
  132.     If i=5 AND (Zeilenhoehe<=2510-NumTmp4) Then
  133.         SetPos(0,NumTmp4+35)
  134.         i=0
  135.     End If
  136.     i=i+1
  137.     Datensatz=NextRecord("U")
  138. End While
  139.  
  140. LF
  141. LF
  142. NumTmp=GetPosY()
  143. SetPos(125,NumTmp)
  144. 'TL ("Der Mehrbetrag ⁿber " + StrAmt("U",1) + " " + Waehrung + " ist voll pfΣndbar.")
  145. 'DrawLineExt(530,NumTmp2,530,NumTmp-20)
  146. 'DrawLineExt(745,NumTmp3,745,NumTmp-20)
  147. 'DrawLineExt(530,NumTmp+60,530,2510)
  148. 'DrawLineExt(745,NumTmp+60,745,2510)
  149. SetPen( 2, PEN_SOLID, COLOR_WHITE )
  150. DrawLineExt(745,NumTmp-20,745,NumTmp+60)
  151. DrawLineExt(530,NumTmp-20,530,NumTmp+60)
  152. TL ("Der Mehrbetrag ab " + StrAmt("U",1) + " " + Waehrung + " ist voll pfΣndbar.")
  153.  
  154.