Laufzettel; EZABestätigung, Kafka, CBAM, KVI Report
This commit is contained in:
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@@ -1,4 +1,4 @@
|
||||
Imports itextsharp.text.pdf
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports System.IO
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports System.Net
|
||||
@@ -9,6 +9,7 @@ Imports System.Text.RegularExpressions
|
||||
Imports System.Windows.Documents
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
Event ShownFIN()
|
||||
@@ -1734,13 +1735,13 @@ Public Class FormularManagerNEU
|
||||
Dim Top = -10
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
@@ -1768,27 +1769,27 @@ Public Class FormularManagerNEU
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Select Case usrCntl.cboPaketOption._value
|
||||
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
End Select
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
@@ -1811,16 +1812,16 @@ Public Class FormularManagerNEU
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
|
||||
@@ -1882,21 +1883,21 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "TR"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 59, Top + 47.4, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 59, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
End Select
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
|
||||
@@ -1919,15 +1920,15 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1959,17 +1960,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
@@ -1978,7 +1979,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
If usrCntl.txtOrt.Text <> "" Then
|
||||
If (IsDate(usrCntl.datDatum.Text)) AndAlso usrCntl.cbxDatum.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Text, 20, 269, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Text, 20, 269, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
Else
|
||||
@@ -1988,7 +1989,7 @@ Public Class FormularManagerNEU
|
||||
dat = CDate(usrCntl.datDatum.Value)
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.datDatum.Text, 50, 269, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.datDatum.Text, 50, 269, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2452,7 +2453,7 @@ Public Class FormularManagerNEU
|
||||
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
|
||||
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
|
||||
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
|
||||
Dim docBez As String = ""
|
||||
Dim docBez As String = ""
|
||||
|
||||
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
|
||||
@@ -2627,22 +2628,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
@@ -3191,19 +3192,24 @@ Public Class FormularManagerNEU
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim tb As New DataTable
|
||||
tb.Columns.Add("Nr", GetType(Integer))
|
||||
Dim tbUnSorted As New DataTable
|
||||
tbUnSorted.Columns.Add("Nr", GetType(Integer))
|
||||
' tb.Columns.Add("Nr", GetType(String))
|
||||
' tb.Columns.Add("PosNr", GetType(String))
|
||||
' tb.Columns.Add("AbfArt", GetType(String))
|
||||
tbUnSorted.Columns.Add("ATBMRN", GetType(String))
|
||||
Dim cnt = 1
|
||||
|
||||
'Table sortieren nach ATBMRN, damit gleiche ATBMRN zusammen in der Liste stehen
|
||||
Dim dv As New DataView(tbUnSorted)
|
||||
dv.Sort = "ATBMRN ASC, Nr ASC"
|
||||
Dim tb As DataTable = dv.ToTable()
|
||||
|
||||
|
||||
For Each s In SENDUNGEN
|
||||
'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
|
||||
tb.Rows.Add(SENDUNGEN.IndexOf(s))
|
||||
|
||||
tb.Rows.Add({SENDUNGEN.IndexOf(s), getATBMRN_fromSND(s, Vorpapier.ToString.Replace("XXXX", ""))})
|
||||
'If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
|
||||
'If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
|
||||
cnt += 1
|
||||
@@ -3243,6 +3249,15 @@ Public Class FormularManagerNEU
|
||||
rpt.DataSource = tb
|
||||
Dim fiskal_bool = False
|
||||
|
||||
If Vorpapier.ToString.Replace("XXXX", "") <> "" Then
|
||||
rpt.GroupHeader1.DataField = "ATBMRN" 'Gruppierung
|
||||
Else
|
||||
rpt.GroupHeader1.Visible = False
|
||||
End If
|
||||
|
||||
Dim cntATBMRN = 1
|
||||
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
|
||||
|
||||
@@ -3413,6 +3428,26 @@ Public Class FormularManagerNEU
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.GroupHeader1.Format, Sub()
|
||||
If rpt.Fields.Item("ATBMRN").Value IsNot Nothing Then
|
||||
|
||||
'Überschreiben mit ATB-Barcode
|
||||
Dim barcodeATB As Image = Code128Rendering.MakeBarcodeImage(rpt.Fields.Item("ATBMRN").Value, 1, True, 20)
|
||||
rpt.picBarcodeMRN.Image = barcodeATB
|
||||
rpt.picBarcodeMRN.Visible = True
|
||||
' rpt.picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
|
||||
|
||||
rpt.TextBox15.Text = rpt.Fields.Item("ATBMRN").Value
|
||||
Else
|
||||
rpt.picBarcodeMRN.Image = Nothing
|
||||
rpt.TextBox15.Text = "-"
|
||||
rpt.picBarcodeMRN.Visible = False
|
||||
End If
|
||||
|
||||
rpt.TextBox13.Text = cntATBMRN
|
||||
cntATBMRN += 1
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.Detail.BeforePrint, Sub()
|
||||
rpt.Shape8.Height = rpt.Detail.Height
|
||||
rpt.Shape10.Height = rpt.Detail.Height
|
||||
@@ -3459,6 +3494,27 @@ Public Class FormularManagerNEU
|
||||
Return tmpPath
|
||||
End Function
|
||||
|
||||
Shared Function getATBMRN_fromSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen, Vorpapier As String) As String
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim PosString = ""
|
||||
If Vorpapier = SND.tblSnd_Vorpapier Then PosString = VERAG_PROG_ALLGEMEIN.cProgramFunctions.ExpandNumbers(SND.tblSnd_Vorpapier_Pos)
|
||||
If Vorpapier = SND.tblSnd_Vorpapier2 Then PosString = VERAG_PROG_ALLGEMEIN.cProgramFunctions.ExpandNumbers(SND.tblSnd_Vorpapier2_Pos)
|
||||
If Vorpapier = SND.tblSnd_Vorpapier3 Then PosString = VERAG_PROG_ALLGEMEIN.cProgramFunctions.ExpandNumbers(SND.tblSnd_Vorpapier3_Pos)
|
||||
|
||||
If PosString = "" Then Return ""
|
||||
|
||||
Return SQL.getValueTxtBySql("
|
||||
Select STRING_AGG(gs_MRNNr, ',') AS ATBNr_List
|
||||
FROM(
|
||||
SELECT DISTINCT gs_MRNNr
|
||||
From [AVISO].[dbo].[tblGesamtsicherheit]
|
||||
Where gs_ATBNr = '" & Vorpapier & "'
|
||||
And gs_posNr In (" & PosString & ")
|
||||
) t ", "AVISO",,, "")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function Sammelakt_CheckIn(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
|
||||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
@@ -3473,7 +3529,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
'rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
|
||||
@@ -211,6 +211,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
|
||||
Me.pnlRechts.SuspendLayout()
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -1066,6 +1067,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.pnlBerichte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.pnlBerichte.Controls.Add(Me.CheckBox4)
|
||||
Me.pnlBerichte.Controls.Add(Me.cbxDetailbericht)
|
||||
Me.pnlBerichte.Controls.Add(Me.MyComboBox2)
|
||||
Me.pnlBerichte.Controls.Add(Me.Button25)
|
||||
@@ -1099,7 +1101,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.cbxDetailbericht.AutoSize = True
|
||||
Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.cbxDetailbericht.Location = New System.Drawing.Point(333, 141)
|
||||
Me.cbxDetailbericht.Location = New System.Drawing.Point(328, 141)
|
||||
Me.cbxDetailbericht.Name = "cbxDetailbericht"
|
||||
Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
|
||||
Me.cbxDetailbericht.TabIndex = 59
|
||||
@@ -2923,6 +2925,17 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.SplitContainer.SplitterWidth = 2
|
||||
Me.SplitContainer.TabIndex = 3
|
||||
'
|
||||
'CheckBox4
|
||||
'
|
||||
Me.CheckBox4.AutoSize = True
|
||||
Me.CheckBox4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.CheckBox4.Location = New System.Drawing.Point(413, 141)
|
||||
Me.CheckBox4.Name = "CheckBox4"
|
||||
Me.CheckBox4.Size = New System.Drawing.Size(78, 17)
|
||||
Me.CheckBox4.TabIndex = 95
|
||||
Me.CheckBox4.Text = "Detailb.Full"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = False
|
||||
'
|
||||
'usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
@@ -3152,4 +3165,5 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents CheckBox4 As CheckBox
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
392
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.Designer.vb
generated
Normal file
392
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.Designer.vb
generated
Normal file
@@ -0,0 +1,392 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtWarenort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.MyCheckbox1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.txtDyMandant = New System.Windows.Forms.Label()
|
||||
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
||||
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.Panel2.SuspendLayout()
|
||||
Me.SplitContainer.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.cntxtBezugsnr.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.MenuStrip.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer
|
||||
'
|
||||
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||
Me.SplitContainer.IsSplitterFixed = True
|
||||
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.SplitContainer.Name = "SplitContainer"
|
||||
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer.Panel1
|
||||
'
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
|
||||
'
|
||||
'SplitContainer.Panel2
|
||||
'
|
||||
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.White
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.txtWarenort)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.Label3)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.txtMRN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.Label2)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.MyCheckbox1)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.cboStammreferenz)
|
||||
Me.SplitContainer.Panel2.Controls.Add(Me.Label6)
|
||||
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
|
||||
Me.SplitContainer.SplitterDistance = 72
|
||||
Me.SplitContainer.SplitterWidth = 1
|
||||
Me.SplitContainer.TabIndex = 0
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.Controls.Add(Me.cboDakosyAction)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pnl.Location = New System.Drawing.Point(573, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(361, 72)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(159, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackColor = System.Drawing.Color.White
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(200, 5)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "An DAKOSY senden -->"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'txtWarenort
|
||||
'
|
||||
Me.txtWarenort._DateTimeOnly = False
|
||||
Me.txtWarenort._numbersOnly = False
|
||||
Me.txtWarenort._numbersOnlyKommastellen = ""
|
||||
Me.txtWarenort._numbersOnlyTrennzeichen = True
|
||||
Me.txtWarenort._Prozent = False
|
||||
Me.txtWarenort._ShortDateNew = False
|
||||
Me.txtWarenort._ShortDateOnly = False
|
||||
Me.txtWarenort._TimeOnly = False
|
||||
Me.txtWarenort._TimeOnly_Seconds = False
|
||||
Me.txtWarenort._value = ""
|
||||
Me.txtWarenort._Waehrung = False
|
||||
Me.txtWarenort._WaehrungZeichen = True
|
||||
Me.txtWarenort.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWarenort.Location = New System.Drawing.Point(144, 94)
|
||||
Me.txtWarenort.MaxLineLength = -1
|
||||
Me.txtWarenort.MaxLines_Warning = ""
|
||||
Me.txtWarenort.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWarenort.Name = "txtWarenort"
|
||||
Me.txtWarenort.Size = New System.Drawing.Size(280, 20)
|
||||
Me.txtWarenort.TabIndex = 17
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(17, 97)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "Warenort:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtMRN
|
||||
'
|
||||
Me.txtMRN._DateTimeOnly = False
|
||||
Me.txtMRN._numbersOnly = False
|
||||
Me.txtMRN._numbersOnlyKommastellen = ""
|
||||
Me.txtMRN._numbersOnlyTrennzeichen = True
|
||||
Me.txtMRN._Prozent = False
|
||||
Me.txtMRN._ShortDateNew = False
|
||||
Me.txtMRN._ShortDateOnly = False
|
||||
Me.txtMRN._TimeOnly = False
|
||||
Me.txtMRN._TimeOnly_Seconds = False
|
||||
Me.txtMRN._value = ""
|
||||
Me.txtMRN._Waehrung = False
|
||||
Me.txtMRN._WaehrungZeichen = True
|
||||
Me.txtMRN.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtMRN.Location = New System.Drawing.Point(144, 60)
|
||||
Me.txtMRN.MaxLineLength = -1
|
||||
Me.txtMRN.MaxLines_Warning = ""
|
||||
Me.txtMRN.MaxLines_Warning_Label = Nothing
|
||||
Me.txtMRN.Name = "txtMRN"
|
||||
Me.txtMRN.Size = New System.Drawing.Size(280, 20)
|
||||
Me.txtMRN.TabIndex = 15
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(17, 63)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(121, 13)
|
||||
Me.Label2.TabIndex = 14
|
||||
Me.Label2.Text = "NCTS-Vorpapier (MRN):"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'MyCheckbox1
|
||||
'
|
||||
Me.MyCheckbox1._value = ""
|
||||
Me.MyCheckbox1.AutoSize = True
|
||||
Me.MyCheckbox1.Checked_value = False
|
||||
Me.MyCheckbox1.CheckedValue = False
|
||||
Me.MyCheckbox1.Location = New System.Drawing.Point(462, 31)
|
||||
Me.MyCheckbox1.Name = "MyCheckbox1"
|
||||
Me.MyCheckbox1.Size = New System.Drawing.Size(225, 17)
|
||||
Me.MyCheckbox1.TabIndex = 13
|
||||
Me.MyCheckbox1.Text = "Ereignis (wenn JA -> in DAKOSY erstellen)"
|
||||
Me.MyCheckbox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = False
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(144, 27)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(280, 21)
|
||||
Me.cboStammreferenz.TabIndex = 11
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(17, 30)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label6.TabIndex = 12
|
||||
Me.Label6.Text = "Stammref.:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(499, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Bezugsnummer:"
|
||||
'
|
||||
'lblBezugsnummer
|
||||
'
|
||||
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
|
||||
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblBezugsnummer.Location = New System.Drawing.Point(584, 1)
|
||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(347, 23)
|
||||
Me.lblBezugsnummer.TabIndex = 6
|
||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'cntxtBezugsnr
|
||||
'
|
||||
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
|
||||
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
|
||||
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
|
||||
Me.cntxtBezugsnr.Text = "Bezugsnr"
|
||||
'
|
||||
'NeueBezugsnummerVergebenToolStripMenuItem
|
||||
'
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.txtDyMandant)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
|
||||
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
|
||||
Me.Panel1.Controls.Add(Me.MenuStrip)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(934, 25)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'txtDyMandant
|
||||
'
|
||||
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyMandant.Location = New System.Drawing.Point(372, 7)
|
||||
Me.txtDyMandant.Name = "txtDyMandant"
|
||||
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
|
||||
Me.txtDyMandant.TabIndex = 19
|
||||
Me.txtDyMandant.Text = "VERG"
|
||||
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtDyNiederlassung
|
||||
'
|
||||
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(426, 7)
|
||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13)
|
||||
Me.txtDyNiederlassung.TabIndex = 18
|
||||
Me.txtDyNiederlassung.Text = "SUB"
|
||||
'
|
||||
'MenuStrip
|
||||
'
|
||||
Me.MenuStrip.BackColor = System.Drawing.Color.White
|
||||
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
|
||||
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip.Name = "MenuStrip"
|
||||
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
|
||||
Me.MenuStrip.TabIndex = 0
|
||||
'
|
||||
'OptionenToolStripMenuItem
|
||||
'
|
||||
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
|
||||
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
|
||||
Me.OptionenToolStripMenuItem.Text = "Optionen"
|
||||
'
|
||||
'usrCntlATLAS_AnkunftsAnzeige
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.SplitContainer)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "usrCntlATLAS_AnkunftsAnzeige"
|
||||
Me.Size = New System.Drawing.Size(934, 712)
|
||||
Me.SplitContainer.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer.Panel2.PerformLayout()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.cntxtBezugsnr.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.MenuStrip.ResumeLayout(False)
|
||||
Me.MenuStrip.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
|
||||
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
|
||||
Friend WithEvents MyCheckbox1 As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||
Friend WithEvents txtMRN As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents txtWarenort As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
End Class
|
||||
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,357 @@
|
||||
Imports DAKOSY_Worker
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
|
||||
Property ALLG As usrCntlATLAS_AnkunftsAnzeige
|
||||
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
|
||||
Dim sentToDakosy = False
|
||||
|
||||
Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz
|
||||
Dim Standort As String = ""
|
||||
Dim gsnr As Integer = -1
|
||||
Dim WarenwertEUR As Double = 0
|
||||
|
||||
Property FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
|
||||
|
||||
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, gsnr As Integer, WarenwertEUR As Double)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.AVISO = AVISO
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.FIRMA_DY = FIRMA_DY
|
||||
|
||||
Me.GesamtsicherheitREF = GesamtsicherheitREF
|
||||
Me.Standort = Standort
|
||||
Me.gsnr = gsnr
|
||||
Me.WarenwertEUR = WarenwertEUR
|
||||
|
||||
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboDakosyAction.Items.Clear()
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
|
||||
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
|
||||
|
||||
'Select Case FIRMA_DY
|
||||
' Case "VERAG" : txtDyMandant.Text = "VERG"
|
||||
' txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
' ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
' 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
|
||||
' 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
|
||||
' ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
|
||||
' 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
|
||||
' 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
|
||||
' 'End Select
|
||||
' Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
|
||||
' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
|
||||
' Case "IMEX" : txtDyMandant.Text = "VERG" : txtDyNiederlassung.Text = "SUB" 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
|
||||
' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
|
||||
'End Select
|
||||
|
||||
txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "AA")
|
||||
txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "AA")
|
||||
|
||||
|
||||
Dim BezugsNr As String = ""
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & "ID" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
txtMRN.Text = If(SENDUNG.tblSnd_ATB_T1, "")
|
||||
End If
|
||||
|
||||
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='AA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
|
||||
cboStammreferenz.changeItem("")
|
||||
|
||||
|
||||
|
||||
If cboStammreferenz.Items.Count = 2 Then
|
||||
cboStammreferenz.SelectedIndex = 1
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
|
||||
If cboStammreferenz._value = "" Then MsgBox("Stammreferenz auswählen!") : Exit Sub
|
||||
If txtMRN._value = "" Then MsgBox("MRN auswählen!") : Exit Sub
|
||||
If txtMRN._value.Length > 18 Then MsgBox("MRN zu lang!") : Exit Sub
|
||||
|
||||
|
||||
Me.Refresh()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Soll die Ankunftsanzeige abgeschickt werden?", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
'loadDYZollanmeldungen()
|
||||
Dim dy_Id = -1
|
||||
If True Then
|
||||
''Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
'ncts_OUT.ncts_LetzteBearbeitung = Now
|
||||
'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
'ncts_OUT.ncts_firma = Me.FIRMA_DY
|
||||
' DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
|
||||
|
||||
' dim FilialenNr
|
||||
|
||||
'Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
'FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm, "AA")
|
||||
|
||||
'If txtDyMandant.Text = "VERG" And FIRMA_DY = "IMEX" Then 'IMEX verwendet VERAG-Gestellungskonto!!!
|
||||
' FIRMA_DY = "VERAG"
|
||||
'End If
|
||||
|
||||
Dim saveFile = ""
|
||||
|
||||
Dim BezugsNrBez As String = ""
|
||||
|
||||
If lblBezugsnummer.Text.Length > 23 Then
|
||||
BezugsNrBez = lblBezugsnummer.Text.Substring(0, 23) 'Z. Zt. begrenzt auf 22 Stellen, weil Aufnahme in ATLAS beschränkt!
|
||||
Else
|
||||
BezugsNrBez = lblBezugsnummer.Text
|
||||
End If
|
||||
|
||||
|
||||
If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
|
||||
If saveFile <> "" Then
|
||||
|
||||
'-------------------------------------------------------
|
||||
|
||||
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then
|
||||
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
|
||||
MsgBox("Gesendet!")
|
||||
createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR)
|
||||
Else
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
MsgBox("Sendefehler!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
' DY_ANM.UPDATE_DATA()
|
||||
|
||||
'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
|
||||
' DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
|
||||
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
|
||||
Dim Interface_VERSION = "003"
|
||||
Dim ObjectAktion = DY_ACTION
|
||||
' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
|
||||
|
||||
Dim XML As New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.EingangsanzeigeEATyp
|
||||
|
||||
|
||||
'Transaktion:
|
||||
XML.Transaktion = New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.TransaktionNCTSTyp
|
||||
XML.Transaktion.IOPartner = IOPartner 'SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
|
||||
XML.Transaktion.IODatumZeit = Now
|
||||
XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS")
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 '"SUW"
|
||||
XML.Transaktion.Version = Interface_VERSION
|
||||
' XML.Transaktion.IODivision3 = IODivision3
|
||||
XML.EinzelEingangsanzeige = New EingangsanzeigeNCTSDE_003.EinzelEingangsanzeigeTyp
|
||||
|
||||
'ObjektIdentifizierung:
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer
|
||||
|
||||
If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS
|
||||
Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion
|
||||
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
|
||||
|
||||
If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
|
||||
|
||||
'TransitOperation:
|
||||
XML.EinzelEingangsanzeige.TransitOperation = New EingangsanzeigeNCTSDE_003.TransitOperationEAType
|
||||
'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch
|
||||
If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1
|
||||
XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now
|
||||
|
||||
XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N"
|
||||
|
||||
|
||||
|
||||
Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
|
||||
If Not System.IO.Directory.Exists(saveDir) Then
|
||||
System.IO.Directory.CreateDirectory(saveDir)
|
||||
End If
|
||||
|
||||
saveFile = saveDir & "DY_AA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
|
||||
XML.SaveToFile(saveFile)
|
||||
|
||||
DAKOSY_Worker.cDakosyFunftions.replaceNullDateXML(saveFile)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)
|
||||
|
||||
Try
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Dim OPEN_DUMMY As New cSicherheiten()
|
||||
Dim attachPosNrToExistingATB = False
|
||||
Dim firmaId As Integer = -1
|
||||
Dim LKW_ID As String = ""
|
||||
|
||||
Select Case Standort
|
||||
Case "Verag GmbH"
|
||||
firmaId = 2
|
||||
Case "Verag AG"
|
||||
firmaId = 1
|
||||
Case "Unisped GmbH"
|
||||
firmaId = 21
|
||||
Case "AMBAR GmbH"
|
||||
firmaId = 24
|
||||
Case "Verag CS"
|
||||
firmaId = 11
|
||||
Case "IMEX"
|
||||
firmaId = 20
|
||||
End Select
|
||||
|
||||
With OPEN_DUMMY
|
||||
.gs_ATBNr = txtMRN._value
|
||||
'mit 0 angeben, da ansonten durch DAKOSY überschrieben
|
||||
.gs_MRNNr = ""
|
||||
.gs_posSubNr = Nothing
|
||||
.gs_datum = Today()
|
||||
.gs_warenwert = WarenwertEUR
|
||||
.gs_sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
|
||||
.gs_standort = Me.Standort
|
||||
.gs_art = "OPEN"
|
||||
.gs_datum = DateTime.Now
|
||||
.gs_erstellungsdatum = DateTime.Now
|
||||
.gs_freitext = "DAKOSY-DUMMY"
|
||||
.gs_saldo = GesSichRef.gsr_Saldo
|
||||
.gs_atr = "0"
|
||||
.gs_zollsatz = GesSichRef.gsr_zollsatz
|
||||
.gs_avisoId = AVISO.AvisoID
|
||||
.gs_filialenNr = SENDUNG.FilialenNr
|
||||
.gs_abfertigungsnr = SENDUNG.AbfertigungsNr
|
||||
.gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
.gs_warenort = Warenort
|
||||
.gs_LKWKZ = AVISO.LKW_Nr
|
||||
.gs_dakoyimport = True
|
||||
If gsnr > 0 Then
|
||||
.gs_gsNr = gsnr
|
||||
.gs_posNr = getLatestPosNr(gsnr, txtMRN._value)
|
||||
attachPosNrToExistingATB = True
|
||||
Else
|
||||
.gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO")
|
||||
.gs_posNr = 0
|
||||
End If
|
||||
|
||||
End With
|
||||
|
||||
Dim indexGsId = OPEN_DUMMY.SAVEOBJECT()
|
||||
|
||||
Dim CLOSED_DUMMY As cGesamtsicherheitsPositionen
|
||||
|
||||
If attachPosNrToExistingATB Then
|
||||
CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, OPEN_DUMMY.gs_posNr)
|
||||
Else
|
||||
CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, 1)
|
||||
End If
|
||||
|
||||
With CLOSED_DUMMY
|
||||
|
||||
.gsp_gsNr = OPEN_DUMMY.gs_gsNr
|
||||
.gsp_warenwert = 0 ' = 0 wichtig
|
||||
.gsp_sicherheitsbetrag = 0 ' = 0 wichtig
|
||||
.gsp_filialenNr = OPEN_DUMMY.gs_filialenNr
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_abfertigungsNr = OPEN_DUMMY.gs_abfertigungsnr
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_datum = DateTime.Now
|
||||
.gsp_ust = ""
|
||||
.gsp_freitext = OPEN_DUMMY.gs_freitext
|
||||
.gsp_avisoId = OPEN_DUMMY.gs_avisoId
|
||||
.gsp_gsNr = OPEN_DUMMY.gs_gsNr
|
||||
.gsp_gspPosId = OPEN_DUMMY.gs_posNr
|
||||
.gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
End With
|
||||
|
||||
CLOSED_DUMMY.SAVE()
|
||||
|
||||
GesSichRef.CalcSaldo()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Function getLatestPosNr(gs_gsnr As Integer, gs_ATBNr As String) As Integer
|
||||
Dim posNr As Integer = 0
|
||||
Dim sqlq As String = "Select MAX([gs_posNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_ATBNR = '" & gs_ATBNr & "'"
|
||||
Dim dt As New DataTable
|
||||
dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True)
|
||||
|
||||
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
|
||||
posNr = dt.Rows(0).Item(0)
|
||||
|
||||
End If
|
||||
|
||||
Return posNr
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub MyCheckbox1_CheckedChanged(sender As Object, e As EventArgs) Handles MyCheckbox1.CheckedChanged
|
||||
Button1.Enabled = Not MyCheckbox1.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub cboStammreferenz_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStammreferenz.SelectedIndexChanged
|
||||
|
||||
Dim valueREF As String = cboStammreferenz._value
|
||||
|
||||
If valueREF <> "" Then
|
||||
Dim DAKOSY_REF As New cDakosy_Stammreferenzen(valueREF)
|
||||
If DAKOSY_REF IsNot Nothing Then
|
||||
If DAKOSY_REF.dySr_WarenortID > 0 Then
|
||||
txtWarenort.Text = (New SQL).getValueTxtBySql("SELECT [wo_warenort] from [tblWarenorte] where [wo_id] = " & DAKOSY_REF.dySr_WarenortID, "AVISO")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
txtWarenort.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -12,6 +12,7 @@ Imports SDL.eu.europa.ec
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports GrapeCity.ActiveReports.Printing
|
||||
|
||||
Public Class cBerechtignungenFunctions
|
||||
|
||||
@@ -81,7 +82,11 @@ Public Class cProgramFunctions
|
||||
rpt.Dispose()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Try
|
||||
MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind)
|
||||
Catch err2 As Exception
|
||||
MsgBox(ex.Message & err2.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
2
SDL/kunden/Newsletter/frmNewsletter.Designer.vb
generated
2
SDL/kunden/Newsletter/frmNewsletter.Designer.vb
generated
@@ -243,7 +243,7 @@ Partial Class frmNewsletter
|
||||
Me.MyComboBox1._allowFreiText = False
|
||||
Me.MyComboBox1._value = ""
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Items.AddRange(New Object() {"cbam@verag.ag", "cbam@imex-group.com", "support@verag.ag"})
|
||||
Me.MyComboBox1.Items.AddRange(New Object() {"cbam@verag.ag", "cbam@imex-group.com", "support@verag.ag", "klipphausen@verag.ag"})
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(77, 68)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(126, 21)
|
||||
|
||||
@@ -1521,8 +1521,13 @@ Public Class usrCntlCBAM
|
||||
|
||||
'Unlerlagen
|
||||
If EZA.za_SendungsId IsNot Nothing AndAlso EZA.za_SendungsId > 0 Then
|
||||
Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(EZA.za_SendungsId)
|
||||
Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000)
|
||||
Try
|
||||
|
||||
Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(EZA.za_SendungsId)
|
||||
Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
@@ -3285,17 +3290,17 @@ Public Class usrCntlCBAM
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
For Each i In LIST
|
||||
Console.WriteLine("Regime: " & i.za_REGIME)
|
||||
Next
|
||||
|
||||
' -----------------------------
|
||||
' MRNs aus CustomsDeclarations
|
||||
' -----------------------------
|
||||
Dim mrns =
|
||||
LIST.Where(Function(za)
|
||||
za.za_REGIME = "IMPORT" AndAlso
|
||||
Not String.IsNullOrWhiteSpace(za.za_MRN)
|
||||
End Function).
|
||||
Select(Function(za) za.za_MRN).
|
||||
Distinct().
|
||||
ToList()
|
||||
Dim mrns = LIST.Where(Function(za) (za.za_REGIME.ToString = "IMPORT") AndAlso Not String.IsNullOrWhiteSpace(za.za_MRN)).
|
||||
Select(Function(za) za.za_MRN).
|
||||
Distinct().
|
||||
ToList()
|
||||
|
||||
If mrns.Count = 0 Then Exit Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user