#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Appedit.ch"
#include "Appbrow.ch"
#include "Font.ch"
#include "fileio.ch"
PROCEDURE Rechdruni( cAuf, edrucker, zdate, textjn, anz, lAbr, oDlg1 )
	// universelles Rechnungsdruckprogramm f�r KSO
	LOCAL nOldArea := Select(), nRec := RecNo()	//+11.10.2018 14:24
	LOCAL aLeist1 := {}, aLeist2 := {}, aLeist3 := {}, aLeistA := {}     //01.05.2008 16:02 aLeistA
	LOCAL nL1Sum := 0, nL2Sum := 0, nL3Sum := 0, nLASum := 0
	LOCAL n4 := 4 , n5 := 5, nL12 := 0
	LOCAL sbetr, grsu, smwsta, smwstb, zae
	PRIVATE aBlatt := {}, aBlattZ := {}, cAnz, cdate, ctextjn
	PRIVATE cSeite, cNa, cPrompt, cText, nTFont, cBereich, cFeld, nFFont, nZei, nSpa
	PRIVATE aSeite := {}, aNa := {}, aPrompt := {}, aText := {}, aTFont := {}
	PRIVATE aBereich := {}, aFeld := {}, aFFont := {}, aZei := {}, aSpa := {}
	CRLF := Chr(13)+Chr(10)		//09.12.2025 17:54
/*21.05.2008 18:25 */
   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
      RETURN
   ENDIF
/**/
	RechnungZeilenKorrektur(cAuf)		//+21.10.2018 19:21	(falls auftrnr oder Zeilennr darin fehlt

//================================================================================================	
	//04.01.2026 19:10 die Dateien der Rechnung (.html + .odt + .pdf + .zug.xml + zug.pdf) ...
	//						...  werden in diesem Verzeichnis archiviert:
	PRIVATE cRechDir := cDatver + "Scans\Dokumente\" + StrZero(1->auftrnr,6,0) + "\_Rechnung\"
	
	IF FExists(cRechDir+"R"+StrZero(1->auftrnr,6,0)+".xml") .OR. ;
		FExists(cRechDir+"R"+StrZero(1->auftrnr,6,0)+"_zug.xml")
	   msgbox("Es ist bereits eine Rechnung f�r diesen Fall"+CR+LF+StrZero(1->auftrnr,6,0)+" gedruckt worden!")
		IF !AppKeyState(65553)==1 	// wenn nicht die Strg-Taste gedr�ckt
		   RETURN
		ENDIF
	ENDIF
	// Verzeichnis erzeugen (wenn noch nicht geschehen):
   IF !FExists( Left(cRechDir,Len(cRechDir)-1),"D" )
      RunShell( "/C MD "+cRechDir,, .T. )
      sleep(200)
	ELSEIF FExists(cRechDir+"R"+StrZero(1->auftrnr,6,0)+".odt")
		nHandle := FOpen( cRechDir+"R"+StrZero(1->auftrnr,6,0)+".odt", FO_EXCLUSIVE )
		IF nHandle = -1
		   //+ Die Datei ist bereits auf diesem PC ge”ffnet
		   FClose(nHandle)
		   msgbox("Es ist bereits eine Datei R"+StrZero(1->auftrnr,6,0)+".odt offen!"+CRLF+;
		   		"Bitte im OfficeWriter schlieáen, dann nochmal versuchen!")
		   RETURN
		ELSE
		   FClose(nHandle)
		ENDIF
	ELSEIF FExists(cRechDir+"R"+StrZero(1->auftrnr,6,0)+".html")
		nHandle := FOpen( cRechDir+"R"+StrZero(1->auftrnr,6,0)+".html", FO_EXCLUSIVE )
		IF nHandle = -1
		   //+ Die Datei ist bereits auf diesem PC ge”ffnet
		   FClose(nHandle)
		   msgbox("Es ist bereits eine Datei R"+StrZero(1->auftrnr,6,0)+".html offen!"+CRLF+;
		   		"Bitte im OfficeWriter schlieáen, dann nochmal versuchen!")
		   RETURN
		ELSE
		   FClose(nHandle)
		ENDIF
   ENDIF
//================================================================================================

	// f�r alle F„lle:
	ASize( aLeist1, 0 ); ASize( aLeist2, 0 ); ASize( aLeist3, 0 ); ASize( aLeistA, 0 )

	nAnz := IIf(ValType(anz)=="C",Val(anz),anz)		//+22.10.2018 12:26
   nArea := 13			// weil oDlg1 f�r den Ausdruck ohnehin von Typ 'L' ist, damit es in 'auf3AUFTRNR.dbf' sucht
	SELECT &nArea
   GO TOP
	DbSuspendNotifications()      //05.03.2008 13:06

	IF Upper(anz)$"ZCXU"
		// Variablen mit Daten dieses Auftrags f�llen:
		IF Upper(anz) $ "ZC"		// CII
			cDash := ""
		ELSEIF Upper(anz) $ "XU"	// UBL
			cDash := "-"
		ENDIF
		zdate := DtoC(DATE())		// muss ggf noch geREMt werden !?!
		// ab hier werden das lauter neue PRIVATE-Variablen:
		cRechnr := "R"+StrZero(1->auftrnr,6,0)		// provisorisch erstmal f�r "WP"
		cJJJJMMTT := SubStr(zdate,7,4)+cDash+SubStr(zdate,4,2)+cDash+SubStr(zdate,1,2)
		cJJJJMMTT_Lief := SubStr(zdate,7,4)+cDash+SubStr(zdate,4,2)+cDash+SubStr(zdate,1,2)
		ydate := DtoC(CtoD(zdate)+10)
		cJJJJMMTT_Zahl := SubStr(ydate,7,4)+cDash+SubStr(ydate,4,2)+cDash+SubStr(ydate,1,2)
		cRevCharge := Wandeln_in_UTF8("RC-Text")
		cVatProz := "19.00"
		nTotalNetto4 := 0.0000
		cSumMwSt := 0.0000
		nSumNettoV4 := 0.00
		nSumNettoH4 := 0.00
		nTotalNetto4 := 0.00
		nSumMwStV4 := 0.00
		nSumMwStH4 := 0.00
		nTotalMwSt4 := 0.00
		nTotalBrutto4 := 0.00
		cVATvoll := "19.00"
		cVAThalb := "7.00"
		cSumNettoV := ""
		cSumNettoH := ""
		cTotalNetto := ""
		cSumMwStV := ""
		cSumMwStH := ""
		cTotalMwSt := ""
		cTotalBrutto := ""

		cAuftrag := StrZero(1->auftrnr,6,0)
		cKdnr := "A" + cAuftrag
		cLief := "Schumacher"
		cLieferant := "Beerdigungsinstitut Karl Schumacher e.K."
		cHRBnr := "HRA 8177"	// "hrb"
		cMA_Lief := 1->berater
		cTel_Lief := "0208 69 04 80"
		cMail_Lief := "zentrale@karl-schumacher.de"
		cPLZ_Lief := "46117"
		cStr_Lief := Wandeln_in_UTF8("Vestische Straáe 146")
		cOrt_Lief := Wandeln_in_UTF8("Oberhausen")
		cLand_Lief := "DE"
		cVAT_Lief := "DE120633201"

		cKunde := Wandeln_in_UTF8(Trim(1->ansp_name))
		cMA_Kunde := cKunde		// vorl„ufig
		cMail_Kunde := IIf("@"$1->ansp_ktoi,Trim(1->ansp_ktoi),"eine.leere@mail.ee")
		cMail_MA_Kunde := Wandeln_in_UTF8(cMail_Kunde)	// vorl„ufig
		cPLZ_Kunde := SubStr (1->ansp_ort,1,5)
		cStr_Kunde := Wandeln_in_UTF8(Trim(1->ansp_str))
		cOrt_Kunde := Wandeln_in_UTF8(ORTohnePLZ(1->ansp_ort))
		cLand_Kunde := "DE"	// vorl„ufig
		cVAT_Kunde := "DE123456789"	// vorl„ufig
		
		cKontoNameLief := "Beerdigungsinstitut Karl Schumacher e.K."
		cIBAN_Lief := "DE43350603864400670204"
		cBIC_Lief := "GENODED1VRR"
		cZahlungsbedingungen := "zahlbar innerhalb 8 Tagen"

		// schon mal f�r die Rechnungszeilen:
		cMenge := "1.0000"
		cXml3 := ''
	ENDIF		

	//07.12.2025 10:21 XML-Erzeugung: KOPF   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
	IF Upper(anz) $ "ZC" // = CII f�r ZUGFeRD
		cXML1 := '<?xml version="1.0" encoding="UTF-8"?>' + CRLF + ;
		'<rsm:CrossIndustryInvoice ' + ; 
		'	xmlns:rsm="urn:un:unece:uncefact:data:standard:CrossIndustryInvoice:100" ' + ; 
		'	xmlns:qdt="urn:un:unece:uncefact:data:standard:QualifiedDataType:100" ' + ; 
		'	xmlns:ram="urn:un:unece:uncefact:data:standard:ReusableAggregateBusinessInformationEntity:100" ' + ; 
		'	xmlns:xs="http://www.w3.org/2001/XMLSchema" ' + ; 
		'	xmlns:udt="urn:un:unece:uncefact:data:standard:UnqualifiedDataType:100">' + CRLF + ; 
		'	<rsm:ExchangedDocumentContext>' + CRLF + ; 
		'		<ram:BusinessProcessSpecifiedDocumentContextParameter>' + CRLF + ; 
		'			<ram:ID>urn:fdc:peppol.eu:2017:poacc:billing:01:1.0</ram:ID>' + CRLF + ; 
		'		</ram:BusinessProcessSpecifiedDocumentContextParameter>' + CRLF + ; 
		'		<ram:GuidelineSpecifiedDocumentContextParameter>' + CRLF + ; 
		'		<ram:ID>urn:cen.eu:en16931:2017#compliant#urn:xeinkauf.de:kosit:xrechnung_3.0</ram:ID>' + CRLF + ; 
		'		</ram:GuidelineSpecifiedDocumentContextParameter>' + CRLF + ; 
		'	</rsm:ExchangedDocumentContext>' + CRLF + ; 
		'	<rsm:ExchangedDocument>' + CRLF + ; 
		'		<ram:ID>' + cRechnr + '</ram:ID>' + CRLF + ; 
		'		<ram:TypeCode>380</ram:TypeCode>' + CRLF + ; 
		'		<ram:IssueDateTime>' + CRLF + ; 
		'			<udt:DateTimeString format="102">' + cJJJJMMTT + '</udt:DateTimeString>' + CRLF + ; 
		'		</ram:IssueDateTime>' + CRLF + ; 
		'		<ram:IncludedNote>' + CRLF + ; 
		'			<ram:Content>' + cRevCharge + '</ram:Content>' + CRLF + ; 
		'		</ram:IncludedNote>' + CRLF + ; 
		'	</rsm:ExchangedDocument>
