refactor(EnvelopeDocument): Aktualisiert zur Aufnahme von Common.Entities.EnvelopeDocument

This commit is contained in:
Developer 02
2025-05-26 09:31:38 +02:00
parent 8e4266fcf6
commit dd6bc55fd6
11 changed files with 33 additions and 32 deletions

View File

@@ -183,7 +183,7 @@ Public Class EnvelopeEditorController
.FileNameOriginal = oFileInfo.Name,
.Thumbnail = Thumbnail.GetThumbnailFromPDFFile(oTempFilePath),
.PageCount = Thumbnail.GetPageCount(oTempFilePath),
.Byte_Data = ReadFile(oFixedPath)
.ByteData = ReadFile(oFixedPath)
}
Return oDocument

View File

@@ -2,6 +2,7 @@
Imports EnvelopeGenerator.Common
Imports GdPicture14.Annotations
Imports EnvelopeGenerator.Domain
Imports EnvelopeGenerator.Domain.Entities
Public Class FieldEditorController
Inherits BaseController

View File

@@ -123,7 +123,7 @@ Partial Public Class frmEnvelopeEditor
File.Delete(oTempFilename)
End If
WriteBytetoPath(oTempFilename, docItem.Byte_Data)
WriteBytetoPath(oTempFilename, docItem.ByteData)
docItem.Filepath = oTempFilename
GridDocuments.Tag = docItem.Filepath
End If
@@ -215,11 +215,11 @@ Partial Public Class frmEnvelopeEditor
If ViewDocuments.GetSelectedRows().Count > 0 Then
Dim oDocument As EnvelopeDocument = DirectCast(ViewDocuments.GetFocusedRow(), EnvelopeDocument)
Dim oEnvelope = Controller.Envelope
If Not IsNothing(oDocument.Byte_Data) Then
If Not IsNothing(oDocument.ByteData) Then
Dim oTempFolder = TempFiles._TempPath
Dim oTempFilename = String.Concat(oTempFolder, "\", $"ViewEnvDoc_{oEnvelope.Id}.pdf")
If Not File.Exists(oTempFilename) Then
WriteBytetoPath(oTempFilename, oDocument.Byte_Data)
WriteBytetoPath(oTempFilename, oDocument.ByteData)
oDocument.Filepath = oTempFilename
End If

View File

@@ -12,7 +12,7 @@ Imports EnvelopeGenerator.Common
Imports EnvelopeGenerator.Common.My
Imports System.ComponentModel
Imports DevExpress.XtraPrinting
Imports DigitalData.Domain
Imports EnvelopeGenerator.Domain.Entities
Public Class frmMain
Private ReadOnly LogConfig As LogConfig
@@ -405,7 +405,7 @@ Public Class frmMain
Me.Cursor = Cursors.Default
Exit Sub
Else
If Not IsNothing(oDocument.Byte_Data) Then
If Not IsNothing(oDocument.ByteData) Then
Dim oTempFolder = TempFiles._TempPath
Dim oTempFilename = String.Concat(oTempFolder, "\", $"ViewEnvDoc_{oEnvelope.Id}.pdf")
If File.Exists(oTempFilename) Then
@@ -420,7 +420,7 @@ Public Class frmMain
File.Delete(oTempFilename)
End If
downloadFile(oTempFilename, oDocument.Byte_Data)
downloadFile(oTempFilename, oDocument.ByteData)
End If
End If
Catch ex As Exception