Main()
{


	pdfDoc( "Angebot");
	pdfDoc( "Auftrag");
	pdfDoc( "Lieferschein");
	pdfDoc( "Rechnung");
	pdfDoc( "Gutschrift");
	pdfDoc( "Storno");	
	pdfDoc( "Proforma");
	
	pdfDoc( "Anfrage");
	pdfDoc( "Bestellung");
}


pdfDoc( DocType)
{
	SqlArray("BE", "select Kennung From benutzer where isnull(Gruppe,0)=0  ");
	for(i =1;i=i+1; i < GetArrRowCount( "BE"))
	{
		Besitzer = GetArrayTitleVal( "BE", "Kennung", i);	
		kat = fmt( "pdfcreate{0}", docType);
		q = fmt( "DELETE FROM INIP Where Kategorie='{0}' And Besitzer='{1}' ", Kat, Besitzer);			
		sqlexecute( q);	
		q = fmt( "INSERT INTO INIP (Kategorie, Name, Idx, Besitzer, Wert) Values ( '{0}', 'pdfsendmail', '0', '{1}', '1') ", Kat, Besitzer);
		sqlexecute( q);
	}
	
}