'
		
		cXML1 += '	<rsm:SupplyChainTradeTransaction>'	// schlieát erst fast ganz am Schluss des XML !
	ELSEIF Upper(anz) $ "XU"	// = UBL f�r xRechnung
		cXML1 := '<?xml version="1.0" encoding="UTF-8"?>' + CRLF + ; 
		'<ubl:Invoice xmlns:ubl="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2"' + CRLF + ; 
		'		xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2"' + CRLF + ; 
		'		xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2"' + CRLF + ; 
		'		xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' + CRLF + ; 
		'		xsi:schemaLocation="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2 http://docs.oasis-open.org/ubl/os-UBL-2.3/xsd/maindoc/UBL-Invoice-2.3.xsd">' + CRLF + ; 
		'	<cbc:CustomizationID>urn:cen.eu:en16931:2017#compliant#urn:xeinkauf.de:kosit:xrechnung_3.0#conformant#urn:xeinkauf.de:kosit:extension:xrechnung_3.0</cbc:CustomizationID>' + CRLF + ; 
		'	<cbc:ProfileID>urn:fdc:peppol.eu:2017:poacc:billing:01:1.0</cbc:ProfileID>' + CRLF + ; 
		'	<cbc:ID>' + cRechnr + '</cbc:ID>' + CRLF + ; 
		'	<cbc:IssueDate>' + cJJJJMMTT + '</cbc:IssueDate>' + CRLF + ; 
		'	<cbc:DueDate>' + cJJJJMMTT_Zahl+ '</cbc:DueDate>' + CRLF + ; 
		'	<cbc:InvoiceTypeCode>380</cbc:InvoiceTypeCode>' + CRLF + ; 
		'	<cbc:Note>' + cRevCharge + '</cbc:Note>' + CRLF + ; 
		'	<cbc:DocumentCurrencyCode>EUR</cbc:DocumentCurrencyCode>' + CRLF + ; 
		'	<cbc:BuyerReference>' + cKdnr + '</cbc:BuyerReference>' + CRLF + ; 
		'	<cac:AccountingSupplierParty>' + CRLF + ; 
		'		<cac:Party>' + CRLF + ; 
		'			<cbc:EndpointID schemeID="EM">' + cMail_Lief + '</cbc:EndpointID>' + CRLF + ; 
		'			<cac:PartyName>' + CRLF + ; 
		'				<cbc:Name>' + cMA_Lief + '</cbc:Name>' + CRLF + ; 
		'			</cac:PartyName>' + CRLF + ; 
		'			<cac:PostalAddress>' + CRLF + ; 
		'				<cbc:StreetName>' + cStr_Lief + '</cbc:StreetName>' + CRLF + ; 
		'				<cbc:CityName>' + cOrt_Lief+ '</cbc:CityName>' + CRLF + ; 
		'				<cbc:PostalZone>' + cPLZ_Lief + '</cbc:PostalZone>' + CRLF + ; 
		'				<cac:Country>' + CRLF + ; 
		'					<cbc:IdentificationCode>DE</cbc:IdentificationCode>' + CRLF + ; 
		'				</cac:Country>' + CRLF + ; 
		'			</cac:PostalAddress>' + CRLF + ; 
		'			<cac:PartyTaxScheme>' + CRLF + ; 
		'				<cbc:CompanyID>' + cVAT_Lief + '</cbc:CompanyID>' + CRLF + ; 
		'				<cac:TaxScheme>' + CRLF + ; 
		'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
		'				</cac:TaxScheme>' + CRLF + ; 
		'			</cac:PartyTaxScheme>' + CRLF + ; 
		'			<cac:PartyTaxScheme>' + CRLF + ; 
		'				<cbc:CompanyID>' + cVAT_Lief + '</cbc:CompanyID>' + CRLF + ; 
		'				<cac:TaxScheme>' + CRLF + ; 
		'					<cbc:ID>FC</cbc:ID>' + CRLF + ; 
		'				</cac:TaxScheme>' + CRLF + ; 
		'			</cac:PartyTaxScheme>' + CRLF + ; 
		'			<cac:PartyLegalEntity>' + CRLF + ; 
		'				<cbc:RegistrationName>' + cLieferant+ '</cbc:RegistrationName>' + CRLF + ; 
		'				<cbc:CompanyID>' + cVAT_Lief + '</cbc:CompanyID>' + CRLF + ; 
		'				<cbc:CompanyLegalForm>' + cRevCharge + '</cbc:CompanyLegalForm>' + CRLF + ; 
		'			</cac:PartyLegalEntity>' + CRLF + ; 
		'			<cac:Contact>' + CRLF + ; 
		'				<cbc:Name>cLieferant</cbc:Name>' + CRLF + ; 
		'				<cbc:Telephone>' + cTel_Lief + '</cbc:Telephone>' + CRLF + ; 
		'				<cbc:ElectronicMail>' + cMail_Lief + '</cbc:ElectronicMail>' + CRLF + ; 
		'			</cac:Contact>' + CRLF + ; 
		'		</cac:Party>' + CRLF + ; 
		'	</cac:AccountingSupplierParty>' + CRLF + ; 
		'	<cac:AccountingCustomerParty>' + CRLF + ; 
		'		<cac:Party>' + CRLF + ; 
		'			<cbc:EndpointID schemeID="EM">' + cMail_Kunde + '</cbc:EndpointID>' + CRLF + ; 
		'			<cac:PartyIdentification>' + CRLF + ; 
		'				<cbc:ID>' + cKdnr + '</cbc:ID>' + CRLF + ; 
		'			</cac:PartyIdentification>' + CRLF + ; 
		'			<cac:PostalAddress>' + CRLF + ; 
		'				<cbc:StreetName>' + cStr_kunde + '</cbc:StreetName>' + CRLF + ; 
		'				<cbc:CityName>' + cOrt_Kunde + '</cbc:CityName>' + CRLF + ; 
		'				<cbc:PostalZone>' + cPLZ_Kunde+ '</cbc:PostalZone>' + CRLF + ; 
		'				<cac:Country>' + CRLF + ; 
		'					<cbc:IdentificationCode>' + cLand_Kunde+ '</cbc:IdentificationCode>' + CRLF + ; 
		'				</cac:Country>' + CRLF + ; 
		'			</cac:PostalAddress>' + CRLF + ; 
		'			<cac:PartyTaxScheme>' + CRLF + ; 
		'				<cbc:CompanyID>' + cVAT_Kunde + '</cbc:CompanyID>' + CRLF + ; 
		'				<cac:TaxScheme>' + CRLF + ; 
		'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
		'				</cac:TaxScheme>' + CRLF + ; 
		'			</cac:PartyTaxScheme>' + CRLF + ; 
		'			<cac:PartyLegalEntity>' + CRLF + ; 
		'				<cbc:RegistrationName>' + cKunde + '</cbc:RegistrationName>' + CRLF + ; 
		'			</cac:PartyLegalEntity>' + CRLF + ; 
		'			<cac:Contact>' + CRLF + ; 
		'				<cbc:Name>' + cKunde + '</cbc:Name>' + CRLF + ; 
		'				<cbc:ElectronicMail>' + cMail_MA_Kunde+ '</cbc:ElectronicMail>' + CRLF + ; 
		'			</cac:Contact>' + CRLF + ; 
		'		</cac:Party>' + CRLF + ; 
		'	</cac:AccountingCustomerParty>' 
	ENDIF
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	// durch die Rechnungstabelle steppen: (f�r Druck UND f�r XML):
	DO WHILE (nArea)->auftrnr == Val( cAuf ) .AND. .NOT. Eof()
	
		//07.12.2025 10:21 XML-Erzeugung: Rechnungs-Artikel-Zeilen   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
		IF mwst_schl == "3"
			cVatProz := "19.00"
		ELSEIF mwst_schl == "2"
			cVatProz := "7.00"
		ENDIF
		IF Upper(anz) $ "ZC"	// CII f�r ZUGFeRD
			cXML3 += '' + CRLF + ; 
			'		<ram:IncludedSupplyChainTradeLineItem>' + CRLF + ; 
			'			<ram:AssociatedDocumentLineDocument>' + CRLF + ; 
			'				<ram:LineID>' + (nArea)->zeile + '</ram:LineID>' + CRLF + ; 
			'			</ram:AssociatedDocumentLineDocument>' + CRLF + ; 
			'			<ram:SpecifiedTradeProduct>' + CRLF + ; 
			'				<ram:SellerAssignedID>' + (nArea)->zugr_z_st + '</ram:SellerAssignedID>' + CRLF + ; 
			'				<ram:Name>' + Wandeln_in_UTF8(Trim((nArea)->bezeich)) + '</ram:Name>' + CRLF + ; 
			'				<ram:Description>' + Wandeln_in_UTF8(Trim((nArea)->bezeich)) + '</ram:Description>' + CRLF + ; 
			'			</ram:SpecifiedTradeProduct>' + CRLF + ; 
			'			<ram:SpecifiedLineTradeAgreement>' + CRLF + ; 
			'				<ram:NetPriceProductTradePrice>' + CRLF + ; 
			'					<ram:ChargeAmount>' + Str((nArea)->betrageu/(100+Val(cVatProz))*100,8,2) + '</ram:ChargeAmount>' + CRLF + ; 
			'				</ram:NetPriceProductTradePrice>' + CRLF + ; 
			'			</ram:SpecifiedLineTradeAgreement>' + CRLF + ; 
			'			<ram:SpecifiedLineTradeDelivery>' + CRLF + ; 
			'				<ram:BilledQuantity unitCode="EA">' + cMenge + '</ram:BilledQuantity>' + CRLF + ; 
			'			</ram:SpecifiedLineTradeDelivery>' + CRLF + ; 
			'			<ram:SpecifiedLineTradeSettlement>' + CRLF + ; 
			'				<ram:ApplicableTradeTax>' + CRLF + ; 
			'					<ram:TypeCode>VAT</ram:TypeCode>' + CRLF + ; 
			'					<ram:CategoryCode>S</ram:CategoryCode>' + CRLF + ; 
			'					<ram:RateApplicablePercent>' + cVATProz + '</ram:RateApplicablePercent>' + CRLF + ; 
			'				</ram:ApplicableTradeTax>' + CRLF + ; 
			'				<ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
			'					<ram:LineTotalAmount>' + Str((nArea)->betrageu/(100+Val(cVatProz))*100,8,2) + '</ram:LineTotalAmount>' + CRLF + ; 
			'				</ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
			'			</ram:SpecifiedLineTradeSettlement>' + CRLF + ; 
			'		</ram:IncludedSupplyChainTradeLineItem>'
		ELSEIF Upper(anz) $ "XU"
			cXML3 += '' + CRLF + ; 
			'	<cac:InvoiceLine>' + CRLF + ; 
			'		<cbc:ID>' + (nArea)->zeile + '</cbc:ID>' + CRLF + ; 
			'		<cbc:InvoicedQuantity unitCode="EA">' + cMenge + '</cbc:InvoicedQuantity>' + CRLF + ; 
			'		<cbc:LineExtensionAmount currencyID="EUR">' + Str((nArea)->betrageu/(100+Val(cVatProz))*100,8,2) + '</cbc:LineExtensionAmount>' + CRLF + ; 
			'		<cac:Item>' + CRLF + ; 
			'			<cbc:Description>' + Wandeln_in_UTF8(Trim((nArea)->bezeich)) + '</cbc:Description>' + CRLF + ; 
			'			<cbc:Name>' + Wandeln_in_UTF8(Trim((nArea)->bezeich)) + '</cbc:Name>' + CRLF + ; 
			'			<cac:SellersItemIdentification>' + CRLF + ; 
			'				<cbc:ID>' + (nArea)->zugr_z_st + '</cbc:ID>' + CRLF + ; 
			'			</cac:SellersItemIdentification>' + CRLF + ; 
			'			<cac:ClassifiedTaxCategory>' + CRLF + ; 
			'				<cbc:ID>S</cbc:ID>' + CRLF + ; 
			'				<cbc:Percent>' + cVATProz + '</cbc:Percent>' + CRLF + ; 
			'				<cac:TaxScheme>' + CRLF + ; 
			'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
			'				</cac:TaxScheme>' + CRLF + ; 
			'			</cac:ClassifiedTaxCategory>' + CRLF + ; 
			'		</cac:Item>' + CRLF + ; 
			'		<cac:Price>' + CRLF + ; 
			'			<cbc:PriceAmount currencyID="EUR">' + Str((nArea)->betrageu/(100+Val(cVatProz))*100,8,2) + '</cbc:PriceAmount>' + CRLF + ; 
			'		</cac:Price>' + CRLF + ; 
			'	</cac:InvoiceLine>'
		ENDIF
		//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	   DO CASE
	      CASE rn == " "							// Eigenleistung 1
	         AAdd( aLeist1, bezeich )
	         AAdd( aLeist1, &b_g )
	         AAdd( aLeist1, mwst_schl )
	         AAdd( aLeist1, rn )
	         nL1Sum += &b_g						//+27.10.2018 21:44
	      CASE rn == "2"							// Eigenleistung 2
	         AAdd( aLeist2, bezeich )
	         AAdd( aLeist2, &b_g )
	         AAdd( aLeist2, mwst_schl )
	         AAdd( aLeist2, rn )
	         nL2Sum += &b_g						//+27.10.2018 21:44
	   ENDCASE
	   SKIP
	ENDDO

	//vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
	//+27.10.2018 21:45 Vergleich der gerade erstellten aktuellen Summen mit den Summen in best.dbf
		IF nLASum != 1->&r_b_1h
			ist := "gleich"		// wird nur zum Debuggen gebraucht
		ENDIF
	//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	DbResumeNotifications()    //05.03.2008 13:06

	nL1 := Len( aLeist1 )
	nL2 := Len( aLeist2 )
	nL3 := Len( aLeist3 )
	// wurde nur f�r Adelta gebraucht:
	nLA := Len( aLeistA )               //01.05.2008 16:06
	
	
	IF nAnz == 0 .AND. !Upper(anz) $ "ZCWXUP"	//+30.10.2018 12:03
	   AAdd( aLeist1, 0, nL1+1 )
	   AAdd( aLeist1, 0, nL1+2 )
	   AAdd( aLeist2, 0, nL2+1 )
	   AAdd( aLeist2, 0, nL2+2 )
	ELSE
	   AAdd( aLeist1, 0, nL1+1 )
	   AAdd( aLeist1, 0, nL1+2 )
	   AAdd( aLeist1, 0, nL1+3 )
	   AAdd( aLeist1, 0, nL1+4 )
	   AAdd( aLeist2, 0, nL2+1 )
	   AAdd( aLeist2, 0, nL2+2 )
	   AAdd( aLeist2, 0, nL2+3 )
	   AAdd( aLeist2, 0, nL2+4 )
	ENDIF
	////nL12 := int( nL1/5 + nL2/5 )       // aus 4 mach 5
	////// !!!!!!!! wird nur gebraucht, um die Optik zu korrigieren! => ggf etwas runterschieben:
	// z„hlt die Rechnungszeilen und teilt durch 4 (pro 4 Zeilen wird 
	nL12 := int( Len( aLeist1 )/4 + Len( aLeist2 )/4 + Len( aLeistA )/4 )   //01.05.2008 16:08
	// Abstand nach unten zu den Leistungszeilen ist 7-nL12 . Je mehr Zeilen, desto weniger Abstand.

	// holt aus drubef.dbf die Zeilen- und Spaltenabst„nde etc...
	select 20
	use drubef
	edrucker=upper(edrucker)
	if edrucker="E"
	   z12p=trim(ep12p)
	   z14p=trim(ep14p)
	   znorm=trim(epnorm)
	   nPoffY:= Val(SubStr(epres5,1,3))
	   nPoffX:= Val(SubStr(epres5,4,3))
	   nPpZ := Val( Substr( 20->hpres5, 7, 3 ) )    //10.01.2008 09:23
	   nPpS := Val( Substr( 20->hpres5, 10, 3 ) )   //10.01.2008 09:23
	else
	   z12p=trim(hp12p)
	   z14p=trim(hp14p)
	   znorm=trim(hpnorm)
	   nPoffY:= Val(SubStr(hpres5,1,3))
	   nPoffX:= Val(SubStr(hpres5,4,3))
	   nPpZ := Val( Substr( 20->epres5, 7, 3 ) )    //10.01.2008 09:23
	   nPpS := Val( Substr( 20->epres5, 10, 3 ) )   //10.01.2008 09:23
	endif
	USE

	//+25.06.2018 18:33 wenn anz == w, dann wird nur der HTML-File ausgegeben auf swriter    vvvvvvvv
	IF nAnz == 0 .AND. Upper(anz) $ "ZCWXUP"		//+29.10.2018 21:34 f�r Writer = Druck in Datei
		cDruckabr := "c:\hdbe\dHTML.abr"		// Text f�r HTML-File (fr�her...)
	//04.01.2026 19:12	cDruckabr := "c:\hdbe\R"+StrZero(1->auftrnr)+".rdr"			//27.12.2025 15:56 rdr=Rechnungsdruck
		//	cDruckabr := cRechDir + "R"+StrZero(1->auftrnr)+".rdr"			//27.12.2025 15:56 rdr=Rechnungsdruck
		++nAnz
		nS := 8		//03.01.2026 19:39 Spaltenoffset f�r .txt	//14.03.2026 11:48 html
		nZ := 3		//03.01.2026 19:44 Zeilenoffset f�r .txt	//14.03.2026 11:47 html
	ELSE	// Druck auf den Drucker
		cDruckabr := "c:\hdbe\dummy.abr"		// Dummy, damit berechnet wird		//04.01.2026 19:14 bleibt erstmal im HDBE
		nS := 0		//03.01.2026 19:39 Spaltenoffset
		nZ := 0		//03.01.2026 19:44 Zeilenoffset
	ENDIF
	nAnzahl := nAnz	//+30.10.2018 17:47 hierher aus Zeile (viel fr�her:131, jetzt ??)
	//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	// druckt auf den Standard-Drucker oder f�llt die .rdr, aus der die .html bef�llt wird:
	DO WHILE nAnz > 0              //von oben
		SELECT 1
		find &cAuf
	
	//   IF nAnz>1   /* 03.07.2008 18:14 in Dummydatei, damit endbetr berechnet wird -auch ohne Druck! */
	   IF !Upper(anz)$"ZCWXUP"   //+30.10.2018 08:53
	      SET DEVICE TO PRINTW
	   ELSE
	      --nAnz
	      Set( _SET_DEVICE, "PRINTER" )    // damit PRINTW umgangen wird: schreiben in eine Datei
	      cPrintFile := Set( _SET_PRINTFILE, cDruckabr ) // in cPrintfile ist jetzt die VORIGE Einstellung!
	   ENDIF
	   IF !Upper(anz)$"ZCWXUP"   //13.03.2026 20:41  -> im ELSE: cTextRef sammelt den Text und speichert ihn als .rdr	
			 @ 06-nZ,10-nS say ansp_anr
			 @ 07-nZ,10-nS say trim(ansp_vname) + " " + ansp_name
			 @ 08-nZ,10-nS say ansp_str
			 @ 10-nZ,10-nS say ansp_ort
			
			//@ 11,47 say cAuf + " / " + zdate
			@ 13-nZ,55-nS say cAuf + " / " + zdate       //18.07.2006 16:18
			
			IF Upper(anz)$"ZCWXUP"	//06.12.2025 15:50 f�r den Ausdruck mit LO-Writer
				zae := 14-nZ
				@ zae,10-nS say Z1214(chr(27)+z12p)+"R E C H N U N G"		//06.12.2025 15:50
				zae=zae+1
				@ zae,10-nS say Z1214(chr(27)+z12p)+"Bestattung:"+" "+trim(anrede)+" "+trim(vorname)+ " "+name
				zae=zae+1
				@ zae,10-nS say Z1214(chr(27)+znorm)+" "
			ELSE
				zae := 14                              //18.07.2006 16:18
				@ zae,25-nS say Z1214(chr(27)+z12p)+trim(anrede)+" "+trim(vorname)+ " "+name
				zae=zae+1
				@ zae,25-nS say Z1214(chr(27)+znorm)+" "
			ENDIF	
			zae := zae+2
			zae := IIf( nL12<7, zae+7-nL12, zae )
			//nL1 := Len( aLeist1 )
			nLL := nL1
			IF nL1 > 0
				@ ++zae,10-nS say "Leistung I:"
				aLeist1 := Leistdruck( aLeist1, n4, @zae, nS, Upper(anz) )	//n4 = 4 Felder pro Zeile	26.02.2026 16:05 anz
				@ ++zae,60-nS say "--------"
				@ ++zae,36-nS say "Summe I"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+1],8,2 )
				@ ++zae,60-nS say "========"
			ELSE
			   AAdd( aLeist1, 0, 1 )
			   AAdd( aLeist1, 0, 2 )
			ENDIF
			//++zae
			
			//nL2 := Len( aLeist2 )
			nLL := nL2
			IF nL2 > 0
				@ ++zae,10-nS say "Leistung II:"
				aLeist2 := Leistdruck( aLeist2, n4, @zae, nS, Upper(anz) )	//n4 = 4 Felder pro Zeile		26.02.2026 16:05 anz
				@ ++zae,60-nS say "--------"
				@ ++zae,36-nS say "Summe II"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist2[nL2+1],8,2 )
				@ ++zae,60-nS say "========"
			ELSE
			   AAdd( aLeist2, 0, 1 )
			   AAdd( aLeist2, 0, 2 )
			ENDIF
			++zae
	
			IF Upper(anz) $ "ZCXU"
				@ ++zae,36-nS say "Nettosumme zu 19%"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+1]+aLeist2[nL2+1],8,2 )
				@ ++zae,36-nS say "+ MwSt 19%"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+3]+aLeist2[nL2+3],8,2 )
				@ ++zae,36-nS say "Nettosumme zu 7%"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+2]+aLeist2[nL2+2],8,2 ) + "  *"
				@ ++zae,36-nS say "+ MwSt 7%"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+4]+aLeist2[nL2+4],8,2 ) + "  *"
	
	/*			nSumNettoV4 := aLeist1[nL1+1]+aLeist2[nL2+1]
				nSumNettoH4 := aLeist1[nL1+2]+aLeist2[nL2+2]
				nTotalNetto4 := nSumNettoV4 + nSumNettoH4	//aLeist1[nL1+1]+aLeist2[nL2+1] + aLeist1[nL1+2]+aLeist2[nL2+2]
				nSumMwStV4 := aLeist1[nL1+3]+aLeist2[nL2+3]
				nSumMwStH4 := aLeist1[nL1+4]+aLeist2[nL2+4]
				nTotalMwSt4 := nSumMwStV4 + nSumMwStH4	//aLeist1[nL1+3]+aLeist2[nL2+3] + aLeist1[nL1+4]+aLeist2[nL2+4]
				nTotalBrutto4 := nTotalNetto4 + nTotalMwSt4
	*/
				//06.03.2026 15:37 Round()
				nSumNettoV4 := Round(aLeist1[nL1+1],2) + Round(aLeist2[nL2+1],2)
				nSumNettoH4 := Round(aLeist1[nL1+2],2) + Round(aLeist2[nL2+2],2)
				nTotalNetto4 := nSumNettoV4 + nSumNettoH4	//aLeist1[nL1+1]+aLeist2[nL2+1] + aLeist1[nL1+2]+aLeist2[nL2+2]
				nSumMwStV4 := Round(aLeist1[nL1+3],2) + Round(aLeist2[nL2+3],2)
				nSumMwStH4 := Round(aLeist1[nL1+4],2) + Round(aLeist2[nL2+4],2)
				nTotalMwSt4 := nSumMwStV4 + nSumMwStH4	//aLeist1[nL1+3]+aLeist2[nL2+3] + aLeist1[nL1+4]+aLeist2[nL2+4]
				nTotalBrutto4 := nTotalNetto4 + nTotalMwSt4
	
			ELSE
				@ ++zae,36-nS say "Leistungen I"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+1],8,2 )
				@ ++zae,34-nS say "+ Leistungen II"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist2[nL2+1],8,2 )
			ENDIF
			@ ++zae,60-nS say "--------"
			
			IF Upper(anz) $ "ZCXU"
				nSumme := aLeist1[nL1+1] + aLeist1[nL1+2] + aLeist1[nL1+3] + aLeist1[nL1+4] + aLeist2[nL2+1] + aLeist2[nL2+2] + aLeist2[nL2+3] + aLeist2[nL2+4]
				@ ++zae,36-nS say "Gesamtsumme"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( nSumme,8,2 )
			ELSE
				aLeist1[nL1+2] := aLeist2[nL2+2] := aLeist1[nL1+1] + aLeist2[nL2+1]
				@ ++zae,36-nS say "Gesamtsumme"
				@ zae,57-nS say w_g
				@ zae,60-nS say str( aLeist1[nL1+2],8,2 )
			ENDIF
			@ ++zae,60-nS say "========"
			
			// ist vermutlich nicht mehr im Gebrauch: ???
			IF Upper( textjn ) = "J"
				select 9
				use ksotexte
				++zae
				zae := IIf( zae<45, 45, zae )
				@ ++zae,12-nS say rtext1
				@ ++zae,12-nS say rtext2
				@ ++zae,12-nS say rtext3
				@ ++zae,12-nS say rtext4
				@ ++zae,12-nS say rtext5
				@ ++zae,12-nS say rtext6
				@ ++zae,12-nS say rtext7
				@ ++zae,12-nS say rtext8
				@ ++zae,12-nS say rtext9
				use
			ENDIF
		ELSE	//13.03.2026 20:46vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
			// 13.03.2026 20:44 in cTextRef wird der Rechnungstext gesammelt und dann in .rdr abgespeichert
			cTextRef := CRLF+CRLF+CRLF
			cTextRef += CRLF + Space(10-nS)+Trim(1->ansp_anr)			// @ 06-nZ,10-nS say ansp_anr
			cTextRef += CRLF + Space(10-nS)+Trim(1->ansp_vname) +" "+ Trim(1->ansp_name)	// @ 07-nZ,10-nS say trim(ansp_vname) + " " + ansp_name
			cTextRef += CRLF + Space(10-nS)+Trim(1->ansp_str)			// @ 08-nZ,10-nS say ansp_str
			cTextRef += CRLF+CRLF + Space(10-nS)+Trim(1->ansp_ort)			// @ 10-nZ,10-nS say ansp_ort
			
			cTextRef += CRLF+CRLF + Space(55-nS) + StrZero(1->auftrnr,6,0)+" / "+zdate	// @ 13-nZ,55-nS say cAuf + " / " + zdate
			cTextRef += CRLF+CRLF + Space(10-nS)+"R E C H N U N G"			//	@ zae,10-nS say Z1214(chr(27)+z12p)+"R E C H N U N G"		//06.12.2025 15:50
			cTextRef += CRLF + Space(10-nS)+"Bestattung:"+" "+trim(anrede)+" "+trim(vorname)+" "+Trim(name)	//	@ zae,10-nS say Z1214(chr(27)+z12p)+"Bestattung:"+" "+trim(anrede)+" "+trim(vorname)+ " "+name
	
			//nL1 := Len( aLeist1 )
			nLL := nL1
			IF nL1 > 0
				cTextRef += CRLF+CRLF +	Space(10-nS)+"Leistung I:"		// @ ++zae,10-nS say "Leistung I:"
					aLeist1 := Leistdruck_ZCWXUP( aLeist1, n4, @zae, nS, Upper(anz), @cTextRef )	//n4 = 4 Felder pro Zeile	26.02.2026 16:05 anz
				cTextRef += CRLF + Space(60-nS) + "--------"	//	@ ++zae,60-nS say "--------"
				cTextRef += CRLF + PadR(Space(36-nS) + "Summe I",57-nS)		//	@ ++zae,36-nS say "Summe I"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+1],8,2 )		//	@ zae,60-nS say Str( aLeist1[nL1+1],8,2 )
				cTextRef += CRLF	+ Space(60-nS) + "========"	//	@ ++zae,60-nS say "========"
			ELSE
			   AAdd( aLeist1, 0, 1 )
			   AAdd( aLeist1, 0, 2 )
			ENDIF
			
			//nL2 := Len( aLeist2 )
			nLL := nL2
			IF nL2 > 0
				cTextRef += CRLF + Space(10-nS)+"Leistung II:"		// @ ++zae,10-nS say "Leistung II:"
					aLeist2 := Leistdruck_ZCWXUP( aLeist2, n4, @zae, nS, Upper(anz), @cTextRef )	//n4 = 4 Felder pro Zeile	26.02.2026 16:05 anz
				cTextRef += CRLF + Space(60-nS) + "--------"	//	@ ++zae,60-nS say "--------"
				cTextRef += CRLF + PadR(Space(36-nS) + "Summe II",57-nS)		//	@ ++zae,36-nS say "Summe II"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL2+1],8,2 )		//	@ zae,60-nS say Str( aLeist1[nL2+1],8,2 )
				cTextRef += CRLF	+ Space(60-nS) + "========"	//	@ ++zae,60-nS say "========"
			ELSE
			   AAdd( aLeist2, 0, 1 )
			   AAdd( aLeist2, 0, 2 )
			ENDIF
	
			IF Upper(anz) $ "ZCXU"
				cTextRef += CRLF + PadR(Space(36-nS) + "Nettosumme zu 19%",57-nS)		//	@ ++zae,36-nS say "Nettosumme zu 19%"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+1]+aLeist2[nL2+1],8,2 )		// @ zae,60-nS say Str( aLeist1[nL1+1]+aLeist2[nL2+1],8,2 )
				cTextRef += CRLF + PadR(Space(36-nS) + "+ MwSt 19%",57-nS)		// @ ++zae,36-nS say "+ MwSt 19%"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+3]+aLeist2[nL2+3],8,2 )		//	@ zae,60-nS say Str( aLeist1[nL1+3]+aLeist2[nL2+3],8,2 )
				cTextRef += CRLF + PadR(Space(36-nS) + "Nettosumme zu 7%",57-nS)	// @ ++zae,36-nS say "Nettosumme zu 7%"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+2]+aLeist2[nL2+2],8,2 ) + "  *"		// @ zae,60-nS say str( aLeist1[nL1+2]+aLeist2[nL2+2],8,2 ) + "  *"
				cTextRef += CRLF + PadR(Space(36-nS) + "+ MwSt 7%",57-nS)		// @ ++zae,36-nS say "+ MwSt 7%"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+4]+aLeist2[nL2+4],8,2 ) + "  *"		// @ zae,60-nS say str( aLeist1[nL1+4]+aLeist2[nL2+4],8,2 ) + "  *"
	
				//06.03.2026 15:37 Round()
				nSumNettoV4 := Round(aLeist1[nL1+1],2) + Round(aLeist2[nL2+1],2)
				nSumNettoH4 := Round(aLeist1[nL1+2],2) + Round(aLeist2[nL2+2],2)
				nTotalNetto4 := nSumNettoV4 + nSumNettoH4	//aLeist1[nL1+1]+aLeist2[nL2+1] + aLeist1[nL1+2]+aLeist2[nL2+2]
				nSumMwStV4 := Round(aLeist1[nL1+3],2) + Round(aLeist2[nL2+3],2)
				nSumMwStH4 := Round(aLeist1[nL1+4],2) + Round(aLeist2[nL2+4],2)
				nTotalMwSt4 := nSumMwStV4 + nSumMwStH4	//aLeist1[nL1+3]+aLeist2[nL2+3] + aLeist1[nL1+4]+aLeist2[nL2+4]
				nTotalBrutto4 := nTotalNetto4 + nTotalMwSt4
	
			ELSE
				cTextRef += CRLF + PadR(Space(36-nS) + "Leistungen I",57-nS)		//	@ ++zae,36-nS say "Leistungen I"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+1],8,2 )		// @ zae,60-nS say str( aLeist1[nL1+1],8,2 )
				cTextRef += CRLF + PadR(Space(36-nS) + "Leistungen II",57-nS)		//	@ ++zae,34-nS say "+ Leistungen II"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist2[nL2+1],8,2 )		// @ zae,60-nS say Str( aLeist2[nL2+1],8,2 )
			ENDIF
			cTextRef += CRLF + Space(60-nS) + "--------"		// @ ++zae,60-nS say "--------"
			
			IF Upper(anz) $ "ZCXU"
				nSumme := aLeist1[nL1+1] + aLeist1[nL1+2] + aLeist1[nL1+3] + aLeist1[nL1+4] + aLeist2[nL2+1] + aLeist2[nL2+2] + aLeist2[nL2+3] + aLeist2[nL2+4]
				cTextRef += CRLF + PadR(Space(36-nS) + "Gesamtsumme",57-nS)		//	@ ++zae,36-nS say "Gesamtsumme"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( nSumme,8,2 )		// @ zae,60-nS say Str( nSumme,8,2 )
			ELSE
				aLeist1[nL1+2] := aLeist2[nL2+2] := aLeist1[nL1+1] + aLeist2[nL2+1]
				cTextRef += CRLF + PadR(Space(36-nS) + "Gesamtsumme",57-nS)		//	@ ++zae,36-nS say "Gesamtsumme"
				cTextRef += w_g		//	@ zae,57-nS say w_g
				cTextRef += Str( aLeist1[nL1+2],8,2 )		// @ zae,60-nS say str( aLeist1[nL1+2],8,2 )
			ENDIF
			cTextRef += CRLF + Space(60-nS) + "========"		// @ ++zae,60-nS say "========"
			
			// ist vermutlich nicht mehr im Gebrauch: ???
			IF Upper( textjn ) = "J"
				select 9
				use ksotexte
			//	++zae
			//	zae := IIf( zae<45, 45, zae )
				cTextRef += CRLF + CRLF+ Space(12-nS) + rtext1		//	@ ++zae,12-nS say rtext1
				cTextRef += CRLF + Space(12-nS) + rtext2		//	@ ++zae,12-nS say rtext2
				cTextRef += CRLF + Space(12-nS) + rtext3		//	@ ++zae,12-nS say rtext3
				cTextRef += CRLF + Space(12-nS) + rtext4		//	@ ++zae,12-nS say rtext4
				cTextRef += CRLF + Space(12-nS) + rtext5		//	@ ++zae,12-nS say rtext5
				cTextRef += CRLF + Space(12-nS) + rtext6		//	@ ++zae,12-nS say rtext6
				cTextRef += CRLF + Space(12-nS) + rtext7		//	@ ++zae,12-nS say rtext7
				cTextRef += CRLF + Space(12-nS) + rtext8		//	@ ++zae,12-nS say rtext8
				cTextRef += CRLF + Space(12-nS) + rtext9		//	@ ++zae,12-nS say rtext9
				use
			ENDIF
			cFileRtext := cRechDir + "R"+StrZero(1->auftrnr)+".rdr"	// schreibt die .rdr-Datei:
			nHandle := FCreate(cFileRtext)
			FWrite(nHandle,Wandeln_in_UTF8(cTextRef))
			FClose(nHandle)
		ENDIF		
		//13.03.2026 20:45 cTextRef ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

		// aLeist3 := Leistdruck( aLeist3, n5, zae )	// nur in der Abrechnung/Aufstellung
		IF cLPT = "LPT1"
		   EJECT
		   lSeiteleer := .F.
		ENDIF
		--nAnz
		IF nAnz > 0
		   aLeist1[nL1+1] := 0
		   aLeist1[nL1+2] := 0
		   aLeist2[nL2+1] := 0
		   aLeist2[nL2+2] := 0
		ENDIF
	   IF nAnz >= 0     /*03.07.2008 18:17 s.o. Dummydruck, um endbetr auszurechnen */
	      SET DEVICE TO SCREEN
	      anz := "Ende"
	   ELSE
	      Set( _SET_PRINTFILE, cPrintFile )   // 03.07.2008 18:17
	      Set( _SET_DEVICE, "SCREEN" )        // weil Ausdruck in File umgeleitet war
	   ENDIF
	
	ENDDO
	// ENDE von: "druckt auf den Standard-Drucker oder f�llt die .rdr, aus der die .html/.odt bef�llt wird"

	IF Upper(anz)$"ZCXU"		// alle Sorten eRechnung (xRechnung & ZUGFeRD, jeweils mit xml & pdf)
		//09.12.2025 09:14 XML-Erzeugung: Daten von Lieferant & Kunde & Summen   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
