AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix pageindex, translations

Browse Source
This commit is contained in:
Jonathan Jenne
2023-12-11 11:35:45 +01:00
parent c4e9f5aa2b
commit 788d7fac9f
7 changed files with 54 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj
View File

@@ -222,7 +222,7 @@
<DependentUpon>rptEnvelopeHistory.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Strings\Email.en.resx">
<Generator>ResXFileCodeGenerator</Generator>
<Generator>PublicResXFileCodeGenerator</Generator>
<LastGenOutput>Email.en.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
</EmbeddedResource>
@@ -237,18 +237,18 @@
<CustomToolNamespace>My.Resources</CustomToolNamespace>
</EmbeddedResource>
<EmbeddedResource Include="Strings\Email.resx">
<Generator>ResXFileCodeGenerator</Generator>
<Generator>PublicResXFileCodeGenerator</Generator>
<LastGenOutput>Email.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
</EmbeddedResource>
<EmbeddedResource Include="Strings\Model.en.resx">
<Generator>ResXFileCodeGenerator</Generator>
<Generator>PublicResXFileCodeGenerator</Generator>
<LastGenOutput>Model.en.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
</EmbeddedResource>
<EmbeddedResource Include="Strings\Model.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<Generator>PublicResXFileCodeGenerator</Generator>
<LastGenOutput>Model.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup>

4
EnvelopeGenerator.Common/Jobs/PDFBurner.vb
View File

@@ -78,8 +78,10 @@ Namespace Jobs
Select Case oAnnotation.type
Case ANNOTATION_TYPE_IMAGE
AddImageAnnotation(oAnnotation, oAnnotationData.attachments)
Case ANNOTATION_TYPE_INK
AddInkAnnotation(oAnnotation)
End Select
Next
@@ -104,6 +106,7 @@ Namespace Jobs
Dim oWidth = oBounds.Item(2)
Dim oHeight = oBounds.Item(3)
Manager.SelectPage(pAnnotation.pageIndex + 1)
Manager.AddEmbeddedImageAnnotFromBase64(oAttachment.Value.binary, oX, oY, oWidth, oHeight)
Return True
@@ -126,7 +129,6 @@ Namespace Jobs
Select(AddressOf ToPointF).
ToArray()
Manager.AddFreeHandAnnot(oColor, oPoints)
Next

8
EnvelopeGenerator.Common/Strings/Email.Designer.vb generated
View File

