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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-20 10:54:20 +02:00
parent 4844ed8a46 021e459bdc
commit c9ef013f2b
13 changed files with 769 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Classes/cEORIWebService.vb
View File

@@ -156,7 +156,8 @@ Public Class cEORIWebService
Dim destPath = DS.GET_TOP1_PATH Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then 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 If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id Dim anhId = ANH.anh_id
End If End If

6
SDL/Classes/cFinanzOnlineWebService.vb
View File

@@ -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 ' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
@@ -177,7 +178,8 @@ Public Class cFinanzOnlineWebService
Dim destPath = DS.GET_TOP1_PATH Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then 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 If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id Dim anhId = ANH.anh_id
End If End If

8
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb
View File

@@ -24,8 +24,8 @@
Private Sub frmVorauskasse_FremdwaehrungBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmVorauskasse_FremdwaehrungBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Load
'cboWaehrung.fillWithSQL(" SELECT Währungsschlüssel, Währungscode FROM Währungstabelle ORDER BY Währungscode,[Währungsschlüssel] DESC ", False, "FMZOLL", True) 'cboWaehrung.fillWithSQL(" SELECT Währungsschlüssel, Währungscode FROM Währungstabelle ORDER BY Währungscode,[Währungsschlüssel] DESC ", False, "FMZOLL", True)
cboWaehrung.fillWithSQL("SELECT Währungstabelle.Währungscode, Währungstabelle.Währungscode FROM Währungstabelle WHERE (((Währungstabelle.Eurokurs) Is Not Null And (Währungstabelle.Eurokurs)>0)) ORDER BY Währungstabelle.Währungscode; ", False, "FMZOLL", True) cboWaehrung.fillWithSQL("SELECT tblZOLL_Wechselkurse.fw_iso3, tblZOLL_Wechselkurse.fw_iso3 FROM tblZOLL_Wechselkurse WHERE isnull(fw_kurswert,0)>0 AND CAST(GETDATE() AS DATE) BETWEEN cast(fw_startdatum as DATE) AND cast(fw_enddatum as DATE) ORDER BY tblZOLL_Wechselkurse.fw_iso3; ", False, "FMZOLL", True)
cboWaehrungUmrechnung.fillWithSQL("SELECT Währungstabelle.Währungscode, Währungstabelle.Währungscode FROM Währungstabelle WHERE (((Währungstabelle.Eurokurs) Is Not Null And (Währungstabelle.Eurokurs)>0)) ORDER BY Währungstabelle.Währungscode; ", False, "FMZOLL", True) cboWaehrungUmrechnung.fillWithSQL("SELECT tblZOLL_Wechselkurse.fw_iso3, tblZOLL_Wechselkurse.fw_iso3 FROM tblZOLL_Wechselkurse WHERE isnull(fw_kurswert,0)>0 AND CAST(GETDATE() AS DATE) BETWEEN cast(fw_startdatum as DATE) AND cast(fw_enddatum as DATE) ORDER BY tblZOLL_Wechselkurse.fw_iso3; ", False, "FMZOLL", True)
If SND IsNot Nothing Then If SND IsNot Nothing Then
If SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert) AndAlso SND.tblSnd_Warenwert <> 0 Then If SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert) AndAlso SND.tblSnd_Warenwert <> 0 Then
@@ -49,7 +49,7 @@
Dim rg_Umrechnung As Double = 1 Dim rg_Umrechnung As Double = 1
Dim euro As Double = txtWarenwert._value Dim euro As Double = txtWarenwert._value
If cboWaehrung._value <> "EUR" Then If cboWaehrung._value <> "EUR" Then
Dim kurs = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([Eurokurs] ,0) FROM [Währungstabelle] where Währungscode='" & cboWaehrung._value & "' ORDER BY Währungsschlüssel DESC", "FMZOLL")) Dim kurs = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrung._value & "' ORDER BY fw_startdatum DESC", "FMZOLL"))
If IsNumeric(kurs) AndAlso kurs > 0 Then If IsNumeric(kurs) AndAlso kurs > 0 Then
euro = CDbl(txtWarenwert._value / kurs) euro = CDbl(txtWarenwert._value / kurs)
rg_Umrechnung /= kurs rg_Umrechnung /= kurs
@@ -58,7 +58,7 @@
Dim umrechnung As Double = euro Dim umrechnung As Double = euro
If cboWaehrungUmrechnung._value <> "EUR" Then If cboWaehrungUmrechnung._value <> "EUR" Then
Dim kurs_Umrechnung = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([Eurokurs] ,0) FROM [Währungstabelle] where Währungscode='" & cboWaehrungUmrechnung._value & "' ORDER BY Währungsschlüssel DESC", "FMZOLL")) Dim kurs_Umrechnung = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrungUmrechnung._value & "' ORDER BY fw_startdatum DESC", "FMZOLL"))
umrechnung = CDbl(euro * kurs_Umrechnung) umrechnung = CDbl(euro * kurs_Umrechnung)
rg_Umrechnung *= kurs_Umrechnung rg_Umrechnung *= kurs_Umrechnung
End If End If

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