/*26.02.2026 18:12 wird oben so ausgerechnet: 
			nSumNettoV4 := aLeist1[nL1+1]+aLeist2[nL2+1]
			nSumNettoH4 := aLeist1[nL1+2]+aLeist2[nL2+2]
			nTotalNetto4 := aLeist1[nL1+1]+aLeist2[nL2+1] + aLeist1[nL1+2]+aLeist2[nL2+2]
			nSumMwStV4 := aLeist1[nL1+3]+aLeist2[nL2+3]
			nSumMwStH4 := aLeist1[nL1+4]+aLeist2[nL2+4]
			nTotalMwSt4 := aLeist1[nL1+3]+aLeist2[nL2+3] + aLeist1[nL1+4]+aLeist2[nL2+4]
			nTotalBrutto4 := nTotalNetto4 + nTotalMwSt4
*/
		cVATvoll := "19.00"
		cVAThalb := "7.00"
		cSumNettoV := Str(nSumNettoV4,8,2)	
		cSumNettoH := Str(nSumNettoH4,8,2)
		cTotalNetto := Str(nTotalNetto4,8,2)
		cSumMwStV := Str(nSumMwStV4,8,2)
		cSumMwStH := Str(nSumMwStH4,8,2)
		cTotalMwSt := Str(nTotalMwSt4,8,2)
		cTotalBrutto := Str(nTotalBrutto4,8,2)

		IF Upper(anz) $ "ZC"
			cXML2 := '		<ram:ApplicableHeaderTradeAgreement>' 
		// Daten des Lieferanten:

			cXML2 += CRLF + ; 
			'			<ram:BuyerReference>' + cKdnr+ '</ram:BuyerReference>' + CRLF + ; 
			'			<ram:SellerTradeParty>' + CRLF + ; 
			'				<ram:Name>' + cLief + '</ram:Name>' + CRLF + ; 
			'				<ram:Description>' + cLieferant + '</ram:Description>' + CRLF + ; 
			'				<ram:SpecifiedLegalOrganization>' + CRLF + ; 
			'					<ram:ID>' + cHRBnr + '</ram:ID>' + CRLF + ; 
			'					<ram:TradingBusinessName>' + cLieferant + '</ram:TradingBusinessName>' + CRLF + ; 
			'				</ram:SpecifiedLegalOrganization>' + CRLF + ; 
			'				<ram:DefinedTradeContact>' + CRLF + ; 
			'					<ram:PersonName>' + cMA_Lief + '</ram:PersonName>' + CRLF + ; 
			'					<ram:TelephoneUniversalCommunication>' + CRLF + ; 
			'						<ram:CompleteNumber>' + cTEL_Lief + '</ram:CompleteNumber>' + CRLF + ; 
			'					</ram:TelephoneUniversalCommunication>' + CRLF + ; 
			'					<ram:EmailURIUniversalCommunication>' + CRLF + ; 
			'						<ram:URIID>' + cMail_Lief + '</ram:URIID>' + CRLF + ; 
			'					</ram:EmailURIUniversalCommunication>' + CRLF + ; 
			'				</ram:DefinedTradeContact>' + CRLF + ; 
			'				<ram:PostalTradeAddress>' + CRLF + ; 
			'					<ram:PostcodeCode>' + cPLZ_Lief + '</ram:PostcodeCode>' + CRLF + ; 
			'					<ram:LineOne>' + cStr_Lief + '</ram:LineOne>' + CRLF + ; 
			'					<ram:CityName>' + cOrt_Lief + '</ram:CityName>' + CRLF + ; 
			'					<ram:CountryID>' + cLand_Lief + '</ram:CountryID>' + CRLF + ; 
			'				</ram:PostalTradeAddress>' + CRLF + ; 
			'				<ram:URIUniversalCommunication>' + CRLF + ; 
			'					<ram:URIID schemeID="EM">' + cMail_Kunde + '</ram:URIID>' + CRLF + ; 
			'				</ram:URIUniversalCommunication>' + CRLF + ; 
			'				<ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'					<ram:ID schemeID="VA">' + cVAT_Kunde + '</ram:ID>' + CRLF + ; 
			'				</ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'				<ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'					<ram:ID schemeID="FC">' + cVAT_Kunde + '</ram:ID>' + CRLF + ; 
			'				</ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'			</ram:SellerTradeParty>' 
			
			// Daten des Kunden:

				cXML2 += '' + CRLF + ; 
			'			<ram:BuyerTradeParty>' + CRLF + ; 
			'				<ram:ID>' + cKdnr + '</ram:ID>' + CRLF + ; 
			'				<ram:Name>' + cKunde + '</ram:Name>' + CRLF + ; 
			'				<ram:DefinedTradeContact>' + CRLF + ; 
			'					<ram:PersonName>' + cMA_Kunde + '</ram:PersonName>' + CRLF + ; 
			'					<ram:EmailURIUniversalCommunication>' + CRLF + ; 
			'						<ram:URIID>' + cMail_MA_Kunde + '</ram:URIID>' + CRLF + ; 
			'					</ram:EmailURIUniversalCommunication>' + CRLF + ; 
			'				</ram:DefinedTradeContact>' + CRLF + ; 
			'				<ram:PostalTradeAddress>' + CRLF + ; 
			'					<ram:PostcodeCode>' + cPLZ_Kunde + '</ram:PostcodeCode>' + CRLF + ; 
			'					<ram:LineOne>' + cStr_Kunde + '</ram:LineOne>' + CRLF + ; 
			'					<ram:CityName>' + cOrt_Kunde + '</ram:CityName>' + CRLF + ; 
			'					<ram:CountryID>' + cLand_Kunde + '</ram:CountryID>' + CRLF + ; 
			'				</ram:PostalTradeAddress>' + CRLF + ; 
			'				<ram:URIUniversalCommunication>' + CRLF + ; 
			'					<ram:URIID schemeID="EM">' + cMail_Kunde + '</ram:URIID>' + CRLF + ; 
			'				</ram:URIUniversalCommunication>' + CRLF + ; 
			'				<ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'					<ram:ID schemeID="VA">' + cVAT_Kunde + '</ram:ID>' + CRLF + ; 
			'				</ram:SpecifiedTaxRegistration>' + CRLF + ; 
			'			</ram:BuyerTradeParty>' + CRLF + ; 
			'		</ram:ApplicableHeaderTradeAgreement>' 
			
			// Summen der Rechnung etc.:

			cXML2 += '' + CRLF + ; 
			'		<ram:ApplicableHeaderTradeDelivery>' + CRLF + ; 
			'			<ram:ActualDeliverySupplyChainEvent>' + CRLF + ; 
			'				<ram:OccurrenceDateTime>' + CRLF + ; 
			'					<udt:DateTimeString format="102">' + cJJJJMMTT_Lief + '</udt:DateTimeString>' + CRLF + ; 
			'				</ram:OccurrenceDateTime>' + CRLF + ; 
			'			</ram:ActualDeliverySupplyChainEvent>' + CRLF + ; 
			'		</ram:ApplicableHeaderTradeDelivery>' + CRLF + ; 
			'		<ram:ApplicableHeaderTradeSettlement>' + CRLF + ; 
			'			<ram:InvoiceCurrencyCode>EUR</ram:InvoiceCurrencyCode>' + CRLF + ; 
			'			<ram:SpecifiedTradeSettlementPaymentMeans>' + CRLF + ; 
			'				<ram:TypeCode>1</ram:TypeCode>' + CRLF + ; 
			'				<ram:PayeePartyCreditorFinancialAccount>' + CRLF + ; 
			'					<ram:IBANID>' + cIBAN_Lief + '</ram:IBANID>' + CRLF + ; 
			'					<ram:AccountName>' + cKontoNameLief + '</ram:AccountName>' + CRLF + ; 
			'				</ram:PayeePartyCreditorFinancialAccount>' + CRLF + ; 
			'				<ram:PayeeSpecifiedCreditorFinancialInstitution>' + CRLF + ; 
			'					<ram:BICID>' + cBIC_Lief + '</ram:BICID>' + CRLF + ; 
			'				</ram:PayeeSpecifiedCreditorFinancialInstitution>' + CRLF + ; 
			'			</ram:SpecifiedTradeSettlementPaymentMeans>' //+ CRLF + ; 
			IF Val(cSumMwStV) <> 0
			cXML2 += '' + CRLF + ; 
			'			<ram:ApplicableTradeTax>' + CRLF + ; 
			'				<ram:CalculatedAmount>' + cSumMwStV + '</ram:CalculatedAmount>' + CRLF + ; 
			'				<ram:TypeCode>VAT</ram:TypeCode>' + CRLF + ; 
			'				<ram:BasisAmount>' + cSumNettoV + '</ram:BasisAmount>' + CRLF + ; 
			'				<ram:CategoryCode>S</ram:CategoryCode>' + CRLF + ; 
			'				<ram:RateApplicablePercent>' + cVATvoll + '</ram:RateApplicablePercent>' + CRLF + ; 
			'			</ram:ApplicableTradeTax>' //+ CRLF + ; 
			ENDIF
			IF Val(cSumMwStH) <> 0
			cXML2 += '' + CRLF + ; 
			'			<ram:ApplicableTradeTax>' + CRLF + ; 
			'				<ram:CalculatedAmount>' + cSumMwStH + '</ram:CalculatedAmount>' + CRLF + ; 
			'				<ram:TypeCode>VAT</ram:TypeCode>' + CRLF + ; 
			'				<ram:BasisAmount>' + cSumNettoH + '</ram:BasisAmount>' + CRLF + ; 
			'				<ram:CategoryCode>S</ram:CategoryCode>' + CRLF + ; 
			'				<ram:RateApplicablePercent>' + cVAThalb + '</ram:RateApplicablePercent>' + CRLF + ; 
			'			</ram:ApplicableTradeTax>' //+ CRLF + ; 
			ENDIF
			cXML2 += '' + CRLF + ; 
			'			<ram:SpecifiedTradePaymentTerms>' + CRLF + ; 
			'				<ram:Description>' + cZahlungsBedingungen + '</ram:Description>' + CRLF + ; 
			'				<ram:DueDateDateTime>' + CRLF + ; 
			'					<udt:DateTimeString format="102">' + cJJJJMMTT_Zahl + '</udt:DateTimeString>' + CRLF + ; 
			'				</ram:DueDateDateTime>' + CRLF + ; 
			'			</ram:SpecifiedTradePaymentTerms>' + CRLF + ; 
			'			<ram:SpecifiedTradeSettlementHeaderMonetarySummation>' + CRLF + ; 
			'				<ram:LineTotalAmount>' + cTotalNetto + '</ram:LineTotalAmount>' + CRLF + ; 
			'				<ram:TaxBasisTotalAmount>' + cTotalNetto + '</ram:TaxBasisTotalAmount>' + CRLF + ; 
			'				<ram:TaxTotalAmount currencyID="EUR">' + cTotalMwSt + '</ram:TaxTotalAmount>' + CRLF + ; 
			'				<ram:GrandTotalAmount>' + cTotalBrutto + '</ram:GrandTotalAmount>' + CRLF + ; 
			'				<ram:DuePayableAmount>' + cTotalBrutto + '</ram:DuePayableAmount>' + CRLF + ; 
			'			</ram:SpecifiedTradeSettlementHeaderMonetarySummation>' + CRLF + ; 
			'		</ram:ApplicableHeaderTradeSettlement>' + CRLF + ; 
			'	</rsm:SupplyChainTradeTransaction>' + CRLF + ; 
			'</rsm:CrossIndustryInvoice>'
		
			cXml := cXml1 + CRLF + cXml3 + CRLF + cXml2
					//Kopf & Zeilen & Firmendaten + Summen
			cFilezugxml := cRechDir + "R"+StrZero(1->auftrnr)+"_zug.xml"	// schreibt die XML-Datei:
			nHandle := FCreate(cFilezugxml)
			FWrite(nHandle,cXml)
			FClose(nHandle)
		ELSEIF Upper(anz) $ "XU"
			cXml2 := '' + ; 
			'	<cac:Delivery>' + CRLF + ; 
			'		<cbc:ActualDeliveryDate>' + cJJJJMMTT_Lief + '</cbc:ActualDeliveryDate>' + CRLF + ; 
			'	</cac:Delivery>' + CRLF + ; 
			'	<cac:PaymentMeans>' + CRLF + ; 
			'		<cbc:PaymentMeansCode>1</cbc:PaymentMeansCode>' + CRLF + ; 
			'		<cbc:PaymentID>' + cAuftrag + '</cbc:PaymentID>' + CRLF + ; 
			'		<cac:PayeeFinancialAccount>' + CRLF + ; 
			'			<cbc:ID>' + cIBAN_Lief + '</cbc:ID>' + CRLF + ; 
			'			<cbc:Name>' + cKontoNameLief + '</cbc:Name>' + CRLF + ; 
			'			<cac:FinancialInstitutionBranch>' + CRLF + ; 
			'				<cbc:ID>' + cBIC_Lief + '</cbc:ID>' + CRLF + ; 
			'			</cac:FinancialInstitutionBranch>' + CRLF + ; 
			'		</cac:PayeeFinancialAccount>' + CRLF + ; 
			'	</cac:PaymentMeans>' + CRLF + ; 
			'	<cac:PaymentTerms>' + CRLF + ; 
			'		<cbc:Note>' + cZahlungsbedingungen + '</cbc:Note>' + CRLF + ; 
			'	</cac:PaymentTerms>' + CRLF + ; 
			'	<cac:TaxTotal>' + CRLF + ; 
			'		<cbc:TaxAmount currencyID="EUR">' + cTotalMwSt + '</cbc:TaxAmount>' + CRLF + ; 
			'		<cac:TaxSubtotal>' + CRLF + ; 
			'			<cbc:TaxableAmount currencyID="EUR">' + cSumNettoV + '</cbc:TaxableAmount>' + CRLF + ; 
			'			<cbc:TaxAmount currencyID="EUR">' + cSumMwStV + '</cbc:TaxAmount>' + CRLF + ; 
			'			<cac:TaxCategory>' + CRLF + ; 
			'				<cbc:ID>S</cbc:ID>' + CRLF + ; 
			'				<cbc:Percent>' + cVATvoll + '</cbc:Percent>' + CRLF + ; 
			'				<cac:TaxScheme>' + CRLF + ; 
			'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
			'				</cac:TaxScheme>' + CRLF + ; 
			'			</cac:TaxCategory>' + CRLF + ; 
			'		</cac:TaxSubtotal>' + CRLF + ; 
			'		<cac:TaxSubtotal>' + CRLF + ; 
			'			<cbc:TaxableAmount currencyID="EUR">' + cSumNettoH + '</cbc:TaxableAmount>' + CRLF + ; 
			'			<cbc:TaxAmount currencyID="EUR">' + cSumMwStH + '</cbc:TaxAmount>' + CRLF + ; 
			'			<cac:TaxCategory>' + CRLF + ; 
			'				<cbc:ID>S</cbc:ID>' + CRLF + ; 
			'				<cbc:Percent>' + cVAThalb + '</cbc:Percent>' + CRLF + ; 
			'				<cac:TaxScheme>' + CRLF + ; 
			'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
			'				</cac:TaxScheme>' + CRLF + ; 
			'			</cac:TaxCategory>' + CRLF + ; 
			'		</cac:TaxSubtotal>' + CRLF + ; 
			'	</cac:TaxTotal>' + CRLF + ; 
			'	<cac:LegalMonetaryTotal>' + CRLF + ; 
			'		<cbc:LineExtensionAmount currencyID="EUR">' + cTotalNetto + '</cbc:LineExtensionAmount>' + CRLF + ; 
			'		<cbc:TaxExclusiveAmount currencyID="EUR">' + cTotalNetto + '</cbc:TaxExclusiveAmount>' + CRLF + ; 
			'		<cbc:TaxInclusiveAmount currencyID="EUR">' + cTotalBrutto + '</cbc:TaxInclusiveAmount>' + CRLF + ; 
			'		<cbc:PayableAmount currencyID="EUR">' + cTotalBrutto + '</cbc:PayableAmount>' + CRLF + ; 
			'	</cac:LegalMonetaryTotal>'
		
			cXml := cXml1 + CRLF + cXml2 + CRLF + cXml3 + CRLF + '</ubl:Invoice>'
					//Kopf + Firmendaten & Summen & Zeilen
			cFilexml := cRechDir + "R"+StrZero(1->auftrnr)+".xml"	// schreibt die XML-Datei:
			nHandle := FCreate(cFilexml)
			FWrite(nHandle,cXml)
			FClose(nHandle)
			
		ENDIF
		
		//24.12.2025 15:47 Die Rechnung als HTML-Datei abspeichern: vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
		//						und dann erst zu einer PDF umwandeln
		cRechKopf := cDatver + "KSOX_BB.png"
		cHtmlRech := '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' + CRLF + ;
			'<HTML>' + CRLF + ;
			'<HEAD>' + CRLF + ;
			'	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=UTF-8">' + CRLF + ;
			'	<TITLE>c:\hdbe\'+StrZero(1->auftrnr)+'.html</TITLE>' + CRLF + ;
			'	<META NAME="GENERATOR" CONTENT="KSOX.EXE">' + CRLF + ;
			'	<META NAME="CHANGEDBY" CONTENT="Essen">' + CRLF + ;
			'	<STYLE TYPE="text/css">' + CRLF + ;
			'	<!--' + CRLF + ;
			'		@page { size: 21cm 29.7cm; margin:  1cm 1cm 1cm 2cm; }' + CRLF + ;
			'		P { margin-bottom: 0.21cm }' + CRLF + ;
			'		P#cour { font-family: Courier New, monospace; }' + CRLF + ;
			'		PRE { font-family: Courier New, monospace; font-size: 11pt; line-height: 0.47cm; }' + CRLF + ;
			'	-->' + CRLF + ;
			'	</STYLE>' + CRLF + ;
			'</HEAD>' + CRLF + ;
         IIf( FExists(cRechKopf), ;
         '<BODY LANG="de-DE" STYLE="background: url(' + cRechKopf + ') no-repeat middle center scroll;">'+CRLF+;
         '<PRE>'+CRLF+;
         '<FONT style="font-family: Courier New;font-size: 11pt;" >', ;
         '<BODY LANG="de-DE">'+CRLF+;
         '<PRE>' )

		nRTxtLen = Len(MemoRead(cRechDir + "R"+StrZero(1->auftrnr,6,0)+".rdr"))	//geht das anders? nur die Filel„nge?
	   nHandle := FOpen( cRechDir + "R"+StrZero(1->auftrnr,6,0)+".rdr", FO_READ )
	   cBuffer := Space(nRTxtLen)
	   nBytes := FRead( nHandle, @cBuffer, nRTxtLen )		// liest die .rdr in die Variable cBuffer
	   cHtmlRech += AllTrim(cBuffer)								//	schiebt die .rdr aus cBuffer in die .html
		FClose( nHandle )												// schlieát die .rdr (wird unten nochmal beschrieben)
		cHtmlRech += CRLF + '</FONT></PRE></BODY></HTML>'
		
		cFilehtml := cRechDir + "R"+StrZero(1->auftrnr,6,0)+".html"
		nHandle := FCreate(cFilehtml)
