# Store that Script Code under: GetFacturXFromPDF.ps1
# Call: .\GetFacturXFromPDF.ps1
# Params: -PdfPath "C:\inv\2025-05-17.pdf" -ApiToken "[[ T O K E N - C O D E ]]"
                
param (
    [Parameter(Mandatory = $true)]
    [string]$PdfPath,

    [Parameter(Mandatory = $true)]
    [string]$ApiToken
)

# 1. Send PDF to "7-PDF Invoice Extractor" - FastAPI
curl.exe -X POST "https://generator.7-pdf.de/extract-invoice/" `
-H "accept: application/json" `
-H "Authorization: Bearer $ApiToken" `
-H "Content-Type: multipart/form-data" `
-F "file=@$PdfPath" `
-o response.json

# 2. Read JSON Response
$json = Get-Content -Raw -Path .\response.json | ConvertFrom-Json

# 3. Extract and store ZUGFeRD XML
$json.xml | Set-Content -Encoding UTF8 -Path .\factur-x.xml
            
           

           
param (
    [Parameter(Mandatory = $true)] [string]$InputFolder,
    [Parameter(Mandatory = $true)] [string]$OutputFolder,
    [Parameter(Mandatory = $true)] [string]$ApiToken
)

function Get-7PdfPrinterAppPath {
    $key = 'HKLM:\SYSTEM\CurrentControlSet\Control\Print\Printers'
    $printers = Get-ChildItem -Path $key -ErrorAction SilentlyContinue
    foreach ($printer in $printers) {
        $desc = Get-ItemProperty -Path "$key\$($printer.PSChildName)" -ErrorAction SilentlyContinue
        if ($desc.Description -like "*7-PDF Printer*") {
            $appFolder = $desc.AppFolder
            if ($appFolder -and (Test-Path $appFolder)) {
                return $appFolder
            }
        }
    }
    return $null
}

function Escape-PathForPostScript {
    param ([string]$Path)
    return ($Path -replace '\\', '/' -replace ' ', '\\ ')
}

function Save-PostScriptForPdfA3 {
    param (
        [string]$TargetFilePath,
        [string]$ICCPath,
        [string]$Title = "PDF Title",
        [string]$Author = "PDF Author",
        [string]$Subject = "PDF Subject",
        [string]$Keywords = "PDF/A, ZUGFeRD",
        [string]$Producer = "7-PDF Printer",
        [string]$Creator = "7-PDF Printer"
    )

    $iccUnix = Escape-PathForPostScript $ICCPath
    $postScriptText = @"
%!
% This is a sample prefix file for creating a PDF/A document.
% Users should modify entries marked with "Customize".
% This assumes an ICC profile resides in the file (srgb.icc),
% in the current directory unless the user modifies the corresponding line below.

% Define entries in the document Info dictionary :
[ /Title ($Title)
  /Author ($Author)
  /Subject ($Subject)
  /Keywords ($Keywords)
  /Producer ($Producer)
  /Creator ($Creator)
  /DOCINFO pdfmark

% Define an ICC profile :
/ICCProfile ($iccUnix) % Customize
def

[/_objdef {icc_PDFA} /type /stream /OBJ pdfmark

[{icc_PDFA}
<<
%% ----------8<--------------8<-------------8<--------------8<----------
  systemdict /ColorConversionStrategy known {
    systemdict /ColorConversionStrategy get cvn dup /Gray eq {
      pop /N 1 false
    }{
      dup /RGB eq {
        pop /N 3 false
      }{
        /CMYK eq {
          /N 4 false
        }{
          (\tColorConversionStrategy not a device space, falling back to ProcessColorModel, output may not be valid PDF/A.\n)=
          true
        } ifelse
      } ifelse
    } ifelse
  } {
    (\tColorConversionStrategy not set, falling back to ProcessColorModel, output may not be valid PDF/A.\n)=
    true
  } ifelse

  {
    currentpagedevice /ProcessColorModel get
    dup /DeviceGray eq {
      pop /N 1
    }{
      dup /DeviceRGB eq {
        pop /N 3
      }{
        dup /DeviceCMYK eq {
          pop /N 4
        } {
          (\tProcessColorModel not a device space.)=
          /ProcessColorModel cvx /rangecheck signalerror
        } ifelse
      } ifelse
    } ifelse
  } if
%% ----------8<--------------8<-------------8<--------------8<----------

>> /PUT pdfmark
[
{icc_PDFA}
{ICCProfile (r) file} stopped
{
  (\n\tFailed to open the supplied ICCProfile for reading. This may be due to\n) print
  (\t  an incorrect filename or a failure to add --permit-file-read=<profile>\n) print
  (\t  to the command line. This PostScript program needs to open the file\n) print
  (\t  and you must explicitly grant it permission to do so.\n\n) print
  (\tPDF/A processing aborted, output may not be a PDF/A file.\n\n) print
  cleartomark
}
{
  /PUT pdfmark
  [/_objdef {OutputIntent_PDFA} /type /dict /OBJ pdfmark
  [{OutputIntent_PDFA} <<
    /Type /OutputIntent
    /S /GTS_PDFA1
    /DestOutputProfile {icc_PDFA}
    /OutputConditionIdentifier (sRGB) % Customize
  >> /PUT pdfmark
  [{Catalog} << /OutputIntents [ {OutputIntent_PDFA} ]>> /PUT pdfmark
} ifelse
"@

    Set-Content -Path $TargetFilePath -Value $postScriptText -Encoding ASCII
}

function Convert-ToPdfA3b {
    param (
        [string]$InputPdf,
        [string]$PrinterAppPath
    )

    $gsExe = Join-Path $PrinterAppPath "gs\gswin64c.exe"
    $iccFile = Join-Path $PrinterAppPath "icc\sRGB_IEC61966-2-1_no_black_scaling.icc"
    $dir = Split-Path $InputPdf
    $psFile = Join-Path $dir "lib_PDFA_def.ps"
    $tempPdfa = Join-Path $dir ("A_" + [System.IO.Path]::GetFileName($InputPdf))

    if (-not (Test-Path $gsExe)) {
        Write-Warning "Ghostscript not found: $gsExe"
        return $false
    }
    if (-not (Test-Path $iccFile)) {
        Write-Warning "ICC profile missing: $iccFile"
        return $false
    }

    Save-PostScriptForPdfA3 -TargetFilePath $psFile -ICCPath $iccFile

    # Ghostscript-Args
    $args = @(
        "--permit-file-read=$iccFile",
        "-sDEVICE=pdfwrite",
        "-dPDFACompatibilityPolicy=1",
        "-dPDFA=3",
        "-sColorConversionStrategy=RGB",
        "-o", "`"$tempPdfa`"",
        "`"$psFile`"",
        "`"$InputPdf`""
    )

    & "$gsExe" @args 2>&1 | Tee-Object "$env:TEMP\gs_pdfa3b.log"

    if (Test-Path $tempPdfa) {
        Move-Item $tempPdfa $InputPdf -Force
        Remove-Item $psFile -Force -ErrorAction SilentlyContinue
        return $true
    } else {
        Write-Warning "PDF/A conversion failed for: $InputPdf (see $env:TEMP\gs_pdfa3b.log)"
        return $false
    }
}

