// xZUGFeRDm.prg Bleines/M�ller-Version
#include "Gra.ch"
#include "Common.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Appedit.ch"
#include "Appbrow.ch"
#include "Font.ch"
#include "fileio.ch"
#include "DelDbe.ch"

//13.01.2026 15:52 erstellt wahlweise die xRechnung  (UBL in XML) oder die ZUGFeRD-Rechnung (CII in PDF)
FUNCTION xZUGFeRD( zdate, anz, cFormular )
	LOCAL nOldArea := Select(), nRec := RecNo()	//+11.10.2018 14:24
	LOCAL cAuf := StrZero(1->auftrnr,6,0)		//13.01.2026 16:03
	LOCAL cRechNr := RechnungsNr("")				//04.02.2026 14:05
	LOCAL aLeist1 := {}, aLeist2 := {}, aLeist3 := {}, aLeistB := {}     //03.02.2026 10:08 aLeistB  ...aLeist3 brauchen f�r was??? FehlerFalle?
	LOCAL nL1Sum := 0, nL2Sum := 0, nL3Sum := 0, nLBSum := 0
	LOCAL n4 := 4 , n5 := 5, nL12 := 0
	LOCAL sbetr, grsu, smwsta, smwstb, zae
	LOCAL CR := Chr(13), LF := Chr(10), w_g := "EUR"
	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 := {}
   PRIVATE cUsername := "XR"
   PRIVATE cPCName := "TEST"
   PRIVATE nArea := 13
	PRIVATE cRechDir
	DEFAULT cFormular TO cDatver + "BleinesBB2x.png"

	EUROV()
   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
      RETURN .F.
   ENDIF
/**/
//	RechnungZeilenKorrektur(cAuf)		//+21.10.2018 19:21	
	//06.01.2026 15:24 speziell zum Testen:
	DEFAULT zdate TO DtoC(DATE())
	DEFAULT anz TO "Z"
	
	SELECT &nArea		// die Temp-Rechnungsdatei
	DbSuspendNotifications()
   DbGotop()

//================================================================================================	
	//04.01.2026 19:10 die Dateien der Rechnung (.html + .odt + .pdf + .zug.xml + zug.pdf) ...
	//						...  werden in diesem Verzeichnis archiviert:
	cRechDir := cDatver + "Scans\Dokumente\" + cAuf + "\_Rechnung\"
	// Verzeichnis erzeugen (wenn noch nicht geschehen):
   IF !FExists( Left(cRechDir,Len(cRechDir)-1),"D" )	// ! ohne letzten Backslash !
      RunShell( "/C MD "+cRechDir,, .T. )
      sleep(200)
	ELSEIF FExists(cRechDir+"R"+cAuf+".odt")
		nHandle := FOpen( cRechDir+"R"+cAuf+".odt", FO_EXCLUSIVE )
		IF nHandle = -1
		   //+ Die Datei ist bereits auf diesem PC ge”ffnet
		   FClose(nHandle)
		   msgbox("Es ist bereits eine Datei R"+cAuf+".odt offen!"+CR+LF+"Bitte im OfficeWriter schlieáen, dann nochmal versuchen!")
		   RETURN .F.
		ELSE
		   FClose(nHandle)
		ENDIF
	ELSEIF FExists(cRechDir+"R"+cAuf+".html")
		nHandle := FOpen( cRechDir+"R"+cAuf+".html", FO_EXCLUSIVE )
		IF nHandle = -1
		   //+ Die Datei ist bereits auf diesem PC ge”ffnet
		   FClose(nHandle)
		   msgbox("Es ist bereits eine Datei R"+cAuf+".html offen!"+CR+LF+"Bitte im OfficeWriter schlieáen, dann nochmal versuchen!")
		   RETURN .F.
		ELSE
		   FClose(nHandle)
		ENDIF
   ENDIF
