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,40) Ln() SetLeftMargin($this->GetX()+10) Write(4,'{firma}') Ln() Write(4,'{vorname} {name}') Ln() Write(4,'{strasse}') Ln() Write(4,'{plz} {ort}') Ln() SetFont('Arial','',6) Write(4,'{kurzbez}') SetFont('Arial','',8) SetDrawColor(128,128,128) SetFillColor(204,204,204) SetXY(130,78) Cell(20,4,'Kunden-Nr',1,0,'L',1) Cell(20,4,'{knr}',1) Ln() SetLeftMargin($this->GetX()-10) SetY(75) SetFont('Arial','',12) Write(0,'ANGEBOT {prefix}{lfdnr}') Write(0,'AUFTRAGSBESTÄTIGUNG {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,70) SetDrawColor(128,128,128) SetFillColor(204,204,204) Cell(20,4,'Datum',1,0,'L',1) Cell(20,4,'{cdatum:datum}',1) SetXY(130,74) Cell(20,4,'Seite',1,0,'L',1) Cell(20,4,$this->PageNo(),1) 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(25,5,'Artikel-Nr',1,0,'L',1) Cell(70,5,'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,'AUFTRAGSBESTÄTIGUNG {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(25,5,'Artikel-Nr',1,0,'L',1) Cell(70,5,'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,'',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,'',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) Cell(25,5,'{a.produktid}',0) SaveXY() MultiCell(70,4,'{bezeichnung} {a.bezeichnung}',0) SaveVar("aktzz",$this->GetY(),0) Ln() SetX($this->GetX()+33) CellMax(70,5,"{kurzbez} {merkmaltext}{bezeichnung}",0) SaveVar("aktzz",$this->GetY(),0) RestoreXY(70,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') Ln() SetX($this->GetX()+2) Image('{app.projects_dir}/{app.project}/{bezeichnung}',$this->GetX(),$this->GetY(),0,20) SetY($this->GetY()+20) SaveVar("aktzz",$this->GetY(),0) SetX($this->GetX()+33) 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() Write(4,'Info:') Ln() MultiCell(70,4,"{notiz}",1,'L')