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
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3140,11 +3140,17 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
@@ -4268,6 +4274,19 @@ Public Class FormularManagerNEU
End Function
Shared Function Zollstopp(Zollstop, Entladestelle, Kommentare, Absender) As String
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(Absender, 70, 44, 100, 10, "normal", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Zollstop, 50, 80, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Entladestelle, 50, 145, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Kommentare, 50, 212, 110, 30, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite)
End Function
Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -4310,14 +4329,14 @@ Public Class FormularManagerNEU
Public Shared Function getUO2() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2_FO() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function