//================================================================================================

	// f�r alle F„lle:
	ASize( aLeist1, 0 ); ASize( aLeist2, 0 ); ASize( aLeist3, 0 ); ASize( aLeistB, 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)$"ZCXUWP"
		// Variablen mit Daten dieses Auftrags f�llen:
		IF anz $ "ZCW"		// CII
			cDash := ""
		ELSEIF anz == "XUP"	// UBL
			cDash := "-"
		ENDIF
		zdate := DtoC(DATE())		// muss ggf noch geREMt werden !?!
		// ab hier werden das lauter neue PRIVATE:
		cRechnr := "R"+cAuf					// 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"
		nTotalNetto := 0.00
		nSum_MwSt := 0.00
		nTotalNetto4 := 0.0000
		nSum_MwSt4 := 0.0000
	
		cAuftrag := StrZero(1->auftrnr,6,0)
		cKdnr := "A" + cAuftrag
		cLief := cBU2
		cLieferant := cBU1 + " " + cBU2
		cHRBnr := SubStr(cSTN,At("DE",cSTN))
		cMA_Lief := 1->berater
		cTel_Lief := cBU6
		cMail_Lief := "bestattungshaus-bleines@t-online.de"
		cPLZ_Lief := SubStr(cBU5,1,5)
		cStr_Lief := Wandeln_in_UTF8(cBU4)
		cOrt_Lief := Wandeln_in_UTF8(SubStr(cBU5,6))
		cLand_Lief := "DE"
		cVAT_Lief := SubStr(cSTN,At("DE",cSTN))

		cKunde := Wandeln_in_UTF8(Trim(1->ansp_name))
		cMA_Kunde := cKunde		// vorl„ufig
		cMail_Kunde := IIf("@"$1->ansp_email,Trim(1->ansp_email),"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 := cBU1 + " " + cBU2
		cIBAN_Lief := "DE88360501050001816768"
		cBIC_Lief := "SPESDE3EXXX"
		cZahlungsbedingungen := "zahlbar innerhalb 8 Tagen"

		// schon mal f�r die Rechnungszeilen:
		cMenge := "1.0000"
		cXml3 := ''
		aVatProz := {0,7,19}
		aVatCat := {"Z","S","S"}
		aTotalNetto := {0,0,0}
		aTotalMwst := {0,0,0}
		cVatProz := "19.00"
		cVatCat := "S"
		nVatFakt := 1.19
	ENDIF		

	//07.12.2025 10:21 XML-Erzeugung: KOPF   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
	IF anz $ "ZCW" // = 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 anz $ "XUP"	// = 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
		//03.02.2026 18:48 zun„chst die Variablen setzen und die Summen erzeugen
		IF mwst_schl == "3"
			cVatProz := Str(aVatProz[3],6,2)
			cVatCat := aVatCat[3]
			nVatFakt := 1 + aVatProz[3]/100
			aTotalNetto[3] += Round((nArea)->betrageu/nVatFakt, 2)
			aTotalMwst[3] += (nArea)->betrageu - Round((nArea)->betrageu/nVatFakt, 2)
		ELSEIF mwst_schl == "2"			//03.02.2026 10:10
			cVatProz := Str(aVatProz[2],5,2)
			cVatCat := aVatCat[2]
			nVatFakt := 1 + aVatProz[2]/100
			aTotalNetto[2] += Round((nArea)->betrageu/nVatFakt, 2)
			aTotalMwst[2] += (nArea)->betrageu - Round((nArea)->betrageu/nVatFakt, 2)
		ELSE
			cVatProz := Str(aVatProz[1],5,2)
			cVatCat := aVatCat[1]
			nVatFakt := 1 + aVatProz[1]/100
			aTotalNetto[1] += Round((nArea)->betrageu/nVatFakt, 2)
			aTotalMwst[1] += (nArea)->betrageu - Round((nArea)->betrageu/nVatFakt, 2)
		ENDIF

		IF anz $ "ZCW"	// 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/nVatFakt,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>' + cVatCat + '</ram:CategoryCode>' + CRLF + ; 
			'					<ram:RateApplicablePercent>' + cVATProz + '</ram:RateApplicablePercent>' + CRLF + ; 
			'				</ram:ApplicableTradeTax>' + CRLF + ; 
			'				<ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
			'					<ram:LineTotalAmount>' + Str((nArea)->betrageu/nVatFakt,8,2) + '</ram:LineTotalAmount>' + CRLF + ; 
			'				</ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
			'			</ram:SpecifiedLineTradeSettlement>' + CRLF + ; 
			'		</ram:IncludedSupplyChainTradeLineItem>'
		ELSEIF anz $ "XUP"
			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/nVatFakt,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>' + cVatCat + '</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/nVatFakt,8,2) + '</cbc:PriceAmount>' + CRLF + ; 
			'		</cac:Price>' + CRLF + ; 
			'	</cac:InvoiceLine>'
		ENDIF
		//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/*
	   DO CASE
	      CASE kennz == "1"							// Eigenleistung "1"
				IF mwst_schl == "2"
		         AAdd( aLeistB, bezeich )			// Blumen mit 7 % MwSt
		         AAdd( aLeistB, &b_n )
		         AAdd( aLeistB, mwst_schl )
		         AAdd( aLeistB, rn )
		         nLBSum += &b_g
				ELSE
		         AAdd( aLeist1, bezeich )			// mit 19 % MwSt
		         AAdd( aLeist1, &b_n )
		         AAdd( aLeist1, mwst_schl )
		         AAdd( aLeist1, rn )
		         nL1Sum += &b_g
		      ENDIF
	      CASE kennz == "2"							// Fremdleistung "2" (0 % MwSt)
	         AAdd( aLeist2, bezeich )
	         AAdd( aLeist2, &b_g )
	         AAdd( aLeist2, mwst_schl )
	         AAdd( aLeist2, rn )
	         nL2Sum += &b_g
	   ENDCASE
