#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	
	
//04.01.2026 19:10 die Dateien der Rechnung sind in diesem Verzeichnis (.html + .odt + .pdf + .zug.xml + zug.pdf):
	PRIVATE cRechDir := cDatver + "Scans\Dokumente\" + StrZero(1->auftrnr,6,0) + "\_Rechnung\"
	// Verzeichnis erzeugen (wenn noch nicht geschehen):
   IF !FExists( cRechDir,"D" )
         RunShell( "/C MD "+cRechDir,, .T. )
         sleep(200)
   ENDIF
//===============================================================================================================
	nAnz := IIf(ValType(anz)=="C",Val(anz),anz)		//+22.10.2018 12:26
/*
				//nAnz := anz
				IF ValType(oDlg1)	== "O"			//+22.10.2018 11:57 <> NIL
				   aPrompt := { "Datum:", "Sarg-Text:", "Anzahl Drucke:", "Briefkopf:" }
				   aText := { zdate, textjn, Str(anz,1,0), "n" }
				   aFeld := { "cdate", "ctextjn", "cAnz", "cBriefKopf" }
				   FOR i = 1 TO Len(aFeld)
				      cSeite := "p"
				      cNa := "t"
				      cPrompt := aPrompt[i]
				      cText := aText[i]
				      nTFont := 0
				      cBereich := "v"
				      cFeld := aFeld[i]
				      nFFont := " "
				      nZei := 0
				      nSpa := 0
				      AAdd( aBlatt, { cSeite, cNa, cPrompt, cText, nTFont, ;
				                           cBereich, cFeld, nFFont, nZei, nSpa }, i )
				   NEXT
				      aBlatt := BSEingabe( aBlatt, oDlg1 )
				      
				      IF  ValType(aBlatt) == "L" .AND. aBlatt == .F.	//+21.10.2018 18:45 Druck wird abgebrochen mit ESC
				      	RETURN
				      ENDIF
				      
				   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] )
				        cText := aBlattZ[4]
				        cFeld := aBlattZ[7]
				        IF !Empty( cFeld )
				           &cFeld := Trim( cText )
				        ENDIF
				   NEXT
				   zdate := cdate
				   textjn := ctextjn
				   nAnz := Val( cAnz )
				   nArea := 13
				ELSEIF ValType(oDlg1) == "L"
*/
   nArea := 13			// weil oDlg1 f�r den Ausdruck ohnehin von Typ 'L' ist
/*
				ELSE
				   nArea := 3
				   aData2 := Array(FCount())
				ENDIF
*/
// DO WHILE nAnz > 0

ASize( aLeist1, 0 ); ASize( aLeist2, 0 ); ASize( aLeist3, 0 ); ASize( aLeistA, 0 )
SELECT &nArea
IF nArea == 3
   FIND &cAuf
ELSE
   GO TOP
ENDIF
DbSuspendNotifications()      //05.03.2008 13:06

//07.12.2025 10:21 XML-Erzeugung: KOPF   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
// Variablen mit Daten dieses Auftrags f�llen:
	IF anz == "W"		// CII
		cDash := ""
	ELSEIF anz == "P"	// UBL
		cDash := "-"
	ENDIF
	IF Upper(anz)$"WP"
		zdate := DtoC(DATE())
		cRechnr := "R"+StrZero(1->auftrnr,6,0)
		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 := "Schumacher"
		cLieferant := "Beerdigungsinstitut Karl Schumacher e.K."
		cHRBnr := "DE120633201"	// "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"
	//s.o.	cKdnr := "A" + Str((nArea)->auftrnr,6,0)
		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,6)
		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 := "DE11 2222 3333 4444 5555 66"
		cBIC_Lief := "AABBCCDDXXX"
		cZahlungsbedingungen := "zahlbar innerhalb 8 Tagen"
	ENDIF
IF anz == "W" 
	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 == "P"
	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
	cMenge := "1.0000"