# Tool path to ZUGFeRD processor
$toolPath = "C:\Program Files (x86)\7-PDF\7-PDF Attach Extract And Remove Files\PDFAttachExtractAndRemoveFiles.exe"
if (-not (Test-Path $toolPath)) {
    Write-Error "ZUGFeRD processor not found: $toolPath"
    exit 1
}

if (-not (Test-Path $OutputFolder)) {
    Write-Host "Creating output folder: $OutputFolder"
    New-Item -ItemType Directory -Path $OutputFolder | Out-Null
}

$appPath = Get-7PdfPrinterAppPath
if (-not $appPath) {
    Write-Error "7-PDF Printer not found in registry."
    exit 1
}

$successCount = 0
$errorCount = 0

Get-ChildItem -Path $InputFolder -Filter *.pdf | ForEach-Object {
    $inputFile = $_.FullName
    $basename = $_.BaseName
    $outputFile = Join-Path $OutputFolder "$basename.pdf"

    Write-Host "Processing: $inputFile -> $outputFile"

    Copy-Item $inputFile $outputFile -Force

    if (-not (Convert-ToPdfA3b -InputPdf $outputFile -PrinterAppPath $appPath)) {
        $errorCount++
        return
    }

    $argLine = "-mode `"hidden`" -usage `"generate`" -inpdf `"$outputFile`" -apiToken `"$ApiToken`""

    $proc = Start-Process -FilePath "$toolPath" -ArgumentList $argLine -Wait -NoNewWindow -PassThru

    if ($proc.ExitCode -eq 0) {
        $successCount++
    } else {
        Write-Warning "ZUGFeRD processing failed (ExitCode $($proc.ExitCode)): $outputFile"
        $errorCount++
    }
}

Write-Host ""
Write-Host "Script finished."
Write-Host "Successfully processed: $successCount file(s)"
Write-Host "Failed: $errorCount file(s)"