*/
	   SKIP
	ENDDO

	//vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
	//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	DbResumeNotifications()    //05.03.2008 13:06
/*
	nLB := Len( aLeistB )	// Anzahl der Zeilen mit 7%
	nL1 := Len( aLeist1 )	// Anzahl der Zeilen mit 19%
	nL2 := Len( aLeist2 )	// Anzahl der Zeilen mit 0%
	
	
	IF nAnz == 0 .AND. !Upper(anz) $ "ZCXUWP"	//+30.10.2018 12:03
		// Erg„nzt das Array um zwei weitere Felder:
	   AAdd( aLeistB, 0, nLB+1 )
	   AAdd( aLeistB, 0, nLB+2 )
	   AAdd( aLeist1, 0, nL1+1 )
	   AAdd( aLeist1, 0, nL1+2 )
	   AAdd( aLeist2, 0, nL2+1 )
	   AAdd( aLeist2, 0, nL2+2 )
	ELSE
		// erg„nzt das Array um vier weitere Felder:
	   AAdd( aLeistB, 0, nLB+1 )
	   AAdd( aLeistB, 0, nLB+2 )
	   AAdd( aLeistB, 0, nLB+3 )
	   AAdd( aLeistB, 0, nLB+4 )
	   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( aLeistB )/4 )   //01.05.2008 16:08
	// Abstand nach unten zu den Leistungszeilen ist 7-nL12 . Je mehr Zeilen, desto weniger Abstand.

// wird wie hier dr�ber nL12 f�r die xRechnung nicht gebraucht!
	// holt aus drubef.dbf die Zeilen- und Spaltenabst„nde etc...
	select 20
	use drubef
	cDrucker=upper(cDrucker)
	if cDrucker="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) $ "ZCXUWP"		//+29.10.2018 21:34
		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 html
		nZ := -4		//03.01.2026 19:44 Zeilenoffset f�r html
	ELSE
		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
	
	//   IF nAnz>1   // 03.07.2008 18:14 in Dummydatei, damit endbetr berechnet wird -auch ohne Druck! 
	   IF !Upper(anz)$"ZCXUWP"   //+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
	
		 @ 06-nZ,8-nS say 1->ansp_anr
		 @ 07-nZ,8-nS say trim(1->ansp_vname) + " " + 1->ansp_name
		 @ 08-nZ,8-nS say 1->ansp_str
		 @ 10-nZ,8-nS say 1->ansp_ort
		
//		@ 13-nZ,30-nS say cAuf + " / " + zdate       //18.07.2006 16:18
		
		IF Upper(anz)$"ZCXUWP"	//06.12.2025 15:50 f�r den Ausdruck mit LO-Writer
			zae := 13-nZ
			@ zae,10-nS say "R E C H N U N G    " + cRechNr +  " / " + zdate		//04.02.2026 13:26
			zae=zae+1
			@ zae,10-nS say "Sterbefall:"+" "+trim(1->anrede)+" "+trim(1->vorname)+ " "+Trim(1->name)+" / "+cAuf
			zae=zae+1
			@ zae,10-nS say " "
		ELSE
			zae := 13-nZ
			@ zae,10-nS say Z1214(chr(27)+z12p)+"R E C H N U N G    " + cRechNr + " / " + zdate		//04.02.2026 13:26
			zae=zae+1
			@ zae,10-nS say Z1214(chr(27)+z12p)+"Sterbefall:"+" "+trim(1->anrede)+" "+trim(1->vorname)+ " "+Trim(1->name) + " / " + cAuf
			zae=zae+1
			@ zae,10-nS say Z1214(chr(27)+znorm)+" "
		ENDIF	
		zae := zae+2
		zae := IIf( nL12<7, zae+7-nL12, zae )

		nLL := nL1
		IF nL1 > 0 .OR. nLB > 0
			@ ++zae,10-nS say "Eigenleistung:"
			IF nL1 > 0
				nLL := nL1
				aLeist1 := Leistdruck( aLeist1, n4, @zae, nS )	//n4 = 4 Felder pro Zeile
			ENDIF
			IF nLB > 0
				nLL := nLB
				aLeistB := Leistdruck( aLeistB, n4, @zae, nS )	//n4 = 4 Felder pro Zeile
			ENDIF
			@ ++zae,72-nS say "--------"
			@ ++zae,36-nS say "Summe der Eigenleistungen"
			@ zae,69-nS say w_g
			@ zae,72-nS say Str( Round(aLeist1[nL1+1],2) + Round(aLeist1[nL1+3],2) + Round(aLeistB[nLB+1],2) + Round(aLeistB[nLB+4],2),8,2 )
			@ ++zae,72-nS say "========"
		ELSE
		   AAdd( aLeist1, 0, 1 )
		   AAdd( aLeist1, 0, 2 )
		   AAdd( aLeistB, 0, 1 )
		   AAdd( aLeistB, 0, 2 )
		ENDIF
		//++zae
		
		//nL2 := Len( aLeist2 )
		nLL := nL2
		IF nL2 > 0
		@ ++zae,10-nS say "Fremdleistung:"
		aLeist2 := Leistdruck( aLeist2, n4, @zae, nS )	//n4 = 4 Felder pro Zeile
		@ ++zae,72-nS say "--------"
		@ ++zae,36-nS say "Summe der Fremdleistungen"
		@ zae,69-nS say w_g
		@ zae,72-nS say str( aLeist2[nL2+1],8,2 )
		@ ++zae,72-nS say "========"
		ELSE
		   AAdd( aLeist2, 0, 1 )
		   AAdd( aLeist2, 0, 2 )
		ENDIF
		++zae
		
		@ ++zae,36-nS say "Eigenleistungen"
		@ zae,57-nS say w_g
		nEL := Round(aLeist1[nL1+1],2) + Round(aLeist1[nL1+3],2) + Round(aLeistB[nLB+1],2) + Round(aLeistB[nLB+4],2)
		@ zae,60-nS say Str( Round(aLeist1[nL1+1],2) + Round(aLeist1[nL1+3],2) + Round(aLeistB[nLB+1],2) + Round(aLeistB[nLB+4],2),8,2 )
		@ ++zae,34-nS say "+ Fremdleistungen"
		@ zae,57-nS say w_g
		nFL := aLeist2[nL2+1]
		@ zae,60-nS say Str( aLeist2[nL2+1],8,2 )
		@ ++zae,60-nS say "--------"
		
		aLeist1[nL1+2] := aLeistB[nLB+2] := aLeist2[nL2+2] := Round(aLeist1[nL1+1],2) +  Round(aLeist1[nL1+3],2) + Round(aLeistB[nLB+1],2) + Round(aLeistB[nLB+4],2) + Round(aLeist2[nL2+1],2)
		@ ++zae,36-nS say "Gesamtsumme"
		@ zae,57-nS say w_g
		nGS := nEL + nFL
		@ zae,60-nS say str( aLeist1[nL1+2],8,2 )
		@ ++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
		
		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
//		   aLeist3[nL3+1] := 0
//		   aLeist3[nL3+2] := 0
		ENDIF
	   IF nAnz >= 0      //03.07.2008 18:17 s.o. Dummydruck, um endbetr auszurechnen 
	      SET DEVICE TO SCREEN
	   ELSE
	      Set( _SET_PRINTFILE, cPrintFile )   // 03.07.2008 18:17
	      Set( _SET_DEVICE, "SCREEN" )        // weil Ausdruck in File umgeleitet war
	   ENDIF
	
	ENDDO
*/
	IF Upper(anz)$"ZCXUWP"
		//09.12.2025 09:14 XML-Erzeugung: Daten von Lieferant & Kunde & Summen   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
		cTotalNetto := Str(aTotalNetto[1]+aTotalNetto[2]+aTotalNetto[3])
		cTotalMwSt := Str(aTotalMwSt[1]+aTotalMwSt[2]+aTotalMwSt[3])
		cTotalPreis := Str(aTotalNetto[1]+aTotalNetto[2]+aTotalNetto[3] + aTotalMwSt[1]+aTotalMwSt[2]+aTotalMwSt[3])
		IF anz $ "ZCW"
			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

			FOR i:=1 TO Len(aVatProz)
				IF aTotalNetto[i] <> 0
					cXML2 += '' + ; 
			'			<ram:ApplicableTradeTax>' + CRLF + ; 
			'				<ram:CalculatedAmount>' + Str(aTotalMWST[i]) + '</ram:CalculatedAmount>' + CRLF + ; 
			'				<ram:TypeCode>VAT</ram:TypeCode>' + CRLF + ; 
			'				<ram:BasisAmount>' + Str(aTotalNetto[i]) + '</ram:BasisAmount>' + CRLF + ; 
			'				<ram:CategoryCode>' + aVatCat[i] + '</ram:CategoryCode>' + CRLF + ; 
			'				<ram:RateApplicablePercent>' + Str(aVATProz[i],6,2) + '</ram:RateApplicablePercent>' + CRLF + ; 
			'			</ram:ApplicableTradeTax>' 
				ENDIF
			NEXT

				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>' + cTotalPreis + '</ram:GrandTotalAmount>' + CRLF + ; 
			'				<ram:DuePayableAmount>' + cTotalpreis + '</ram:DuePayableAmount>' + CRLF + ; 
			'			</ram:SpecifiedTradeSettlementHeaderMonetarySummation>' + CRLF + ; 
			'		</ram:ApplicableHeaderTradeSettlement>' + CRLF + ; 
			'	</rsm:SupplyChainTradeTransaction>' + CRLF + ; 
			'</rsm:CrossIndustryInvoice>'
		
			cXml := cXml1 + CRLF + cXml3 + CRLF + cXml2
		
			cFilezugxml := cRechDir + "R"+StrZero(1->auftrnr)+"_zug.xml"	// schreibt die XML-Datei:
			nHandle := FCreate(cFilezugxml)
			FWrite(nHandle,cXml)
			FClose(nHandle)
		ELSEIF anz $ "XUP"
			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

			FOR i:=1 TO Len(aVatProz)
				IF aTotalNetto[i] <> 0
					cXML2 += '' + ; 
			'		<cac:TaxSubtotal>' + CRLF + ; 
			'			<cbc:TaxableAmount currencyID="EUR">' + Str(aTotalNetto[i]) + '</cbc:TaxableAmount>' + CRLF + ; 
			'			<cbc:TaxAmount currencyID="EUR">' + Str(aTotalMWST[i]) + '</cbc:TaxAmount>' + CRLF + ; 
			'			<cac:TaxCategory>' + CRLF + ; 
			'				<cbc:ID>' + aVatCat[i] + '</cbc:ID>' + CRLF + ; 
			'				<cbc:Percent>' + Str(aVATProz[i],6,2) + '</cbc:Percent>' + CRLF + ; 
			'				<cac:TaxScheme>' + CRLF + ; 
			'					<cbc:ID>VAT</cbc:ID>' + CRLF + ; 
			'				</cac:TaxScheme>' + CRLF + ; 
			'			</cac:TaxCategory>' + CRLF + ; 
			'		</cac:TaxSubtotal>' 
				ENDIF
			NEXT

			cXML2 += '' + 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">' + cTotalPreis + '</cbc:TaxInclusiveAmount>' + CRLF + ; 
			'		<cbc:PayableAmount currencyID="EUR">' + cTotalPreis + '</cbc:PayableAmount>' + CRLF + ; 
			'	</cac:LegalMonetaryTotal>'
		
			cXml := cXml1 + CRLF + cXml2 + CRLF + cXml3 + CRLF + '</ubl:Invoice>'
		
			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