//		FWrite(nHandle,Wandeln_in_UTF8(cHtmlRech))			// schreibt die .html
		FWrite(nHandle,cHtmlRech)			// .rdr ist schon UTF8 ! // schreibt die .html
		FClose(nHandle)
		//11.03.2026 19:03:
		cFileodt := cRechDir + "R"+StrZero(1->auftrnr,6,0)+".odt"
		COPY FILE (cDatver+"F\ODT\KSOXbb.odt") TO (cFileodt)	// leere Rechnungsdatei mit Briefkopf
		sleep(200)
		cCommand := ' &cFileodt macro:///Standard.Module1.xRechodtPDF '
		RunShell (' &cFileodt macro:///Standard.Module1.xRechodtPDF ', 'C:\Program Files\LibreOffice\program\swriter.exe')	//,.T.) .T.=async !!
		// ohne .T. wird KSOX.exe hier so lange angehalten bis RunShell() komplett fertig ist. (sollte jedenfalls...)
		// w„hrend RunShell(MAKRO) wird .odt angezeigt und zu .pdf verwandelt (ggf. zu ZUGFeRD-PDF) 
		// die mit obigem RunShell() erzeugten .pdf werden hier mit AdobeReader angezeigt:
		IF Upper(anz)$"ZX"	//10.03.2026 20:57
			IF Upper(anz)$"Z"
				cFilepdf := Stuff(cFilehtml,At(".HTML",Upper(cFilehtml)),5,"_zug.pdf")
			ELSE
				cFilepdf := Stuff(cFilehtml,At(".HTML",Upper(cFilehtml)),5,".pdf")
			ENDIF
			IF FExists('C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe')							//64bit Reader
				RunShell ("&cFilepdf","C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe",.T.)
			ELSEIF FExists('C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe')		//32bit Reader
				RunShell ("&cFilepdf","C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe",.T.)
			ENDIF
		ELSEIF Upper(anz)$"CU"
			IF Upper(anz)$"C"
				cFilexml := Stuff(cFilehtml,At(".HTML",Upper(cFilehtml)),5,"_zug.xml")
			ELSE
				cFilexml := Stuff(cFilehtml,At(".HTML",Upper(cFilehtml)),5,".xml")
			ENDIF
			IF FExists("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe")
				RunShell("&cFilexml","C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe",.T.)
			ENDIF
		ENDIF
		RunShell ("&cRechDir","explorer.exe",.T.)		// ”ffnet das Archiv-Verzeichnis dieses Falles
		
	ELSEIF Upper(anz)$"WP"		// auf Writer ohne ("W") und mit ("P") Briefkopf

		//24.12.2025 15:47 Die Rechnung als HTML-Datei abspeichern: vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
		//						und dann erst als ODT ausdrucken
		cRechKopf := cDatver + "KSOX_BB.png"
		cHtmlRech := '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' + CRLF + ;
			'<HTML>' + CRLF + ;
			'<HEAD>' + CRLF + ;
			'	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=UTF-8">' + CRLF + ;
			'	<TITLE>c:\hdbe\'+StrZero(1->auftrnr)+'.html</TITLE>' + CRLF + ;
			'	<META NAME="GENERATOR" CONTENT="KSOX.EXE">' + CRLF + ;
			'	<META NAME="CHANGEDBY" CONTENT="Essen">' + CRLF + ;
			'	<STYLE TYPE="text/css">' + CRLF + ;
			'	<!--' + CRLF + ;
			'		@page { size: 21cm 29.7cm; margin:  1cm 1cm 1cm 2cm; }' + CRLF + ;
			'		P { margin-bottom: 0.21cm }' + CRLF + ;
			'		P#cour { font-family: Courier New, monospace; }' + CRLF + ;
			'		PRE { font-family: Courier New, monospace; font-size: 11pt; line-height: 0.47cm; }' + CRLF + ;
			'	-->' + CRLF + ;
			'	</STYLE>' + CRLF + ;
			'</HEAD>' + CRLF + ;
         IIf( FExists(cRechKopf) .AND. !Upper(anz)$"W", ;
         '<BODY LANG="de-DE" STYLE="background: url(' + cRechKopf + ') no-repeat middle center scroll">'+CRLF+;
         '<PRE STYLE="margin-top:0;margin-bottom:0cm">'+CRLF+;
         '<FONT style="font-family: Courier New;font-size: 11pt;" >', ;
         '<BODY LANG="de-DE">'+CRLF+;
         '<PRE>' )

