ULKREXTP

Dokumentation genererad 240826


Innehållsförteckning


Historik

Funktion Datum Notering
lbKREXTP_dotx2docx 240826 TIHA = Ny funktion skapad
lbKREXTP_PDFMerger 230705 FIBA = Kompatibelt unitsökvägar
lbKREXTP_KRJPG2PDF 230314 FRLA = Kompatibelt med webben
lbKREXTP_PDFMerger 230314 FRLA = Kompatibelt med webben
lsKREXTP_GetPathTmpFiles 230313 FRLA = Funktion skapad
lbKREXTP_RunShellExecutePTC 230313 FRLA = Funktion skapad
lbKREXTP_PTC 230313 FRLA = Funktion skapad
lbKREXTP_PDFMerger 221014 FRLA = Funktion skapad
lbKREXTP_KRJPG2PDF 220330 FRLA = Funktion skapad




lbKREXTP_KRJPG2PDF

bool lbKREXTP_KRJPG2PDF(str sImagePath, str sPdfPath, str sPathKRJPG2PDF, str sOptions, ref str sError)

Konverterar JPG till PDF samt roterar bilden så den blir stående

Parametrar

Typ (in / by ref) Variabel Beskrivning
str sImagePath
str sPdfPath Sökväg till pdf/png som ska skapas
str sPathKRJPG2PDF Sökväg till krjpg2pdf.exe - OBS! Skriftlägeskänslig!
str sOptions Reserverad
ref str sError Returnerar ev felmeddelande i klartext

Beskrivning

Konverterar JPG till PDF samt roterar bilden så den blir stående
Kör programmet krjpg2pdf.exe
OBS! itextsharp.dll och BouncyCastle.Crypto.dll behöver finnas i samma mapp som krjpg2pdf.exe!

sJpgPath = Sökväg till jpg/png som ska konverteras till pdf.


Historik

Datum Notering
220330 FRLA = Funktion skapad
230314 FRLA = Kompatibelt med webben

Exempel

e:\pbs\stage\krtoolbox\pydata\dialog\default\udtestex.dt





function lbKREXTP_KRJPG2PDFTest()


// KR System SIGN


// #DOCU


begin


 str sPathKRJPG2PDF, sPathTestImage, sError





 


 "E:\PBS\Stage\KRToolBox\STUDIO\KRPROD\krjpg2pdf\krjpg2pdf.exe"   -> sPathKRJPG2PDF


 


 


 


 "E:\PBS\Stage\KRToolBox\PYDATA\DIALOG\DEFAULT\Tester\lbKREXTP_krjpg2pdf\testbild1.jpg"   -> sPathTestImage





 ifl lbKREXTP_KRJPG2PDF(sPathTestImage, sPathTestImage & ".pdf", sPathKRJPG2PDF, "", ^sError)


  shell_execute("", sPathTestImage & ".pdf", "", 5)


 else


  Error("Kunde inte konvertera bild! " & sError)


 endifl


 


 


 


 


 "E:\PBS\Stage\KRToolBox\PYDATA\DIALOG\DEFAULT\Tester\lbKREXTP_krjpg2pdf\testbild2.png"   -> sPathTestImage





 ifl f_access(sPathTestImage & ".pdf", 0) = 0


  f_delete(sPathTestImage & ".pdf")


 endifl


 


 ifl lbKREXTP_KRJPG2PDF(sPathTestImage, sPathTestImage & ".pdf", sPathKRJPG2PDF, "", ^sError)


  shell_execute("", sPathTestImage & ".pdf", "", 5)


 else


  Error("Kunde inte konvertera bild! " & sError)


 endifl


end











lbKREXTP_PDFMerger

bool lbKREXTP_PDFMerger(str sPDF1In, str sPDF2In, str sPDF3In, str sPdfTargetPathIn, str sPathPDFMergerIn, str sOptions, ref str sError)

Kör programmet PDFMerger

Parametrar

Typ (in / by ref) Variabel Beskrivning
str sPDF1In Sökvägar till pdf
str sPDF2In Sökvägar till pdf
str sPDF3In Sökvägar till pdf
str sPdfTargetPathIn pdf som ska skapas
str sPathPDFMergerIn Sökväg till PDFMerger.exe - OBS! Skriftlägeskänslig!
str sOptions Reserverad
ref str sError Returnerar ev felmeddelande i klartext

Beskrivning

Kör programmet PDFMerger
OBS! itextsharp.dll behöver finnas i samma mapp!
Upp till tre dokument.



Historik

Datum Notering
221014 FRLA = Funktion skapad
230314 FRLA = Kompatibelt med webben
230705 FIBA = Kompatibelt unitsökvägar

Exempel

e:\pbs\stage\krtoolbox\pydata\dialog\default\udtestex.dt





function lbKREXTP_PDFMergerTest()


// KR System SIGN


// #DOCU