/* 09.02.2026 19:01 geREMt, weil schon an anderer Stelle vor die t_Html geschrieben:
		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( Upper(Right(cFormular,4))==".PNG", ;
         '<BODY LANG="de-DE" BACKGROUND="'+cFormular+'" DIR="LTR" STYLE="background: url('+cFormular+') no-repeat middle center scroll">',;
         '<BODY LANG="de-DE">')+CR+LF+;
         '<PRE STYLE="margin-top:0;margin-bottom:0">'	//+CR+LF+;

//			'<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"+cAuf+".rdr", FO_READ )
	   cBuffer := Space(nRTxtLen)
	   nBytes := FRead( nHandle, @cBuffer, nRTxtLen )
	   cHtmlRech += AllTrim(cBuffer)
		FClose( nHandle )
		cHtmlRech += CRLF + '</FONT></PRE></BODY></HTML>'
*/
/*		nRTxtLen = Len(MemoRead("R"+StrZero(1->auftrnr,6,0)+".html"))	//geht das anders? nur die Filel„nge?
	   nHandleR1 := FOpen( "R"+cAuf+".html", FO_READ )
	   cBuffer := Space(nRTxtLen)
	   nBytes := FRead( nHandleR1, @cBuffer, nRTxtLen )
//	   cHtmlRech += AllTrim(cBuffer)
	   cHtmlRech := AllTrim(cBuffer)						// lesen der mit t_Html gef�llten Temp-Datei
		FClose( nHandleR1 )
//		cHtmlRech += CRLF + '</FONT></PRE></BODY></HTML>'
		cHtmlRech := Stuff(cHtmlRech,At("windows",cHtmlRech),12,"UTF-8")	// f�r .HTML/.ODT und .PDF im Archiv
		cBrBog := 'BODY LANG="de-DE" BACKGROUND="BleinesBB2.png" DIR="LTR" STYLE="background: url(C:\Bestatt\Bleines\BleinesBB2.png) no-repeat middle center scroll"'
		cHtmlRech := Stuff(cHtmlRech,At("BODY LANG",cHtmlRech),18,cBrBog)	// f�r .HTML/.ODT und .PDF im Archiv
		cFilehtml := cRechDir + "R"+cAuf+".html"		// cRechDir ist im Archiv
		nHandleR2 := FCreate(cFilehtml)
		FWrite(nHandleR2,Wandeln_in_UTF8(cHtmlRech))	// .... und schreiben als UTF8 in die Archiv-Datei
		FClose(nHandleR2)
*/
		cAuftrag := StrZero(1->auftrnr,6,0)
		cFileodt := cRechDir + "R"+StrZero(1->auftrnr,6,0)+".odt"
		COPY FILE ("c:\hdbe\BleinXbb.odt") TO (cFileodt)	// leere Rechnungsdatei mit Briefkopf
		sleep(200)
		cCommand := ' &cFilehtml macro:///Standard.Module1.xRechPDF '