@@ -2192,21 +2192,21 @@ Public Class FormularManagerNEU
If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then
If SND.HANDLING.Count > 0 Then If SND.HANDLING.Count > 0 Then
ATAMRN_List = SND.HANDLING ATAMRN_List = SND.HANDLING
' Else ' Else
' ATAMRN = SND.tblSnd_ATANr ' 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, ""))) ' 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
'Else 'Else
' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) ' 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, ""))) ' 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 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 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) '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 If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id da_id = DS.da_id
destPath = DS.GET_TOP1_PATH 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 If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
anhId = ANH.anh_id anhId = ANH.anh_id
Return True Return True
@@ -3840,40 +3841,40 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) 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.txtAdresse1.Text, 53, 88, 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.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.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.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.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.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.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.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.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" 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.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.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.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.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
Case "FR" 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.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.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.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.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite)
Case Else 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.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.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.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.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite)
End Select End Select
@@ -4146,7 +4147,7 @@ Public Class FormularManagerNEU
' Case "NL" : bez = "Informationsblatt Fiskalverzollung AT in DE" ' Case "NL" : bez = "Informationsblatt Fiskalverzollung AT in DE"
Case "FR" : bez = "Informationsblatt Fiskalverzollung AT in FR" Case "FR" : bez = "Informationsblatt Fiskalverzollung AT in FR"
Case Else Case Else
: bez = "Informationsblatt Fiskalverzollung AT in DE" bez = "Informationsblatt Fiskalverzollung AT in DE"
End Select End Select
Case FormularManagerArten.DE_InformationsblattFiskalverzollung Case FormularManagerArten.DE_InformationsblattFiskalverzollung
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
@@ -4154,7 +4155,7 @@ Public Class FormularManagerNEU
Case "EN" : bez = "Informationsblatt Fiskalverzollung DE in GB" Case "EN" : bez = "Informationsblatt Fiskalverzollung DE in GB"
Case "FR" : bez = "Informationsblatt Fiskalverzollung DE in FR" Case "FR" : bez = "Informationsblatt Fiskalverzollung DE in FR"
Case Else Case Else
: bez = "Informationsblatt Fiskalverzollung DE in DE" bez = "Informationsblatt Fiskalverzollung DE in DE"
End Select End Select
End Select End Select
@@ -4609,7 +4610,7 @@ Public Class FormularManagerNEU
If EMAILTMPCC <> "" Then Mail_CC = EMAILTMPCC If EMAILTMPCC <> "" Then Mail_CC = EMAILTMPCC
Dim EMAILTMPBCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(usrCntl.KdNR, "Fiskal") 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 If EMAILTMP = "" Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR) 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) 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)) ' 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) ' 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 listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0 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.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.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.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.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.txtEori.Text, 130, 51 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN"
@@ -4838,20 +4839,20 @@ Public Class FormularManagerNEU
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" 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.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.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite)
Case "FR" '140/102 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.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.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite)
Case "TR" 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.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.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite)
Case Else 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.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.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite)
End Select End Select
@@ -4869,10 +4870,10 @@ Public Class FormularManagerNEU
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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))
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) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "Finish_AVISO", listTowrite)
'End Select 'End Select
' End If ' End If
@@ -4893,11 +4894,11 @@ Public Class FormularManagerNEU
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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 = "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)) 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) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
'End Select 'End Select
' End If ' End If
@@ -4916,9 +4917,9 @@ Public Class FormularManagerNEU
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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 = "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)) '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) 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 ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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 = "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)) '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) 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 ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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 = "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)) '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) 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 ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG" ' 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(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 = "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)) '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) 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) 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.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.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.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.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.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.cbxAusfuhr.Checked, "x", ""), 13, 107.5, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Dim netto = usrCntl.txtNettoGewicht.Text Dim netto = usrCntl.txtNettoGewicht.Text
If IsNumeric(netto) Then netto = CDbl(netto).ToString("N0") & " kg" 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_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_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_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_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_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_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(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_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(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_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_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_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_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_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_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(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_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(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(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(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) 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) 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(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(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(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(Kommentare, 50, 212, 110, 30, "normal", 12, , itextsharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite)
End Function End Function
@@ -5060,25 +5061,25 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) 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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.txtSonstiges.Text, 182, 177, 100, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
If usrCntl.cbxInKundendatenSpeichern.Checked Then If usrCntl.cbxInKundendatenSpeichern.Checked Then
If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) 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) 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 Select Case language
Case "EN", "FR" 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("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("______________________", 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(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 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("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(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(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
Else 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("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(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(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
End If End If
Case Else 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("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("______________________", 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(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 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.-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("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(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(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
Else 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-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("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(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(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
End If End If
End Select End Select
Return listTowrite 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) 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 Select Case language
Case "EN" 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("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("______________________", 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(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 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("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)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
Else 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("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)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
End If End If
Case Else 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("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("______________________", 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(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 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("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)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
Else 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("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)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
End If End If
End Select End Select
@@ -5355,7 +5356,7 @@ Public Class FormularManagerNEU
Dim merged As Boolean = True Dim merged As Boolean = True
Using stream As FileStream = New FileStream(targetPdf, FileMode.Create) Using stream As FileStream = New FileStream(targetPdf, FileMode.Create)
stream.Position = 0 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 pdf As PdfCopy = New PdfCopy(document, stream)
Dim reader As PdfReader = Nothing Dim reader As PdfReader = Nothing
@@ -5396,9 +5397,9 @@ Public Class FormularManagerNEU
Dim pdfCount As Integer = 0 'total input pdf file count Dim pdfCount As Integer = 0 'total input pdf file count
Dim f As Integer = 0 'pointer to current input pdf file Dim f As Integer = 0 'pointer to current input pdf file
Dim fileName As String 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 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 writer As PdfWriter = Nothing
Dim cb As PdfContentByte = Nothing Dim cb As PdfContentByte = Nothing
@@ -5410,10 +5411,10 @@ Public Class FormularManagerNEU
If pdfCount > 1 Then If pdfCount > 1 Then
'Open the 1st item in the array PDFFiles 'Open the 1st item in the array PDFFiles
fileName = pdfFiles(f) fileName = pdfFiles(f)
reader = New iTextSharp.text.pdf.PdfReader(fileName) reader = New itextsharp.text.pdf.PdfReader(fileName)
'Get page count 'Get page count
pageCount = reader.NumberOfPages 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)) writer = PdfWriter.GetInstance(pdfDoc, New FileStream(outputPath, FileMode.OpenOrCreate))
With pdfDoc With pdfDoc
@@ -5450,7 +5451,7 @@ Public Class FormularManagerNEU
f += 1 f += 1
If f < pdfCount Then If f < pdfCount Then
fileName = pdfFiles(f) fileName = pdfFiles(f)
reader = New iTextSharp.text.pdf.PdfReader(fileName) reader = New itextsharp.text.pdf.PdfReader(fileName)
pageCount = reader.NumberOfPages pageCount = reader.NumberOfPages
End If End If
End While End While

5
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -13,6 +13,7 @@ Public Class cAvisoAnhaenge
Property anh_LaufzettelDruck As Boolean = False Property anh_LaufzettelDruck As Boolean = False
Property anh_GestellungslisteAnfuegen As Boolean = False Property anh_GestellungslisteAnfuegen As Boolean = False
Property anh_markiert As Boolean = False Property anh_markiert As Boolean = False
Property anh_size As Double
Public hasEntry As Boolean = False Public hasEntry As Boolean = False
@@ -29,7 +30,7 @@ Public Class cAvisoAnhaenge
' End If ' End If
End Sub 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_AvisoId = anh_AvisoId
Me.anh_SendungsId = anh_SendungsId Me.anh_SendungsId = anh_SendungsId
Me.anh_Name = anh_Name Me.anh_Name = anh_Name
@@ -37,6 +38,7 @@ Public Class cAvisoAnhaenge
Me.anh_Art = anh_Art Me.anh_Art = anh_Art
Me.anh_Typ = anh_Typ Me.anh_Typ = anh_Typ
Me.anh_Reihenfolge = anh_Reihenfolge Me.anh_Reihenfolge = anh_Reihenfolge
Me.anh_size = anh_size
If anh_Art.ToString.Equals("Auftrag") Then If anh_Art.ToString.Equals("Auftrag") Then
anh_markiert = True 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_LaufzettelDruck", anh_LaufzettelDruck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen)) 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_markiert", anh_markiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
Return list Return list
End Function End Function

119
VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb Normal file
View File

@@ -0,0 +1,119 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cFremdwaehrungskurse
Property fw_id As String
Property fw_iso2 As String
Property fw_iso3 As String
Property fw_land As String
Property fw_startdatum As Date
Property fw_enddatum As Date
Property fw_kurswert As Double
Dim SQL As New SQL
Sub New()
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_id", fw_id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso2", fw_iso2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso3", fw_iso3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_land", fw_land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_startdatum", fw_startdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_enddatum", fw_enddatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_kurswert", fw_kurswert))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZOLL_Wechselkurse WITH(updlock,serializable) WHERE fw_id=@fw_id AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum ) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblZOLL_Wechselkurse] SET " & str & " WHERE fw_id=@fw_id AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblZOLL_Wechselkurse (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
'Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
' Dim sqlstr = " DELETE FROM [tblEZB_Waehrungskurse] WITH(updlock,serializable) WHERE ezb_waehrungscode='" & ezb_waehrungscode & "' AND ezb_datum='" & ezb_datum & "' "
' Return SQL.doSQL(sqlstr, "FMZOLL")
'End Function
'Shared Function UPDATE_Waehrungstabelle(datum As Date) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
' Dim sqlstr = " UPDATE [Währungstabelle] SET [Währungstabelle].Eurokurs=tblEZB_Waehrungskurse.ezb_kurs
' FROM [Währungstabelle] inner join tblEZB_Waehrungskurse on [Währungstabelle].Währungsschlüssel=tblEZB_Waehrungskurse.ezb_waehrungsschluessel where tblEZB_Waehrungskurse.ezb_datum='" & datum.ToShortDateString & "' "
' Return (New SQL).doSQL(sqlstr, "FMZOLL")
'End Function
'Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double
' Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
' Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
'End Function
'Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double
' Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
' Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag
'End Function
End Class

5
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -85,6 +85,9 @@ Public Class cMitarbeiter
Property mit_timasId As Object = Nothing Property mit_timasId As Object = Nothing
Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing
Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
Property mit_Sprachkentnisse As Object = Nothing
@@ -188,6 +191,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Sprachkentnisse", mit_Sprachkentnisse))
Return list Return list
@@ -381,6 +385,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_timasId") Is DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId") If Not dr.Item("mit_timasId") Is DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId")
If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7") If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7")
If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6") If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
If Not dr.Item("mit_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
Catch ex As Exception Catch ex As Exception

2
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -473,7 +473,7 @@ Public Class frmMessenger
SplitContainer3.Panel1Collapsed = False SplitContainer3.Panel1Collapsed = False
initDGVMembers() initDGVMembers()
Else Else
lblChatName.Text = SQL.getValueTxtBySql("SELECT isnull(mit_vname,'') + ' ' + isnull(mit_nname,'') FROM [tblMessenger_ChatMembers] inner join tblMitarbeiter on mit_id=chatMb_maId where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN") lblChatName.Text = SQL.getValueTxtBySql("SELECT isnull(mit_vname,'') + ' ' + isnull(mit_nname,'') + ' '+ isnull('('+ mit_Sprachkentnisse +')','')FROM [tblMessenger_ChatMembers] inner join tblMitarbeiter on mit_id=chatMb_maId where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN")
btnTeilnehmer.BackgroundImage = My.Resources.person btnTeilnehmer.BackgroundImage = My.Resources.person
SplitContainer3.Panel1Collapsed = True SplitContainer3.Panel1Collapsed = True

2
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
View File

@@ -30,7 +30,7 @@ Public Class frmMessenger_NeuerChat
If Not loaded Then Exit Sub If Not loaded Then Exit Sub
With dgvMitarbeiter With dgvMitarbeiter
Dim FirmaTMP = MyComboBox1._value Dim FirmaTMP = MyComboBox1._value
Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma FROM [tblMitarbeiter]" Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname, isnull(mit_Sprachkentnisse,'') as Sprache ,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma FROM [tblMitarbeiter]"
sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 " sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 "
If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')" If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )" If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"

39
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheEinstellungen.Designer.vb generated
View File

@@ -31,6 +31,8 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
Me.lblName = New System.Windows.Forms.Label() Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox() Me.pic = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.pnlSrch.SuspendLayout() Me.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -67,6 +69,8 @@ Partial Class frmMitarbeitersucheEinstellungen
'pnlMain 'pnlMain
' '
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlMain.Controls.Add(Me.lbSprachen)
Me.pnlMain.Controls.Add(Me.Label2)
Me.pnlMain.Controls.Add(Me.cboTeam) Me.pnlMain.Controls.Add(Me.cboTeam)
Me.pnlMain.Controls.Add(Me.Label1) Me.pnlMain.Controls.Add(Me.Label1)
Me.pnlMain.Controls.Add(Me.btn) Me.pnlMain.Controls.Add(Me.btn)
@@ -85,7 +89,7 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.cboTeam._value = "" Me.cboTeam._value = ""
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cboTeam.FormattingEnabled = True Me.cboTeam.FormattingEnabled = True
Me.cboTeam.Location = New System.Drawing.Point(264, 96) Me.cboTeam.Location = New System.Drawing.Point(270, 61)
Me.cboTeam.Name = "cboTeam" Me.cboTeam.Name = "cboTeam"
Me.cboTeam.Size = New System.Drawing.Size(421, 32) Me.cboTeam.Size = New System.Drawing.Size(421, 32)
Me.cboTeam.TabIndex = 35 Me.cboTeam.TabIndex = 35
@@ -93,7 +97,7 @@ Partial Class frmMitarbeitersucheEinstellungen
'Label1 'Label1
' '
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(182, 100) Me.Label1.Location = New System.Drawing.Point(174, 65)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(76, 28) Me.Label1.Size = New System.Drawing.Size(76, 28)
Me.Label1.TabIndex = 34 Me.Label1.TabIndex = 34
@@ -103,9 +107,9 @@ Partial Class frmMitarbeitersucheEinstellungen
' '
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btn.Location = New System.Drawing.Point(264, 222) Me.btn.Location = New System.Drawing.Point(503, 222)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(421, 51) Me.btn.Size = New System.Drawing.Size(182, 51)
Me.btn.TabIndex = 32 Me.btn.TabIndex = 32
Me.btn.Text = "Speichern" Me.btn.Text = "Speichern"
Me.btn.UseVisualStyleBackColor = True Me.btn.UseVisualStyleBackColor = True
@@ -132,7 +136,28 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.pic.TabIndex = 0 Me.pic.TabIndex = 0
Me.pic.TabStop = False Me.pic.TabStop = False
' '
'frmMitarbeitersucheBearbeiten 'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label2.Location = New System.Drawing.Point(174, 98)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 28)
Me.Label2.TabIndex = 36
Me.Label2.Text = "Sprache:"
'
'lbSprachen
'
Me.lbSprachen._value = ""
Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbSprachen.FormattingEnabled = True
Me.lbSprachen.Location = New System.Drawing.Point(270, 98)
Me.lbSprachen.MultiColumn = True
Me.lbSprachen.Name = "lbSprachen"
Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.lbSprachen.Size = New System.Drawing.Size(192, 121)
Me.lbSprachen.TabIndex = 98
'
'frmMitarbeitersucheEinstellungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -142,7 +167,7 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.Controls.Add(Me.pnlSrch) Me.Controls.Add(Me.pnlSrch)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMitarbeitersucheBearbeiten" Me.Name = "frmMitarbeitersucheEinstellungen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmMitarbeitersuche" Me.Text = "frmMitarbeitersuche"
Me.pnlSrch.ResumeLayout(False) Me.pnlSrch.ResumeLayout(False)
@@ -160,4 +185,6 @@ Partial Class frmMitarbeitersucheEinstellungen
Friend WithEvents btn As Windows.Forms.Button Friend WithEvents btn As Windows.Forms.Button
Friend WithEvents cboTeam As MyComboBox Friend WithEvents cboTeam As MyComboBox
Friend WithEvents Label1 As Windows.Forms.Label Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents lbSprachen As MyListBox
End Class End Class

31
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheEinstellungen.vb
View File

@@ -21,6 +21,8 @@ Public Class frmMitarbeitersucheEinstellungen
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & MA.mit_firma & "'", False, "ADMIN", True) cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & MA.mit_firma & "'", False, "ADMIN", True)
lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung] FROM [dbo].[tblSprachen]", False, "ADMIN")
initMA() initMA()
End Sub End Sub
@@ -49,7 +51,21 @@ Public Class frmMitarbeitersucheEinstellungen
pic.BackgroundImage = My.Resources.personGray_m pic.BackgroundImage = My.Resources.personGray_m
End If End If
End Sub
If MA.mit_Sprachkentnisse IsNot Nothing AndAlso MA.mit_Sprachkentnisse <> "" Then
For Each f In MA.mit_Sprachkentnisse.ToString.Split(",")
For i = 0 To lbSprachen.Items.Count - 1
If DirectCast(lbSprachen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
lbSprachen.SetSelected(i, True)
End If
Next
Next
End If
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close() Me.Close()
@@ -63,6 +79,19 @@ Public Class frmMitarbeitersucheEinstellungen
If MA.mit_id <= 0 Then MsgBox("Fehler ID!") : Exit Sub If MA.mit_id <= 0 Then MsgBox("Fehler ID!") : Exit Sub
MA.mit_Sprachkentnisse = ""
If MA.mit_Sprachkentnisse = "" Then
For Each i In lbSprachen.SelectedItems
MA.mit_Sprachkentnisse &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
Next
End If
If MA.mit_Sprachkentnisse <> "" And MA.mit_Sprachkentnisse.ToString.EndsWith(",") Then
MA.mit_Sprachkentnisse = MA.mit_Sprachkentnisse.ToString.Substring(0, MA.mit_Sprachkentnisse.ToString.Length - 1)
End If
If MA.SAVE Then If MA.SAVE Then
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close() Me.Close()

434
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -1,4 +1,8 @@
Imports System.Net Imports System.Diagnostics.Tracing
Imports System.Net
Imports System.Runtime.Remoting
Imports System.Threading
Imports System.Windows.Forms
Public Class cTimasAPI Public Class cTimasAPI
@@ -15,26 +19,26 @@ Public Class cTimasAPI
Try Try
Dim success As Boolean Dim success As Boolean
rest.VerboseLogging = False rest.VerboseLogging = False
Dim bTls As Boolean = True Dim bTls As Boolean = True
Dim port As Integer = 443 Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True Dim bAutoReconnect As Boolean = True
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
If (success <> True) Then If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText) Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText failureText = rest.LastErrorText
Return False Return False
End If End If
success = rest.SetAuthBasic("admin", "BmWr501956") success = rest.SetAuthBasic("admin", "BmWr501956")
If (success <> True) Then If (success <> True) Then
Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason) Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText) Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText failureText = rest.LastErrorText
Return False Return False
End If End If
Return True Return True
@@ -200,7 +204,7 @@ Public Class cTimasAPI
End Sub End Sub
Public Function createMA(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef datatableTimas As DataTable, Optional ByRef requestDone As Boolean = False) Public Function createEmployee(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef datatableTimas As DataTable, Optional ByRef requestDone As Boolean = False)
Try Try
rest.ClearAllHeaders() rest.ClearAllHeaders()
@@ -229,8 +233,6 @@ Public Class cTimasAPI
success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female")) success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female"))
success = json.UpdateInt("card", mitarbeiter.mit_id) success = json.UpdateInt("card", mitarbeiter.mit_id)
success = json.UpdateString("info", mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung) success = json.UpdateString("info", mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung)
'success = json.UpdateString("clientNumber", "5600-02")
'success = json.UpdateInt("rfid", 178230359)
If mitarbeiter.mit_gebdat <> "" And IsDate(mitarbeiter.mit_gebdat) Then If mitarbeiter.mit_gebdat <> "" And IsDate(mitarbeiter.mit_gebdat) Then
success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd")) success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd"))
End If End If
@@ -349,7 +351,6 @@ Public Class cTimasAPI
Debug.WriteLine(json.LastErrorText) Debug.WriteLine(json.LastErrorText)
End If End If
Debug.WriteLine(json)
info &= IIf(json.StringOf("entry") <> "", "Startdatum: " & json.StringOf("entry") & vbNewLine, "") info &= IIf(json.StringOf("entry") <> "", "Startdatum: " & json.StringOf("entry") & vbNewLine, "")
info &= IIf(json.StringOf("externid") <> "", "MA-ID: " & json.StringOf("externid") & vbNewLine, "") info &= IIf(json.StringOf("externid") <> "", "MA-ID: " & json.StringOf("externid") & vbNewLine, "")
info &= IIf(json.StringOf("pnr1") <> "", "PersonalNr: " & json.StringOf("pnr1") & vbNewLine, "") info &= IIf(json.StringOf("pnr1") <> "", "PersonalNr: " & json.StringOf("pnr1") & vbNewLine, "")
@@ -362,14 +363,288 @@ Public Class cTimasAPI
info &= IIf(json.StringOf("password") <> "", "PW: " & json.StringOf("password"), "") info &= IIf(json.StringOf("password") <> "", "PW: " & json.StringOf("password"), "")
End If End If
Catch ex As WebException Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Public Sub getGroups(ByRef dt As DataTable) Public Function getEmployee(mitarbeiterID As String) As cTimasEmployee
Try
If Not checkConnectionTImas("") Then
Return Nothing
End If
Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & mitarbeiterID)
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
Return Nothing
End If
If (rest.ResponseStatusCode <> 200) Then
Debug.WriteLine(rest.ResponseHeader)
MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
Return Nothing
End If
Debug.WriteLine(responseJson)
Dim json As New Chilkat.JsonObject
Dim success = json.Load(responseJson)
If (success <> True) Then
Debug.WriteLine(json.LastErrorText)
End If
Dim emp As New cTimasEmployee()
emp.ID = json.StringOf("id")
emp.externid = json.StringOf("externid")
emp.pnr1 = json.StringOf("pnr1")
emp.pnr2 = json.StringOf("pnr2")
emp.firstname = json.StringOf("firstname")
emp.lastname = json.StringOf("lastname")
emp.gender = json.StringOf("gender")
emp.clientNumber = json.StringOf("clientNumber")
emp.card = json.StringOf("card")
emp.info = json.StringOf("info")
emp.rfid = json.StringOf("rfid")
emp.login = json.StringOf("login")
emp.email = json.StringOf("email")
emp.loginActive = json.BoolOf("loginActive")
emp.password = json.StringOf("password")
emp.street = json.StringOf("street")
emp.zipcode = json.StringOf("zipcode")
emp.city = json.StringOf("city")
emp.phone1 = json.StringOf("phone1")
emp.phone2 = json.StringOf("phone2")
Debug.WriteLine(json.StringOf("birthday"))
If (json.StringOf("birthday") <> "null") Then
emp.birthdayDate = CDate(json.StringOf("birthday")).ToString("yyyy-MM-dd")
End If
If (json.StringOf("entry") <> "null") Then
emp.entryDate = CDate(json.StringOf("entry")).ToString("yyyy-MM-dd")
End If
If (json.StringOf("exit") <> "null") Then
emp.exitDate = CDate(json.StringOf("exit")).ToString("yyyy-MM-dd")
End If
Dim groups As Chilkat.JsonArray = json.ArrayOf("groups")
If (json.LastMethodSuccess = False) Then
Debug.WriteLine("groups member not found.")
End If
emp.Gruppen = New List(Of cTimasGruppe)
Dim numGroups As Integer = groups.Size
Dim i As Integer = 0
While i < numGroups
Dim TIMASGroups As New cTimasGruppe(emp.ID)
TIMASGroups.Id = groups.IntAt(i)
emp.Gruppen.Add(TIMASGroups)
i = i + 1
End While
Debug.WriteLine(json)
Return emp
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Function
Public Function updateEmployee(emp As cTimasEmployee, dgv As DataGridView) As Boolean
Try
Dim success As Boolean
If True Then
If Not checkConnectionTImas("") Then
Return Nothing
End If
Dim json As New Chilkat.JsonObject
success = json.UpdateString("externid", emp.externid)
success = json.UpdateString("pnr1", emp.pnr1)
success = json.UpdateString("pnr2", emp.pnr2)
success = json.UpdateString("firstname", emp.firstname)
success = json.UpdateString("lastname", emp.lastname)
success = json.UpdateString("gender", emp.gender)
success = json.UpdateString("card", emp.card)
success = json.UpdateString("info", emp.info)
success = json.UpdateString("rfid", emp.rfid)
success = json.UpdateString("login", emp.login)
success = json.UpdateString("email", emp.email)
success = json.UpdateBool("loginActive", emp.loginActive)
success = json.UpdateString("password", emp.password)
success = json.UpdateString("street", emp.street)
success = json.UpdateString("city", emp.city)
success = json.UpdateString("phone1", emp.phone1)
success = json.UpdateString("phone2", emp.phone2)
If IsDate(emp.birthdayDate) Then
success = json.UpdateString("birthday", CDate(emp.birthdayDate).ToString("yyyy-MM-dd"))
Else
success = json.UpdateString("birthday", "")
End If
If IsDate(emp.entryDate) Then
success = json.UpdateString("entry", CDate(emp.entryDate).ToString("yyyy-MM-dd"))
Else
success = json.UpdateString("entry", "")
End If
If IsDate(emp.exitDate) Then
success = json.UpdateString("exit", CDate(emp.exitDate).ToString("yyyy-MM-dd"))
Else
success = json.UpdateString("exit", "")
End If
Dim sbRequestBody As New Chilkat.StringBuilder
json.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("PUT", "/rest/web-api/employees/" & emp.ID, sbRequestBody, sbResponseBody)
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
Return Nothing
End If
If (rest.ResponseStatusCode <> 201) Then
Debug.WriteLine(rest.ResponseHeader)
MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
Return Nothing
End If
Debug.WriteLine(sbResponseBody)
End If
If dgv IsNot Nothing AndAlso dgv.RowCount > 0 AndAlso emp.Gruppen IsNot Nothing Then
For Each r As DataGridViewRow In dgv.Rows
For Each i As cTimasGruppe In emp.Gruppen
If r.Cells("set").Value = False AndAlso r.Cells("id").Value = i.Id Then
deleteGroupmembers(i.Id, emp.ID)
Exit For
ElseIf r.Cells("set").Value = True AndAlso r.Cells("id").Value <> i.Id Then
addGroupmembers(r.Cells("id").Value, emp.ID)
Exit For
End If
Next
Next
End If
Return success
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Function
Public Sub getAllGroups(ByRef dt As DataTable, Optional initialGroup As Boolean = True)
Try
Dim failureText As String = ""
If Not checkConnectionTImas(failureText) Then
Exit Sub
End If
Dim responseBody As String = rest.FullRequestNoBody("GET", API_STRING & "/rest/web-api/groups3")
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
Exit Sub
End If
If (rest.ResponseStatusCode <> 200) Then
Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
End If
Dim jsonArray As New Chilkat.JsonArray
Dim success As Boolean = jsonArray.Load(responseBody)
If (success <> True) Then
Debug.WriteLine(jsonArray.LastErrorText)
Exit Sub
End If
Dim num As Integer = jsonArray.Size
If num = -1 Then
Exit Sub
End If
Dim j As Integer = 0
If dt IsNot Nothing And Not dt.Columns.Contains("id") Then
dt.Columns.Add("id", GetType(Integer))
dt.Columns.Add("name", GetType(String))
dt.Columns.Add("groupType", GetType(String))
dt.Columns.Add("info", GetType(String))
dt.Columns.Add("set", GetType(Boolean))
While j < num
Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j)
Dim R As DataRow = dt.NewRow
R("id") = groups.IntOf("id")
R("name") = groups.StringOf("name")
R("groupType") = groups.StringOf("groupType")
R("info") = groups.StringOf("info")
If initialGroup = True Then
If R("id") = "19" Or R("id") = "129" Then 'Typ Mitarbeiter und Standardgruppe für Mitarbeiter Default true
R("set") = True
Else
R("set") = False
End If
End If
dt.Rows.Add(R)
j = j + 1
End While
dt.DefaultView.Sort = " groupType asc, name asc"
dt = dt.DefaultView.ToTable()
End If
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub getGroupsFromEmployee(ByRef dt As DataTable)
Try Try
@@ -444,6 +719,59 @@ Public Class cTimasAPI
End Sub End Sub
Public Sub addGroupmembers(ByVal groupID As Integer, ByVal maId As Integer)
Try
Dim success As Boolean
Dim jarr As New Chilkat.JsonArray
jarr.AddIntAt(-1, maId)
Dim sbRequestBody As New Chilkat.StringBuilder
jarr.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST", "/rest/web-api/groups/" & groupID & "/addmembers", sbRequestBody, sbResponseBody)
If (success <> True) Then
Debug.WriteLine(rest.LastErrorText)
End If
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub deleteGroupmembers(ByVal groupID As Integer, ByVal maId As Integer)
Try
Dim success As Boolean
Dim jarr As New Chilkat.JsonArray
jarr.AddIntAt(-1, maId)
Dim sbRequestBody As New Chilkat.StringBuilder
jarr.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST", "/rest/web-api/groups/" & groupID & "/removemembers", sbRequestBody, sbResponseBody)
If (success <> True) Then
Debug.WriteLine(rest.LastErrorText)
End If
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function setTimeEntry(ByVal mitarbeiter As cMitarbeiter, ByVal timeEntry As DateTime, ByRef info As String, ByRef inout As String) Public Function setTimeEntry(ByVal mitarbeiter As cMitarbeiter, ByVal timeEntry As DateTime, ByRef info As String, ByRef inout As String)
Dim failureText As String = "" Dim failureText As String = ""
Dim timeEntryCreated As Boolean = False Dim timeEntryCreated As Boolean = False
@@ -557,7 +885,7 @@ Public Class cTimasAPI
Return "Array Failure" Return "Array Failure"
End If End If
If dt IsNot Nothing And Not dt.Columns.Contains("Id") Then If dt IsNot Nothing AndAlso Not dt.Columns.Contains("Id") Then
dt.Columns.Add("Id", GetType(Integer)) dt.Columns.Add("Id", GetType(Integer))
'dt.Columns.Add("externid", GetType(String)) 'dt.Columns.Add("externid", GetType(String))
dt.Columns.Add("Personal-Nr (Lohn)", GetType(String)) dt.Columns.Add("Personal-Nr (Lohn)", GetType(String))
@@ -594,4 +922,56 @@ Public Class cTimasAPI
End Function End Function
End Class
Public Class cTimasEmployee
Public ID As Integer
Public externid As String
Public pnr1 As String
Public pnr2 As String
Public firstname As String
Public lastname As String
Public gender As String
Public clientNumber As String
Public rfid As String
Public card As Integer
Public info As String
Public login As String
Public email As String
Public loginActive As Boolean
Public password As String
Public street As String
Public city As String
Public zipcode As String
Public phone1 As String
Public phone2 As String
Public birthdayDate As String
Public entryDate As String
Public exitDate As String
Public Gruppen As List(Of cTimasGruppe)
Sub New()
End Sub
End Class
Public Class cTimasGruppe
Public empID As Integer
Public Id As Integer
Public name As String
Public groupType As String
Public info As String
Sub New(empId)
Me.empID = empId
End Sub
End Class End Class

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -342,6 +342,7 @@
<Compile Include="Classes\cFiskalkunden.vb" /> <Compile Include="Classes\cFiskalkunden.vb" />
<Compile Include="Classes\cFiskalkundenAnhaenge.vb" /> <Compile Include="Classes\cFiskalkundenAnhaenge.vb" />
<Compile Include="Classes\cFremdSpeditionenZuordnung.vb" /> <Compile Include="Classes\cFremdSpeditionenZuordnung.vb" />
<Compile Include="Classes\cFremdwaehrungskurse.vb" />
<Compile Include="Classes\cGelangensbestaetigung.vb" /> <Compile Include="Classes\cGelangensbestaetigung.vb" />
<Compile Include="Classes\cGesamtsicherheitsPositionen.vb" /> <Compile Include="Classes\cGesamtsicherheitsPositionen.vb" />
<Compile Include="Classes\cGestellungsgarantien.vb" /> <Compile Include="Classes\cGestellungsgarantien.vb" />