//FormHtml_2.prg 26.08.2023 18:40
//Sammlung der Funktionen fr die indiText/indiForm
// sammelt die Kern-Inditext-Funktionen aus KSOX fr den Formulardruck per HTML und OpenOffice-Writer
// die kleineren Funktionen sind inzwischen meist in Form_Html_1 (fr KSOX UND die anderen Bestatter)
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Appedit.ch"
#include "Appbrow.ch"
#include "Font.ch"
#include "Common.ch"
#include "Dll.ch"
#include "Dmlb.ch"
#include "Common.ch"
#include "fileio.ch"
#include "directry.ch"
//27.11.2023 13:48 ab heute:
FUNCTION HTML_Brief_2( cFile, cFormular, cFont, cFSize, cFormSeite, cZeileCM, cNotiz_Bez ) //18.10.2022 cZeileMM -> cZeileCM // cNotiz_Bez
LOCAL nZei := 8, nAnf, CR := Chr(13), LF := Chr(10)
LOCAL nHandle, cBuffer, nBytes, cText, cNeuTxt := ""
LOCAL cDatv := cDatver
LOCAL nFSize, nFHoehe, nFBreite
LOCAL nZeileMM
LOCAL cSZeit, nSZeit, cFZeit, nFZeit, nZ //30.12.2022 15:29 warten aufs PDF
DEFAULT cFormular TO ""
DEFAULT cFont TO '"Times New Roman", serif'
DEFAULT cFSize TO '18pt'
DEFAULT cFormSeite TO '1cm 1cm 1cm 2cm'
DEFAULT cZeileCM TO '0.14' //11.10.2022 14:58 Zeilenabstand
//08.01.2024 10:45 in inditext_2() PRIVATE cBuero //11.10.2022 16:56 PRIVATE fr VariFunkErsatz
nFSize := Val(cFSize)
nFHoehe := nFSize * 0.352778
nFBreite := nFSize * 0.2 // 0.2 ist ein gesch„tzter vorl„ufiger Wert
nZeileMM := IIf(Val(cZeileCM)<0.2, nFHoehe * Val(cZeileCM)*10, Val(cZeileCM)*10)
// DO WHILE At("\",cDatv) > 0
// cDatv := Stuff( cDatv, At("\",cDatv), 1, "/" )
// ENDDO
IF !"HDBE"$Upper(cFormular)
cFormular := cDatv + cFormular
ENDIF
// Zur Vermeidung von Kollision verschiedener Drucke vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
// Test: ist bereits die Datei HTML_Brief.html auf diesem PC ge”ffnet?
IF FExists("c:\hdbe\HTML_Brief.html") //22.12.2022 19:13
nHandle := FOpen( "c:\hdbe\HTML_Brief.html", FO_EXCLUSIVE )
IF nHandle = -1
//+ Die Datei ist bereits auf diesem PC ge”ffnet
FClose(nHandle)
msgbox("Es ist bereits ein HTML_Brief.html offen!"+CR+LF+"Bitte OfficeWriter schlieáen, dann nochmal versuchen!")
RETURN .F.
ELSE
FClose(nHandle)
ENDIF
ENDIF
//--------------------------------
// Test: ist bereits die Datei HTML_Brief.pdf auf diesem PC ge”ffnet?
IF FExists("c:\hdbe\HTML_Brief.pdf") //22.12.2022 19:13
nHandle := FOpen( "c:\hdbe\HTML_Brief.pdf", FO_EXCLUSIVE )
IF nHandle = -1
//+ Die Datei ist bereits auf diesem PC ge”ffnet
FClose(nHandle)
msgbox("Es ist bereits ein HTML_Brief.PDF offen!"+CR+LF+"Bitte AdobeReader schlieáen, dann nochmal versuchen!")
RETURN .F.
ELSE
FClose(nHandle)
ENDIF
ENDIF
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
IF Len(cFile) > 50
cText := cFile
cFile := "HTML_Brief"
ELSE
nHandle := FOpen( cFile, FO_READ )
cBuffer := Space(3000)
nBytes := FRead( nHandle, @cBuffer, 3000 )
cText := AllTrim(cBuffer)
FClose( nHandle )
ENDIF
// Test mit automatischem Ausfllen bei bestimmtem Formular:
IF "KSO_GhAusz.png"$cFormular
cFont := "Times New Roman"
cFSize := "14pt"
cFormSeite := "0cm 0cm 0cm 0cm"
nZeileMM := 4.9
cText := CR+LF+CR+LF + Space(65) + "Auftrag: " + Str(1->auftrnr,6,0) + CR+LF+CR+LF+CR+LF+CR+LF+CR+LF+CR+LF
cText += Space(35) + Trim(1->vorname) + " " + Trim(1->name) + CR+LF
ENDIF
IF cFile == "c:\hdbe\dHTML.abr" .OR. cFile == "c:\hdbe\dHTML.mahn"
cText := StrTran( cText, CR+LF+" ", CR+LF ) // linken Rand zu NULL machen
ENDIF
// vermutlich hier berflssig, weil schon in Inditext_2() 08.11.2022 10:42
// cBuero := SubStr(cBU5,At(" ",cBU5)+1)
// cRufnummer := cBU6
IF 'Temp'$cFile // 11.12.2022 17:14 wenn im Text Formatierungen vorkommen (bl_r,bl_a etc...)
cNeuTxt := ;
''+CR+LF+;
''+CR+LF+;
''+CR+LF+;
' '+CR+LF+;
' '+cFile+''+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
''+CR+LF+;
IIf( Upper(Right(cFormular,4))==".PNG", ;
'',;
'')+CR+LF+;
'' //+CR+LF+;
ELSE
cNeuTxt := ;
''+CR+LF+;
''+CR+LF+;
''+CR+LF+;
' '+CR+LF+;
' '+cFile+''+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
''+CR+LF+;
IIf( Upper(Right(cFormular,4))==".PNG", ;
''+CR+LF+;
''+CR+LF+;
'', ;
''+CR+LF+;
'' )
ENDIF
cNeuTxt += ConvToAnsiCP(cText)
cNeuTxt += ''
cNeuTxt := StrTran( cNeuTxt, "", " ") // durch <> entstehen 7 Blanks
IF !FExists("c:\hdbe\HTML_Brief.html")
nHandle := FCreate("c:\hdbe\HTML_Brief.html")
FClose(nHandle)
Sleep(100)
ENDIF
nHandle := FOpen("c:\hdbe\HTML_Brief.html",FO_READWRITE)
nBytes := FRead( nHandle, @cBuffer, 20000 )
nBytes := Max(10000,nBytes)
FSeek(nHandle, 0)
nBytes := FWrite( nHandle, PadR(cNeuTxt,nBytes," ") )
nBytes := FClose( nHandle )
IF AppKeyState(65553)==1 .OR. "INPUT"$cNeuTxt // zusammen mit Strg-Taste //19.12.2022 15:13 mit LibreOffice zu PDF konvertieren
//geht nicht IF RunShell (' /C START C:\HDBE\swriter.libre.lnk --headless --convert-to pdf:"writer_pdf_Export" C:\HDBE\HTML_Brief.html',cComCom,.T.)
//geht nicht IF RunShell (" /C START C:\Progra~1\LibreOffice\program\swriter.exe --headless --convert-to pdf:'writer_pdf_Export' C:\HDBE\HTML_Brief.html",cComCom,.T.)
// so nicht! komplette Pfadangabe statt Link IF RunShell (' --headless --convert-to pdf:"writer_pdf_Export" --outdir "C:\HDBE" C:\HDBE\HTML_Brief.html', 'C:\HDBE\swriter.libre.lnk',.T.) == 0
IF FExists('C:\Program Files\LibreOffice\program\swriter.exe')
dHeute := DATE() //02.01.2023 13:03
cSZeit := Time() //30.12.2022 15:36
nSZeit := Val(SubStr(cSZeit,1,2))*3600 + Val(SubStr(cSZeit,4,2))*60 + Val(SubStr(cSZeit,7,2))
IF RunShell (' --headless --convert-to pdf:"writer_pdf_Export" --outdir "C:\HDBE" C:\HDBE\HTML_Brief.html', 'C:\Program Files\LibreOffice\program\swriter.exe',.T.) == 0
// geht mit OpenOffice nicht! IF RunShell (' -headless -convert-to pdf:"writer_pdf_Export" C:\HDBE\HTML_Brief.html', 'C:\Program Files (x86)\OpenOffice 4\program\swriter.exe',.T.)
//30.12.2022 15:36 statt sleep(300):
dFDatum := Directory("C:\HDBE\HTML_Brief.pdf")[1,F_WRITE_DATE] //02.01.2023 13:03
cFZeit := Directory("C:\HDBE\HTML_Brief.pdf")[1,F_WRITE_TIME]
nFZeit := Val(SubStr(cFZeit,1,2))*3600 + Val(SubStr(cFZeit,4,2))*60 + Val(SubStr(cFZeit,7,2))
nZ := 0
DO WHILE (nSZeit > nFZeit .OR. DATE() > dFDatum ) .AND. .NOT. nZ > 20
sleep(100)
cFZeit := Directory("C:\HDBE\HTML_Brief.pdf")[1,F_WRITE_TIME]
nFZeit := Val(SubStr(cFZeit,1,2))*3600 + Val(SubStr(cFZeit,4,2))*60 + Val(SubStr(cFZeit,7,2))
nZ++
ENDDO
IF nZ > 20
msgbox("Achtung: Die PDF-DAtei ist vermutlich von einem frheren Fall!")
ELSEIF FExists('C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe')
RunShell (' /N C:\HDBE\HTML_Brief.pdf','C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe',.T.)
ELSEIF FExists('C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe')
RunShell (' /N C:\HDBE\HTML_Brief.pdf','C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe',.T.)
ELSE
msgbox("Der Adobe Reader DC ist nicht ordentlich installiert!")
ENDIF
ENDIF
ELSE
msgbox("LibreOffice ist nicht ordentlich installiert")
ENDIF
ELSE
//26.08.2023 20:37 das muss in dieser Reihenfolge (lt. Alaska):
RunShell ( "c:\hdbe\HTML_Brief.html","c:\Program Files\LibreOffice\program\swriter.exe",.T.) //01.09.2023 .T.
ENDIF
IF !Empty(cNotiz_Bez)
cVermerk := ConvToOEMCP(cNotiz_Bez) + ": "+DtoC(DATE()) + ", " + BriefAdresse(2,"A") // 2==1-zeilig, "A"==Ansprechpartner
IF !cVermerk$1->notiz
1->(DbRlock())
1->notiz += CRLF + cVermerk
1->(DbCommit())
ENDIF
ENDIF
RETURN .T.
//aus FUNCTION HTML_Brief_2 fr Indiform()
//cOrdner = FormArt-Bezeichnung ohne .txt
//cMail_Adr = Mail-Adresse aus inditextF.txt 19.11.2023 11:49
//cMail_Betr = Mail-Betreff aus inditextF.txt 19.11.2023 11:49
FUNCTION HTML_Form_2( cContainer, cFormular, cFont, cFSize, cFormSeite, cZeileCM, cNotiz_Bez, cOrdner, cFile, cMail_Adr, cMail_Betr)
LOCAL nZei := 8, nAnf, CR := Chr(13), LF := Chr(10)
LOCAL nHandle, cBuffer := Space(10000), nBytes, cText, cNeuTxt := ""
LOCAL nFSize, nFHoehe, nFBreite
LOCAL nZeileMM
LOCAL cSZeit, nSZeit, cFZeit, nFZeit, nZ //30.12.2022 15:29 warten aufs PDF
LOCAL cHeute := DtoC(DATE())
LOCAL oProgress //26.10.2023 18:56
LOCAL cMail_Body //21.11.2023 09:47
LOCAL cMailClient := cDatver+"ThunderbirdPortable\ThunderbirdPortable.exe"
DEFAULT cFormular TO ""
DEFAULT cFont TO '"Times New Roman", serif'
DEFAULT cFSize TO '18pt'
DEFAULT cFormSeite TO '1cm 1cm 1cm 2cm'
DEFAULT cZeileCM TO '0.14' //11.10.2022 14:58 Zeilenabstand
// PRIVATE cAuftrOrdner := cDatver + "Indiform\AUFTRAG\" + StrZero(1->auftrnr,6,0) // nur bei KSOX
PRIVATE cAuftrOrdner := cDatver + "Scans\Dokumente\" + StrZero(1->auftrnr,6,0) // im Ordner der gescannten Dokumente
PRIVATE cFilehtml, cFilepdf
//08.01.2024 10:45 in inditext_1() PRIVATE cBuero //11.10.2022 16:56 PRIVATE fr VariFunkErsatz
PRIVATE cBetreff := cMail_Betr //21.11.2023 10:09
cMail_Body := IIf(Empty(cFormular),"",VariFunkErsatz_2(MemoRead(cDatver+cFormular[1]+"\Body.txt"))) //02.01.2024 13:50
nFSize := Val(cFSize)
nFHoehe := nFSize * 0.352778
nFBreite := nFSize * 0.2 // 0.2 ist ein gesch„tzter vorl„ufiger Wert
nZeileMM := IIf(Val(cZeileCM)<0.2, nFHoehe * Val(cZeileCM)*10, Val(cZeileCM)*10)
IF ".txt"$cFile
cFile := Stuff(cFile,At(".txt",cFile),4,"") //06.09.2023 19:16
IF "\"$cFile //27.11.2023 12:03
cFile := SubStr(cFile,3) //27.11.2023 12:02
ENDIF
ENDIF
cOrdner := "\" + cFile //06.09.2023 19:16
cAuftrOrdner += cOrdner //06.09.2023 19:20
IF !FExists( cAuftrOrdner,"D" )
RunShell( "/C MD "+cAuftrOrdner,, .T. )
sleep(100)
ENDIF
IF !FExists( cAuftrOrdner,"D" )
msgbox("Der Ordner " + cAuftrOrdner + " kann nicht erzeugt werden!")
RETURN .F.
ENDIF
cFilehtml := cAuftrOrdner + "\" + cFile + "_" + StrZero(1->auftrnr,6,0) + "_" + cHeute + ".html"
cFilehtmlur := cAuftrOrdner + "\" + cFile + "_" + StrZero(1->auftrnr,6,0) + "_" + "*" + ".html"
cFilepdf := cAuftrOrdner + "\" + cFile + "_" + StrZero(1->auftrnr,6,0) + "_" + cHeute + ".pdf"
cFilepdfur := cAuftrOrdner + "\" + cFile + "_" + StrZero(1->auftrnr,6,0) + "_" + "*" + ".pdf"
cFormular := Stuff(cFormular,At("\",cFormular),1,"/")
aFormSize := FormSize(cFormular) //02.11.2023 10:58 um portrait/landscape zu unterscheiden
cFormular := '../../../../' + cFormular
IF !"ORIGINAL.PDF"$Upper(cFormular) //31.10.2023 19:00 wenn kein Original-PDF-Formular
// Zur Vermeidung von Kollision verschiedener Drucke vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
// Check: ist bereits die Datei cFilehtml auf diesem PC ge”ffnet?
IF FExists(cFilehtml) //22.12.2022 19:13
nHandle := FOpen( cFilehtml, FO_EXCLUSIVE )
IF nHandle = -1
//+ Die Datei ist bereits auf diesem PC ge”ffnet
FClose(nHandle)
msgbox("Es ist bereits ein " + cFilehtml + " offen!"+CR+LF+;
"Bitte " + cFilehtml + " im OfficeWriter schlieáen, dann nochmal versuchen!")
RETURN .F.
ELSEIF ConfirmBox( oCB, "Soll sie berschrieben werden?", ;
"Diese Datei ist schon vorhanden mit Datum von heute!", ;
XBPMB_YESNO, ;
XBPMB_QUESTION ) == XBPMB_RET_YES
FClose(nHandle)
ELSE
FClose(nHandle)
RETURN .F.
ENDIF
ELSEIF FExists(cFilehtmlur) //06.09.2023 11:25
aHtmlFiles := Directory( cFilehtmlur )
ASort(aHtmlFiles,,,{|aX,aY|aX[3]>aY[3]}) //absteigend sortiert nach WriteDatum
cHFDatum := SubStr(aHtmlFiles[1,1],RAt("_",aHtmlFiles[1,1])+1,10) // bisher neueste Datei dieser Art
IF ConfirmBox( oCB, "Soll sie heute nochmal erzeugt werden?", ;
"Diese Datei ist schon vorhanden mit Datum vom "+cHFDatum+"!", ;
XBPMB_YESNO, ;
XBPMB_QUESTION ) == XBPMB_RET_YES
ELSE
cFilehtml := Stuff(cFilehtmlur,RAt("_",cFilehtmlur)+1,1,cHFDatum)
cFilepdf := Stuff(cFilepdfur,RAt("_",cFilepdfur)+1,1,cHFDatum)
ENDIF
ENDIF
//--------------------------------
// Test: ist bereits die Datei cFilepdf auf diesem PC ge”ffnet?
IF FExists(cFilepdf) //22.12.2022 19:13
nHandle := FOpen( cFilepdf, FO_EXCLUSIVE )
IF nHandle = -1
//+ Die Datei ist bereits auf diesem PC ge”ffnet
FClose(nHandle)
msgbox("Es ist bereits eine Datei " + cFilepdf + " offen!"+CR+LF+;
"Bitte AdobeReader schlieáen, dann nochmal versuchen!")
RETURN .F.
ELSE
FClose(nHandle)
ENDIF
ENDIF
ELSE //31.10.2023 19:06 nur fr ORIGINAL.PDF-Formulare: (sofort darstellen)
cFilepdf := SubStr(cFormular,13)
IF FExists('C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe')
RunShell ("&cFilepdf","C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe",.T.)
ELSEIF FExists('C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe')
RunShell ("&cFilepdf","C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe",.T.)
ELSE
msgbox("Der Adobe Reader DC ist nicht ordentlich installiert!")
RETURN .F.
ENDIF
IF !Empty(cNotiz_Bez)
cVermerk := ConvToOEMCP(cNotiz_Bez) + ": "+DtoC(DATE()) + ", " + BriefAdresse(2,"A") // 2==1-zeilig, "A"==Ansprechpartner
IF !cVermerk$1->notiz
1->(DbRlock())
1->notiz += CRLF + cVermerk
1->(DbCommit())
ENDIF
ENDIF
RETURN .T.
ENDIF
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
// X cBuero := SubStr(cBU5,At(" ",cBU5)+1)
// X cRufnummer := cBU6
//die Version mit Temp drfte hier eigentlich nie vorkommen ... (06.09.2023 11:28)
IF 'Temp'$cFile // 11.12.2022 17:14 wenn im Text Formatierungen vorkommen (bl_r,bl_a etc...)
cNeuTxt := ;
''+CR+LF+;
''+CR+LF+;
''+CR+LF+;
' '+CR+LF+;
' '+cFile+''+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
''+CR+LF+;
IIf( Upper(Right(cFormular,4))==".PNG", ;
'',;
'')+CR+LF+;
'' //+CR+LF+;
ELSEIF !"'+CR+LF+;
''+CR+LF+;
''+CR+LF+;
' '+CR+LF+;
' '+cFile+''+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
''+CR+LF+;
IIf( Upper(Right(cFormular,4))==".PNG", ;
''+CR+LF+;
''+CR+LF+;
'', ;
''+CR+LF+;
'' )
ELSE
cNeuTxt := ;
''+CR+LF+;
''+CR+LF+;
''+CR+LF+;
' '+CR+LF+;
' '+cFile+''+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
' '+CR+LF+;
''+CR+LF+;
IIf( Upper(Right(cFormular,4))==".PNG", ;
''+CR+LF+;
''+CR+LF+;
'