//			'<BODY LANG="de-DE">' + CRLF + ;
//			'<PRE>'

		nRTxtLen = Len(MemoRead(cRechDir + "R"+StrZero(1->auftrnr,6,0)+".rdr"))	//geht das anders? nur die Filel„nge?
	   nHandle := FOpen( cRechDir + "R"+StrZero(1->auftrnr,6,0)+".rdr", FO_READ )
	   cBuffer := Space(nRTxtLen)
	   nBytes := FRead( nHandle, @cBuffer, nRTxtLen )
	   cHtmlRech += AllTrim(cBuffer)
		FClose( nHandle )
		cHtmlRech += CRLF + '</FONT></PRE></BODY></HTML>'
		
		cFilehtml := cRechDir + "R"+StrZero(1->auftrnr,6,0)+".html"
		nHandle := FCreate(cFilehtml)
		FWrite(nHandle,Wandeln_in_UTF8(cHtmlRech))
		FClose(nHandle)

//		cAuftrag := StrZero(1->auftrnr,6,0)
		cFileodt := cRechDir + "R"+StrZero(1->auftrnr,6,0)+".odt"
		IF Upper(anz)$"W"			// Druck ohne Briefkopf
			COPY FILE (cDatver+"F\ODT\KSOXleer.odt") TO (cFileodt)	// leere Rechnungsdatei ohne Briefkopf	08.08.2026 12:50 cDatver
		ELSEIF Upper(anz)$"P"	// Druck mit Briefkopf
			COPY FILE (cDatver+"F\ODT\KSOXbb.odt") TO (cFileodt)	// leere Rechnungsdatei mit Briefkopf		08.08.2026 12:50 cDatver
		ENDIF
		cCommand := ' &cFileodt macro:///Standard.Module1.xRechODT '
		RunShell (' &cFileodt macro:///Standard.Module1.xRechODT ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
	ENDIF

	select 1
	IF &r_b_1 <> aLeist1[nL1+1] .AND. nAnzahl > 0
		satzsperren()
		// damit die erg„nzten BestFallDaten auch �bertragen werden k”nnen
		aData1 := SatzGet( Select(), RecNo() )
		//
	   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
	   ELSE
	      repl &r_b_1 with aLeist1[nL1+1]
	   ENDIF
		// damit die erg„nzten BestFallDaten auch �bertragen werden
	   trckng( Select(), RecNo(), aData1 )
		//
		satzentsperren()
	ENDIF
	IF &r_b_2 <> aLeist2[nL2+1] .AND. nAnzahl > 0
		satzsperren()
		// damit die erg„nzten BestFallDaten auch �bertragen werden k”nnen
	   aData1 := SatzGet( Select(), RecNo() )
		//
	   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
	   ELSE
	      repl &r_b_2 with aLeist2[nL2+1]
	   ENDIF
		// damit die erg„nzten BestFallDaten auch �bertragen werden
	   trckng( Select(), RecNo(), aData1 )
		//
		satzentsperren()
	ENDIF
	/*04.05.2008 22:11 wird (noch) nicht in best.dbf abgespeichert  */
	/*21.05.2008 18:17 ab jetzt werden die Hintergrundw„hrungsfelder f�r Leistung III und Fremdleistung verwendet  */
	IF nAnzahl > 0
		satzsperren()
		// damit die erg„nzten BestFallDaten auch �bertragen werden k”nnen
	   aData1 := SatzGet( Select(), RecNo() )
		//
	   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
	   ELSE
//06.03.2026 16:50 aLeistA ist obsolet!	      repl &r_b_1h with aLeistA[nLA+1]
	      repl rech_dat WITH CtoD(zdate)         //+16.07.2008 21:08 zdate ist "C"
	   ENDIF
		// damit die erg„nzten BestFallDaten auch �bertragen werden
	   trckng( Select(), RecNo(), aData1 )
		//
	satzentsperren()
	ENDIF
	/**/

	IF nArea == 13		//+30.10.2018 12:53 nur wenn normaler Rechnungsdruck mit BregieR3L
	//   Anfang Schreiben der Auftrag-Backup-Datei
	   SELECT 9
	   USE AUFTR_B
      SELECT &nArea
      DbGotop()   //05.03.2008 13:09
      DbSuspendNotifications()
      INDEX ON Str(auftrnr,6,0)+rn+kennz+zeile TO C:\HDBE\xtemp
      nZeile := 0
		FOR nt := 0 TO 2 STEP 2
	      SELECT &nArea
	      IF .NOT. Bof()
	         GO TOP
	      ENDIF
	      DO WHILE .NOT. Eof()
	         IF Val( (nArea)->rn ) <> nt .OR. (nArea)->auftrnr != 1->auftrnr
	            SKIP
	            LOOP
	         ENDIF
	         ++nZeile
	         FOR n := 1 to FCount()
	            aData2[n] := FieldGet( n )
	         NEXT
	         SELECT 9
	         APPEND BLANK
	         FOR n := 1 to FCount()
	            FieldPut( n, aData2[n] )
	         NEXT
	         REPLACE 9->zeile WITH Str( nZeile,2,0 )
	         DbRUnlock( Recno() )
	         SELECT &nArea
	         SKIP
	      ENDDO
		NEXT
		/*01.05.2008 16:19 f�r LeistungIII  */
         GO TOP
      DO WHILE .NOT. Eof()
         IF (nArea)->rn != "A" .OR. (nArea)->auftrnr != 1->auftrnr
            SKIP
            LOOP
         ENDIF
         ++nZeile
         For n := 1 to FCount()
            aData2[n] := FieldGet( n )
         NEXT
         SELECT 9
         APPEND BLANK
         For n := 1 to FCount()
            FieldPut( n, aData2[n] )
         NEXT
         REPLACE 9->zeile WITH Str( nZeile,2,0 )
         DbRUnlock( Recno() )
         SELECT &nArea
         SKIP
      ENDDO
	   SELECT 9
	   USE
	   SELECT &nArea
	   SET INDEX TO
	   DbGotop()    //05.03.2008 13:10
	   DbResumeNotifications()
	//   Ende Schreiben der Auftrag-Backup-Datei
	ENDIF
	SELECT &nOldArea
	DbGoto(nRec)		//+11.10.2018 14:25
RETURN

FUNCTION Leistdruck( aLeist, n, zae, nS, cRArt )	//04.01.2026 14:57 nS + 26.02.2026 15:14 cRArt
	LOCAL mproz := zschl_voll			//26.02.2026 15:14
   IF zae > 0  //04.05.2008 17:11 s.u.
      IF n == 4
      //  FOR i := 5 to ( nLL + 1 )  STEP 5    // die zweite Zeile der Bezeichnung
        FOR i := n to ( nLL + 1 )  STEP n
      //    @ ++zae,10 say aLeist[i-4]
      //    IF Len(Trim(aLeist[i-3])) > 0
             @ ++zae,10-nS say aLeist[i-3]
      //    ENDIF
          @ zae,57-nS say w_g
          IF cRArt$"ZCXU"		//26.02.2026 15:48 CII und UBL sind immer mit Nettobetr„gen in den Zeilen
          	IF aLeist[i-1] == "2"
	            @ zae,60-nS say str( aLeist[i-2]/(100+zschl_halb)*100,8,2 ) + "  *"
					aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]/(100+zschl_halb)*100
          	ELSE	// == "3" alle anderen sind per Definition "3"
	            @ zae,60-nS say str( aLeist[i-2]/(100+zschl_voll)*100,8,2 )
					aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]/(100+zschl_voll)*100
          	ENDIF
         ELSE
         	@ zae,60-nS say str( aLeist[i-2],8,2 )
				aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]
				aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]
         ENDIF
          IF aLeist[i-1]="2"
	          aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] / (100+zschl_halb) * zschl_halb)
	 //         endif
	 //         if aLeist[i-1]="3"
	 		 ELSE
	          aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] / (100+zschl_voll) * zschl_voll)
          ENDIF
        NEXT
      ELSE
        AAdd( aLeist, 0, nLL+5 )
        FOR i := n to ( nLL + 1 )  STEP n
          @ ++zae,5 say "Rechnung-"+Substr(aLeist[i-4],1,34)+"-"+aLeist[i-3]
          @ zae,64 say w_g
          @ zae,67 say str( aLeist[i-2],8,2 )
          aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]
          aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]
          if aLeist[i-1]="3"
          aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] / (100+zschl_voll) * zschl_voll)
          endif
          if aLeist[i-1]="2"
          aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] / (100+zschl_halb) * zschl_halb)
          endif
        NEXT
      ENDIF
   ELSEIF zae == 0      //04.05.2008 17:10 rechnet in Aufstellung die Vorfinanzierungskosten aus:
     FOR i := n to ( nLL + 1 )  STEP n
       aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]
       aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]
     NEXT
   ENDIF