//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
cXml3 := ''
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 == "1"
		cVatProz := "7.00"
	ENDIF
	IF anz == "W"
		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/1.19,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/1.19,8,2) + '</ram:LineTotalAmount>' + CRLF + ; 
	'				</ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
	'			</ram:SpecifiedLineTradeSettlement>' + CRLF + ; 
	'		</ram:IncludedSupplyChainTradeLineItem>'
	nTotalNetto += Round((nArea)->betrageu/1.19, 2)
	nSum_Mwst += (nArea)->betrageu - Round((nArea)->betrageu/1.19, 2)
	nTotalNetto4 += Round((nArea)->betrageu/1.19, 4)
	nSum_Mwst4 += Round((nArea)->betrageu - (nArea)->betrageu/1.19, 4)
	ELSEIF anz == "P"
		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/1.19,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/1.19,8,2) + '</cbc:PriceAmount>' + CRLF + ; 
	'		</cac:Price>' + CRLF + ; 
	'	</cac:InvoiceLine>'
	nTotalNetto += Round((nArea)->betrageu/1.19, 2)
	nSum_Mwst += (nArea)->betrageu - Round((nArea)->betrageu/1.19, 2)
ENDIF
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

   DO CASE
/*
      CASE rn == "A"                      //01.05.2008 21:55
         AAdd( aLeistA, bezeich )			// Finanzierungskosten 'Adelta'
         AAdd( aLeistA, &b_g )
         AAdd( aLeistA, mwst_schl )
         AAdd( aLeistA, rn )
         nLASum += &b_g						//+27.10.2018 21:44
*/
      CASE rn == " "							// Eigenleistung 1
         AAdd( aLeist1, bezeich )
//         AAdd( aLeist1, bezeichF1 )
         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, bezeichF1 )
         AAdd( aLeist2, &b_g )
         AAdd( aLeist2, mwst_schl )
         AAdd( aLeist2, rn )
         nL2Sum += &b_g						//+27.10.2018 21:44
/*
      CASE rn == "3"							// Fremdleistung (ausgelegt) -> Abrechnung!
         AAdd( aLeist3, bezeichf1 )
         AAdd( aLeist3, bezeichf2 )
         AAdd( aLeist3, &b_g )
         AAdd( aLeist3, mwst_schl )
         AAdd( aLeist3, rn )
         nL3Sum += &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 )

nLA := Len( aLeistA )               //01.05.2008 16:06


IF nAnz == 0 .AND. !Upper(anz) $ "WP"	//+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 )
/*
   AAdd( aLeistA, 0, nLA+1 )        //01.05.2008 16:06 Adelta
   AAdd( aLeistA, 0, nLA+2 )        //01.05.2008 16:07
*/
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 )
/*
   AAdd( aLeistA, 0, nLA+1 )        //01.05.2008 16:06 Adelta
   AAdd( aLeistA, 0, nLA+2 )        //01.05.2008 16:07
   AAdd( aLeistA, 0, nLA+3 )        //01.05.2008 16:06
   AAdd( aLeistA, 0, nLA+4 )        //01.05.2008 16:07
*/
ENDIF
////nL12 := int( nL1/5 + nL2/5 )       // aus 4 mach 5
////// !!!!!!!! wird nur gebraucht, um die Optik zu korrigieren! => ggf etwas runterschieben:
nL12 := int( Len( aLeist1 )/4 + Len( aLeist2 )/4 + Len( aLeistA )/4 )   //01.05.2008 16:08


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) $ "WP"		//+29.10.2018 21:34
//	cDruckabr := "c:\hdbe\dHTML.abr"		// Text f�r HTML-File
//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 html
	nZ := 3		//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 f�r html
