<!-- wbcprint:header1 -->
<!-- wbc:begin table="config" where="id>0" maxrows="1" -->
Image('{app.projects_dir}/{app.project}/{logo}',130,10,40)
SetFont('Arial','',8)
SetXY(130,36)
Cell(45,4,'{firma}',0,'L')
SetXY(130,40)
MultiCell(45,4,'{anschrift}',0,'L')
SetXY(130,$this->GetY())
MultiCell(45,4,"Telefon: {telefon}\nTelefax: {telefax}\nE-Mail: {email}",0,'L')
<!-- wbc:end -->

<!-- wbc:begin table="purchase" where="sid={getnum.sid}" select="*,uid as userid" -->
<!-- wbc:begin table="users" where="uid={userid}" maxrows="1" -->
SetXY(130,40)
Ln()
SetLeftMargin($this->GetX()+10)
Write(4,'{firma}')
<!-- wbcif:begin query="data" var="name" -->
Ln()
Write(4,'{vorname} {name}')
<!-- wbcif:end -->
Ln()
Write(4,'{strasse}')
Ln()
Write(4,'{plz} {ort}')
<!-- wbc:begin table="properties" where="typ='co' and id='{land}'" -->
Ln()
SetFont('Arial','',6)
Write(4,'{kurzbez}')
SetFont('Arial','',8)
<!-- wbc:end -->

SetDrawColor(128,128,128)
SetFillColor(204,204,204)
SetXY(130,78)
Cell(20,4,'Kunden-Nr',1,0,'L',1)
Cell(20,4,'{liefnr}',1)

Ln()
SetLeftMargin($this->GetX()-10)

<!-- wbc:end -->
SetY(80)
SetFont('Arial','',12)
Write(6,'BESTELLUNG #{prefix}{lfdnr}')
Ln()
SetFont('Arial','',8)
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)
<!-- wbc:end -->

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,'LieferDat',1,0,'L',1)
Ln()
SetY(100)


<!-- wbcprint:header2 -->
<!-- wbc:begin table="config" where="id>0" maxrows="1" -->
Image('{app.projects_dir}/{app.project}/{logo}',130,10,40)
SetFont('Arial','',8)
Ln()
SetY(35)
<!-- wbc:end -->
<!-- wbc:begin table="purchase" where="sid={getnum.sid}" -->
SetFont('Arial','',12)
Write(0,'BESTELLUNG #{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)

<!-- wbc:end -->
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,'LieferDat',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)


<!-- wbcprint:footer1 -->
<!-- wbc:begin table="config" where="id>0" maxrows="1" -->
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')
<!-- wbc:end -->

<!-- wbcprint:footer2 -->
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)

<!-- wbcprint:footer3 -->
Ln()
SetY(250)
SetFillColor(204,204,204)
SetDrawColor(128,128,128)
<!-- wbc:begin table="purchase" where="sid={getnum.sid}" -->
Cell(23,5,'Warenwert {app.format_wrg}',1,0,'C',1)
Cell(20,5,'MwSt {mwst1}%',1,0,'C',1)
Cell(20,5,'MwSt {mwst2}%',1,0,'C',1)
Cell(20,5,'',1,0,'R',1)
Cell(20,5,'',1,0,'R',1)
Cell(20,5,'',1,0,'R',1)
Cell(20,5,'',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,'{basketnetto:wrg}',1,0,'R')
Cell(20,5,'{basketmwst1:wrg}',1,0,'R')
Cell(20,5,'{basketmwst2:wrg}',1,0,'R')
Cell(20,5,'',1,0,'R')
Cell(20,5,'',1,0,'R')
Cell(20,5,'',1,0,'R')
Cell(20,5,'',1,0,'R')
Cell(25,5,'{basketbrutto:wrg}',1,0,'R')
Cell(15,5,'',1,0,'R')
<!-- wbc:end -->



<!-- wbcprint:body -->
<!-- wbc:begin table="purchasepos as b left join items as a on a.pid=b.pid left join suppliers as d on d.lid={getnum.uid} and d.pid=b.pid left join properties as c on c.id=b.meh" select="a.*,b.*,a.parentid as parentvar, c.keyname as mehtext,d.liefnr" where="b.sid={getnum.sid}" order="b.rindex" -->
<!-- wbcif:begin query="data" var="typ" value="1" -->
SetDrawColor(128,128,128)
Cell(8,5,'{b.pos:int}',1)
Cell(25,5,'{d.liefnr}',1)
CellMax(70,5,'<!-- wbcif:begin query="data" var="parentvar" value="0" operator="<" --><!-- wbc:begin table="items" where="pid={parentvar}" maxrows="1" select="bezeichnung" -->{bezeichnung} <!-- wbc:end --><!-- wbcif:end -->{a.bezeichnung}',1,0,'L',0)
Cell(20,5,'{b.menge:num} {mehtext}',1,0,'R')
Cell(15,5,'{b.preis:wrg}',1,0,'R')
Cell(10,5,'{b.rabatt:num}',1,0,'R')
Cell(20,5,'{b.wert:wrg}',1,0,'R')
SaveVar("zsumme",{b.wert:num},1)
Cell(15,5,'{b.liefdatum:datum}',1,0,'R')
Ln()
<!-- wbcif:end -->
<!-- wbcif:begin query="data" var="typ" value="2" -->
MultiCell(183,5,'{b.kurzbez}',1,'L')
<!-- wbcif:end -->
<!-- wbc:end -->