RETURN aLeist

FUNCTION Leistdruck_ZCWXUP( aLeist, n, zae, nS, cRArt, cTextRef )	//04.01.2026 14:57 nS + 26.02.2026 15:14 cRArt
	LOCAL mproz := zschl_voll			//26.02.2026 15:14
        FOR i := n to ( nLL + 1 )  STEP n
          cTextRef += CRLF + Space(10-nS) + aLeist[i-3]
					nLang := Len(Space(10-nS) + aLeist[i-3])
          cTextRef += Space(57-nS-nLang) + w_g
          IF cRArt$"ZCXU"		//26.02.2026 15:48 CII und UBL sind immer mit Nettobetr„gen in den Zeilen
          	IF aLeist[i-1] == "2"
	            cTextRef += Space(0) + Str( aLeist[i-2]/(100+zschl_halb)*100,8,2 ) + "  *"
					aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]/(100+zschl_halb)*100
          	ELSE	// == "3" alle anderen sind per Definition "3"
	            cTextRef += Space(0) + Str( aLeist[i-2]/(100+zschl_voll)*100,8,2 )
					aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]/(100+zschl_voll)*100
          	ENDIF
         ELSE
         	cTextRef += Space(0) + Str( aLeist[i-2],8,2 )
				aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]
				aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]
         ENDIF
          IF aLeist[i-1]="2"
	          aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] / (100+zschl_halb) * zschl_halb)
	 		 ELSE
	          aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] / (100+zschl_voll) * zschl_voll)
          ENDIF
        NEXT