begin


 str sError


 str sPathPDFMerger, sPdfTargetPath,sTestFolderPath


 str sPathPDFMerger2, sPdfTargetPath2,sTestFolderPath2


 


 // Vanliga sökvägar


 "E:\PBS\Stage\KRToolBox\PYDATA\DIALOG\DEFAULT\Tester\lbKREXTP_PDFMerger\"  -> sTestFolderPath


 sTestFolderPath & "ihopslagenpdf.pdf"             -> sPdfTargetPath


 "E:\PBS\Stage\KRToolBox\DIALOG\DEFAULT\PDFmerger.exe"        -> sPathPDFMerger


 


 // Unitsökvägar


 "UDD:Tester\lbKREXTP_PDFMerger\"  -> sTestFolderPath2


 sTestFolderPath2 & "ihopslagenpdf2.pdf"             -> sPdfTargetPath2


 "UAD:PDFmerger.exe"                    -> sPathPDFMerger2


 


 


 f_delete(sPdfTargetPath)


 f_delete(sPdfTargetPath2)


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", "", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), no, "Bara en pdf")


 


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "", sTestFolderPath & "2.pdf", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), no, "pdf1 saknas")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "dummy.pdf", sTestFolderPath & "2.pdf", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), no, "pdf1 saknas")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", sTestFolderPath & "", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), no, "pdf2 saknas")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", sTestFolderPath & "dummy.pdf", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), no, "pdf2 saknas")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", sTestFolderPath & "2.pdf", "", sPdfTargetPath, "dummy", "", ^sError), no, "sPathPDFMerger fel")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", sTestFolderPath & "2.pdf", "", "dummy", sPathPDFMerger, "", ^sError), no, "Ogiltlig målmapp") // Testas inte helt i koden


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath & "1.pdf", sTestFolderPath & "2.pdf", "", sPdfTargetPath, sPathPDFMerger, "", ^sError), yes, "Slå ihop två pdf:er")


 lvKRTddAssertEx2(source_file,source_line,^sError, lbKREXTP_PDFMerger(sTestFolderPath2 & "1.pdf", sTestFolderPath2 & "2.pdf", "", sPdfTargetPath2, sPathPDFMerger2, "", ^sError), yes, "Slå ihop två pdf:er - Unitsökväg")


 shell_execute("", sPdfTargetPath, "", 5)


 shell_execute("", path_name(sPdfTargetPath2), "", 5)


end











lsKREXTP_GetPathTmpFiles

str lsKREXTP_GetPathTmpFiles()

DS:KRPROD\KREXT\

Parametrar

Typ (in / by ref) Variabel Beskrivning

Beskrivning

DS:KRPROD\KREXT\

Historik

Datum Notering
230313 FRLA = Funktion skapad



lbKREXTP_RunShellExecutePTC

bool lbKREXTP_RunShellExecutePTC(str sUppdragskodPTC, str sProg, str sArgs, str sWorkingDir, int iFlags, int iTimeOutSeconds, bool bShieldOn, str sOptions, ref str sError)

OBS: Inte längre aktuell

Parametrar

Typ (in / by ref) Variabel Beskrivning
str sUppdragskodPTC ID på PTC, ska vara "EXT" normalt
str sProg Se shell_execute
str sArgs Se shell_execute
str sWorkingDir Se shell_execute
int iFlags Se shell_execute
int iTimeOutSeconds Värde mellan 5 och 60 sekunder
bool bShieldOn
str sOptions Reserverad
ref str sError Returnerar ev felmeddelande i klartext

Beskrivning

OBS: Inte längre aktuell
Kör PTC med shell_execute



Historik

Datum Notering
230313 FRLA = Funktion skapad



lbKREXTP_PTC

bool lbKREXTP_PTC(str sOptions, ref str sError)

OBS: Inte längre aktuell

Parametrar

Typ (in / by ref) Variabel Beskrivning
str sOptions Reserverad
ref str sError Returnerar ev samling av felmeddelanden från shell_execute

Beskrivning

OBS: Inte längre aktuell
Körs av PTC som ska dra igång en shell_execute - anropas med programkod via lbKREXTP_RunShellExecutePTC



Historik

Datum Notering
230313 FRLA = Funktion skapad



lbKREXTP_dotx2docx

bool lbKREXTP_dotx2docx(str sPathExe, str sPathKeyFile, str sPathWordTemplate, str sPathWordDoc, str sOptions, ref str sError)

Konverterar en word-mall till word-dokument och bytar ut bokmärken till data från aktuella laddningar

Parametrar

Typ (in / by ref) Variabel Beskrivning
str sPathExe Sökväg till .exe-fil
str sPathKeyFile Sökväg till temporär fil som lagrar värden på bokmärken
str sPathWordTemplate Sökväg till word-mall som ska konverteras
str sPathWordDoc Fullständig sökväg till word-dokumentet som ska skapas
str sOptions
ref str sError Felmeddelande i retur

Beskrivning

Konverterar en word-mall till word-dokument och bytar ut bokmärken till data från aktuella laddningar


Historik

Datum Notering
240826 TIHA = Ny funktion skapad



Dokumentation genererad av KR System