@@ -25,7 +25,7 @@ Namespace My.Resources
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class Email
Public Class Email
Private Shared resourceMan As Global.System.Resources.ResourceManager
@@ -40,7 +40,7 @@ Namespace My.Resources
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Public Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Email", GetType(Email).Assembly)
@@ -55,7 +55,7 @@ Namespace My.Resources
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Public Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
@@ -67,7 +67,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Sie haben ein Dokument zur Unterschrift erhalten: {0} ähnelt.
'''</summary>
Friend Shared ReadOnly Property Sie_haben_ein_Dokument_zur_Unterschrift_erhalten___0_() As String
Public Shared ReadOnly Property Sie_haben_ein_Dokument_zur_Unterschrift_erhalten___0_() As String
Get
Return ResourceManager.GetString("Sie haben ein Dokument zur Unterschrift erhalten: {0}", resourceCulture)
End Get

62
EnvelopeGenerator.Common/Strings/Model.Designer.vb generated
View File

@@ -25,7 +25,7 @@ Namespace My.Resources
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class Model
Public Class Model
Private Shared resourceMan As Global.System.Resources.ResourceManager
@@ -40,7 +40,7 @@ Namespace My.Resources
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Public Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Model", GetType(Model).Assembly)
@@ -55,7 +55,7 @@ Namespace My.Resources
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Public Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
@@ -67,7 +67,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Abgeschlossen ähnelt.
'''</summary>
Friend Shared ReadOnly Property Completed() As String
Public Shared ReadOnly Property Completed() As String
Get
Return ResourceManager.GetString("Completed", resourceCulture)
End Get
@@ -76,7 +76,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Vollständig Signiert ähnelt.
'''</summary>
Friend Shared ReadOnly Property CompletelySigned() As String
Public Shared ReadOnly Property CompletelySigned() As String
Get
Return ResourceManager.GetString("CompletelySigned", resourceCulture)
End Get
@@ -85,7 +85,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Vertrag ähnelt.
'''</summary>
Friend Shared ReadOnly Property Contract() As String
Public Shared ReadOnly Property Contract() As String
Get
Return ResourceManager.GetString("Contract", resourceCulture)
End Get
@@ -94,7 +94,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Erstellt ähnelt.
'''</summary>
Friend Shared ReadOnly Property Created() As String
Public Shared ReadOnly Property Created() As String
Get
Return ResourceManager.GetString("Created", resourceCulture)
End Get
@@ -103,7 +103,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Dokument geöffnet ähnelt.
'''</summary>
Friend Shared ReadOnly Property DocumentOpened() As String
Public Shared ReadOnly Property DocumentOpened() As String
Get
Return ResourceManager.GetString("DocumentOpened", resourceCulture)
End Get
@@ -112,7 +112,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Dokument unterzeichnet ähnelt.
'''</summary>
Friend Shared ReadOnly Property DocumentSigned() As String
Public Shared ReadOnly Property DocumentSigned() As String
Get
Return ResourceManager.GetString("DocumentSigned", resourceCulture)
End Get
@@ -121,7 +121,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Entwurf ähnelt.
'''</summary>
Friend Shared ReadOnly Property Draft() As String
Public Shared ReadOnly Property Draft() As String
Get
Return ResourceManager.GetString("Draft", resourceCulture)
End Get
@@ -130,7 +130,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Archiviert ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeArchived() As String
Public Shared ReadOnly Property EnvelopeArchived() As String
Get
Return ResourceManager.GetString("EnvelopeArchived", resourceCulture)
End Get
@@ -139,7 +139,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Vollständig signiert ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeCompletelySigned() As String
Public Shared ReadOnly Property EnvelopeCompletelySigned() As String
Get
Return ResourceManager.GetString("EnvelopeCompletelySigned", resourceCulture)
End Get
@@ -148,7 +148,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Erstellt ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeCreated() As String
Public Shared ReadOnly Property EnvelopeCreated() As String
Get
Return ResourceManager.GetString("EnvelopeCreated", resourceCulture)
End Get
@@ -157,7 +157,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Gelöscht ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeDeleted() As String
Public Shared ReadOnly Property EnvelopeDeleted() As String
Get
Return ResourceManager.GetString("EnvelopeDeleted", resourceCulture)
End Get
@@ -166,7 +166,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopePartlySigned() As String
Public Shared ReadOnly Property EnvelopePartlySigned() As String
Get
Return ResourceManager.GetString("EnvelopePartlySigned", resourceCulture)
End Get
@@ -175,7 +175,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Umschlag in Queue ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeQueued() As String
Public Shared ReadOnly Property EnvelopeQueued() As String
Get
Return ResourceManager.GetString("EnvelopeQueued", resourceCulture)
End Get
@@ -184,7 +184,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Gespeichert ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeSaved() As String
Public Shared ReadOnly Property EnvelopeSaved() As String
Get
Return ResourceManager.GetString("EnvelopeSaved", resourceCulture)
End Get
@@ -193,7 +193,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Gesendet ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeSent() As String
Public Shared ReadOnly Property EnvelopeSent() As String
Get
Return ResourceManager.GetString("EnvelopeSent", resourceCulture)
End Get
@@ -202,7 +202,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die DMS ähnelt.
'''</summary>
Friend Shared ReadOnly Property EnvelopeTransmittedDMS() As String
Public Shared ReadOnly Property EnvelopeTransmittedDMS() As String
Get
Return ResourceManager.GetString("EnvelopeTransmittedDMS", resourceCulture)
End Get
@@ -211,7 +211,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Bestätigung versendet ähnelt.
'''</summary>
Friend Shared ReadOnly Property MessageConfirmationSent() As String
Public Shared ReadOnly Property MessageConfirmationSent() As String
Get
Return ResourceManager.GetString("MessageConfirmationSent", resourceCulture)
End Get
@@ -220,7 +220,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Löschinformation versendet ähnelt.
'''</summary>
Friend Shared ReadOnly Property MessageDeletionSent() As String
Public Shared ReadOnly Property MessageDeletionSent() As String
Get
Return ResourceManager.GetString("MessageDeletionSent", resourceCulture)
End Get
@@ -229,7 +229,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Einladung versendet ähnelt.
'''</summary>
Friend Shared ReadOnly Property MessageInvitationSent() As String
Public Shared ReadOnly Property MessageInvitationSent() As String
Get
Return ResourceManager.GetString("MessageInvitationSent", resourceCulture)
End Get
@@ -238,16 +238,16 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
'''</summary>
Friend Shared ReadOnly Property PartlySigned() As String
Public Shared ReadOnly Property PartlySigned() As String
Get
Return ResourceManager.GetString("PartlySigned", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ReadAndSign ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die Arbeitsanweisung ähnelt.
'''</summary>
Friend Shared ReadOnly Property ReadAndSign() As String
Public Shared ReadOnly Property ReadAndSign() As String
Get
Return ResourceManager.GetString("ReadAndSign", resourceCulture)
End Get
@@ -256,7 +256,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Gespeichert ähnelt.
'''</summary>
Friend Shared ReadOnly Property Saved() As String
Public Shared ReadOnly Property Saved() As String
Get
Return ResourceManager.GetString("Saved", resourceCulture)
End Get
@@ -265,7 +265,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Gesendet ähnelt.
'''</summary>
Friend Shared ReadOnly Property Sent() As String
Public Shared ReadOnly Property Sent() As String
Get
Return ResourceManager.GetString("Sent", resourceCulture)
End Get
@@ -274,7 +274,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Signatur ähnelt.
'''</summary>
Friend Shared ReadOnly Property Signature() As String
Public Shared ReadOnly Property Signature() As String
Get
Return ResourceManager.GetString("Signature", resourceCulture)
End Get
@@ -283,7 +283,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Signatur bestätigt ähnelt.
'''</summary>
Friend Shared ReadOnly Property SignatureConfirmed() As String
Public Shared ReadOnly Property SignatureConfirmed() As String
Get
Return ResourceManager.GetString("SignatureConfirmed", resourceCulture)
End Get
@@ -292,7 +292,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Signiert ähnelt.
'''</summary>
Friend Shared ReadOnly Property Signed() As String
Public Shared ReadOnly Property Signed() As String
Get
Return ResourceManager.GetString("Signed", resourceCulture)
End Get
@@ -301,7 +301,7 @@ Namespace My.Resources
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Unsigniert ähnelt.
'''</summary>
Friend Shared ReadOnly Property Unsigned() As String
Public Shared ReadOnly Property Unsigned() As String
Get
Return ResourceManager.GetString("Unsigned", resourceCulture)
End Get