RETURN aLeist


FUNCTION BSEingabe( aBlatt, oDlg1 )
   LOCAL oDlg, nEvent, mp1, mp2
   LOCAL aSizeDesktop := AppDesktop():currentSize()
   LOCAL nBSb := aSizeDesktop[1]
   LOCAL nBSh := aSizeDesktop[2]
// folgende Zahlen-Werte basieren auf 800x600:
   LOCAL nV := nBSb/800         // Korrekturfaktor f�r tats„chliche Aufl”sung
   LOCAL nOldArea := Select()
   LOCAL aEditcontrols := {}
//   LOCAL oFocus := SetAppFocus()
   LOCAL aSeite := {}, aNa := {}, aPrompt := {}, aText := {}, aTFont := {}
   LOCAL aBereich := {}, aFeld := {}, aFFont := {}, aZei := {}, aSpa := {}
   PRIVATE oWin := oDlg1

   cFont := IIf( nBSb < 700, "7.Arial", "8.Arial" )

   oDlg := XbpDialog():new( AppDeskTop(), oDlg1 )
   oDlg:tasklist := .T.
   oDlg:title := "Felder korrigieren/eingeben"
   oDlg:maxButton := .F.
   oDlg:clipSiblings := .T.
   oDlg:border := XBPDLG_RAISEDBORDERTHIN_FIXED
   oDlg:create(,, {10,10}, {int(740*nV),int(460*nV)} )

   oDlg:drawingArea:setFontCompoundName( "8.Arial" )
   oDlg:drawingArea:setColorBG( GRA_CLR_DARKGREEN )
   oCB := oDlg:drawingArea
   oCB:clipSiblings := .T.

nBo := int(430*nV)
nBr := 0
j := 0
FOR i := 1 to Len( aBlatt )
   aBlattZ := aBlatt[i]
   AAdd( aSeite, aBlattZ[1] )
   AAdd( aNa, aBlattZ[2] )
   AAdd( aPrompt, aBlattZ[3] )
   AAdd( aText, aBlattZ[4] )
   AAdd( aTFont, aBlattZ[5] )
   AAdd( aBereich, aBlattZ[6] )
   AAdd( aFeld, aBlattZ[7] )         // Feldbezeichnung
   AAdd( aFFont, aBlattZ[8] )
   AAdd( aZei, aBlattZ[9] )
   AAdd( aSpa, aBlattZ[10] )

// f�r die Positionierung im Editierfenster:
   nBr := IIf( i<>1 .AND. (aSeite[i]="n" .OR. nBo-Int(j*25*nV) < Int(30*nV)), ;
                (nBr+Int(370*nV)), nBr )
   j := IIf( nBo-Int(j*25*nV) < Int(30*nV) .OR. aSeite[i]="n", 0, j )

   IF Upper( aSeite[i] ) = "R" .OR. Upper( aSeite[i] ) = "V"
//      keine Žnderungen, wenn es sich um "Rechnungszeilen" handelt
      AAdd( aEditcontrols, aFeld[i] )
   ELSE
      IF aNa[i] = "t"                 // Text ist zu ver„ndern