ENDIF
nAnzahl := nAnz	//+30.10.2018 17:47 hierher aus Zeile 131
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

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)$"WP"   //+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 ansp_anr
	 @ 07-nZ,8-nS say trim(ansp_vname) + " " + ansp_name
	 @ 08-nZ,8-nS say ansp_str
	 @ 10-nZ,8-nS say ansp_ort
	
	//@ 11,47 say cAuf + " / " + zdate
	@ 12-nZ,55-nS say cAuf + " / " + zdate       //18.07.2006 16:18
	
	IF Upper(anz)$"WP"	//06.12.2025 15:50 f�r den Ausdruck mit LO-Writer
		zae := 13-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 )	//n4 = 4 Felder pro Zeile
	@ ++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 )	//n4 = 4 Felder pro Zeile
	@ ++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
	
	/*01.05.2008 16:11 f�r die LeistungA:  */
	nLL := nLA
	IF nLA > 0
	@ ++zae,10-nS say "Leistung III:"
	aLeistA := Leistdruck( aLeistA, n4, @zae, nS )	//n4 = 4 Felder pro Zeile
	@ ++zae,60-nS say "--------"
	@ ++zae,36-nS say "Summe III"
	@ zae,57-nS say w_g
	@ zae,60-nS say str( aLeistA[nLA+1],8,2 )
	@ ++zae,60-nS say "========"
	ELSE
	   AAdd( aLeistA, 0, 1 )
	   AAdd( aLeistA, 0, 2 )
	ENDIF
	++zae
	/**/
	
	@ ++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 )
	IF aLeistA[nLA+1] != 0							// nur f�r Adelta!
		@ ++zae,34-nS say "+ Leistungen III"
		@ zae,57-nS say w_g
		@ zae,60-nS say str( aLeistA[nLA+1],8,2 )
	ENDIF
	@ ++zae,60-nS say "--------"
	
	/*01.05.2008 16:14 aLeistA[nLA+1] tr„gt auch zur Gesamtsumme (nLA+2) bei:   */
	aLeist1[nL1+2] := aLeist2[nL2+2] := aLeistA[nLA+2] := aLeist1[nL1+1] + aLeist2[nL2+1] + aLeistA[nLA+1]
	@ ++zae,36-nS say "Gesamtsumme"
	@ zae,57-nS say w_g
	@ zae,60-nS say str( aLeist1[nL1+2],8,2 )
	@ ++zae,60-nS say "========"
	
	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
	
	// aLeist3 := Leistdruck( aLeist3, n5, zae )
	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
	   aLeistA[nLA+1] := 0     //01.05.2008 16:15
	   aLeistA[nLA+2] := 0     //01.05.2008 16:15
	ENDIF
