diff --git a/SDL/Classes/cEORIWebService.vb b/SDL/Classes/cEORIWebService.vb index 977238f6..e4d208b4 100644 --- a/SDL/Classes/cEORIWebService.vb +++ b/SDL/Classes/cEORIWebService.vb @@ -156,7 +156,8 @@ Public Class cEORIWebService Dim destPath = DS.GET_TOP1_PATH If AvisoId > 0 And SendungsId > 0 Then - Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId) + Dim fi As New FileInfo(PdfTmp) + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId, , fi.Length) If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False Dim anhId = ANH.anh_id End If diff --git a/SDL/Classes/cFinanzOnlineWebService.vb b/SDL/Classes/cFinanzOnlineWebService.vb index a9421665..e2bee0c3 100644 --- a/SDL/Classes/cFinanzOnlineWebService.vb +++ b/SDL/Classes/cFinanzOnlineWebService.vb @@ -1,4 +1,5 @@ -Imports SDL.at.gv.bmf.finanzonlineLogin +Imports System.IO +Imports SDL.at.gv.bmf.finanzonlineLogin ' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer @@ -177,7 +178,8 @@ Public Class cFinanzOnlineWebService Dim destPath = DS.GET_TOP1_PATH If AvisoId > 0 And SendungsId > 0 Then - Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId) + Dim fi As New FileInfo(PdfTmp) + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId, , fi.Length) If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False Dim anhId = ANH.anh_id End If diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 31eb2eb6..3ee79151 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -2133,7 +2133,7 @@ Public Class FormularManagerNEU rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim End If - + If SND.tblSnd_Fremdspedition Then rpt.txtAbfertigungsart.Text = "FREMD" rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText @@ -2192,21 +2192,21 @@ Public Class FormularManagerNEU If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then - If SND.HANDLING.Count > 0 Then - ATAMRN_List = SND.HANDLING + If SND.HANDLING.Count > 0 Then + ATAMRN_List = SND.HANDLING - ' Else - ' ATAMRN = SND.tblSnd_ATANr - ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) - ' End If - 'Else - ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) - ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) - End If + ' Else + ' ATAMRN = SND.tblSnd_ATANr + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + ' End If + 'Else + ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) End If + End If - If ATAMRN_List.Count = 0 Then 'kein Handling + If ATAMRN_List.Count = 0 Then 'kein Handling 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung 'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) @@ -3664,7 +3664,8 @@ Public Class FormularManagerNEU If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False da_id = DS.da_id destPath = DS.GET_TOP1_PATH - Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId) + Dim fi As New FileInfo(destPath) + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId,, fi.Length) If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False anhId = ANH.anh_id Return True @@ -3840,40 +3841,40 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Select Case usrCntl.cboSprache._value Case "EN" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite) Case "FR" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite) Case Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite) End Select @@ -4146,7 +4147,7 @@ Public Class FormularManagerNEU ' Case "NL" : bez = "Informationsblatt Fiskalverzollung AT in DE" Case "FR" : bez = "Informationsblatt Fiskalverzollung AT in FR" Case Else - : bez = "Informationsblatt Fiskalverzollung AT in DE" + bez = "Informationsblatt Fiskalverzollung AT in DE" End Select Case FormularManagerArten.DE_InformationsblattFiskalverzollung Select Case usrCntl.cboSprache._value @@ -4154,7 +4155,7 @@ Public Class FormularManagerNEU Case "EN" : bez = "Informationsblatt Fiskalverzollung DE in GB" Case "FR" : bez = "Informationsblatt Fiskalverzollung DE in FR" Case Else - : bez = "Informationsblatt Fiskalverzollung DE in DE" + bez = "Informationsblatt Fiskalverzollung DE in DE" End Select End Select @@ -4609,7 +4610,7 @@ Public Class FormularManagerNEU If EMAILTMPCC <> "" Then Mail_CC = EMAILTMPCC Dim EMAILTMPBCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(usrCntl.KdNR, "Fiskal") - If EMAILTMPBCC <> "" Then Mail_bCC = EMAILTMPBCC + If EMAILTMPBCC <> "" Then Mail_BCC = EMAILTMPBCC If EMAILTMP = "" Then Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR) @@ -4790,7 +4791,7 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite) @@ -4812,12 +4813,12 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim top = 0 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 33 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 38.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 43.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 33 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 38.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 43.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 130, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 51 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 130, 51 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Select Case usrCntl.cboSprache._value Case "EN" @@ -4838,20 +4839,20 @@ Public Class FormularManagerNEU Select Case usrCntl.cboSprache._value Case "EN" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 50, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 50, 182, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite) Case "FR" '140/102 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 115, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 115, 182, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite) Case "TR" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 26, 165, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 26, 165, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite) Case Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 80, 148, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 80, 148, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite) End Select @@ -4869,10 +4870,10 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 141, 47, 50, 12, "bold", 16, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "Finish_AVISO", listTowrite) 'End Select ' End If @@ -4893,11 +4894,11 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) - If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) - If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , itextsharp.text.Element.ALIGN_LEFT)) + If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) + If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite) 'End Select ' End If @@ -4916,9 +4917,9 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , itextsharp.text.Element.ALIGN_LEFT)) 'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso_AT", listTowrite) @@ -4938,9 +4939,9 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , itextsharp.text.Element.ALIGN_LEFT)) 'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso_DE", listTowrite) @@ -4960,9 +4961,9 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , itextsharp.text.Element.ALIGN_CENTER)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , itextsharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_WAI", listTowrite) @@ -4982,9 +4983,9 @@ Public Class FormularManagerNEU ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "FRONTOFFICE", "VERAG" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , itextsharp.text.Element.ALIGN_CENTER)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , itextsharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) 'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_DTB", listTowrite) @@ -5001,39 +5002,39 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 52, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 60, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 32, 71, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 52, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 60, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 32, 71, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxRechnung.Checked, "x", ""), 13, 91, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxPackUrsprung.Checked, "x", ""), 13, 99, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxAusfuhr.Checked, "x", ""), 13, 107.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxRechnung.Checked, "x", ""), 13, 91, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxPackUrsprung.Checked, "x", ""), 13, 99, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxAusfuhr.Checked, "x", ""), 13, 107.5, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Dim netto = usrCntl.txtNettoGewicht.Text If IsNumeric(netto) Then netto = CDbl(netto).ToString("N0") & " kg" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(netto, 45, 114.5, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(netto, 45, 114.5, 130, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_EXW.Checked, "x", ""), 13, 135, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_FCA.Checked, "x", ""), 13, 139, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CPT.Checked, "x", ""), 13, 155.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIP.Checked, "x", ""), 13, 159, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIF.Checked, "x", ""), 13, 163, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DAP.Checked, "x", ""), 13, 167.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DDP.Checked, "x", ""), 13, 171, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_1.Text, 167, 138, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_2.Text, 167, 166, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_EXW.Checked, "x", ""), 13, 135, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_FCA.Checked, "x", ""), 13, 139, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CPT.Checked, "x", ""), 13, 155.2, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIP.Checked, "x", ""), 13, 159, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIF.Checked, "x", ""), 13, 163, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DAP.Checked, "x", ""), 13, 167.5, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DDP.Checked, "x", ""), 13, 171, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_1.Text, 167, 138, 20, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_2.Text, 167, 166, 20, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_EXW.Checked, "x", ""), 13, 204, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_FCA.Checked, "x", ""), 13, 208, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CPT.Checked, "x", ""), 13, 212, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIP.Checked, "x", ""), 13, 224, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIF.Checked, "x", ""), 13, 228.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DAP.Checked, "x", ""), 13, 232, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DDP.Checked, "x", ""), 13, 236.3, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_1.Text, 167, 207, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_2.Text, 167, 232, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_EXW.Checked, "x", ""), 13, 204, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_FCA.Checked, "x", ""), 13, 208, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CPT.Checked, "x", ""), 13, 212, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIP.Checked, "x", ""), 13, 224, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIF.Checked, "x", ""), 13, 228.2, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DAP.Checked, "x", ""), 13, 232, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DDP.Checked, "x", ""), 13, 236.3, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_1.Text, 167, 207, 20, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_2.Text, 167, 232, 20, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 12, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 125, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 12, 262, 68, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 125, 262, 68, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "QS_UeDok", listTowrite) @@ -5046,10 +5047,10 @@ Public Class FormularManagerNEU 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)) + 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 @@ -5060,25 +5061,25 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRArt.Text, 192, 44, 80, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRFrauHerr.Text, 192, 54, 15, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRGesprochenMit.Text, 207, 54, 70, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRDatum.Text, 248, 64, 25, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRArt.Text, 192, 44, 80, 6, "normal", 12, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRFrauHerr.Text, 192, 54, 15, 6, "normal", 12, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRGesprochenMit.Text, 207, 54, 70, 6, "normal", 12, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRDatum.Text, 248, 64, 25, 6, "normal", 12, , itextsharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 153, 82, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 153, 92, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 153, 102, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 153, 82, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 153, 92, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 153, 102, 130, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLetztesBearbeitungsDatum.Text, 195, 115, 25, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBonitaetsindex.Text, 254, 113, 20, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGruendungsdatum.Text, 172, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUmsatz.Text, 210, 125, 35, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMitarbeiter.Text, 260, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBankverbindung.Text, 185, 137, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsweise.Text, 182, 147, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHoechstkredit.Text, 182, 157, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGeschaeftsfuehrerName.Text, 182, 167, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstiges.Text, 182, 177, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLetztesBearbeitungsDatum.Text, 195, 115, 25, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBonitaetsindex.Text, 254, 113, 20, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGruendungsdatum.Text, 172, 125, 20, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUmsatz.Text, 210, 125, 35, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMitarbeiter.Text, 260, 125, 20, 6, "normal", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBankverbindung.Text, 185, 137, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsweise.Text, 182, 147, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHoechstkredit.Text, 182, 157, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGeschaeftsfuehrerName.Text, 182, 167, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstiges.Text, 182, 177, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxInKundendatenSpeichern.Checked Then If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then @@ -5281,34 +5282,34 @@ Public Class FormularManagerNEU Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Select Case language Case "EN", "FR" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following invoice:", "This power of attorney is valid only for the following invoice:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following invoice:", "This power of attorney is valid only for the following invoice:"), left + 62, top + 0, 180, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) If small Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.: _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.: _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 33, top + 5, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) End If Case Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgende Rechnung:", "Diese Vollmacht ist nur für folgende Rechnung gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgende Rechnung:", "Diese Vollmacht ist nur für folgende Rechnung gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) If small Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Nr.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Nr.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 41, top + 5, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) End If End Select Return listTowrite @@ -5317,33 +5318,33 @@ Public Class FormularManagerNEU Shared Function addEinmaligeVMCarnetATA(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, CarnetATAr As String, XXXX As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Select Case language Case "EN" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following Carnet-ATA:", "This power of attorney is valid only for the following Carnet-ATA:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following Carnet-ATA:", "This power of attorney is valid only for the following Carnet-ATA:"), left + 62, top + 0, 180, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) If small Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.: _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 33, top + 5, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) End If Case Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgendes Carnet-ATA:", "Diese Vollmacht ist nur für folgendes Carnet-ATA gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgendes Carnet-ATA:", "Diese Vollmacht ist nur für folgendes Carnet-ATA gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) If small Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 41, top + 5, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) End If End Select @@ -5355,7 +5356,7 @@ Public Class FormularManagerNEU 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 document As New itextsharp.text.Document Dim pdf As PdfCopy = New PdfCopy(document, stream) Dim reader As PdfReader = Nothing @@ -5396,9 +5397,9 @@ Public Class FormularManagerNEU Dim pdfCount As Integer = 0 'total input pdf file count Dim f As Integer = 0 'pointer to current input pdf file Dim fileName As String - Dim reader As iTextSharp.text.pdf.PdfReader = Nothing + Dim reader As itextsharp.text.pdf.PdfReader = Nothing Dim pageCount As Integer = 0 - Dim pdfDoc As iTextSharp.text.Document = Nothing 'the output pdf document + Dim pdfDoc As itextsharp.text.Document = Nothing 'the output pdf document Dim writer As PdfWriter = Nothing Dim cb As PdfContentByte = Nothing @@ -5410,10 +5411,10 @@ Public Class FormularManagerNEU If pdfCount > 1 Then 'Open the 1st item in the array PDFFiles fileName = pdfFiles(f) - reader = New iTextSharp.text.pdf.PdfReader(fileName) + reader = New itextsharp.text.pdf.PdfReader(fileName) 'Get page count pageCount = reader.NumberOfPages - pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18) + pdfDoc = New itextsharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18) writer = PdfWriter.GetInstance(pdfDoc, New FileStream(outputPath, FileMode.OpenOrCreate)) With pdfDoc @@ -5450,7 +5451,7 @@ Public Class FormularManagerNEU f += 1 If f < pdfCount Then fileName = pdfFiles(f) - reader = New iTextSharp.text.pdf.PdfReader(fileName) + reader = New itextsharp.text.pdf.PdfReader(fileName) pageCount = reader.NumberOfPages End If End While diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb index 1352c220..ea7def32 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -13,6 +13,7 @@ Public Class cAvisoAnhaenge Property anh_LaufzettelDruck As Boolean = False Property anh_GestellungslisteAnfuegen As Boolean = False Property anh_markiert As Boolean = False + Property anh_size As Double Public hasEntry As Boolean = False @@ -29,7 +30,7 @@ Public Class cAvisoAnhaenge ' End If End Sub - Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99) + Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99, Optional anh_size = 0) Me.anh_AvisoId = anh_AvisoId Me.anh_SendungsId = anh_SendungsId Me.anh_Name = anh_Name @@ -37,6 +38,7 @@ Public Class cAvisoAnhaenge Me.anh_Art = anh_Art Me.anh_Typ = anh_Typ Me.anh_Reihenfolge = anh_Reihenfolge + Me.anh_size = anh_size If anh_Art.ToString.Equals("Auftrag") Then anh_markiert = True @@ -60,6 +62,7 @@ Public Class cAvisoAnhaenge list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size)) Return list End Function