home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / _lohnauskunft-Formulare-Standard / AG.lsf < prev    next >
Text File  |  2003-04-01  |  30KB  |  905 lines
  1. Include "DruckNT.int"
  2. Include "Lak_NT.int"
  3.  
  4. 'Descriptions
  5. Description Form_Description as "Arbeitgeberbelastung"
  6. Description Form_Code as "Arbeitgeberbelastung"
  7. Description Page_Orientation as PAGE_PORTRAIT
  8.  
  9. SetHeaderMargin(140,80,110,100)
  10. SetBodyMargin(135,250,110,250)
  11. SetFooterMargin(135,250,110,100)
  12.  
  13. 'n zΣhlt Menge von EintrΣgen im Belastungen-Feld, um Schriftart bei zu vielen zu verkleinern
  14. Dim n as Numeric
  15. If is("D",7) then else n=n+1 End If
  16. If is("D",10) then else n=n+1 End If
  17. If is ("D",21) then n=n+1 End If
  18. If is ("D",26) then n=n+1 End If
  19. If is ("D",30) then n=n+1 End If
  20. If is ("D",31) then n=n+1 End If
  21. If is ("D",32) then n=n+1 End If
  22. If is ("D",51) then n=n+1 End If
  23. If is ("D",52) then n=n+1 End If
  24. If is ("D",61) then else n=n+1 End If
  25. If is ("D",72) then n=n+1 End If
  26. If is ("D",73) then n=n+1 End If
  27. If is ("D",74) then n=n+1 End If
  28. If is ("D",75) then n=n+1 End If
  29. If is ("D",76) then n=n+1 End If
  30. If is ("E",1) then n=n+1 End If
  31.  
  32. Dim hBold as FontType
  33. Dim hExtraBold as FontType
  34. Dim hNormal as FontType
  35. Dim hNormal2 as FontType
  36. Dim hBelastung as FontType
  37. Dim hBelastung2 as FontType
  38. Dim hMini as FontType
  39.  
  40. hNormal2 = CreateFont("Arial",9, FONT_Bold, COLOR_BLACK)
  41. hNormal = CreateFont("Arial",8, FONT_NORMAL, COLOR_BLACK)
  42. hBold = CreateFont("Arial",8, FONT_BOLD, COLOR_BLACK)
  43. hExtraBold = CreateFont("Arial",9,FONT_BOLD,COLOR_BLACK)
  44. If n<13 then
  45.     hBelastung = CreateFont("Arial",8, FONT_NORMAL, COLOR_BLACK)
  46.     hBelastung2 = CreateFont("Arial",8, FONT_ITALIC, COLOR_BLACK)
  47. Else
  48.     hBelastung = CreateFont("Arial",8, FONT_NORMAL, COLOR_BLACK)
  49.     hBelastung2 = CreateFont("Arial",8, FONT_ITALIC, COLOR_BLACK)
  50. End If
  51. hMini=CreateFont("Arial",7, FONT_NORMAL, COLOR_BLACK)
  52. SetFont("Arial",8, FONT_NORMAL, COLOR_BLACK)
  53.  
  54.  
  55. Dim nAbrechJahr as Numeric = GetInt("D",2)
  56. Dim StrKurs as String
  57.  
  58. If  ( nAbrechJahr < 2003 )  Then  StrKurs = "Kurs: 1 EUR = 1,95583 DM"  Else  StrKurs = ""  End If 
  59.  
  60.  
  61. 'Funktion, um die Kopfzeile zu schreiben
  62. Function OnPrintHeader()
  63.  
  64.             SetFont("Arial",12,FONT_BOLD,COLOR_BLACK)
  65.             SetTabs("L10 R1840")
  66.             T("\tArbeitgeberbelastung"+ "\t")
  67.             SetFont("Arial",12,FONT_NORMAL,COLOR_BLACK)
  68.             TL(StrStr("D",1) + " " + FormatNumeric("%0.0f", nAbrechJahr ) )            
  69.             SetFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  70.             RemoveAllTabs()
  71.             SetTabs("L10 R1786")
  72.             SetPos(0,GetPosY()+40)
  73.             TL("\t" + StrStr("F",1) + " , " + StrStr("F",2) + " , " + StrStr("F",3) + " " + StrStr("F",4) )
  74.             'DrawHorzLine(FALSE)
  75.  
  76. End Function
  77.  
  78.  
  79. 'Funktion, um die Fu▀zeile zu schreiben
  80. Function OnPrintFooter()
  81. Dim cFuss as CellType = CreateCell (0,0,CELL_TYPE_DYNVERT + CELL_TYPE_DYNHORZ + CELL_TYPE_HORZ)
  82. SetCellBorder(cFuss ,CELL_BORDER_ALL,0 ,PEN_NULL, COLOR_BLACK)
  83. SetCellBorder(cFuss,CELL_BORDER_TOP,1,PEN_SOLID, COLOR_BLACK)
  84.  
  85. Dim cLexwareVersion as CellType = CreateCellEx (cFuss,1520,0,CELL_TYPE_DYNVERT,"Lexware lohnauskunft  " +GetProgramVersion(),
  86.     hNormal,CELL_TEXT_LEFT,    COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 15, 10, 0, 0)
  87. Dim cDate as CellType = CreateCellEx (cFuss,330,0,CELL_TYPE_DYNVERT,FormatDate("%d.%m.%Y",Now()),hNormal,CELL_TEXT_RIGHT,
  88.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 0, 10, 15, 0)
  89.  
  90. DrawCell(cFuss,TRUE)            
  91.             
  92. End Function
  93.  
  94. Function BorderWidth(id as CellType, left as Numeric, top as Numeric, right as Numeric, bottom as Numeric)
  95.     SetCellBorder(id, CELL_BORDER_LEFT,left ,PEN_SOLID, COLOR_BLACK)
  96.     SetCellBorder(id, CELL_BORDER_TOP, top,PEN_SOLID, COLOR_BLACK)
  97.     SetCellBorder(id, CELL_BORDER_RIGHT, right,PEN_SOLID, COLOR_BLACK)
  98.     SetCellBorder(id, CELL_BORDER_BOTTOM,bottom ,PEN_SOLID, COLOR_BLACK)
  99. End Function
  100.  
  101. Function Cell( id as CellType, index as Numeric) as CellType
  102.     Cell=GetCellByIndex(id, index)
  103. End Function
  104.  
  105. Function KorrDMnachEUR(LohnartBetrag as Numeric) As String
  106.     KorrDMnachEUR=FormatAmt(LohnartBetrag/1.95583) 
  107. End Function
  108.  
  109.  
  110. Function KorrEURnachDM(LohnartBetrag as Numeric) As String
  111.     If LohnartBetrag>=0 Then
  112.         KorrEURnachDM=FormatAmt(LohnartBetrag*1.95583+0.00000002)
  113.    Else
  114.         KorrEURnachDM=FormatAmt(LohnartBetrag*1.95583-0.00000002)
  115.     End If
  116. End Function
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125. 'Hauptteil
  126.  
  127.  
  128. SetEventHandler(EVENT_PRINT_HEADER,OnPrintHeader)
  129. SetEventHandler(EVENT_PRINT_FOOTER,OnPrintFooter)
  130.  
  131.  
  132. 'Kopfleiste mit Personaldaten
  133.  
  134. Dim KopfZeilenNr as Numeric=0
  135.  
  136. Dim cKopfTop as CellType=CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_HORZ)
  137. SetCellBorder(cKopfTop,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  138.  
  139. Dim cKopfRechts as CellType=CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT +CELL_TYPE_VERT )
  140.  
  141.  
  142. Function EinfgStammDaten( FeldBreite as Numeric, FeldName as String, FeldWert as String) as CellType
  143.     dim cPos as CellType=CreateCell(0,0,CELL_TYPE_DYNVERT+CELL_TYPE_DYNHORZ+CELL_TYPE_VERT) 
  144.     SetCellBackground(cPos,COLOR_WHITE)
  145.     If KopfZeilenNr=1 Then
  146.         SetCellParent(cPos, cKopfTop)
  147.     Else
  148.         SetCellParent(cPos, cell(cKopfRechts,KopfZeilenNr-1))
  149.     End If
  150.     
  151.     CreateCellEx(cPos,FeldBreite,45,CELL_TYPE_DYNVERT+CELL_TYPE_HORZ,FeldName,hNormal,CELL_TEXT_CENTER,
  152.         COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 0, 7, 0, 0)
  153.  
  154.     CreateCellEx(cPos,FeldBreite,45,CELL_TYPE_DYNVERT,FeldWert,hNormal,CELL_TEXT_CENTER,
  155.         COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 0, 7, 0, 0)
  156.  
  157. End Function
  158.  
  159. Dim OeffentlDienstBetrag as Numeric
  160. Dim OeffentlDienstWert as String
  161. Dim KVWert as String
  162. Dim KVSatz as String
  163. Dim PVWert as String
  164. Dim RVWert as String
  165. Dim RVWertAN as String
  166. Dim RV_AG12_RestAN as Bool
  167. Dim AVWert as String
  168. Dim RestUrlaubBetrag as Numeric
  169. Dim RestUrlaubWert as String
  170. Dim SchluesselSV as Numeric
  171. Dim SteuerklasseBetrag as Numeric
  172. Dim SteuerklasseWert as String
  173. Dim SteuerTraegt as String
  174. Dim UrlaubsAnspruchBetrag as Numeric
  175. Dim UrlaubsAnspruchWert    as String
  176. Dim WaehrungWert as String
  177.  
  178.  
  179. If Is("D",80) Then
  180.     WaehrungWert="EURO"
  181. Else
  182.     WaehrungWert="DM"
  183. End If
  184.  
  185. OeffentlDienstBetrag=GetInt("B",16)
  186. If OeffentlDienstBetrag=0 Then OeffentlDienstWert="nein"
  187. Else If OeffentlDienstBetrag=1 Then OeffentlDienstWert="Vbl / Zvk"
  188.                                          Else OeffentlDienstWert="VblU" End If
  189. End If    
  190.  
  191. SteuerklasseBetrag=GetInt("D",6)
  192.  
  193. If SteuerklasseBetrag=0 Then SteuerklasseWert="0" End If
  194. If SteuerklasseBetrag=1 Then SteuerklasseWert="I" End If
  195. If SteuerklasseBetrag=2 Then SteuerklasseWert="II" End If
  196. If SteuerklasseBetrag=3 Then SteuerklasseWert="III" End If
  197. If SteuerklasseBetrag=4 Then SteuerklasseWert="IV" End If
  198. If SteuerklasseBetrag=5 Then SteuerklasseWert="V" End If
  199. If SteuerklasseBetrag=6 Then SteuerklasseWert="VI" End If
  200.  
  201. SteuerTraegt=Get("D",104)
  202. If SteuerTraegt="AN" Then SteuerTraegt="Arbeitnehmer"
  203.                             Else SteuerTraegt="Arbeitgeber"    End If
  204.  
  205.  
  206. SchluesselSV= GetInt("D",7)
  207.  
  208. If SchluesselSV=1 Then
  209.     KVSatz=" - "+StrAmt("D",11)+" %"
  210.     KVWert=Get("D",59)
  211. End If
  212.  
  213. If SchluesselSV=9 Then KVWert="freiwillig / privat"
  214. Else
  215.     If SchluesselSV=0 OR SchluesselSV=6 Then KVWert=Get("D",57)
  216.     Else If SchluesselSV=21 Then KVWert="AG 5%" End If
  217.     End If
  218. End If
  219.  
  220.  
  221. SchluesselSV=GetInt("D",8)
  222. If SchluesselSV=1 Then RVWert="ja"
  223.  
  224. Else If SchluesselSV=0 Then    RVWert="nein"
  225.  
  226. Else If SchluesselSV=17 Then
  227.     RV_AG12_RestAN=TRUE
  228.     RVWert="12 %"
  229.     SetFormatNumericOptions(2,"","")
  230.     RVWertAN=FormatNumeric("%0.1f", GetNumeric("R",28))+" %"
  231.     SetFormatNumericOptions(0,"","")
  232.  
  233. Else    If SchluesselSV=22 Then
  234.     RV_AG12_RestAN=TRUE
  235.     RVWert="5 %"
  236.     RVWertAN=FormatNumeric("%0.1f", GetNumeric("R",29))+" %"
  237.  
  238. Else If SchluesselSV=6 Then
  239.     RV_AG12_RestAN=TRUE
  240.     RVWert="12 %"
  241.     RVWertAN="0 %"
  242.  
  243. Else If SchluesselSV=21 Then
  244.     RV_AG12_RestAN=TRUE
  245.     RVWert="5 %"
  246.     RVWertAN="0 %"
  247.  
  248. Else RVWert="1/2 Beitrag AG" End If
  249. End If
  250. End If
  251. End If
  252. End If
  253. End If
  254.  
  255.  
  256. SchluesselSV=GetInt("D",9)
  257. If SchluesselSV=1 Then AVWert="ja"
  258. Else If SchluesselSV=0 Then AVWert="nein"
  259.                               Else AVWert="1/2 Beitrag AG" End If
  260. End If
  261.  
  262.  
  263. SchluesselSV=GetInt("D",10)
  264. If SchluesselSV=1 Then PVWert="ja"
  265. Else If SchluesselSV=0 Then PVWert="nein"
  266.     Else If SchluesselSV=9 Then PVWert="freiwillig / privat"
  267.                                   Else PVWert="halber Beitrag" End If
  268.     End If
  269. End If
  270.  
  271.      
  272. RestUrlaubBetrag=GetNumeric("P",64)
  273. If RestUrlaubBetrag<>1 Then
  274.     RestUrlaubWert=StrAmt("P",64)+" Tage"
  275. Else
  276.     RestUrlaubWert=StrAmt("P",64)+" Tag"
  277. End If
  278.  
  279.  
  280. UrlaubsAnspruchBetrag=GetNumeric("P",63)
  281. If UrlaubsAnspruchBetrag<>1 Then
  282.     UrlaubsAnspruchWert=StrAmt("P",63)+" Tage"
  283. Else
  284.     UrlaubsAnspruchWert=StrAmt("P",63)+" Tag"
  285. End If
  286.  
  287.  
  288. '1. Kopfzeile
  289. KopfZeilenNr=KopfZeilenNr+1
  290. EinfgStammDaten( 230, "Personal-Nr.", StrStr("P",1))
  291. EinfgStammDaten( 710, "Name, Vorname",StrStr("P",2) +" , "+ StrStr("P",3) )
  292. EinfgStammDaten( 339, "Kostenstelle", StrStr("P",16))
  293. EinfgStammDaten( 190, "Eintritt", StrDate("P",19))
  294. EinfgStammDaten( 233, "Abrechnung", StrStr("D",60))
  295. EinfgStammDaten( 148, "WΣhrung", WaehrungWert)
  296.  
  297.  
  298.  
  299. '2.Kopfzeile
  300. KopfZeilenNr=KopfZeilenNr+1
  301. SetCellParent(CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT +CELL_TYPE_HORZ),cKopfRechts)
  302. BorderWidth(cell(cKopfRechts,KopfZeilenNr-1),3,3,3,3)
  303.  
  304. EinfgStammDaten( 230, "╓ffentl. Dienst", OeffentlDienstWert)
  305.  
  306. Dim StPausch as Bool
  307.  
  308. If SteuerklasseBetrag<0 Then StPausch=TRUE End If
  309.  
  310. If StPausch=FALSE Then
  311.     EinfgStammDaten( 117, "St.-Kl.", SteuerklasseWert) 
  312.     EinfgStammDaten( 116, "Kinder", StrKfb("D",17))
  313.     EinfgStammDaten( 159, "Kirche",StrBool("D",14))
  314.     EinfgStammDaten( 318, "Freibetrag", StrAmt("D",15)+" "+StrStr("D",115))
  315. Else
  316.     EinfgStammDaten( 233, "Besteuerung", "Pauschal")
  317.     EinfgStammDaten( 255, "Steuer trΣgt der", SteuerTraegt)
  318.     EinfgStammDaten( 222, "Steuersatz", StrAmt("D",103)+" %")
  319. End If
  320.  
  321. EinfgStammDaten( 222, "KV"+KVSatz, KVWert)
  322. EinfgStammDaten( 233, "PV", PVWErt)
  323. EinfgStammDaten( 233, "RV", RVWert)
  324. EinfgStammDaten( 222, "AV", AVWert)
  325.  
  326.  
  327. Dim cKopfRV as CellType
  328. Dim Pos_RV_HORZ as Numeric
  329.  
  330. If StPausch=TRUE Then Pos_RV_HORZ=7
  331.                           Else Pos_RV_HORZ=8 End If
  332.  
  333. SetCellBorder(Cell(Cell(cKopfRechts,1),Pos_RV_HORZ-2),CELL_BORDER_LEFT,3,PEN_SOLID,COLOR_BLACK)
  334.  
  335. If RV_AG12_RestAN=TRUE Then
  336.     cKopfRV=Cell(cell(cKopfRechts,KopfZeilenNr-1),Pos_RV_HORZ)
  337.     SetCellText(Cell(cKopfRV,1),"")
  338.     CreateCellEx(Cell(cKopfRV,1),76,45,CELL_TYPE_DYNVERT,"AG",hMini,CELL_TEXT_LEFT,
  339.         COLOR_TRANSPARENT, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 15, 10, 0, 0)
  340.     CreateCellEx(Cell(cKopfRV,1),81,45,CELL_TYPE_DYNVERT,"- RV -",hNormal,CELL_TEXT_CENTER,
  341.         COLOR_TRANSPARENT, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 0, 7, 0, 0)
  342.     CreateCellEx(Cell(cKopfRV,1),76,45,CELL_TYPE_DYNVERT,"AN",hMini,CELL_TEXT_RIGHT,
  343.         COLOR_TRANSPARENT, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 0, 10, 15, 0)
  344.     SetCellAlign(Cell(cKopfRV,2),CELL_TEXT_LEFT)
  345.     SetCellTextBorder(Cell(cKopfRV,2),15,7,0,0)
  346.     CreateCellEx(Cell(cKopfRV,2),233,45,CELL_TYPE_DYNVERT,RVWertAN,hNormal,CELL_TEXT_RIGHT,
  347.         COLOR_TRANSPARENT, hNullPen, hNullPen, hSolidPen, hNullPen, hNullPen, 0, 7, 15, 0)
  348. End If
  349.  
  350. '3.Kopfzeile
  351. KopfZeilenNr=KopfZeilenNr+1
  352. SetCellParent(CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT +CELL_TYPE_HORZ),cKopfRechts)
  353. BorderWidth(cell(cKopfRechts,KopfZeilenNr-1),3,0,3,3)
  354. EinfgStammDaten( 155, "Resturlaub",ResturlaubWert )
  355. EinfgStammDaten( 235, "Urlaubsanspruch", UrlaubsAnspruchWert)
  356. EinfgStammDaten( 350, "Bundesland", StrStr("D",19))
  357. EinfgStammDaten( 200, "Kindergeld", StrAmt("B",14)+ " " + StrStr("B",114))
  358. EinfgStammDaten( 222, "KV-Brutto", StrAmt("R",13))
  359. EinfgStammDaten( 233, "PV-Brutto", StrAmt("R",22))
  360. EinfgStammDaten( 233, "RV-Brutto", StrAmt("R",14))
  361. EinfgStammDaten( 222, "AV-Brutto", StrAmt("R",15))
  362.  
  363.  
  364. SetCellBorder(Cell(Cell(cKopfRechts,2),5),CELL_BORDER_LEFT,3,PEN_SOLID,COLOR_BLACK)
  365.  
  366. DrawCell(cKopfTop,TRUE)
  367. LF
  368. SetPos(0,GetPosY())
  369. DrawCell(cKopfRechts,TRUE)
  370.  
  371.  
  372. '4.Kopfzeile
  373. KopfZeilenNr=KopfZeilenNr+1
  374. SetCellParent(CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT +CELL_TYPE_HORZ),cKopfRechts)
  375. BorderWidth(cell(cKopfRechts,KopfZeilenNr-1),3,0,3,3)
  376.  
  377. If Is("E",5) Then
  378.     EinfgStammDaten(222, "KV-Brutto"+ " "+FormatNumeric("%0.0f",GetInt("D",2)-1),StrAmt("R",16) )
  379.     EinfgStammDaten( 233, "PV-Brutto"+ " "+FormatNumeric("%0.0f",GetInt("D",2)-1),StrAmt("R",23) )
  380.     EinfgStammDaten( 233, "RV-Brutto"+ " "+FormatNumeric("%0.0f",GetInt("D",2)-1), StrAmt("R",17))
  381.     EinfgStammDaten( 222, "AV-Brutto"+ " "+FormatNumeric("%0.0f",GetInt("D",2)-1), StrAmt("R",18))
  382.     SetPos(940,GetPosY())
  383.     BorderWidth(cell(cKopfRechts,KopfZeilenNr-1),3,0,3,3)
  384.     DrawCell(Cell(cKopfRechts,3),TRUE)
  385. End If
  386.  
  387.  
  388.  
  389. 'Belastungen mit Aufschlⁿsselung
  390. Dim cBelastungen as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  391. SetCellBorder(cBelastungen,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  392. Dim cBelastung as CellType = CreateCell (0,0,CELL_TYPE_DYNVERT + CELL_TYPE_DYNHORZ + CELL_TYPE_HORZ)
  393. SetCellParent (cBelastung,cBelastungen)
  394.  
  395. '▄berschriften
  396. Dim cBelast as CellType = CreateCellEx (cBelastung,1520,0,CELL_TYPE_DYNVERT,"Belastung",hNormal2,CELL_TEXT_LEFT,
  397.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 15, 10, 5, 5)
  398. Dim cKurs as CellType = CreateCellEx (cBelast,1520,0,CELL_TYPE_DYNVERT, StrKurs ,hNormal,CELL_TEXT_RIGHT,
  399.     COLOR_TRANSPARENT, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 15, 13, 20, 5)
  400. Dim cBelastBetrag as CellType = CreateCellEx (cBelastung,330,0,CELL_TYPE_DYNVERT,"Betrag",hNormal,CELL_TEXT_RIGHT,
  401.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 13, 30, 5)
  402.  
  403.  
  404. Dim Spalte1 as CellType
  405. Dim Spalte2 as CellType
  406.  
  407. Dim BelastHeight as Numeric
  408.  
  409. If Is("E",5) Then BelastHeight=930
  410.                  Else BelastHeight=1020 End If
  411. If OeffentlDienstBetrag<>0 Then BelastHeight=BelastHeight-42 End If
  412.  
  413. If Is("R",27) Then BelastHeight=BelastHeight-42 End If
  414.  
  415.  
  416. 'Aufschlⁿsselung
  417. 'Zellendefinierung
  418. Dim cBelastAufschl as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_HORZ)
  419. SetCellParent(cBelastAufschl,cBelastungen)
  420. Dim cBelastWert as CellType = CreateCell (1520,BelastHeight,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  421. SetCellParent(cBelastWert,cBelastAufschl)
  422. Dim cWBelastWert as CellType = CreateCell (330,BelastHeight,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  423. SetCellParent(cWBelastWert,cBelastAufschl)
  424.  
  425. Spalte1=cBelastWert
  426. Spalte2=cWBelastWert
  427.  
  428. Dim ctPosition as celltemplateType
  429. dim ctBetrag as celltemplateType
  430. dim ctWaehrung as celltemplateType
  431.  
  432. ctPosition=createCellTemplate(1190,0,CELL_TYPE_DYNVERT,hNormal,CELL_TEXT_LEFT,
  433.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen,15, 10, 0, 0)
  434.  
  435. ctBetrag=createCellTemplate(250,0,CELL_TYPE_DYNVERT,hNormal,CELL_TEXT_RIGHT,
  436.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen,5, 10, 0, 0)
  437.  
  438. ctWaehrung=createCellTemplate (80,0,CELL_TYPE_DYNVERT,hNormal,CELL_TEXT_LEFT,
  439.     COLOR_WHITE, hNullPen, hNullPen, hSolidPen, hNullPen, hNullPen,0, 10, 5, 0)
  440.  
  441. Dim q as Numeric    
  442. Dim r as Numeric=1
  443.  
  444. Dim stWaehrFirma as String
  445. Dim blOutputFirma as Bool
  446. Dim NumPauschAnteilDV as Numeric
  447.  
  448. blOutputFirma=Is("D",81)
  449.  
  450. If Is("D",80) Then stWaehrFirma="EUR"
  451. Else stWaehrFirma="DM"
  452. End If
  453.  
  454.  
  455. function EinfgPosition(Lohnart as String, s as String, n as Numeric)    
  456.     
  457.     SetCellParent(CreateCell(1520,0,CELL_TYPE_DYNVERT + CELL_TYPE_HORZ),Spalte1)
  458.     SetCellParent(CreateCell(330,0,CELL_TYPE_DYNVERT + CELL_TYPE_HORZ),Spalte2)
  459.  
  460.     q=q+1
  461.     SetCellTextBorder(Cell(Spalte1,q),0,0,0,0)
  462.     SetCellTextBorder(Cell(Spalte2,q),0,0,0,0)
  463.     SetCellBorder(Cell(Spalte1,q),CELL_BORDER_ALL,0,PEN_NULL,COLOR_TRANSPARENT)
  464.     SetCellBorder(Cell(Spalte2,q),CELL_BORDER_ALL,0,PEN_NULL,COLOR_TRANSPARENT)
  465.  
  466.     Dim stBetrag as String
  467.     Dim stWaehrung as String
  468.     Dim stKorrBetrag as String
  469.     Dim stKorrWaehrung as String
  470.     Dim NumBetrag as Numeric
  471.     
  472.     
  473.     If s<>"" Then
  474.         NumBetrag=GetNumeric(s,n)
  475.         stBetrag=FormatAmt(NumBetrag)
  476.         stWaehrung=StrStr(s,100+n)
  477.         If stWaehrFirma<>stWaehrung Then
  478.             If stWaehrung="DM" Then
  479.                 stKorrBetrag=KorrDMnachEUR(NumBetrag)
  480.                 stKorrWaehrung=" EUR"
  481.             Else
  482.                 stKorrBetrag=KorrEURnachDM(NumBetrag)
  483.                 stKorrWaehrung=" DM"
  484.             End If
  485.         Else
  486.             stKorrBetrag=""
  487.             stKorrWaehrung=""
  488.         End If
  489.     Else
  490.         stKorrBetrag=""
  491.         stKorrWaehrung=""
  492.         stBetrag=""
  493.         stWaehrung=""
  494.     End If
  495.  
  496.  
  497.     createCellFromTemplate(ctPosition,Cell(Spalte1,q),Lohnart)    
  498.     
  499.     If (blOutputFirma=FALSE) AND (stKorrWaehrung<>"") Then    
  500.         createCellFromTemplate(ctBetrag,Cell(Spalte1,q),stBetrag)
  501.         createCellFromTemplate(ctWaehrung,Cell(Spalte1,q)," "+stWaehrung)
  502.         createCellFromTemplate(ctBetrag,Cell(Spalte2,q),stKorrBetrag)
  503.         createCellFromTemplate(ctWaehrung,Cell(Spalte2,q),stKorrWaehrung)
  504.     Else
  505.         createCellFromTemplate(ctBetrag,Cell(Spalte1,q),stKorrBetrag)
  506.         createCellFromTemplate(ctWaehrung,Cell(Spalte1,q),stKorrWaehrung)
  507.         createCellFromTemplate(ctBetrag,Cell(Spalte2,q),stBetrag)
  508.         createCellFromTemplate(ctWaehrung,Cell(Spalte2,q)," "+stWaehrung)
  509.     End If
  510. end function
  511.  
  512.  
  513. Function Build_stLohnart(TextLohnart as String, Bereich as String, NrBereich as Numeric) as String
  514.  
  515.     Dim stlohnart as String
  516.     Dim stBruttoWaehrung as String
  517.     Dim stKorrBetrag as String
  518.     Dim stKorrWaehrung as String
  519.  
  520.     stBruttoWaehrung=StrStr(Bereich, (NrBereich+100))
  521.     stlohnart=TextLohnart+" ( "+StrAmt(Bereich,NrBereich)+" "+stBruttoWaehrung
  522.     
  523.     If stWaehrFirma<>stBruttoWaehrung Then
  524.         
  525.         If stBruttoWaehrung="DM" Then
  526.             stKorrBetrag=KorrDMnachEUR(GetNumeric(Bereich,NrBereich))
  527.             stKorrWaehrung=" EUR"
  528.         Else
  529.             stKorrBetrag=KorrEURnachDM(GetNumeric(Bereich,NrBereich))
  530.             stKorrWaehrung=" DM"
  531.         End If
  532.  
  533.         stlohnart=stlohnart+" / "+stKorrBetrag+stKorrWaehrung
  534.         
  535.     End IF
  536.     
  537.     stlohnart=stlohnart+" )"
  538.  
  539.     Build_stLohnart=stlohnart
  540.  
  541. End Function
  542.  
  543.  
  544.  
  545. Dim cBruttoLZ as CellType
  546. Dim cWBruttoLZ as CellType
  547.  
  548.  
  549. Dim stLohnart as String
  550. Dim stEinheit as String
  551. Dim Menge as Numeric
  552. Dim StrPauschAnteilDV as String=""
  553.     
  554. Dim i as Numeric
  555.  
  556. If Is("D",61) then
  557.  
  558.     While i<=5 do
  559.         
  560.         If Is("D",71+i) Then
  561.             
  562.             stLohnart=StrStr("D",66+i)
  563.                 
  564.             If Is("D",82+i) Then
  565.                             
  566.                 stEinheit=StrInt("D",87+i)
  567.                 Menge=GetNumeric("D",92+i)
  568.             
  569.                 If stEinheit="0" Then
  570.                     stEinheit="Std"
  571.                 Else
  572.                     If stEinheit="1" Then
  573.                         stEinheit="Stⁿck"
  574.                     Else
  575.                         If Menge=1 Then
  576.                             stEinheit="Tag"
  577.                         Else
  578.                             stEinheit="Tage"
  579.                         End IF
  580.                     End If
  581.                 End If
  582.                     
  583.                 stLohnart=stLohnart+StrAmt("D",92+i)+" "+stEinheit+" "+"α"+" "+StrAmt("D",97+i)+" "+StrStr("D",161+i)    
  584.             End If    
  585.             
  586.             If stLohnart="" Then stLohnart="Bruttogehalt "+FormatNumeric("%0.0f",i) End If
  587.             
  588.             
  589. '            If ((i=5) AND Is("D",54)) Then
  590. '                
  591. '                NumPauschAnteilDV=GetNumeric("A",51)
  592. '                
  593. '                If ((stLohnart="Barlohnumwandlung fⁿr Direktversicherung") AND (NumPauschAnteilDV>0)) Then
  594. '
  595. '                    stLohnart=stLohnart+" ( -"+FormatAmt(NumPauschAnteilDV-GetNumeric("A",46))+" + nicht pausch. Anteil "+FormatAmt(NumPauschAnteilDV)+" )" 
  596. '
  597. '                End If
  598. '
  599. '            End If
  600.             
  601.  
  602. '            If Not ((i=5) AND ((stLohnart="Barlohnumwandlung fⁿr Direktversicherung") OR (stLohnart="Nicht pauschaler Anteil der DV-Zusatzleistung"))) Then
  603. '                
  604. '                EinfgPosition(stLohnart,"D",61+i)
  605. '            
  606. '            End If
  607.  
  608.             If (i<5) Then EinfgPosition(stLohnart,"D",61+i)
  609.             
  610.             Else
  611.  
  612.                 If (stLohnart="Barlohnumwandlung fⁿr Direktversicherung") Then StrPauschAnteilDV="Barlohnumwandlung" End If
  613.                 If (stLohnart="Nicht pauschaler Anteil der DV-Zusatzleistung") Then StrPauschAnteilDV="Zusatzleistung" End If    
  614.                      
  615.                 If (StrPauschAnteilDV="") Then EinfgPosition(stLohnart,"D",61+i) End if
  616.  
  617.             End If    
  618.         End If            
  619.         i=i+1
  620.     End While        
  621.             
  622. Else 
  623.     'wenn nur ein Gehalt vorhanden ist
  624.     EinfgPosition("Bruttogehalt","D",5)
  625. End If
  626.  
  627. 'Einmalzahlung
  628. Dim EZArtInt as Numeric
  629. Dim EZArt as String
  630. If is("E",1) then
  631.     EZArt=StrStr("E",29)
  632.     EZArtInt=GetInt("E",36)
  633.     If EZArt="" Then 
  634.         If EZArtInt=0 Then EZArt="Einmalzahlung"
  635.         Else If EZArtInt=1 Then EZArt="Abfindung"
  636.              Else EZArt="MehrjΣhrige Vergⁿtung"
  637.              End If
  638.         End If
  639.     Else EZArt=StrStr("E",29)
  640.     End If
  641.     
  642.     EinfgPosition(EZArt,"E",2)
  643.     
  644. End If
  645.  
  646. 'Verm÷genswirksame Leistungen
  647. If is("D",26) then
  648.     EinfgPosition("Verm÷genswirksame Leistungen","B",2)
  649. End If
  650.  
  651. 'Direktversicherung
  652. If is("D",21) then
  653.     NumPauschAnteilDV=GetNumeric("A",51)
  654.     If is("D",55) then
  655.         If (NumPauschAnteilDV>0) Then
  656.             stLohnart=Build_stLohnart("Nicht pauschaler Anteil DV-Einmalzahlung","A",51)
  657.             EinfgPosition(stLohnart,"",0)
  658.         End If
  659.         
  660.         stLohnart=Build_stLohnart("Direktversicherung aus Einmalzahlung","B",4)
  661.         EinfgPosition(stLohnart,"",0)
  662.     End If
  663.  
  664.     If Is("D",54) Then
  665.         If NumPauschAnteilDV>0 Then
  666.             stLohnart="Barlohnumwandlung fⁿr Direktversicherung"+" ( -"+FormatAmt(NumPauschAnteilDV-GetNumeric("A",46))+" + nicht pausch. Anteil "+FormatAmt(NumPauschAnteilDV)+" )" 
  667.             EinfgPosition(stLohnart,"D",66)
  668.             stLohnart="Direktversicherung"+" ( "+FormatAmt(NumPauschAnteilDV-GetNumeric("A",46))+" - nicht pausch. Anteil "+FormatAmt(-NumPauschAnteilDV)+" )"
  669.             EinfgPosition(stLohnart,"B",4)
  670.         Else
  671.             EinfgPosition("Barlohnumwandlung fⁿr Direktversicherung","D",66)
  672.             EinfgPosition("Direktversicherung","B",4)
  673.         End If
  674.         
  675.         
  676.     End If
  677.  
  678.     If Is("D",53) Then
  679.         stLohnart="Direktversicherung"
  680.         If StrPauschAnteilDV="Zusatzleistung" Then
  681.             EinfgPosition("Nicht pauschaler Anteil der DV-Zusatzleistung","A",51)
  682.         End If
  683.         EinfgPosition(stLohnart,"B",4)
  684.     End If
  685. End If
  686.  
  687. 'Geldwerter Vorteil 1-3
  688. While r<=3 Do
  689.     If is("D",22+r) then
  690.         stLohnart=StrStr("D",32+r)
  691.         If stLohnart="" Then stLohnart="Geldwerter Vorteil "+FormatNumeric("%0.0f",r) End If
  692.         EinfgPosition(stLohnart,"B",7+r)    
  693.     End If
  694. r=r+1
  695. End While
  696. r=1
  697.  
  698. 'Fahrgeld
  699. If is("D",22) then
  700.     EinfgPosition("Fahrgeld","B",11)
  701. End If
  702.  
  703. '1.-3. Steuerfreier Bezug
  704. While r<=3 Do
  705.     If is("D",29+r) then
  706.         EinfgPosition("Steuerfreier Bezug: "+StrStr("D",38+r),"B",4+r)
  707.     End If
  708.     r=r+1
  709. End While
  710. r=1
  711.  
  712. 'wenn Arbeitnehmer nicht in der gesetzlichen Krankenversicherung
  713. If GetInt("D",7)=9 then
  714.     EinfgPosition("AG-Ant. Freiw. KV","B",3)    
  715. End If
  716.  
  717. 'wenn Arbeitnehmer nicht in der Pflegeversicherung
  718. If GetInt("D",10)=9 then
  719.     EinfgPosition("AG-Ant. Freiw. PV","B",13)
  720. End If
  721.  
  722. 'Dienstwagen
  723. If Is("D",20) Then
  724.     EinfgPosition("Dienstwagen","B",1)
  725. End If
  726.  
  727. cBruttoLZ = CreateCellEx (cBelastWert,1520,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_LEFT,
  728.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 15, 0, 5, 0)
  729. SetCellBorder(cBruttoLZ,CELL_BORDER_TOP,0,PEN_SOLID,COLOR_WHITE)
  730. SetCellBorder(cBruttoLZ,CELL_BORDER_BOTTOM,0,PEN_SOLID,COLOR_WHITE)
  731. cWBruttoLZ = CreateCellEx (cWBelastWert,330,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_RIGHT,
  732.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 0, 15, 0)
  733. SetCellBorder(cWBruttoLZ,CELL_BORDER_TOP,0,PEN_SOLID,COLOR_WHITE)
  734. SetCellBorder(cWBruttoLZ,CELL_BORDER_BOTTOM,0,PEN_SOLID,COLOR_WHITE)
  735.  
  736.  
  737.  
  738. 'Sozialversicherungen mit Aufschlⁿsselung
  739. Dim cSozialversicherungen as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  740. SetCellBorder(cSozialversicherungen,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  741. Dim cSozialversicherung as CellType = CreateCell (0,0,CELL_TYPE_DYNVERT + CELL_TYPE_DYNHORZ + CELL_TYPE_HORZ)
  742. SetCellParent (cSozialversicherung,cSozialversicherungen)
  743.  
  744. '▄berschriften
  745. Dim cSozialv as CellType = CreateCellEx (cSozialversicherung,1520,0,CELL_TYPE_DYNVERT,"Sozialversicherungen",hNormal2,CELL_TEXT_LEFT,
  746.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hNullPen, hNullPen, 15, 10, 5, 5)
  747. Dim cVersBetrag as CellType CreateCellEx (cSozialversicherung,330,0,CELL_TYPE_DYNVERT,"Betrag",hNormal,CELL_TEXT_RIGHT,
  748.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hNullPen, hNullPen, 5, 13, 30, 5)
  749.  
  750. 'Aufschlⁿsselung
  751. 'Zellendefinierung
  752. Dim cSozVersAufschl as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_HORZ)
  753. SetCellParent(cSozVersAufschl,cSozialversicherungen)
  754. Dim cSozVers as CellType = CreateCell (1520,0,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  755. SetCellParent(cSozVers,cSozVersAufschl)
  756. Dim cWSozVers as CellType = CreateCell (330,0,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  757. SetCellParent(cWSozVers,cSozVersAufschl)
  758.  
  759. Spalte1=cSozVers
  760. Spalte2=cWSozVers
  761. q=0
  762.  
  763. 'Krankenversicherung
  764. EinfgPosition("Krankenversicherung","G",1)
  765.  
  766. 'Pflegeversicherung
  767. EinfgPosition("Pflegeversicherung","G",9)
  768.  
  769. 'Rentenversicherung
  770. EinfgPosition("Rentenversicherung","G",2)
  771.  
  772. 'Arbeitslosenversicherung
  773. EinfgPosition("Arbeitslosenversicherung","G",3)
  774.  
  775. CreateCellEx (cSozVers,1500,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_LEFT,
  776.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 15, 0, 5, 0)
  777. CreateCellEx (cWSozVers,330,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_RIGHT,
  778.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 5, 0, 15, 0)
  779.  
  780. 'Pauschalen mit Aufschlⁿsselung
  781. Dim cPauschalen as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  782. SetCellBorder(cPauschalen,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  783. Dim cPauschal as CellType = CreateCell (0,0,CELL_TYPE_DYNVERT + CELL_TYPE_DYNHORZ + CELL_TYPE_HORZ)
  784. SetCellParent (cPauschal,cPauschalen)
  785.  
  786. '▄berschriften
  787. Dim cPauschUeb as CellType = CreateCellEx (cPauschal,1520,0,CELL_TYPE_DYNVERT,"Pauschalen",hNormal2,CELL_TEXT_LEFT,
  788.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 15, 10, 5, 5)
  789. Dim cPauschBetrag as CellType CreateCellEx (cPauschal,330,0,CELL_TYPE_DYNVERT,"Betrag",hNormal,CELL_TEXT_RIGHT,
  790.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 13, 30, 5)
  791.  
  792. 'Aufschlⁿsselung
  793. 'Zellendefinierung
  794. Dim cPauschAufschl as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_HORZ)
  795. SetCellParent(cPauschAufschl,cPauschalen)
  796. Dim cPausch as CellType = CreateCell (1520,0,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  797. SetCellParent(cPausch,cPauschAufschl)
  798. Dim cWPausch as CellType = CreateCell (330,0,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  799. SetCellParent(cWPausch,cPauschAufschl)
  800.  
  801. Spalte1=cPausch
  802. Spalte2=cWPausch
  803. q=0
  804.  
  805. 'Lohnsteuer
  806. EinfgPosition("Lohnsteuer","G",4)
  807.  
  808. 'Kirchensteuer
  809. EinfgPosition("Kirchensteuer","G",5)
  810.  
  811. 'SolidaritΣtszuschlag
  812. EinfgPosition("SolidaritΣtszuschlag","G",13)
  813.  
  814.  
  815. CreateCellEx (cPausch,1500,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_LEFT,
  816.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 15, 0, 5, 0)
  817. CreateCellEx (cWPausch,330,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_RIGHT,
  818.     COLOR_WHITE, hNullPen, hNullPen, hNullPen, hNullPen, hNullPen, 5, 0, 15, 0)
  819.  
  820.  
  821.  
  822.  
  823. 'Arbeitgeberkassen mit Aufschlⁿsselung
  824. Dim cArbeitgeberkassen as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  825. SetCellBorder(cArbeitgeberkassen,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  826. Dim cArbeitgKass as CellType = CreateCell (0,0,CELL_TYPE_DYNVERT + CELL_TYPE_DYNHORZ + CELL_TYPE_HORZ)
  827. SetCellParent (cArbeitgKass,cArbeitgeberkassen)
  828.  
  829. '▄berschriften
  830. Dim cKassenUeb as CellType = CreateCellEx (cArbeitgKass,1520,0,CELL_TYPE_DYNVERT,"Arbeitgeberkassen",hNormal2,CELL_TEXT_LEFT,
  831.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 15, 10, 5, 5)
  832. Dim cKassenBetrag as CellType CreateCellEx (cArbeitgKass,330,0,CELL_TYPE_DYNVERT,"Betrag",hNormal,CELL_TEXT_RIGHT,
  833.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 13, 30, 5)
  834.  
  835. 'Aufschlⁿsselung
  836. 'Zellendefinierung
  837. Dim cKassenAufschl as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_HORZ)
  838. SetCellParent(cKassenAufschl,cArbeitgeberkassen)
  839. Dim cKassen as CellType = CreateCell (1520,82,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  840. SetCellParent(cKassen,cKassenAufschl)
  841. Dim cWKassen as CellType = CreateCell (330,82,CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  842. SetCellParent(cWKassen,cKassenAufschl)
  843.  
  844. Spalte1=cKassen
  845. Spalte2=cWKassen
  846. q=0
  847.  
  848. Dim cAGKLZ as CellType
  849. Dim cWAGKLZ as CellType
  850.  
  851. 'Ausgleichskasse U1
  852. EinfgPosition("Ausgleichskasse U1","G",7)
  853.  
  854. 'Ausgleichskasse U2
  855. EinfgPosition("Ausgleichskasse U2","G",8)
  856.  
  857. 'Zusatzversorgungskasse
  858. If OeffentlDienstBetrag=1 then EinfgPosition("VBL/ZVK-Arbeitgeber-Umlage","G",14) End If
  859. If OeffentlDienstBetrag=2 then EinfgPosition("VBLU-Arbeitgeber-Umlage","G",14) End If
  860.  
  861. 'VBL/ZVK-Erh÷hungsbetrag
  862. If Is("R",27) Then EinfgPosition("VBL/ZVK-Erh÷hungsbetrag","G",15) End If
  863.  
  864. cAGKLZ = CreateCellEx (cKassen,1500,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_LEFT,
  865.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 15, 0, 5, 0)
  866. SetCellBorder(cAGKLZ,CELL_BORDER_TOP,0,PEN_SOLID,COLOR_WHITE)
  867. SetCellBorder(cAGKLZ,CELL_BORDER_BOTTOM,0,PEN_SOLID,COLOR_WHITE)
  868. cWAGKLZ = CreateCellEx (cWKassen,330,10,CELL_TYPE_DYNHORZ,"",hBelastung,CELL_TEXT_RIGHT,
  869.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 0, 15, 0)
  870. SetCellBorder(cWAGKLZ,CELL_BORDER_TOP,0,PEN_SOLID,COLOR_WHITE)
  871. SetCellBorder(cWAGKLZ,CELL_BORDER_BOTTOM,0,PEN_SOLID,COLOR_WHITE)
  872.  
  873.  
  874. 'Gesamt AG
  875. Dim cGesAG as CellType = CreateCell (0,0,CELL_TYPE_DYNHORZ + CELL_TYPE_DYNVERT + CELL_TYPE_VERT)
  876. SetCellBorder(cGesAG,CELL_BORDER_ALL,3,PEN_SOLID,COLOR_BLACK)
  877. Dim cNGesAG as CellType = CreateCellEx (cGesAG,330,0,CELL_TYPE_DYNVERT,"Gesamt AG",hBold,CELL_TEXT_RIGHT,
  878.     COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 5, 13, 15, 5)
  879. Dim cWGesAG as CellType = CreateCellEx (cGesAG,330,0,CELL_TYPE_DYNVERT,StrAmt("G",6)+" "+StrStr("G",106),
  880.     hExtraBold,CELL_TEXT_RIGHT,COLOR_WHITE, hSolidPen, hSolidPen, hSolidPen, hSolidPen, hNullPen, 0, 20, 15, 20)
  881.  
  882.  
  883.  
  884.  
  885.  
  886. 'Ausdruck der Tabellen
  887.  
  888. LF
  889. LF
  890. DrawCell(cBelastungen,TRUE)
  891. LF
  892. LF
  893. DrawCell(cSozialversicherungen,TRUE)
  894. LF
  895. LF
  896. DrawCell(cPauschalen,TRUE)
  897. LF
  898. LF
  899. DrawCell(cArbeitgeberkassen,TRUE)
  900. LF
  901. SetPos(1520,GetPosY())
  902. DrawCell(cGesAG,TRUE)
  903.  
  904.  
  905.