//	SET DEVICE TO SCREEN
//	//Set( _SET_DEVICE, "SCREEN" )
	//... aus R5L: 29.10.2018 21:53
   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)$"WP"
	//21.12.2025 21:18 Erzeugung der AusgleichsZeile f�r die Rundungsfehler bei Netto/MwSt:
		cVAT_Proz := "19.00"
		// Totale errechnet aus der Brutto-Gesamtsumme:
		cTotalPreisX := Str(aLeist1[nL1+2],8,2) 		// Brutto-Gesamtsumme der KSOX-Rechnung
		cTotalNettoX := Str(aLeist1[nL1+2]/1.19,8,2)	// daraus berechnete Netto-Summe
		cSUM_MWSTX := Str(aLeist1[nL1+2]-aLeist1[nL1+2]/1.19,8,2)	// daraus berechnete MwSt-Summe
	//	cSUM_MWST := Str(aLeist1[nL1+2]-nTotalNetto,8,2)
	
		// Totale errechnet aus der Summe der Netto-Zeilenbetr„ge:
		cTotalNetto4 := Str(nTotalNetto4,8,2)
		cSUM_MWST4 := Str(nSum_Mwst4,8,2)
		cTotalPreis4 := Str(Val(cTotalNetto4)+Val(cSum_Mwst4),8,2)
		// Totale errechnet aus der Summe der Netto-Zeilenbetr„ge:
		cTotalNetto := Str(nTotalNetto,8,2)
		cSUM_MWST := Str(nSum_Mwst,8,2)
		cTotalPreis := Str(Val(cTotalNetto)+Val(cSum_Mwst),8,2)
	
		IF cTotalPreisX != cTotalPreis
			nAusgleichsBetragBrutto := Round(aLeist1[nL1+2],2) - Round(nTotalNetto*1.19,2)
	//		nAusgleichsBetragNetto := nAusgleichsBetragBrutto/1.19
			cZeile := Str(Val((nArea)->zeile)+1)
			IF anz == "W"
				cXML3 += '' + CRLF + ; 
				'		<ram:IncludedSupplyChainTradeLineItem>' + CRLF + ; 
				'			<ram:AssociatedDocumentLineDocument>' + CRLF + ; 
				'				<ram:LineID>' + cZeile + '</ram:LineID>' + CRLF + ; 
				'			</ram:AssociatedDocumentLineDocument>' + CRLF + ; 
				'			<ram:SpecifiedTradeProduct>' + CRLF + ; 
				'				<ram:SellerAssignedID>' + '0000' + '</ram:SellerAssignedID>' + CRLF + ; 
				'				<ram:Name>' + Wandeln_in_UTF8("Netto-Ausgleichsbetrag") + '</ram:Name>' + CRLF + ; 
				'				<ram:Description>' + Wandeln_in_UTF8("Netto-Ausgleichsbetrag") + '</ram:Description>' + CRLF + ; 
				'			</ram:SpecifiedTradeProduct>' + CRLF + ; 
				'			<ram:SpecifiedLineTradeAgreement>' + CRLF + ; 
				'				<ram:NetPriceProductTradePrice>' + CRLF + ; 
				'					<ram:ChargeAmount>' + Str(nAusgleichsBetragBrutto/1.19,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(nAusgleichsBetragBrutto/1.19,8,2) + '</ram:LineTotalAmount>' + CRLF + ; 
				'				</ram:SpecifiedTradeSettlementLineMonetarySummation>' + CRLF + ; 
				'			</ram:SpecifiedLineTradeSettlement>' + CRLF + ; 
				'		</ram:IncludedSupplyChainTradeLineItem>'
				nTotalNetto += Round(nAusgleichsBetragBrutto/1.19, 2)
				nTotalNetto4 += Round(nAusgleichsBetragBrutto/1.19, 4)
				nSum_Mwst += Round(nAusgleichsBetragBrutto/1.19*0.19, 2)
				nSum_Mwst4 += Round(nAusgleichsBetragBrutto/1.19*0.19, 4)
				// Korrektur durch AusgleichsBetrag:
				// Totale errechnet aus der Summe der Netto-Zeilenbetr„ge:
				cTotalNetto := Str(nTotalNetto,8,2)
				cSUM_MWST := Str(nTotalNetto*0.19,8,2)
	//			cTotalPreis := Str(nTotalNetto + nTotalNetto*0.19,8,2)
				cTotalPreis := Str(Val(cTotalNetto)*1.19,8,2)
			ELSEIF anz == "P"
					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/1.19,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/1.19,8,2) + '</cbc:PriceAmount>' + CRLF + ; 
				'		</cac:Price>' + CRLF + ; 
				'	</cac:InvoiceLine>'
				nTotalNetto += Round((nArea)->betrageu/1.19, 2)
				nSum_Mwst += (nArea)->betrageu - Round((nArea)->betrageu/1.19, 2)
			ENDIF
	
		ENDIF
	
	//09.12.2025 09:14 XML-Erzeugung: Daten von Lieferant & Kunde & Summen   vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
	IF anz == "W"
		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 + ; 
		'			<ram:ApplicableTradeTax>' + CRLF + ; 
		'				<ram:CalculatedAmount>' + cSUM_MWST + '</ram:CalculatedAmount>' + CRLF + ; 
		'				<ram:TypeCode>VAT</ram:TypeCode>' + CRLF + ; 
		'				<ram:BasisAmount>' + cTotalNetto + '</ram:BasisAmount>' + CRLF + ; 
		'				<ram:CategoryCode>S</ram:CategoryCode>' + CRLF + ; 
		'				<ram:RateApplicablePercent>' + cVAT_Proz + '</ram:RateApplicablePercent>' + CRLF + ; 
		'			</ram:ApplicableTradeTax>' + 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">' + cSUM_MWST + '</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
	
