edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -232,9 +232,10 @@ Public Class frmFormulare
Case "ATILLA"
Case "AMBAR"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
@@ -252,6 +253,7 @@ Public Class frmFormulare
Case Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
@@ -357,6 +359,18 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.DE_Vollmacht_indirekt
Dim c As New usrcntlVollmacht_DE_indirekt
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.DE_Fiskal
Dim c As New usrcntlVollmacht_DE_Fiskal
If ControlExists_addOK(c.GetType.ToString) Then
@@ -672,11 +686,12 @@ Public Class frmFormulare
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.VUB_AG, FormularManagerArten.VUB_CS, FormularManagerArten.VUB_IMEX
Case FormularManagerArten.VUB_AG, FormularManagerArten.VUB_CS, FormularManagerArten.VUB_IMEX, FormularManagerArten.VUB
Dim displayName = ""
If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
If valueTMP = FormularManagerArten.VUB_IMEX Then displayName = "VUB - IMEX Customs Service GmbH"
If valueTMP = FormularManagerArten.VUB Then displayName = "VUB"
Dim c As New usrcntlVUB(valueTMP, displayName)
If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
c.Width = MyFlowLayoutPanel1.Width - 6
@@ -712,6 +727,7 @@ Public Class frmFormulare
Dim displayName = ""
If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
If valueTMP = FormularManagerArten.VUB Then displayName = "VUB"
Dim c As New usrcntlFormOhneFelder(valueTMP, "SONSTIGE", displayName)
If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
c.Width = MyFlowLayoutPanel1.Width - 6
@@ -1028,9 +1044,14 @@ Public Class frmFormulare
End Try
ElseIf sender Is btnPrint Then
'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintFile(dest_path, "")
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(dest_path, cboPrinter.SelectedItem.ToString)
If dest_path.EndsWith("PDF") Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({dest_path}, cboPrinter.SelectedItem.ToString)
Else
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(dest_path, cboPrinter.SelectedItem.ToString)
End If
End If
End If
End If
End If
printed = True
@@ -1211,6 +1232,8 @@ Public Class FormularManagerNEU
Select Case c.GetType.ToString
Case GetType(usrcntlVollmacht_DE).ToString
retStr = FormularManagerNEU.VM_De(c)
Case GetType(usrcntlVollmacht_DE_indirekt).ToString
retStr = FormularManagerNEU.VM_De_indirekt(c)
Case GetType(usrcntlVollmacht_AT).ToString
retStr = FormularManagerNEU.VM_AT(c)
Case GetType(usrcntlFormOhneFelder).ToString
@@ -1288,6 +1311,8 @@ Public Class FormularManagerNEU
Select Case c.GetType.ToString
Case GetType(usrcntlVollmacht_DE).ToString
' retStr = FormularManagerNEU.VM_De(c)
Case GetType(usrcntlVollmacht_DE_indirekt).ToString
' retStr = FormularManagerNEU.VM_De(c)
Case GetType(usrcntlVollmacht_AT).ToString
' retStr = FormularManagerNEU.VM_AT(c)
Case GetType(usrcntlFormOhneFelder).ToString
@@ -1355,9 +1380,9 @@ Public Class FormularManagerNEU
End If
If usrCntl.cbxEinmaligeVollmacht.Checked Then
listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
listTowrite = addEinmaligeVM(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
End If
@@ -1370,6 +1395,46 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function VM_De_indirekt(usrCntl As usrcntlVollmacht_DE_indirekt) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
Dim top = 0
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
top = 25
End If
If usrCntl.cbxEinmaligeVollmacht.Checked Then
listTowrite = addEinmaligeVM(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
End If
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT_EN", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT", listTowrite)
End Select
Return ""
End Function
Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -1787,6 +1852,7 @@ Public Class FormularManagerNEU
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
If AVISO Is Nothing Then Return ""
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
If Vorpapier = "XXXX" Then
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP_EMPTY(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
Else
@@ -1929,7 +1995,6 @@ Public Class FormularManagerNEU
End If
'MsgBox(tb.Rows.Count)
rpt.DataSource = tb
@@ -3277,6 +3342,8 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
@@ -3299,7 +3366,10 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "AMBAR"
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Select Case usrCntl.cboSprache._value 'eig nur AMBAR
Case "EN" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK_EN", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
End Select
Case "UNISPED"
Select Case usrCntl.cboFirma._value
@@ -3545,6 +3615,15 @@ Public Class FormularManagerNEU
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
If rpt.txtVorlageKredit.Text <> "" Then rpt.txtVorlageKredit.Text &= vbNewLine
rpt.txtVorlageKredit.Text &= "*Zollamtsabwicklungs-/abklärungskosten, Mehraufwand, Antragsstellung, Unkosten, Sendungsstatusüberprüfung."
rpt.txtVorlageKredit.Text &= vbNewLine
rpt.txtVorlageKredit.Text &= "**Falls vom Zollamt Beschau der Ware angekündigt wird, werden diese je nach Aufwand verrechnet."
End If
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.Replace("[Zahlungsziel]", If(usrCntl.txtZahlunsziel.Text = "", "10", usrCntl.txtZahlunsziel.Text))
If PosKredit = "" Then 'Wenn keine Kredítaufwendung
@@ -4166,6 +4245,7 @@ Public Class FormularManagerNEU
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
End If
Select Case usrCntl.cboTEXT._value
Case "AT_FISKAL_DIREKT"
@@ -4881,17 +4961,26 @@ Public Class FormularManagerNEU
Public Shared Function MergePdfFiles(ByVal fileNames As List(Of String), ByVal targetPdf As String) As Boolean
Dim merged As Boolean = True
Using stream As FileStream = New FileStream(targetPdf, FileMode.Create)
stream.Position = 0
Dim document As New iTextSharp.text.Document
Dim pdf As PdfCopy = New PdfCopy(document, stream)
Dim reader As PdfReader = Nothing
reader.unethicalreading = True ' Damit geschützte PDFs gelesen werden können... ' PdfReader not opened with owner password
Try
document.Open()
For Each file As String In fileNames
reader = New PdfReader(file)
pdf.AddDocument(reader)
reader.Close()
If file.ToUpper.EndsWith(".PDF") Then
reader = New PdfReader(file)
pdf.AddDocument(reader)
reader.Close()
End If
Next
Catch __unusedException1__ As Exception
MsgBox(__unusedException1__.Message & __unusedException1__.StackTrace)
merged = False
If reader IsNot Nothing Then
reader.Close()
@@ -4904,6 +4993,7 @@ Public Class FormularManagerNEU
End Try
End Using
Return merged
End Function
@@ -5019,6 +5109,7 @@ Public Class FormularManagerArten
' Implements IReadOnlyCollection(Of String)
Shared Property DE_Vollmacht = "DE_Vollmacht"
Shared Property DE_Vollmacht_indirekt = "DE_Vollmacht_indirekt"
Shared Property DE_Fiskal = "DE_Fiskal"
Shared Property AT_Vollmacht = "AT_Vollmacht"
@@ -5028,6 +5119,7 @@ Public Class FormularManagerArten
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
Shared Property VUB = "VUB"
Shared Property VUB_AG = "VUB_AG"
Shared Property VUB_IMEX = "VUB_IMEX"
Shared Property VUB_CS = "VUB_CS"