//         aText[i] := aText[i]+Space(70-len(aText[i]))

         oXbp := XbpStatic():new( oDlg:drawingArea, ,  {nBr+int(30*nV),nBo-int(++j*25*nV)}, {int(100*nV),int(25*nV)})
         oXbp:caption := aPrompt[i]
         oXbp:clipSiblings := .T.
         oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
         oXbp:create()
         oSle := XbpSLE():new( oDlg:drawingArea, ,  {nBr+int(140*nV),nBo-int(j*25*nV)}, {int(200*nV),int(25*nV)}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
         oSle:bufferLength := 70
         oSle:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
         oSle:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
         oSle:group := XBP_WITHIN_GROUP
         oSle:dataLink := {|x| IIf( PCOUNT()==0, Trim( aText[i] ), aText[i] := x  ) }
         oSle:create():setData()
         AAdd( aEditcontrols, oSle )
//         IF ASC( aFeld[i] ) > 32
            cB := aBereich[i] ; cF := aFeld[i]
         IF !Empty( cF ) .AND. Val( cB ) > 0
            aFeld[i] := ((&cB)->(&cF))          //Feldinhalt
         ENDIF
      ELSEIF aNa[i] = "f"             // Feldinhalt soll editiert werden
         cB := aBereich[i] ; cF := aFeld[i]
         xF := ( (&cB)->(&cF) )      //Feldinhalt
         DO CASE
            CASE Valtype( xF ) == "C"
               aFeld[i] := xF
            CASE ValType( xF ) == "N"
               aFeld[i] := Str( xF )
            CASE ValType( xF ) == "D"
               aFeld[i] := DtoC( xF )
         ENDCASE

         oXbp := XbpStatic():new( oDlg:drawingArea, ,  {nBr+int(30*nV),nBo-int(++j*25*nV)}, {int(100*nV),int(25*nV)})
         oXbp:caption := aPrompt[i]
         oXbp:clipSiblings := .T.
         oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
         oXbp:create()
         oSle := XbpSLE():new( oDlg:drawingArea, ,  {nBr+int(140*nV),nBo-int(j*25*nV)}, {int(200*nV),int(25*nV)}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
         oSle:bufferLength := 50
         oSle:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
         oSle:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
         oSle:group := XBP_WITHIN_GROUP
         oSle:dataLink := {|x| IIf( PCOUNT()==0, Trim( aFeld[i] ), aFeld[i] := x  ) }
         oSle:create():setData()
         AAdd( aEditcontrols, oSle )
         aText[i] := ""
      ELSEIF aNa[i] = "v" .AND. aBereich[i] = "v" // Variable soll editiert werden
         cF := aFeld[i]
         xF := &(cF)      //Variableninhalt
         DO CASE
            CASE Valtype( xF ) == "C"
               aFeld[i] := xF
            CASE ValType( xF ) == "N"
               aFeld[i] := Str( xF )
            CASE ValType( xF ) == "D"
               aFeld[i] := DtoC( xF )
         ENDCASE

         oXbp := XbpStatic():new( oDlg:drawingArea, ,  {nBr+int(30*nV),nBo-int(++j*25*nV)}, {int(100*nV),int(25*nV)})
         oXbp:caption := aPrompt[i]
         oXbp:clipSiblings := .T.
         oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
         oXbp:create()
         oSle := XbpSLE():new( oDlg:drawingArea, ,  {nBr+int(140*nV),nBo-int(j*25*nV)}, {int(200*nV),int(25*nV)}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
         oSle:bufferLength := 50
         oSle:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
         oSle:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
         oSle:group := XBP_WITHIN_GROUP
         oSle:dataLink := {|x| IIf( PCOUNT()==0, Trim( aFeld[i] ), aFeld[i] := x  ) }
         oSle:create():setData()
         AAdd( aEditcontrols, oSle )
      ELSEIF aNa[i] <> "v" .AND. aBereich[i] = "v" // im aFeld steht Mem-Variable
         cF := aFeld[i]
         aFeld[i] := "&(" + cF + ")"
         AAdd( aEditcontrols, aFeld[i] )
      ELSE
         IF ASC( aFeld[i] ) > 32
            cB := aBereich[i] ; cF := aFeld[i]
            aFeld[i] := ((&cB)->(&cF))          //Feldinhalt
         ENDIF
         AAdd( aEditcontrols, aFeld[i] )
      ENDIF

      IF ValType(cF)="C"
         IF Upper(cF) = "FAM" .OR. Upper(cF) = "KONF"
            aFeld[i] := Kurzlang( aFeld[i] )
         ENDIF
      ENDIF
   ENDIF
NEXT
   i=1
   oDlg:setModalState( XBP_DISP_APPMODAL )
   oDlg:show()

   IF Len( aEditcontrols ) > 0 .AND. ValType( aEditControls[1] ) = "O"
      oFocus := SetAppFocus( aEditcontrols[1] )
   ELSE
      oFocus := SetAppFocus( oDlg )
   ENDIF

   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      IF nEvent == xbeM_LbDblClick
            PostAppEvent( xbeP_Close)
      ENDIF
      IF nEvent == xbeP_Keyboard
      DO CASE
         CASE mp1 == xbeK_ESC
	         lFluchtB := .T.						//+21.10.2018 18:41 ESC bricht jetzt das Drucken ab
            PostAppEvent( xbeP_Close)
         CASE mp1 == xbeK_F10
            PostAppEvent( xbeP_Close)
      ENDCASE
      ENDIF
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

	IF lFluchtB == .F.		//+21.10.2018 18:42 zum Abbrechen des Drucks
		//   wie Gather( aEditcontrols ) :
	   FOR i := 1 TO len( aEditcontrols )
	      IF ValType( aEditcontrols[i] ) == "O"
	         IF aNa[i] == "t"
	            aText[i] := aEditcontrols[i]:getdata()
	         ELSE
	            aFeld[i] := aEditcontrols[i]:getdata()
	         ENDIF
	      ENDIF
	   NEXT
		
		FOR i=1 to len(aBlatt)
		   aBlattZ := { aSeite[i], aNa[i], aPrompt[i], Trim(aText[i]), aTFont[i], aBereich[i], ;
		                        IIf( ValType(aFeld[i])="C", Trim(aFeld[i]), aFeld[i]), ;
		                        aFFont[i], aZei[i], aSpa[i] }
		   aBlatt[i] := aBlattZ
		NEXT
	ELSE
		aBlatt := .F.
	ENDIF

   oDlg:setModalState( XBP_DISP_MODELESS )
   oDlg:destroy()
   SetAppFocus( oFocus )

   SELECT &nOldArea
RETURN aBlatt

FUNCTION Z1214(a)
   DO CASE
      CASE cLPT = "LPTA" .and. a = chr(27)+z12p
         aFonts := {"12.COURIER NEW Fett"}
         a := ""
      CASE cLPT = "LPTA" .and. a = chr(27)+z14p
         aFonts := {"14.COURIER NEW Fett"}
         a := ""
      CASE cLPT = "LPTA" .and. a = chr(27)+znorm
         aFonts := {"12.COURIER NEW"}
         a := ""
      CASE cLPT != "LPTA"
         aFonts := {}
   ENDCASE
//+25.06.2018 19:21 bei HTML-Druck auf Fettdruck schalten:  vvvvvvvvvvvvvvv
	IF isMemVar("cDruckabr") .AND. "HTML"$cDruckabr
		IF "Fett"$aFonts[1]
			a := "<B>"
		ELSEIF Len(aFonts) = 1
			a := "</B>"
		ENDIF
	ENDIF
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
RETURN a

//+21.10.2018 19:22 macht das vor dem Drucken, was sonst erst vor dem Speichern in auftr.dbf gemacht wird:
FUNCTION RechnungZeilenKorrektur(cAuf)
	LOCAL nOldArea := SELECT()
	LOCAL nZeile := 0, nRec := RecNo()
	DbSuspendNotifications()
   IF ConfirmBox( oCB, "Soll die Rechnung gepr�ft und korrigiert werden?" + CRLF +;
   							"(Zeilen ohne Artikelnr oder Artikelbezeichnung l”schen.)", ;
                        "Abrechnungs-Zeilen Checken", ;
                        XBPMB_YESNO, ;
                        XBPMB_QUESTION ) == XBPMB_RET_NO
      DbResumeNotifications()
      RETURN .F.
   ENDIF

      SELECT 13
//      DELETE ALL FOR 13->auftrnr <> Val( cAuf ) .OR. ( Empty(13->zugr_z_st) .AND. Empty(13->bezeichf1))
		//+14.10.2018 13:43 statt der Vorzeile folgende Schleife:
		// hier wird die Temp-Datei von leeren und falschen Zeilen befreit (siehe auch BregieR5L.prg) ***
      DbGotop()
      DO WHILE !Eof()
      	IF 13->auftrnr <> Val( cAuf ) .AND. ( !Empty(13->zugr_z_st) .AND. !Empty(13->bezeich))
            IF ConfirmBox( oCB, "Zeile erg„nzen+behalten=ja - Zeile l”schen=nein", ;
                  "Zeile "+13->zeile+" hat noch keine Auftragsnummer!", ;
                  XBPMB_YESNO, ;
                  XBPMB_QUESTION ) == XBPMB_RET_YES
               13->auftrnr := Val(cAuf)
            ELSE
            	DbDelete()
            ENDIF
         ELSEIF 13->auftrnr == Val( cAuf ) .AND.  (Empty(13->zugr_z_st) .OR. Empty(13->bezeich))
            IF ConfirmBox( oCB, "Zeile behalten=ja - Zeile l”schen=nein", ;
                  "Zeile "+13->zeile+": Artikelnr oder -bezeichnung ist leer!", ;
                  XBPMB_YESNO, ;
                  XBPMB_QUESTION ) == XBPMB_RET_YES
               13->auftrnr := Val(cAuf)		// vorsichtshalber ...
            ELSE
            	DbDelete()
            ENDIF
         ELSEIF 13->auftrnr <> Val( cAuf )
         	DbDelete()	// der Rest: keine/falsche Auftragsnummer und leere Zeilen
         ENDIF
         DbSkip()
      ENDDO
      // bis hier geht die neue DELETE-Routine vom 14.10.2018
      PACK
      IF .NOT. Bof()
         GO TOP
      ENDIF
      DO WHILE .NOT. Eof()
         ++nZeile
         REPLACE 13->zeile WITH Str( nZeile,2,0 )
         DbSkip()
      ENDDO

	   DO WHILE Recno() < 20
	      APPEND BLANK
      ENDDO

	SELECT &nOldArea
	DbCommit()
	DbResumeNotifications()
	DbGotop()
	DbGoto(nRec)
RETURN .T.

FUNCTION Wandeln_in_UTF8(cString)
	LOCAL aUml := {"„","”","�","á","Ž","™","š"}
	LOCAL aUTF8 := {Chr(0xC3)+Chr(0xA4),Chr(0xC3)+Chr(0xB6),Chr(0xC3)+Chr(0xBC),Chr(0xC3)+Chr(0x9F),Chr(0xC3)+Chr(0x84),Chr(0xC3)+Chr(0x96),Chr(0xC3)+Chr(0x9C)}

	FOR i:=1 TO Len(cString)
		IF (n := AScan(aUml, cString[i])) > 0
			cString := Stuff( cString, i, 1, aUTF8[n])
			++i
		ENDIF
	NEXT
	
RETURN cString

/* >>>>>>>>>>>>>>> Aus dem Makro ExportPDF der LibreOffice ZUGFeRD-L”sung: <<<<<<<<<<<<<<<<<<<<<<<<<<
REM +++ Erstellung des Pfades zum Archivieren der Dateien. Achiv  Jahr  Monat  Dateiname
REM +++ Abspeichern der *.odt-Datei und Erstellen einer *.pdf-Datei, die mit dem entsprechenden Namen versehen ebenfalls abgespeichert wird.
REM +++ Wird aus FillTableCarryOver aufgerufen
//SUB ExportPDF(oNewDoc AS OBJECT, stPrintDir AS STRING, oForm AS OBJECT, stTarget AS STRING, arSources(), boOhnePreis AS BOOLEAN)
//	DIM oFrames AS OBJECT, oFrame AS OBJECT, oOldDoc AS OBJECT
//	DIM stFile AS STRING, stDate AS STRING, stFilename AS STRING, stYear AS STRING, stMonth AS STRING
//	DIM stWriterFile AS STRING, stXRechnungFile AS STRING, stZUGFeRDFile AS STRING, stZUGFeRDPrintDir AS STRING, stPDFSource AS STRING
//	DIM stWinEnd AS STRING, stXMLSource AS STRING, stPDFTarget AS STRING, stProgUrl AS STRING
//	DIM inMonth as INTEGER, inOpen AS INTEGER, i AS INTEGER
//	DIM arg1(), arMonth(), ar()
FUNCTION ExportPDF(oNewDoc AS OBJECT, stPrintDir AS STRING, oForm AS OBJECT, stTarget AS STRING, arSources(), boOhnePreis AS BOOLEAN)
	LOCAL oFrames AS OBJECT, oFrame AS OBJECT, oOldDoc AS OBJECT
	LOCAL stFile AS STRING, stDate AS STRING, stFilename AS STRING, stYear AS STRING, stMonth AS STRING
	LOCAL stWriterFile AS STRING, stXRechnungFile AS STRING, stZUGFeRDFile AS STRING, stZUGFeRDPrintDir AS STRING, stPDFSource AS STRING
	LOCAL stWinEnd AS STRING, stXMLSource AS STRING, stPDFTarget AS STRING, stProgUrl AS STRING
	LOCAL inMonth as INTEGER, inOpen AS INTEGER, i AS INTEGER
	LOCAL arg1(), arMonth(), ar()
	stFile = oForm.getString(oForm.findColumn("RechnungsnummerMitZusatz"))
	stFile = Join(Split(stFile, "/"),"_")
	stDate = oForm.getString(oForm.findColumn("Rechnungsdatum"))
	stKunde = Trim(oForm.getString(oForm.findColumn("KuerzelDatei")))
	stRechnungsname = Trim(oForm.getString(oForm.findColumn("Rechnungsname")))
	stDateiname = Trim(oForm.getString(oForm.findColumn("Dateiname")))
	IF stKunde <> "" THEN stKunde = stKunde & "_"
	IF stDateiname <> "" THEN
		stFilename = Join(Split(stDateiname, "/"),"_")
	ELSEIF stRechnungsname <> "" THEN
		stFilename = stFile
	ELSE
		stFilename = stKunde & stFile & "_" & stDate
	END IF
	REM Bei eingegangenen Rechungen, die weitergeleitet werden, erscheint [WL-]
	IF arSources(0) = "viw_Lieferung_Spalten_Aenderung" THEN stFilename = "WL-" & stFilename
	IF arSources(0) = "-M" THEN stFilename = stFilename & arSources(1)
	stPfad = ArchivPfad(stDate,"",True)
	stFile = stPfad & stFilename
	stZUGFeRDDefault = ConvertFromUrl(stPfad & "xrechnung.xml")
	stWriterFile = stFile & ".odt"
	oNewDoc.DocumentProperties.Title = stFilename
	stXRechnungFile = stFile & ".xml"
	stZUGFeRDFile = stFile & "_zug" & ".xml"	
	stPrintDir = stFile & ".pdf"
	stZUGFeRDPrintDir = stFile & "_zug" & ".pdf"
	stPDFSource = ConvertFromUrl(stPrintDir)
	stXMLSource = ConvertFromUrl(stZUGFeRDFile)
	stPDFTarget = ConvertFromUrl(stZUGFeRDPrintDir)
	DIM filterArgs(1) as New com.sun.star.beans.PropertyValue
	filterArgs(1).Name = "SelectPdfVersion"
	filterArgs(1).Value = 3
	DIM arg(1) AS NEW com.sun.star.beans.PropertyValue
	arg(0).name = "FilterName"
	arg(0).value = "writer_pdf_Export"
	arg(1).Name = "FilterData"
	arg(1).Value = filterArgs
	oNewDoc.storeToURL(stPrintDir, arg())	
	REM Writer-Datei bleibt offen - erst kontrollieren, ob eine entsprechende Datei bereits offen ist
	oFrames = StarDesktop.getFrames()
	FOR i = 1 TO oFrames.getCount()
		oFrame = oFrames.getByIndex(i-1)
		IF InStr(oFrame.Title, stFilename & ".odt") > 0 THEN
			inOpen = 1
			oOldDoc = oFrame.Controller.Model
		END IF
	NEXT
	IF inOpen = 1 THEN
		oOldDoc.close(True)
	END IF
	oNewDoc.storeAsURL(stWriterFile, arg1())
	REM Nur als XRechnung erstellen und per Mail weiterleiten, wenn das Dokument Preise enth„lt.
	REM Ansonsten wird das Dokument nur gespeichert.	
	IF boOhnePreis = False AND boXRErstellen = True THEN			
		oDatasource = thisDatabaseDocument.CurrentController
		oConnection = oDatasource.ActiveConnection()
		oSQL_Statement = oConnection.createStatement()			
		stSql = "SELECT ""Java_Pfad"" FROM ""tbl_Firma"""
		oResult = oSQL_Statement.executeQuery(stSql)
		WHILE oResult.Next
			stProgUrl = oResult.getString(1)
		WEND
		IF stProgUrl = "" THEN
			stProgUrl = "java"		
			IF GetGuiType = 1 THEN stProgUrl = stProgUrl & ".exe"' Windows
		END IF
		stApp = ConvertFromUrl(StartPfad & "MustangZug.jar")	'Datei Mustang-CLI-2.20.0.jar einfach umbenannt, damit bei einem Tausch der Code nicht ge„ndert werden muss. Geht auch mit Link.
		IF stTarget = "ZUGFeRD" THEN
			SaveZUGFeRD(oForm,stZUGFeRDFile,arSources())
			IF FileExists(stPDFTarget) THEN kill(stPDFTarget)	'šberschreiben geht sonst nicht mit Mustang	
			stCommand = stProgUrl & " -jar """ & stApp & """ --action combine --source """ & stPDFSource & """ --source-xml """ & stXMLSource &_
				""" --format zf --version 2 --profile X --out """ & stPDFTarget & """ --no-additional-attachments"
			Shell( stCommand, 1, "", true )
		ELSE
			SaveXRechnung(oForm,stXRechnungFile,arSources())
		END IF
		IF FileExists(StartPfad & "MustangZug.jar") THEN
			stMsg = "?? Soll die angezeigte Rechnung zus„tzlich validiert werden? ??" & CHR(13) & "Die Validierung kann ca. eine Minute in Anspruch nehmen."
			inMsg = MsgBox (stMsg, 292, "Validieren")	'"Nein" (2. Button) ist der Defaulteintrag
			IF inMsg = 6 THEN
				IF stTarget = "ZUGFeRD" THEN
					stValTest = stPDFTarget
					REM Im Pfad der Datenbankdatei befindet sich ein Link zu dem Verzeichnis, in dem die Ergebnisdatei gesucht wird. Der Link ist mit "Validation" gekennzeichnet.
					stValidate = StartPfad & "Validation/" & stFilename & "_zug_result.pdf"
				ELSE
					stValTest = ConvertFromUrl(stXRechnungFile)
					REM Im Pfad der Datenbankdatei befindet sich ein Link zu dem Verzeichnis, in dem die Ergebnisdatei gesucht wird. Der Link ist mit "Validation" gekennzeichnet.
					stValidate = StartPfad & "Validation/" & stFilename & "_result.pdf"
				END IF
				REM Validierung der erzeugten Datei - bisher nur �ber Umwege lauff„hig, da die erzeugte PDF-Datei an der Stelle abgeladen wird, von der aus die Base-Datei ge”ffnet wird.
				REM Wird die Base-Datei durch einen direkten Klick auf die Datei selbst ge”ffnet, so erscheint die Validierungsdatei an diesem Ort.
				REM Nur in diesem Fall sollte aus Link f�r stValidate ® "Validation/" & ¯ entfernt werden.
				REM Wird die Base-Datei durch einen Link vom Desktop aus ge”ffnet, so erscheint die Validierungsdatei auf dem Desktop.
				REM Wird die Base-Datei �ber das Start-Men� des Betriebssystems ge”ffnet, so erscheint die Validierungsdatei direkt im eigenen Home-Verzeichnis.
				stCommand = stProgUrl & " -jar """ & stApp & """ --action validate --no-notices --source """ & stValTest & """ --log-as-pdf"
				Shell( stCommand, 1, "", true )
				IF FileExists(stValidate) THEN
					REM Nur wenn die Datei existiert soll der Aufruf versucht werden. Ansonsten soll der (falsche) Pfad in einer Fehlermeldung ausgegeben werden.
					oShell = createUnoService("com.sun.star.system.SystemShellExecute")
					oShell.execute(stValidate,"",0)
				ELSE
					stValidate = ConvertFromUrl(stValidate)
					msgbox "Die PDF-Datei mit dem Ergebnis der Validierung konnte nicht gefunden werden." & CHR(13) & "Der angebliche Pfad sollte sein:" & CHR(13) & stValidate
				END IF
			END IF
		END IF
		stMsg = "?? Soll die Rechnung an das Mailprogamm weitergeleitet werden? ??" & CHR(13) & "Die Rechnung wird bei der ersten Weiterleitung" & CHR(13) & "mit einem entsprechenden Versanddatum gekennzeichnet."
		inMsg = MsgBox (stMsg, 36, "Mail erstellen")
		IF inMsg = 6 THEN
			StartMail(oForm,stFile,stTarget)
		END IF
	END IF
END SUB
*/
//ENDE