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
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId)
Dim fi As New FileInfo(PdfTmp)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId, , fi.Length)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If

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
@@ -177,7 +178,8 @@ Public Class cFinanzOnlineWebService
Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId)
Dim fi As New FileInfo(PdfTmp)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId, , fi.Length)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If

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
'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)
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)
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 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.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 euro As Double = txtWarenwert._value
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
euro = CDbl(txtWarenwert._value / kurs)
rg_Umrechnung /= kurs
@@ -58,7 +58,7 @@
Dim umrechnung As Double = euro
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)
rg_Umrechnung *= kurs_Umrechnung
End If

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

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

5
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -13,6 +13,7 @@ Public Class cAvisoAnhaenge
Property anh_LaufzettelDruck As Boolean = False
Property anh_GestellungslisteAnfuegen As Boolean = False
Property anh_markiert As Boolean = False
Property anh_size As Double
Public hasEntry As Boolean = False
@@ -29,7 +30,7 @@ Public Class cAvisoAnhaenge
' End If
End Sub
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99)
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99, Optional anh_size = 0)
Me.anh_AvisoId = anh_AvisoId
Me.anh_SendungsId = anh_SendungsId
Me.anh_Name = anh_Name
@@ -37,6 +38,7 @@ Public Class cAvisoAnhaenge
Me.anh_Art = anh_Art
Me.anh_Typ = anh_Typ
Me.anh_Reihenfolge = anh_Reihenfolge
Me.anh_size = anh_size
If anh_Art.ToString.Equals("Auftrag") Then
anh_markiert = True
@@ -60,6 +62,7 @@ Public Class cAvisoAnhaenge
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
Return list
End Function

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_ATGRNAccessCode_AT51FP7 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_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_Sprachkentnisse", mit_Sprachkentnisse))
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_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_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
Catch ex As Exception

2
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -473,7 +473,7 @@ Public Class frmMessenger
SplitContainer3.Panel1Collapsed = False
initDGVMembers()
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
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
With dgvMitarbeiter
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 "
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 & "%' )"

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.lblName = New System.Windows.Forms.Label()
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.pnlMain.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -67,6 +69,8 @@ Partial Class frmMitarbeitersucheEinstellungen
'pnlMain
'
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.Label1)
Me.pnlMain.Controls.Add(Me.btn)
@@ -85,7 +89,7 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.cboTeam._value = ""
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
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.Size = New System.Drawing.Size(421, 32)
Me.cboTeam.TabIndex = 35
@@ -93,7 +97,7 @@ Partial Class frmMitarbeitersucheEinstellungen
'Label1
'
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.Size = New System.Drawing.Size(76, 28)
Me.Label1.TabIndex = 34
@@ -103,9 +107,9 @@ Partial Class frmMitarbeitersucheEinstellungen
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(421, 51)
Me.btn.Size = New System.Drawing.Size(182, 51)
Me.btn.TabIndex = 32
Me.btn.Text = "Speichern"
Me.btn.UseVisualStyleBackColor = True
@@ -132,7 +136,28 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.pic.TabIndex = 0
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.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -142,7 +167,7 @@ Partial Class frmMitarbeitersucheEinstellungen
Me.Controls.Add(Me.pnlSrch)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMitarbeitersucheBearbeiten"
Me.Name = "frmMitarbeitersucheEinstellungen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmMitarbeitersuche"
Me.pnlSrch.ResumeLayout(False)
@@ -160,4 +185,6 @@ Partial Class frmMitarbeitersucheEinstellungen
Friend WithEvents btn As Windows.Forms.Button
Friend WithEvents cboTeam As MyComboBox
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents lbSprachen As MyListBox
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)
lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung] FROM [dbo].[tblSprachen]", False, "ADMIN")
initMA()
End Sub
@@ -49,7 +51,21 @@ Public Class frmMitarbeitersucheEinstellungen
pic.BackgroundImage = My.Resources.personGray_m
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
Me.Close()
@@ -63,6 +79,19 @@ Public Class frmMitarbeitersucheEinstellungen
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
Me.DialogResult = Windows.Forms.DialogResult.OK
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
@@ -15,26 +19,26 @@ Public Class cTimasAPI
Try
Dim success As Boolean
rest.VerboseLogging = False
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText
Return False
End If
rest.VerboseLogging = False
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText
Return False
End If
success = rest.SetAuthBasic("admin", "BmWr501956")
success = rest.SetAuthBasic("admin", "BmWr501956")
If (success <> True) Then
Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText
Return False
End If
If (success <> True) Then
Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
failureText = rest.LastErrorText
Return False
End If
Return True
@@ -200,7 +204,7 @@ Public Class cTimasAPI
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
rest.ClearAllHeaders()
@@ -229,8 +233,6 @@ Public Class cTimasAPI
success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female"))
success = json.UpdateInt("card", mitarbeiter.mit_id)
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
success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd"))
End If
@@ -349,7 +351,6 @@ Public Class cTimasAPI
Debug.WriteLine(json.LastErrorText)
End If
Debug.WriteLine(json)
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("pnr1") <> "", "PersonalNr: " & json.StringOf("pnr1") & vbNewLine, "")
@@ -362,14 +363,288 @@ Public Class cTimasAPI
info &= IIf(json.StringOf("password") <> "", "PW: " & json.StringOf("password"), "")
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 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
@@ -444,6 +719,59 @@ Public Class cTimasAPI
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)
Dim failureText As String = ""
Dim timeEntryCreated As Boolean = False
@@ -557,7 +885,7 @@ Public Class cTimasAPI
Return "Array Failure"
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("externid", GetType(String))
dt.Columns.Add("Personal-Nr (Lohn)", GetType(String))
@@ -595,3 +923,55 @@ Public Class cTimasAPI
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

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

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