//04.01.2026 19:14		cFilezugxml := "c:\hdbe\R"+StrZero(1->auftrnr)+"_zug.xml"
		cFilezugxml := cRechDir + "R"+StrZero(1->auftrnr)+"_zug.xml"
		nHandle := FCreate(cFilezugxml)
		FWrite(nHandle,cXml)
		FClose(nHandle)
	ELSEIF anz == "P"
		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">' + cSUM_MWST + '</cbc:TaxAmount>' + CRLF + ; 
		'		<cac:TaxSubtotal>' + CRLF + ; 
		'			<cbc:TaxableAmount currencyID="EUR">' + cTotalNetto + '</cbc:TaxableAmount>' + CRLF + ; 
		'			<cbc:TaxAmount currencyID="EUR">' + cSUM_MWST + '</cbc:TaxAmount>' + CRLF + ; 
		'			<cac:TaxCategory>' + CRLF + ; 
		'				<cbc:ID>S</cbc:ID>' + CRLF + ; 
		'				<cbc:Percent>' + cVAT_Proz + '</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">' + cTotalPreis + '</cbc:TaxInclusiveAmount>' + CRLF + ; 
		'		<cbc:PayableAmount currencyID="EUR">' + cTotalPreis + '</cbc:PayableAmount>' + CRLF + ; 
		'	</cac:LegalMonetaryTotal>'
	
		cXml := cXml1 + CRLF + cXml2 + CRLF + cXml3 + CRLF + '</ubl:Invoice>'
	
//04.01.2026 19:15		cFilexml := "c:\hdbe\R"+StrZero(1->auftrnr)+".xml"
		cFilexml := cRechDir + "R"+StrZero(1->auftrnr)+".xml"
		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
		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 + ;
			'<BODY LANG="de-DE">' + CRLF + ;
			'<PRE>'
//04.01.2026 19:15		nRTxtLen = Len(MemoRead("c:\hdbe\R"+StrZero(1->auftrnr,6,0)+".rdr"))	//geht das anders? nur die Filel„nge?
		nRTxtLen = Len(MemoRead(cRechDir + "R"+StrZero(1->auftrnr,6,0)+".rdr"))	//geht das anders? nur die Filel„nge?
//04.01.2026 19:16	   nHandle := FOpen( "c:\hdbe\R"+StrZero(1->auftrnr,6,0)+".rdr", FO_READ )
	   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>'
		
//04.01.2026 19:16		cFilehtml := "c:\hdbe\R"+StrZero(1->auftrnr,6,0)+".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)
// wird erstmal nicht gebraucht 04.01.2026 19:17		cFormatvorlage := "C:\HDBE\Rech1.ott"
// wird erstmal nicht gebraucht 04.01.2026 19:17		cEinfDatei := "FILE:///C:/hdbe/R"+StrZero(1->auftrnr)+".html"
//		RunShell (' &cFormatvorlage macro:///Standard.Module1.DateiEinf( &cEinfDatei )', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
//		RunShell (' &cFormatvorlage ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
//		RunShell (' macro:///Standard.Module1.DateiEinf( &cFormatvorlage &cEinfDatei )', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
		//RunShell (' C:\HDBE\R000000.odt macro://C:/HDBE/R000000.odt/Standard.Module1.xRechPDF ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
	//	RunShell (' C:\HDBE\R000000.odt macro:///Standard.Module1.xRechPDF( '+cAuftrag+' ) ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
		cCommand := ' &cFilehtml macro:///Standard.Module1.xRechPDF '
		RunShell (' &cFilehtml macro:///Standard.Module1.xRechPDF ', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)