2
EnvelopeGenerator.Common/Strings/Model.en.resx
View File

@@ -172,7 +172,7 @@
<value>Invitation Sent</value>
</data>
<data name="ReadAndSign" xml:space="preserve">
<value>ReadAndSign</value>
<value>Read and Sign</value>
</data>
<data name="Saved" xml:space="preserve">
<value>Saved</value>

2
EnvelopeGenerator.Common/Strings/Model.resx
View File

@@ -178,7 +178,7 @@
<value>Teil-Signiert</value>
</data>
<data name="ReadAndSign" xml:space="preserve">
<value>ReadAndSign</value>
<value>Arbeitsanweisung</value>
</data>
<data name="Saved" xml:space="preserve">
<value>Gespeichert</value>

15
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@@ -22,14 +22,19 @@ Public Class frmEnvelopeMainData
cmbContractType.ReadOnly = True
End If
Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
.Cast(Of ContractType)().ToList()
cmbContractType.Properties.Items.AddRange(contractTypeList)
Dim contractTypeList = [Enum].GetValues(GetType(ContractType)).Cast(Of ContractType)()
Dim oTranslatedList = contractTypeList.Select(AddressOf TranslateContractType).ToList()
cmbContractType.Properties.Items.AddRange(oTranslatedList)
txtTitle.EditValue = EnvelopeTitle
cmbContractType.EditValue = EnvelopeContractType
cmbContractType.EditValue = TranslateContractType(EnvelopeContractType)
End Sub
Private Function TranslateContractType(pType As ContractType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click
Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
@@ -42,6 +47,6 @@ Public Class frmEnvelopeMainData
End If
EnvelopeTitle = txtTitle.EditValue
EnvelopeContractType = cmbContractType.EditValue
EnvelopeContractType = cmbContractType.SelectedIndex + 1
End Sub
End Class