Image('{app.projects_dir}/{app.project}/{logo}',130,10,40) SetFont('Arial','',8) SetXY(130,30) Cell(40,4,'{firma}',0,'L') SetXY(130,34) MultiCell(40,4,'{anschrift}',0,'L') SetXY(130,$this->GetY()) MultiCell(40,4,"Telefon: {telefon}\nTelefax: {telefax}\nE-Mail: {email}",0,'L') SetXY(130,10) Ln() Write(4,'{firma}') Ln() Write(4,'{keyname} {vorname} {name}') Ln() Write(4,'{strasse}') Ln() Write(4,'{plz} {ort}') Ln() SetFont('Arial','',6) Write(4,'{kurzbez}') SetFont('Arial','',8) SetY(40) Ln() SetFont('Arial','',6) Write(4,'Bankverbindung') SetFont('Arial','',8) Ln() Write(4,'{bank}') Ln() Write(4,'{blz}') Ln() Write(4,'{kontonr}') Ln() Write(4,'{kontoinh}') SetDrawColor(128,128,128) SetFillColor(204,204,204) SetXY(130,68) Cell(20,4,'Kunden-Nr',1,0,'L',1) Cell(40,4,'{knr}',1) Ln() SetY(75) SetFont('Arial','',12) Write(0,'ANGEBOT {prefix}{lfdnr}') Write(0,'AUFTRAG {prefix}{lfdnr}') Write(0,'LIEFERSCHEIN {prefix}{lfdnr}') Write(0,'RECHNUNG {prefix}{lfdnr}') Write(0,'GUTSCHRIFT {prefix}{lfdnr}') SetFont('Arial','',8) SetY(80) Ln() Write(4,'Zahlungsart: {kurzbez}') Ln() Write(4,'Versandart: {kurzbez}') Ln() MultiCell(125,4,"{statustext}",0,'L') SetXY(130,60) SetDrawColor(128,128,128) SetFillColor(204,204,204) Cell(20,4,'Datum',1,0,'L',1) Cell(40,4,'{cdatum:datum}',1) SetXY(130,64) Cell(20,4,'Seite',1,0,'L',1) Cell(40,4,$this->PageNo(),1) SetXY(130,72) Cell(20,4,'Info',1,0,'L',1) MultiCell(40,4,"{notiz}",1,'L') Ln() SetY(95) SetDrawColor(128,128,128) Rect($this->GetX(),100,183,160) SetDrawColor(128,128,128) SetFillColor(204,204,204) Cell(8,5,'Pos',1,0,'L',1) Cell(95,5,'Artikel-Nr/Bezeichnung/Text',1,0,'L',1) Cell(20,5,'Menge',1,0,'C',1) Cell(15,5,'Preis {app.format_wrg}',1,0,'C',1) Cell(10,5,' ',1,0,'L',1) Cell(20,5,'Summe {app.format_wrg}',1,0,'C',1) Cell(15,5,'#',1,0,'L',1) Ln() SetY(100) Image('{app.projects_dir}/{app.project}/{logo}',130,10,40) SetFont('Arial','',8) Ln() SetY(35) SetFont('Arial','',12) Write(0,'ANGEBOT {prefix}{lfdnr}') Write(0,'AUFTRAG {prefix}{lfdnr}') Write(0,'LIEFERSCHEIN {prefix}{lfdnr}') Write(0,'RECHNUNG {prefix}{lfdnr}') Write(0,'GUTSCHRIFT {prefix}{lfdnr}') SetFont('Arial','',8) SetXY(130,30) SetDrawColor(128,128,128) SetFillColor(204,204,204) Cell(20,4,'Datum',1,0,'L',1) Cell(20,4,'{cdatum:datum}',1) SetXY(130,34) Cell(20,4,'Seite',1,0,'L',1) Cell(20,4,$this->PageNo(),1) Ln() SetY(45) SetDrawColor(128,128,128) Rect($this->GetX(),50,183,210) SetDrawColor(0,0,0) SetFillColor(204,204,204) Cell(8,5,'Pos',1,0,'L',1) Cell(95,5,'Artikel-Nr/Bezeichnung/Text',1,0,'L',1) Cell(20,5,'Menge',1,0,'C',1) Cell(15,5,'Preis {app.format_wrg}',1,0,'C',1) Cell(10,5,' ',1,0,'L',1) Cell(20,5,'Summe {app.format_wrg}',1,0,'C',1) Cell(15,5,'',1,0,'L',1) Ln() Cell(148,5,'Übertrag',1,0,'L',0) Cell(20,5,$this->GetVar("zsumme","wrg"),1,0,'R',0) Cell(15,5,' ',1,0,'L',0) Ln() SetY(55) Ln() SetY(265) SetFont('Arial','',6) Write(3,'{firma}') Ln() MultiCell(40,3,'{anschrift}',0,'L') SetXY(50,265) MultiCell(40,3,"Telefon: {telefon}\nTelefax: {telefax}\nE-Mail: {email}\nInternet: {www}",0,'L') SetXY(100,265) MultiCell(40,3,"UStID: {ustid}\nSteuer-Nr: {steuernr}\nHRB: {hrb}",0,'L') SetXY(150,265) MultiCell(40,3,"Bankverbindung:\n{bank1}\nBLZ: {blz1}\nKonto: {kontonr1}\nIBAN: {iban1}\nBIC: {bic1}",0,'L') Ln() SetY(255) Cell(148,5,'Übertrag',1,0,'L',0) Cell(20,5,$this->GetVar("zsumme","wrg"),1,0,'R',0) Cell(15,5,' ',1,0,'L',0) Ln() SetY(250) SetFillColor(204,204,204) SetDrawColor(128,128,128) Cell(23,5,'Warenwert {app.format_wrg}',1,0,'C',1) Cell(20,5,'Gwicht',1,0,'R',1) Cell(20,5,'Versand {app.format_wrg}',1,0,'R',1) Cell(20,5,'',1,0,'R',1) Cell(20,5,'',1,0,'C',1) Cell(20,5,'MwSt {mwst1}%',1,0,'C',1) Cell(20,5,'MwSt {mwst2}%',1,0,'C',1) Cell(25,5,'SUMME {app.format_wrg}',1,0,'C',1) Cell(15,5,'',1,0,'R',1) Ln() Cell(23,5,'{basketbrutto:wrg}',1,0,'R') Cell(20,5,'{gesgewicht:num}',1,0,'R') Cell(20,5,'{vkostensum:wrg}',1,0,'R') Cell(20,5,'',1,0,'R') Cell(20,5,'',1,0,'R') Cell(20,5,'{gesmwst1:wrg}',1,0,'R') Cell(20,5,'{gesmwst2:wrg}',1,0,'R') Cell(25,5,'{gesbrutto:wrg}',1,0,'R') Cell(15,5,'',1,0,'R') SetDrawColor(128,128,128) Cell(8,5,'{b.pos:int}',0) CellMax(95,5,'{a.produktid}',0) SaveXY() Ln() SetX($this->GetX()+8) CellMax(95,5,"{a.bezeichnung}",0) Ln() SetX($this->GetX()+8) CellMax(70,5,"{kurzbez} {merkmaltext}{bezeichnung}",0) SaveVar("aktzz",$this->GetY(),0) RestoreXY(0,0) Cell(20,5,'{b.menge:num} {mehtext}',0,0,'R') Cell(15,5,'{b.preis:wrg}',0,0,'R') Cell(10,5,'{b.rabatt:num}',0,0,'R') Cell(20,5,'{b.wert:wrg}',0,0,'R') SaveVar("zsumme",{b.wert:num},1) Cell(15,5,'',0,0,'R') SetX($this->GetX()+8) MultiCell(150,4,'{b.kurzbez}',0,'L') SaveVar("aktzz",$this->GetY(),0) SetY($this->GetVar("aktzz")) Ln() Line($this->GetX(),$this->GetY(),$this->GetX()+183,$this->GetY()) Ln() Write(4,'Lieferadresse:') Ln() Write(4,'{firma}') Ln() Write(4,'{vorname} {name}') Ln() Write(4,'{strasse}') Ln() Write(4,'{plz} {ort}') Ln() Write(4,'{kurzbez}') Ln() MultiCell(150,4,"{kurzbez}:\n {merkmaltext}{beschreibung}",0,'L')