/*	04.01.2026 19:19 die folgenden Zeilen sind geREMt, weil sie per Makro ausgef�hrt werden (siehe Vorzeilen)
		cFilehtml := "c:\hdbe\R"+StrZero(1->auftrnr)+".html"
	//	cFilepdf := "c:\hdbe\dHTML.pdf"
		cFilepdf := "c:\hdbe\R"+StrZero(1->auftrnr)+".pdf"
		cPdfOrdner := "c:\hdbe"
	//	RunShell (' --headless --convert-to pdf:"writer_pdf_Export" --outdir "&cAuftrOrdner" &cFilehtml', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
		RunShell (' --headless --convert-to pdf:"writer_pdf_Export:{\"SelectedPdfVersion\":{\"type\":\"long\",\"value\":\"3\"}}" --outdir "&cPdfOrdner" &cFilehtml', 'C:\Program Files\LibreOffice\program\sweb.exe',.T.)
	//	RunShell (' --headless --convert-to pdf:"writer_pdf_Export:{\"SelectedPdfVersion\":{\"type\":\"long\",\"value\":\"1\"},\"PDFUACompliance\":{\"type\":\"boolean\",\"value\":\"true\"}}" --outdir "&cPdfOrdner" &cFilehtml', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)
	// "writer_pdf_Export:{\"SelectedPdfVersion\":{\"type\":\"long\",\"value\":\"3\"}}"
	
	IF anz == "W"	// wird f�r "P" nicht gebraucht!!!
		sleep(500)
	//	cFilezugpdf := "c:\hdbe\dHTML_zug.pdf" 
		cFilezugpdf := "c:\hdbe\R"+StrZero(1->auftrnr)+"_zug.pdf"
	//	Runshell (' -jar "C:\Meinedat\xRech\MustangZug.jar" --action combine --source "C:\Meinedat\xRech\Archiv\2025\12_Dezember\R000073.pdf" --source-xml "C:\Meinedat\xRech\Archiv\2025\12_Dezember\R000073_zug.xml" --format zf --version 2 --profile X --out "C:\Meinedat\xRech\Archiv\2025\12_Dezember\R000073_zug.pdf" --no-additional-attachments','C:\Program Files\Java\latest\jre-1.8\bin\java.exe',.T.)
	 cZug := ' -jar "C:\Meinedat\xRech\MustangZug.jar" -i --action combine --source "&cFilepdf" --source-xml "&cFilezugxml" --format zf --version 2 --profile X --out "&cFilezugpdf" --no-additional-attachments'
		Runshell (' -jar "C:\Meinedat\xRech\MustangZug.jar" -i --action combine --source "&cFilepdf" --source-xml "&cFilezugxml" --format zf --version 2 --profile X --out "&cFilezugpdf" --no-additional-attachments','java.exe',.T.)
	ENDIF
	//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	sleep(500)
	//+25.06.2018 18:42 Aufruf von swriter mit dem HTML-Druckfile:  vvvvvvvvvvvvvvvvvvvvv
	//	IF cDruckabr == "c:\hdbe\dHTML.abr"
	//		HTML_Brief(cDruckabr,,"Courier New, monospace", "11pt", "1cm 1cm 1cm 2cm")
	//	ENDIF
		IF cDruckabr == "c:\hdbe\R"+StrZero(1->auftrnr)+".html"
		  	RunShell (' --nologo "&cDruckabr"', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.)	//-nologo mit einem '-' f�r AOO-Schnellstart
		ENDIF
	//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
*/

ENDIF

select 1
IF &r_b_1 <> aLeist1[nL1+1] .AND. nAnzahl > 0
satzsperren()
//* damit die erg„nzten BestFallDaten auch �bertragen werden
     aData1 := SatzGet( Select(), RecNo() )
*//
   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
// 21.05.2008 18:19     repl &r_b_1 with aLeist1[nL1+1]
// 21.05.2008 18:16     repl &r_b_1h with aLeist1[nL1+1]/xfaktor
   ELSE
      repl &r_b_1 with aLeist1[nL1+1]
// 21.05.2008 18:16     repl &r_b_1h with aLeist1[nL1+1]*xfaktor
   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
     aData1 := SatzGet( Select(), RecNo() )
*//
   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
// 21.05.2008 18:19     repl &r_b_2 with aLeist2[nL2+1]
// 21.05.2008 18:16     repl &r_b_2h with aLeist2[nL2+1]/xfaktor
   ELSE
      repl &r_b_2 with aLeist2[nL2+1]
// 21.05.2008 18:17     repl &r_b_2h with aLeist2[nL2+1]*xfaktor
   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
     aData1 := SatzGet( Select(), RecNo() )
*//
   IF xdmeu="D"   /* DM darf nicht mehr gebraucht werden f�r neue F„lle!!  */
// 21.05.2008 18:18     repl &r_b_1 with aLeistA[nLA+1]
// 21.05.2008 18:19      repl &r_b_1h with aLeistA[nLA+1]/xfaktor
   ELSE
// 21.05.2008 18:18     repl &r_b_1 with aLeistA[nLA+1]
      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
	//      DELETE FOR 13->auftrnr <> Val( cAuf )
	//      PACK
	      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 )	//04.01.2026 14:57 nS
   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"
          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
      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 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

/*
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