//		RunShell (' &cFilehtml macro:///Standard.Module1.xRechPDF ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
		RunShell (' &cFileodt macro:///Standard.Module1.xRechodtPDF ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
	ENDIF
	SELECT &nOldArea
	DbGoto(nRec)		//+11.10.2018 14:25
RETURN .T.

/*
FUNCTION Leistdruck( aLeist, n, zae, nS )	//04.01.2026 14:57 nS	SpaltenOffset
	LOCAL w_g := ""	//"EUR"
        FOR i := n to ( nLL + 1 )  STEP n			// nLL = Anzahl der Zeilen dieser Leistung
          @ ++zae,10-nS say aLeist[i-3]
          @ zae,57-nS say w_g
          @ zae,60-nS say Str( aLeist[i-2],8,2 )		// Druck des Betrags
          aLeist[nLL+1]=aLeist[nLL+1] + aLeist[i-2]	// Addition des Betrags (i-2) zur Summe (nLL+1)
          aLeist[nLL+2]=aLeist[nLL+2] + aLeist[i-2]	// Addition des Betrags (i-2) zur Summe (nLL+2) ... wieso doppelt???
          IF aLeist[i-1]="3"	//mwst_schl = 19%
//          	aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] / (100+zschl_voll) * zschl_voll)	// Addition MwSt zur Summe (nLL+3)
          	aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] * zschl_voll / 100)	// Addition MwSt zur Summe (nLL+3)
          ENDIF
          IF aLeist[i-1]="2"	//mwst_schl = 7%
//          	aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] / (100+zschl_halb) * zschl_halb)	// Addition MwSt zur Summe (nLL+4)
          	aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] * zschl_halb / 100)	// Addition MwSt zur Summe (nLL+4)
          ENDIF
        NEXT
        @ zae,69-nS say w_g
        @ zae,72-nS say Str( aLeist[nLL+1],8,2 )		// Druck der Nettosumme
          IF aLeist[nLL+3]>0	//mwst_schl = 19%
		        @ ++zae,40-nS SAY "+ 19% MwSt"
				  @ zae,69-nS say w_g
		        @ zae,72-nS say Str( aLeist[nLL+3],8,2 )		// Druck der 19%-Summe
          ENDIF
          IF aLeist[nLL+4]>0	//mwst_schl = 7%
		        @ ++zae,40-nS SAY "+ 7% MwSt"
				  @ zae,69-nS say w_g
		        @ zae,72-nS say Str( aLeist[nLL+4],8,2 )		// Druck der 7%-Summe
          ENDIF
RETURN aLeist		// in aLeist wird auch die Summe zur�ckgegeben
*/
/*
   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
          @ 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]
          if aLeist[i-1]="3"	//mwst_schl = 19%
          aLeist[nLL+3]=aLeist[nLL+3] + (aLeist[i-2] / (100+zschl_voll) * zschl_voll)
          endif
          if aLeist[i-1]="2"	//mwst_schl = 7%
          aLeist[nLL+4]=aLeist[nLL+4] + (aLeist[i-2] / (100+zschl_halb) * zschl_halb)
          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 BSEingabeX_X( 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