merge
This commit is contained in:
@@ -13,6 +13,7 @@ Public Class cDakosy_Stammreferenzen
|
|||||||
Property dySr_dy_Niederlassung As Object = Nothing
|
Property dySr_dy_Niederlassung As Object = Nothing
|
||||||
Property dySr_dy_Standard As Object = Nothing
|
Property dySr_dy_Standard As Object = Nothing
|
||||||
Property dyStr_KdNr As Object = Nothing
|
Property dyStr_KdNr As Object = Nothing
|
||||||
|
Property dySr_WarenortID As Object = Nothing
|
||||||
|
|
||||||
|
|
||||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
@@ -21,11 +22,16 @@ Public Class cDakosy_Stammreferenzen
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub New(dySr_Id)
|
Sub New(dySr_Id As Integer)
|
||||||
Me.dySr_Id = dySr_Id
|
Me.dySr_Id = dySr_Id
|
||||||
LOAD()
|
LOAD()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Sub New(dySr_Bez As String)
|
||||||
|
Me.dySr_Bezeichnung = dySr_Bez
|
||||||
|
LOADBEZ()
|
||||||
|
End Sub
|
||||||
|
|
||||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Id", dySr_Id, , True, True))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Id", dySr_Id, , True, True))
|
||||||
@@ -42,6 +48,7 @@ Public Class cDakosy_Stammreferenzen
|
|||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Niederlassung", dySr_dy_Niederlassung))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Niederlassung", dySr_dy_Niederlassung))
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Standard", dySr_dy_Standard))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Standard", dySr_dy_Standard))
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyStr_KdNr", dyStr_KdNr))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyStr_KdNr", dyStr_KdNr))
|
||||||
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_WarenortID", dySr_WarenortID))
|
||||||
Return list
|
Return list
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
@@ -90,6 +97,33 @@ Public Class cDakosy_Stammreferenzen
|
|||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Public Sub LOADBEZ()
|
||||||
|
Try
|
||||||
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||||
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Stammreferenzen WHERE dySr_Bezeichnung=@dySr_Bezeichnung ", conn)
|
||||||
|
cmd.Parameters.AddWithValue("@dySr_Bezeichnung", dySr_Bezeichnung)
|
||||||
|
Dim dr = cmd.ExecuteReader()
|
||||||
|
If dr.Read Then
|
||||||
|
For Each l In getParameterList()
|
||||||
|
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||||
|
|
||||||
|
If dr.Item(l.Text) Is DBNull.Value Then
|
||||||
|
propInfo.SetValue(Me, Nothing)
|
||||||
|
Else
|
||||||
|
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
dr.Close()
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Public Function getUpdateCmd() As String
|
Public Function getUpdateCmd() As String
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -4361,6 +4361,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
|
|||||||
Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
|
Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
|
||||||
Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
|
Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
|
||||||
Case "Mauretanien" : ISO2SetCountry = "MR"
|
Case "Mauretanien" : ISO2SetCountry = "MR"
|
||||||
|
Case "Vereinigtes Königreich (Nordirland)" : ISO2SetCountry = "GB"
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -5,6 +5,7 @@ Imports DAKOSY_Worker
|
|||||||
Imports DocumentFormat.OpenXml
|
Imports DocumentFormat.OpenXml
|
||||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||||
Imports iTextSharp.text.pdf
|
Imports iTextSharp.text.pdf
|
||||||
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
|
|
||||||
Public Class cWorker_NCTS
|
Public Class cWorker_NCTS
|
||||||
Public Shared Dateiname = ""
|
Public Shared Dateiname = ""
|
||||||
@@ -3969,7 +3970,7 @@ Public Class cWorker_NCTS
|
|||||||
readNCTS004_Ueberlassungsmeldung008 = ""
|
readNCTS004_Ueberlassungsmeldung008 = ""
|
||||||
End Try
|
End Try
|
||||||
End Function
|
End Function
|
||||||
Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
|
Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen, saveVerwahrung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
|
||||||
Try
|
Try
|
||||||
'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||||
Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||||
@@ -3981,6 +3982,7 @@ Public Class cWorker_NCTS
|
|||||||
Dim Verschluss_Art = ""
|
Dim Verschluss_Art = ""
|
||||||
Dim Verschluss_Anzahl = 0
|
Dim Verschluss_Anzahl = 0
|
||||||
Dim Verschluss_Zeichen As New List(Of String)
|
Dim Verschluss_Zeichen As New List(Of String)
|
||||||
|
Dim posErledigung As New DataTable
|
||||||
|
|
||||||
|
|
||||||
readNCTS_Ueberlassungsmeldung009 = ""
|
readNCTS_Ueberlassungsmeldung009 = ""
|
||||||
@@ -4007,7 +4009,52 @@ Public Class cWorker_NCTS
|
|||||||
|
|
||||||
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
|
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
|
||||||
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
|
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
|
||||||
|
|
||||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
|
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
|
||||||
|
|
||||||
|
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.HouseConsignment IsNot Nothing Then
|
||||||
|
|
||||||
|
For Each HC In NCTS.EinzelUeberlassungsmeldung.TransitOperation.HouseConsignment
|
||||||
|
If HC.ConsignmentItem IsNot Nothing Then
|
||||||
|
For Each CI In HC.ConsignmentItem
|
||||||
|
If CI.ProcedureTransference IsNot Nothing Then
|
||||||
|
If CI.ProcedureTransference.SummaryDeclaration IsNot Nothing Then
|
||||||
|
If CI.ProcedureTransference.SummaryDeclaration.SummaryDeclarationGoodsReference IsNot Nothing Then
|
||||||
|
For Each SDGR In CI.ProcedureTransference.SummaryDeclaration.SummaryDeclarationGoodsReference
|
||||||
|
|
||||||
|
|
||||||
|
If SDGR.SequenceNumber IsNot Nothing AndAlso posErledigung IsNot Nothing Then
|
||||||
|
If Not posErledigung.Columns.Contains("LaufendeNummer") Then
|
||||||
|
posErledigung.Columns.Add("LaufendeNummer", GetType(String))
|
||||||
|
posErledigung.Columns.Add("IDRegNrSumA", GetType(String))
|
||||||
|
posErledigung.Columns.Add("IDRegNrSumAPos", GetType(String))
|
||||||
|
posErledigung.Columns.Add("StueckzahlErledigte", GetType(String))
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim ro As DataRow = posErledigung.NewRow
|
||||||
|
ro("LaufendeNummer") = SDGR.SequenceNumber
|
||||||
|
ro("IDRegNrSumA") = SDGR.RegistrationNumber
|
||||||
|
ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber
|
||||||
|
ro("StueckzahlErledigte") = SDGR.NumberOfPackages
|
||||||
|
posErledigung.Rows.Add(ro)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
|
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
|
||||||
Try
|
Try
|
||||||
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
|
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
|
||||||
@@ -4049,105 +4096,107 @@ Public Class cWorker_NCTS
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
'End If
|
'End If
|
||||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||||
|
|
||||||
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
If saveVerwahrung Then
|
||||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
|
||||||
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
|
|
||||||
STATUS.dySt_artMitteilung = "UEM"
|
|
||||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
|
||||||
|
|
||||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
|
|
||||||
STATUS.dySt_ergCode = "MRN"
|
|
||||||
STATUS.dySt_ergMitteilung = MRN
|
|
||||||
STATUS.dySt_ergZeitpunkt = zp
|
|
||||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
|
||||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
|
||||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
|
|
||||||
|
|
||||||
|
|
||||||
NCTS_TMP.ncts_Eroeffnung = zp
|
|
||||||
NCTS_TMP.SAVE()
|
|
||||||
|
|
||||||
'------------------------------------------------------------------------------------------------------------------------------
|
|
||||||
'GARANTIE ÜBERSCHREIBEN:
|
|
||||||
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
|
|
||||||
' NCTS_TMP.ncts_GUARANTEE.Clear()
|
|
||||||
|
|
||||||
' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
|
|
||||||
|
|
||||||
' For Each GRT In GRT_M.GuaranteeReference
|
|
||||||
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
|
||||||
|
|
||||||
|
|
||||||
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
|
||||||
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
|
||||||
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
|
||||||
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
|
||||||
' NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
|
||||||
' NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
|
||||||
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
|
||||||
|
|
||||||
' Next
|
|
||||||
' Next
|
|
||||||
' NCTS_TMP.SAVE_Guarantee()
|
|
||||||
'End If
|
|
||||||
'------------------------------------------------------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
|
||||||
' If TE.nctsTE_NumberOfSeals > 0 Then
|
|
||||||
|
|
||||||
' End If
|
|
||||||
'Next
|
|
||||||
|
|
||||||
'If Verschluss_Anzahl > 0 Then
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
|
|
||||||
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
|
|
||||||
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
|
|
||||||
' NCTS_TMP.SAVE()
|
|
||||||
'End If
|
|
||||||
|
|
||||||
|
|
||||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
|
||||||
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
|
|
||||||
|
|
||||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
|
||||||
STATUS.SAVE()
|
|
||||||
statusTMP = STATUS
|
|
||||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
|
|
||||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
|
||||||
|
|
||||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
|
||||||
|
|
||||||
|
|
||||||
'=====ATEZ BEREITSTELLUNG==========
|
|
||||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
|
||||||
'==================================
|
|
||||||
'=====ATEZ BEREITSTELLUNG==========
|
|
||||||
checkATEZ_BereitstellungDHUB(DY_TMP, d)
|
|
||||||
'==================================
|
|
||||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
|
||||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
|
||||||
'==================================
|
|
||||||
|
|
||||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||||
|
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||||
|
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
|
||||||
|
STATUS.dySt_artMitteilung = "UEM"
|
||||||
|
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||||
|
|
||||||
|
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
|
||||||
|
STATUS.dySt_ergCode = "MRN"
|
||||||
|
STATUS.dySt_ergMitteilung = MRN
|
||||||
|
STATUS.dySt_ergZeitpunkt = zp
|
||||||
|
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||||
|
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||||
|
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
|
||||||
|
|
||||||
|
|
||||||
|
NCTS_TMP.ncts_Eroeffnung = zp
|
||||||
|
NCTS_TMP.SAVE()
|
||||||
|
|
||||||
|
'------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
'GARANTIE ÜBERSCHREIBEN:
|
||||||
|
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
|
||||||
|
' NCTS_TMP.ncts_GUARANTEE.Clear()
|
||||||
|
|
||||||
|
' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
|
||||||
|
|
||||||
|
' For Each GRT In GRT_M.GuaranteeReference
|
||||||
|
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||||
|
|
||||||
|
|
||||||
|
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||||
|
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||||
|
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||||
|
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||||
|
' NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||||
|
' NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||||
|
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||||
|
|
||||||
|
' Next
|
||||||
|
' Next
|
||||||
|
' NCTS_TMP.SAVE_Guarantee()
|
||||||
|
'End If
|
||||||
|
'------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
||||||
|
' If TE.nctsTE_NumberOfSeals > 0 Then
|
||||||
|
|
||||||
|
' End If
|
||||||
|
'Next
|
||||||
|
|
||||||
|
'If Verschluss_Anzahl > 0 Then
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
|
||||||
|
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
|
||||||
|
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
|
||||||
|
' NCTS_TMP.SAVE()
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||||
|
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
|
||||||
|
|
||||||
|
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||||
|
STATUS.SAVE()
|
||||||
|
statusTMP = STATUS
|
||||||
|
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
|
||||||
|
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||||
|
|
||||||
|
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||||
|
|
||||||
|
|
||||||
|
'=====ATEZ BEREITSTELLUNG==========
|
||||||
|
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||||
|
'==================================
|
||||||
|
'=====ATEZ BEREITSTELLUNG==========
|
||||||
|
checkATEZ_BereitstellungDHUB(DY_TMP, d)
|
||||||
|
'==================================
|
||||||
|
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||||
|
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||||
|
'==================================
|
||||||
|
|
||||||
|
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
@@ -4600,5 +4649,258 @@ Public Class cWorker_NCTS
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp, sendInfoMail As Boolean, testlauf As Boolean)
|
||||||
|
|
||||||
|
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||||
|
|
||||||
|
Try
|
||||||
|
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
|
|
||||||
|
|
||||||
|
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
|
||||||
|
For Each POS As DataRow In posErledigung.Rows
|
||||||
|
|
||||||
|
Dim MRNNR As String = ""
|
||||||
|
Dim existingEntryID As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
|
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
|
||||||
|
|
||||||
|
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
||||||
|
|
||||||
|
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||||
|
MRNNR = POS.Item("IDRegNrSumA")
|
||||||
|
|
||||||
|
'Dim firmaID = -1
|
||||||
|
|
||||||
|
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_MRNNr] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
|
||||||
|
|
||||||
|
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
|
||||||
|
Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
||||||
|
|
||||||
|
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
|
||||||
|
|
||||||
|
If rows.Length > 0 Then
|
||||||
|
Exit Sub 'bereits vorhanden -> keine INFO
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
||||||
|
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
|
|
||||||
|
Dim Warenwert As Double = 0
|
||||||
|
Dim Sicherheitsbetrag As Double = 0
|
||||||
|
|
||||||
|
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||||
|
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
|
||||||
|
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
|
|
||||||
|
|
||||||
|
If dtVorpapiere.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
|
||||||
|
|
||||||
|
Dim row = rowsVorp(0)
|
||||||
|
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
||||||
|
Sicherheitsbetrag = System.Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
||||||
|
Dim anzahlPackstuecke As Integer = -1
|
||||||
|
Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
|
||||||
|
'Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
|
||||||
|
If gs_row.Item("gs_freitext") <> "" Then
|
||||||
|
anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||||
|
Dim dt As New DataTable
|
||||||
|
|
||||||
|
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||||
|
dt.Columns.Add("MRN", GetType(String))
|
||||||
|
dt.Columns.Add("LKW_ID", GetType(String))
|
||||||
|
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
||||||
|
'dt.Columns.Add("StornierungKZ", GetType(String))
|
||||||
|
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim ro As DataRow = dt.NewRow
|
||||||
|
ro("MRN") = gs_row.Item("gs_MRNNr")
|
||||||
|
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
||||||
|
ro("anzahlPackstuecke") = anzahlPackstuecke
|
||||||
|
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
||||||
|
'ro("StornierungKZ") = StornierungKz
|
||||||
|
dt.Rows.Add(ro)
|
||||||
|
|
||||||
|
|
||||||
|
Dim InfoText As String = createInfoMail(MRNNR, dt, "")
|
||||||
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||||
|
With SicherheitsPos
|
||||||
|
.gsp_gsId = gs_row("gs_gsId")
|
||||||
|
'.gsp_gspPosId = CInt(POSNr)
|
||||||
|
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
||||||
|
.gsp_warenwert = Warenwert
|
||||||
|
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
||||||
|
.gsp_freitext = "DASKOY-IMPORT"
|
||||||
|
.gsp_filialenNr = gs_row("gs_filialenNr")
|
||||||
|
.gsp_art = "CLOSE"
|
||||||
|
.gsp_gsNr = gs_row("gs_gsnr")
|
||||||
|
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
||||||
|
.gsp_datum = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang
|
||||||
|
.gsp_erstellungsdatum = DateTime.Now
|
||||||
|
.gsp_ust = gs_row("gs_ust")
|
||||||
|
.gsp_ATCNr = ""
|
||||||
|
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
|
||||||
|
.gsp_avisoId = gs_row("gs_avisoID")
|
||||||
|
.gsp_systemuser = "DAKOSY-AUTO"
|
||||||
|
End With
|
||||||
|
|
||||||
|
|
||||||
|
SicherheitsPos.SAVE()
|
||||||
|
GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
|
If sendInfoMail Then
|
||||||
|
Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
|
||||||
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang T1 aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
|
Finally
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing) As String
|
||||||
|
|
||||||
|
Dim TextHTMLtable As String
|
||||||
|
|
||||||
|
Select Case typ
|
||||||
|
Case "MASSNAHME-DAKOSY"
|
||||||
|
TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine
|
||||||
|
|
||||||
|
TextHTMLtable &= "<table border=1>"
|
||||||
|
TextHTMLtable &= "<tr><td>Code</td><td>Text</td><td>NichtzustellbarKz</td><td>PackstueckAnzahl</td><td>PackstueckArt</td></tr>"
|
||||||
|
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
|
||||||
|
TextHTMLtable &= "<tr>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("MassnahmeCode") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("MassnahmeText") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("MassnahmeNichtzustellbarKz") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("PackstueckAnzahl") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("PackstueckArt") & "</b></td>"
|
||||||
|
TextHTMLtable &= "</tr>"
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
TextHTMLtable &= "</table>"
|
||||||
|
|
||||||
|
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
|
||||||
|
Return TextHTMLtable
|
||||||
|
|
||||||
|
|
||||||
|
Case "VW-EINGANG"
|
||||||
|
|
||||||
|
TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
|
||||||
|
|
||||||
|
TextHTMLtable &= "<table border=1>"
|
||||||
|
TextHTMLtable &= "<tr><td>PosNr</td><td>Vorpapier</td><td>MRN</td><td>LKWID</td></tr>"
|
||||||
|
|
||||||
|
If GS IsNot Nothing Then
|
||||||
|
TextHTMLtable &= "<tr>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GS.gs_posNr & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GS.gs_ATBNr & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GS.gs_MRNNr & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GS.gs_avisoId & "</b></td>"
|
||||||
|
TextHTMLtable &= "</tr>"
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
TextHTMLtable &= "</table>"
|
||||||
|
|
||||||
|
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
|
||||||
|
Return TextHTMLtable
|
||||||
|
|
||||||
|
Case "VW-AUSGANG"
|
||||||
|
|
||||||
|
TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
|
||||||
|
|
||||||
|
TextHTMLtable &= "<table border=1>"
|
||||||
|
TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td><td>AVISOID</td></tr>"
|
||||||
|
|
||||||
|
If GSPOS IsNot Nothing Then
|
||||||
|
TextHTMLtable &= "<tr>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GSPOS.gsp_ATCNr & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>"
|
||||||
|
TextHTMLtable &= "</tr>"
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
TextHTMLtable &= "</table>"
|
||||||
|
|
||||||
|
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
|
||||||
|
Return TextHTMLtable
|
||||||
|
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
|
||||||
|
TextHTMLtable &= regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
|
||||||
|
|
||||||
|
TextHTMLtable &= "<table border=1>"
|
||||||
|
TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
|
||||||
|
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
|
||||||
|
TextHTMLtable &= "<tr>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("MRN") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
|
||||||
|
TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
|
||||||
|
TextHTMLtable &= "</tr>"
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
TextHTMLtable &= "</table>"
|
||||||
|
|
||||||
|
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
|
||||||
|
Return TextHTMLtable
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -1,5 +1,4 @@
|
|||||||
Imports com.sun.xml.internal.rngom
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
Imports VERAG_PROG_ALLGEMEIN
|
|
||||||
|
|
||||||
Public Class cWorker_Verwahrung
|
Public Class cWorker_Verwahrung
|
||||||
Public Shared Dateiname = ""
|
Public Shared Dateiname = ""
|
||||||
@@ -8,7 +7,7 @@ Public Class cWorker_Verwahrung
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean) As String
|
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
|
||||||
Try
|
Try
|
||||||
|
|
||||||
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
|
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
|
||||||
@@ -101,7 +100,7 @@ Public Class cWorker_Verwahrung
|
|||||||
|
|
||||||
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
||||||
|
|
||||||
If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail)
|
If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail, testlauf)
|
||||||
|
|
||||||
|
|
||||||
Anzeige:
|
Anzeige:
|
||||||
@@ -123,7 +122,7 @@ Anzeige:
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean) As String
|
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
|
||||||
Try
|
Try
|
||||||
|
|
||||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
||||||
@@ -216,7 +215,7 @@ Anzeige:
|
|||||||
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
|
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
|
||||||
|
|
||||||
If saveAbschreibung Then
|
If saveAbschreibung Then
|
||||||
saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail)
|
saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail, testlauf)
|
||||||
|
|
||||||
Anzeige:
|
Anzeige:
|
||||||
|
|
||||||
@@ -412,18 +411,14 @@ Anzeige:
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean)
|
Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean, testlauf As Boolean)
|
||||||
|
|
||||||
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
||||||
|
|
||||||
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|
||||||
If Not originalTestSetting Then
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If VeralteteWeitereRegistriernummer = "" Then Return False
|
If VeralteteWeitereRegistriernummer = "" Then Return False
|
||||||
|
|
||||||
@@ -484,27 +479,38 @@ Anzeige:
|
|||||||
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
||||||
|
|
||||||
Dim existingEntries As DataTable
|
Dim existingEntries As DataTable
|
||||||
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
|
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer,gs_MRNNr, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
|
||||||
If existingEntries.Rows.Count = 0 Then
|
If existingEntries.Rows.Count = 0 Then
|
||||||
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
|
'existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
|
||||||
|
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer,gs_MRNNr, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) order by gs_datum desc", "AVISO")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If existingEntries.Rows.Count > 0 Then
|
If existingEntries.Rows.Count > 0 Then
|
||||||
|
|
||||||
Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable().
|
Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable().
|
||||||
Any(Function(r_entry)
|
Any(Function(r)
|
||||||
Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer
|
If r.IsNull("gs_posNr") OrElse r.Field(Of Integer)("gs_posNr") <> laufnummer Then
|
||||||
End Function)
|
Return False
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim alt = If(r.IsNull("gs_VeralteteWeitereRegistriernummer"), "", r.Field(Of String)("gs_VeralteteWeitereRegistriernummer"))
|
||||||
|
Dim mrn = If(r.IsNull("gs_MRNNr"), "", r.Field(Of String)("gs_MRNNr"))
|
||||||
|
|
||||||
|
Return alt = VeralteteWeitereRegistriernummer OrElse mrn = RegistriernummerATLAS
|
||||||
|
End Function)
|
||||||
|
|
||||||
If zubehandelndeGS Then
|
If zubehandelndeGS Then
|
||||||
Return True 'bereits behandelt ->
|
Return True 'bereits behandelt ->
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Dim urspringsSicherheit As cSicherheiten
|
Dim urspringsSicherheit As cSicherheiten
|
||||||
Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0")
|
Dim rows = existingEntries.Select("gs_dakoyimport = true AND [gs_ATBNr] = '" & Vorpapiernummer & "' AND gs_freitext = 'DAKOSY DUMMY'")
|
||||||
|
|
||||||
If rows.Length > 0 Then
|
If rows.Length > 0 Then
|
||||||
Dim row = rows(0)
|
Dim row = rows(0)
|
||||||
|
'urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
|
||||||
|
|
||||||
urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
|
urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
|
||||||
Else
|
Else
|
||||||
Return False 'kein Dummy-Eintrag
|
Return False 'kein Dummy-Eintrag
|
||||||
@@ -526,6 +532,7 @@ Anzeige:
|
|||||||
|
|
||||||
newSicherheit.gs_systemuser = "DAKOSY-AUTO"
|
newSicherheit.gs_systemuser = "DAKOSY-AUTO"
|
||||||
newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY
|
newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY
|
||||||
|
newSicherheit.gs_MRNNr = RegistriernummerATLAS 'wichtig für Zuweisung DAKOSY
|
||||||
newSicherheit.gs_gsNr = urspringsSicherheit.gs_gsNr
|
newSicherheit.gs_gsNr = urspringsSicherheit.gs_gsNr
|
||||||
newSicherheit.gs_ATBNr = urspringsSicherheit.gs_ATBNr
|
newSicherheit.gs_ATBNr = urspringsSicherheit.gs_ATBNr
|
||||||
|
|
||||||
@@ -537,29 +544,36 @@ Anzeige:
|
|||||||
FreitextInfo = "DAKOSY-IMPORT"
|
FreitextInfo = "DAKOSY-IMPORT"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
newSicherheit.gs_freitext = FreitextInfo
|
|
||||||
newSicherheit.gs_MRNNr = RegistriernummerATLAS
|
|
||||||
newSicherheit.gs_standort = urspringsSicherheit.gs_standort
|
newSicherheit.gs_standort = urspringsSicherheit.gs_standort
|
||||||
newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||||
newSicherheit.gs_erstellungsdatum = Now()
|
newSicherheit.gs_erstellungsdatum = Now()
|
||||||
newSicherheit.gs_posNr = laufnummer
|
newSicherheit.gs_posNr = laufnummer
|
||||||
|
newSicherheit.gs_freitext = FreitextInfo
|
||||||
newSicherheit.gs_abfertigungsnr = abfertigungsnummer
|
newSicherheit.gs_abfertigungsnr = abfertigungsnummer
|
||||||
newSicherheit.gs_filialenNr = filiale
|
newSicherheit.gs_filialenNr = filiale
|
||||||
|
newSicherheit.gs_posSubNr = 1
|
||||||
newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
|
newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
|
||||||
newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
|
newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
|
||||||
newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
|
|
||||||
newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
|
If laufnummer = 1 Then
|
||||||
|
newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
|
||||||
|
newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
|
||||||
|
Else
|
||||||
|
newSicherheit.gs_warenwert = 0
|
||||||
|
newSicherheit.gs_sicherheitsbetrag = 0
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
newSicherheit.gs_art = "OPEN"
|
newSicherheit.gs_art = "OPEN"
|
||||||
newSicherheit.gs_saldo = saldo
|
newSicherheit.gs_saldo = saldo
|
||||||
newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
|
newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
|
||||||
newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort
|
newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort
|
||||||
newSicherheit.gs_posSubNr = 1
|
newSicherheit.gs_dakoyimport = True
|
||||||
|
|
||||||
|
|
||||||
Dim gsid = newSicherheit.SAVEOBJECT()
|
Dim gsid = newSicherheit.SAVEOBJECT()
|
||||||
|
|
||||||
If gsid > 0 Then
|
If gsid > 0 AndAlso laufnummer = 1 Then
|
||||||
'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
|
'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
|
||||||
urspringsSicherheit.gs_warenwert = 0
|
urspringsSicherheit.gs_warenwert = 0
|
||||||
urspringsSicherheit.gs_sicherheitsbetrag = 0
|
urspringsSicherheit.gs_sicherheitsbetrag = 0
|
||||||
@@ -586,9 +600,6 @@ Anzeige:
|
|||||||
|
|
||||||
CLOSED_DUMMY.SAVE()
|
CLOSED_DUMMY.SAVE()
|
||||||
|
|
||||||
|
|
||||||
'pro gestellungsposition bekommen wir eine SumAVerwahrungsinfo -> daher sind die Positionen innerhalb dieser info irrelevant (vorerst).
|
|
||||||
|
|
||||||
If posGestellung.Rows.Count > 1 Then
|
If posGestellung.Rows.Count > 1 Then
|
||||||
If True Then
|
If True Then
|
||||||
For i As Integer = 2 To posGestellung.Rows.Count
|
For i As Integer = 2 To posGestellung.Rows.Count
|
||||||
@@ -603,7 +614,6 @@ Anzeige:
|
|||||||
.gs_standort = urspringsSicherheit.gs_standort
|
.gs_standort = urspringsSicherheit.gs_standort
|
||||||
.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||||
.gs_erstellungsdatum = Now()
|
.gs_erstellungsdatum = Now()
|
||||||
.gs_posNr = laufnummer + i - 1
|
|
||||||
.gs_abfertigungsnr = abfertigungsnummer
|
.gs_abfertigungsnr = abfertigungsnummer
|
||||||
.gs_filialenNr = filiale
|
.gs_filialenNr = filiale
|
||||||
.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
|
.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
|
||||||
@@ -614,7 +624,8 @@ Anzeige:
|
|||||||
.gs_saldo = saldo
|
.gs_saldo = saldo
|
||||||
.gs_avisoId = urspringsSicherheit.gs_avisoId
|
.gs_avisoId = urspringsSicherheit.gs_avisoId
|
||||||
.gs_warenort = urspringsSicherheit.gs_warenort
|
.gs_warenort = urspringsSicherheit.gs_warenort
|
||||||
'.gs_posSubNr = i
|
.gs_posNr = laufnummer + i - 1
|
||||||
|
.gs_posSubNr = i
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
@@ -665,7 +676,7 @@ Anzeige:
|
|||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
Finally
|
Finally
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
|
||||||
@@ -673,152 +684,152 @@ Anzeige:
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean)
|
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean, testlauf As Boolean)
|
||||||
|
|
||||||
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|
||||||
If Not originalTestSetting Then
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
||||||
|
|
||||||
If regNR <> "" AndAlso veralteteregNR <> "" Then
|
'If regNR <> "" AndAlso veralteteregNR <> "" Then
|
||||||
|
|
||||||
For Each POS As DataRow In posErledigung.Rows
|
For Each POS As DataRow In posErledigung.Rows
|
||||||
|
|
||||||
Dim MRNNR As String = ""
|
Dim MRNNR As String = ""
|
||||||
Dim existingEntryID As Integer = 0
|
Dim existingEntryID As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
|
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
|
||||||
|
|
||||||
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
||||||
|
|
||||||
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||||
MRNNR = POS.Item("IDRegNrSumA")
|
MRNNR = POS.Item("IDRegNrSumA")
|
||||||
|
|
||||||
'Dim firmaID = -1
|
'Dim firmaID = -1
|
||||||
|
|
||||||
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
|
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' or [gs_MRNNr] = '" & regNR & "' order by gsp_gspPosId", "AVISO")
|
||||||
|
|
||||||
If dtGesamtsicherheit.Rows.Count > 0 Then
|
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
|
||||||
Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
||||||
|
|
||||||
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
|
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
|
||||||
|
|
||||||
If rows.Length > 0 Then
|
If rows.Length > 0 Then
|
||||||
Exit Sub 'bereits vorhanden -> keine INFO
|
Exit Sub 'bereits vorhanden -> keine INFO
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
||||||
|
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
|
|
||||||
|
Dim Warenwert As Double = 0
|
||||||
|
Dim Sicherheitsbetrag As Double = 0
|
||||||
|
|
||||||
|
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||||
|
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
|
||||||
|
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
|
|
||||||
|
|
||||||
|
If dtVorpapiere.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
|
||||||
|
|
||||||
|
Dim row = rowsVorp(0)
|
||||||
|
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
||||||
|
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
||||||
|
Dim anzahlPackstuecke As Integer = -1
|
||||||
|
Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
|
||||||
|
Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
|
||||||
|
If gs_row.Item("gs_freitext") <> "" Then
|
||||||
|
anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||||
|
Dim dt As New DataTable
|
||||||
|
|
||||||
|
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||||
|
dt.Columns.Add("MRN", GetType(String))
|
||||||
|
dt.Columns.Add("LKW_ID", GetType(String))
|
||||||
|
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
||||||
|
dt.Columns.Add("StornierungKZ", GetType(String))
|
||||||
|
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
Dim ro As DataRow = dt.NewRow
|
||||||
Dim saldo As Double = GesSichRef.CalcSaldo()
|
ro("MRN") = gs_row.Item("gs_MRNNr")
|
||||||
|
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
||||||
|
ro("anzahlPackstuecke") = anzahlPackstuecke
|
||||||
|
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
||||||
|
ro("StornierungKZ") = StornierungKz
|
||||||
|
dt.Rows.Add(ro)
|
||||||
|
|
||||||
|
|
||||||
|
Dim InfoText As String = createInfoMail(MRNNR, dt, "")
|
||||||
|
|
||||||
Dim Warenwert As Double = 0
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
|
||||||
Dim Sicherheitsbetrag As Double = 0
|
End If
|
||||||
|
|
||||||
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
|
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
With SicherheitsPos
|
||||||
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
|
.gsp_gsId = gs_row("gs_gsId")
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
'.gsp_gspPosId = CInt(POSNr)
|
||||||
|
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
||||||
If dtVorpapiere.Rows.Count > 0 Then
|
.gsp_warenwert = Warenwert
|
||||||
|
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
||||||
Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
|
.gsp_freitext = "DASKOY-IMPORT"
|
||||||
|
.gsp_filialenNr = gs_row("gs_filialenNr")
|
||||||
Dim row = rowsVorp(0)
|
.gsp_art = "CLOSE"
|
||||||
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
.gsp_gsNr = gs_row("gs_gsnr")
|
||||||
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
||||||
End If
|
.gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||||
|
.gsp_erstellungsdatum = DateTime.Now
|
||||||
|
.gsp_ust = gs_row("gs_ust")
|
||||||
|
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
|
||||||
|
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
|
||||||
|
.gsp_avisoId = gs_row("gs_avisoID")
|
||||||
|
.gsp_systemuser = "DAKOSY-AUTO"
|
||||||
|
End With
|
||||||
|
|
||||||
|
|
||||||
|
SicherheitsPos.SAVE()
|
||||||
|
GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
If sendInfoMail Then
|
||||||
Dim anzahlPackstuecke As Integer = -1
|
Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
|
||||||
Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
|
||||||
Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
|
|
||||||
If gs_row.Item("gs_freitext") <> "" Then
|
|
||||||
anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
|
||||||
Dim dt As New DataTable
|
|
||||||
|
|
||||||
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
|
||||||
dt.Columns.Add("MRN", GetType(String))
|
|
||||||
dt.Columns.Add("LKW_ID", GetType(String))
|
|
||||||
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
|
||||||
dt.Columns.Add("StornierungKZ", GetType(String))
|
|
||||||
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim ro As DataRow = dt.NewRow
|
|
||||||
ro("MRN") = gs_row.Item("gs_MRNNr")
|
|
||||||
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
|
||||||
ro("anzahlPackstuecke") = anzahlPackstuecke
|
|
||||||
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
|
||||||
ro("StornierungKZ") = StornierungKz
|
|
||||||
dt.Rows.Add(ro)
|
|
||||||
|
|
||||||
|
|
||||||
Dim InfoText As String = createInfoMail(MRNNR, dt, "")
|
|
||||||
|
|
||||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
|
||||||
With SicherheitsPos
|
|
||||||
.gsp_gsId = gs_row("gs_gsId")
|
|
||||||
'.gsp_gspPosId = CInt(POSNr)
|
|
||||||
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
|
||||||
.gsp_warenwert = Warenwert
|
|
||||||
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
|
||||||
.gsp_freitext = "DASKOY-IMPORT"
|
|
||||||
.gsp_filialenNr = gs_row("gs_filialenNr")
|
|
||||||
.gsp_art = "CLOSE"
|
|
||||||
.gsp_gsNr = gs_row("gs_gsnr")
|
|
||||||
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
|
||||||
.gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
|
||||||
.gsp_erstellungsdatum = DateTime.Now
|
|
||||||
.gsp_ust = gs_row("gs_ust")
|
|
||||||
.gsp_ATCNr = veralteteregNR
|
|
||||||
.gsp_MRNNr = regNR
|
|
||||||
.gsp_avisoId = gs_row("gs_avisoID")
|
|
||||||
.gsp_systemuser = "DAKOSY-AUTO"
|
|
||||||
End With
|
|
||||||
|
|
||||||
|
|
||||||
SicherheitsPos.SAVE()
|
|
||||||
GesSichRef.CalcSaldo()
|
|
||||||
|
|
||||||
If sendInfoMail Then
|
|
||||||
Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
|
|
||||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'End If
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
Finally
|
Finally
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -916,7 +927,7 @@ Anzeige:
|
|||||||
|
|
||||||
Case Else
|
Case Else
|
||||||
|
|
||||||
TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
|
TextHTMLtable &= regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
|
||||||
|
|
||||||
TextHTMLtable &= "<table border=1>"
|
TextHTMLtable &= "<table border=1>"
|
||||||
TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
|
TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
|
||||||
|
|||||||
@@ -19,6 +19,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
|||||||
Dim Dateiname = ""
|
Dim Dateiname = ""
|
||||||
Public saveVerwahrung As Boolean = False
|
Public saveVerwahrung As Boolean = False
|
||||||
Public sendMail As Boolean = False
|
Public sendMail As Boolean = False
|
||||||
|
Public GESTELLUNG_TESTLAUF As Boolean = False
|
||||||
|
|
||||||
Sub New()
|
Sub New()
|
||||||
|
|
||||||
@@ -341,7 +342,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
|||||||
'NCTS: Ueberlassungsmeldung
|
'NCTS: Ueberlassungsmeldung
|
||||||
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
|
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
|
||||||
Select Case VERSION
|
Select Case VERSION
|
||||||
Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP) <> "" Then found = True 'NEU
|
Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True 'NEU
|
||||||
If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
|
If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
|
||||||
' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
|
' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
|
||||||
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
|
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
|
||||||
@@ -408,7 +409,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
|||||||
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
|
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
|
||||||
Select Case VERSION
|
Select Case VERSION
|
||||||
Case False
|
Case False
|
||||||
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail) <> "" Then found = True
|
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True
|
||||||
End Select
|
End Select
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -416,7 +417,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
|||||||
'VW: SumAErledigungsinformationVorpapier
|
'VW: SumAErledigungsinformationVorpapier
|
||||||
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
|
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
|
||||||
Select Case VERSION
|
Select Case VERSION
|
||||||
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
|
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
|
||||||
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
|
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
|
||||||
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
|
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
|
||||||
End Select
|
End Select
|
||||||
|
|||||||
38
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
38
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
@@ -85,6 +85,8 @@ Partial Class frmStartOptions
|
|||||||
Me.Label13 = New System.Windows.Forms.Label()
|
Me.Label13 = New System.Windows.Forms.Label()
|
||||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
|
||||||
Me.LinkLabel68 = New System.Windows.Forms.LinkLabel()
|
Me.LinkLabel68 = New System.Windows.Forms.LinkLabel()
|
||||||
Me.PictureBox26 = New System.Windows.Forms.PictureBox()
|
Me.PictureBox26 = New System.Windows.Forms.PictureBox()
|
||||||
Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox()
|
Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox()
|
||||||
@@ -380,7 +382,6 @@ Partial Class frmStartOptions
|
|||||||
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.Button21 = New System.Windows.Forms.Button()
|
Me.Button21 = New System.Windows.Forms.Button()
|
||||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
|
|
||||||
Me.pnl.SuspendLayout()
|
Me.pnl.SuspendLayout()
|
||||||
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
@@ -1243,6 +1244,7 @@ Partial Class frmStartOptions
|
|||||||
'
|
'
|
||||||
'TabPage1
|
'TabPage1
|
||||||
'
|
'
|
||||||
|
Me.TabPage1.Controls.Add(Me.cbxGESTELLUNG_TESTLAUF)
|
||||||
Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
|
Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
|
||||||
Me.TabPage1.Controls.Add(Me.LinkLabel68)
|
Me.TabPage1.Controls.Add(Me.LinkLabel68)
|
||||||
Me.TabPage1.Controls.Add(Me.PictureBox26)
|
Me.TabPage1.Controls.Add(Me.PictureBox26)
|
||||||
@@ -1303,6 +1305,28 @@ Partial Class frmStartOptions
|
|||||||
Me.TabPage1.Text = "Zollverfahren"
|
Me.TabPage1.Text = "Zollverfahren"
|
||||||
Me.TabPage1.UseVisualStyleBackColor = True
|
Me.TabPage1.UseVisualStyleBackColor = True
|
||||||
'
|
'
|
||||||
|
'cbxGESTELLUNG_TESTLAUF
|
||||||
|
'
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.AutoSize = True
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.Location = New System.Drawing.Point(169, 194)
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.Name = "cbxGESTELLUNG_TESTLAUF"
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.Size = New System.Drawing.Size(81, 17)
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.TabIndex = 153
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.Text = "TESTLAUF"
|
||||||
|
Me.cbxGESTELLUNG_TESTLAUF.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'cbxVW_Infomail
|
||||||
|
'
|
||||||
|
Me.cbxVW_Infomail.AutoSize = True
|
||||||
|
Me.cbxVW_Infomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.cbxVW_Infomail.Location = New System.Drawing.Point(100, 194)
|
||||||
|
Me.cbxVW_Infomail.Name = "cbxVW_Infomail"
|
||||||
|
Me.cbxVW_Infomail.Size = New System.Drawing.Size(62, 17)
|
||||||
|
Me.cbxVW_Infomail.TabIndex = 152
|
||||||
|
Me.cbxVW_Infomail.Text = "Infomail"
|
||||||
|
Me.cbxVW_Infomail.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
'LinkLabel68
|
'LinkLabel68
|
||||||
'
|
'
|
||||||
Me.LinkLabel68.AutoSize = True
|
Me.LinkLabel68.AutoSize = True
|
||||||
@@ -5076,17 +5100,6 @@ Partial Class frmStartOptions
|
|||||||
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
|
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
|
||||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||||
'
|
'
|
||||||
'cbxVW_Infomail
|
|
||||||
'
|
|
||||||
Me.cbxVW_Infomail.AutoSize = True
|
|
||||||
Me.cbxVW_Infomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.cbxVW_Infomail.Location = New System.Drawing.Point(100, 194)
|
|
||||||
Me.cbxVW_Infomail.Name = "cbxVW_Infomail"
|
|
||||||
Me.cbxVW_Infomail.Size = New System.Drawing.Size(62, 17)
|
|
||||||
Me.cbxVW_Infomail.TabIndex = 152
|
|
||||||
Me.cbxVW_Infomail.Text = "Infomail"
|
|
||||||
Me.cbxVW_Infomail.UseVisualStyleBackColor = True
|
|
||||||
'
|
|
||||||
'frmStartOptions
|
'frmStartOptions
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
@@ -5527,4 +5540,5 @@ Partial Class frmStartOptions
|
|||||||
Friend WithEvents btnEZOLL_1month As Button
|
Friend WithEvents btnEZOLL_1month As Button
|
||||||
Friend WithEvents btnEZOLL_7days As Button
|
Friend WithEvents btnEZOLL_7days As Button
|
||||||
Friend WithEvents cbxVW_Infomail As CheckBox
|
Friend WithEvents cbxVW_Infomail As CheckBox
|
||||||
|
Friend WithEvents cbxGESTELLUNG_TESTLAUF As CheckBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -596,102 +596,6 @@
|
|||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
|
||||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
|
||||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
|
||||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
|
||||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
|
||||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
|
||||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
|
||||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
|
||||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
|
||||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
|
||||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
|
||||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
|
||||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
|
||||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
|
||||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
|
||||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
|
||||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
|
||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
|
||||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
|
||||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
|
||||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
|
||||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
|
||||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
|
||||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
|
||||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
|
||||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
|
||||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
|
||||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
|
||||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
|
||||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
|
||||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
|
||||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
|
||||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
|
||||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
|
||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
|
||||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
|
||||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
|
||||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
|
||||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
|
||||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
|
||||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
|
||||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
|
||||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
|
||||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
|
||||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
|
||||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
|
||||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
|
||||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
|
||||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
|
||||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
|
||||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
|
||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
|
||||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
|
||||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
|
||||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
|
||||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
|
||||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
|
||||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
|
||||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
|
||||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
|
||||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
|
||||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
|
||||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
|
||||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
|
||||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
|
||||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
|
||||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
|
||||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
|
||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
@@ -745,9 +649,6 @@
|
|||||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
<value>True</value>
|
<value>True</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||||
@@ -866,6 +767,102 @@
|
|||||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||||
|
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||||
|
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||||
|
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||||
|
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||||
|
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||||
|
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||||
|
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||||
|
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||||
|
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||||
|
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||||
|
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||||
|
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||||
|
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||||
|
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||||
|
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||||
|
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||||
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||||
|
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||||
|
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||||
|
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||||
|
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||||
|
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||||
|
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||||
|
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||||
|
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||||
|
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||||
|
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||||
|
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||||
|
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||||
|
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||||
|
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||||
|
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||||
|
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||||
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||||
|
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||||
|
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||||
|
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||||
|
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||||
|
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||||
|
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||||
|
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||||
|
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||||
|
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||||
|
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||||
|
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||||
|
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||||
|
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||||
|
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||||
|
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||||
|
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||||
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||||
|
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||||
|
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||||
|
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||||
|
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||||
|
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||||
|
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||||
|
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||||
|
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||||
|
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||||
|
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||||
|
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||||
|
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||||
|
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||||
|
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||||
|
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||||
|
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||||
|
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||||
|
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||||
|
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
|||||||
@@ -104,6 +104,7 @@ Public Class frmStartOptions
|
|||||||
cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
|
cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
|
||||||
cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
|
cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
|
||||||
cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")
|
cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")
|
||||||
|
cbxGESTELLUNG_TESTLAUF.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_TESTLAUF")
|
||||||
|
|
||||||
|
|
||||||
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
|
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
|
||||||
@@ -152,6 +153,7 @@ Public Class frmStartOptions
|
|||||||
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
||||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||||
f.sendMail = cbxVW_Infomail.Checked
|
f.sendMail = cbxVW_Infomail.Checked
|
||||||
|
f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
|
||||||
'Me.Visible = False ' irgend ein Grund
|
'Me.Visible = False ' irgend ein Grund
|
||||||
f.Show()
|
f.Show()
|
||||||
AddHandler f.FormClosed, AddressOf closeMe
|
AddHandler f.FormClosed, AddressOf closeMe
|
||||||
@@ -160,6 +162,7 @@ Public Class frmStartOptions
|
|||||||
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
||||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||||
f.sendMail = cbxVW_Infomail.Checked
|
f.sendMail = cbxVW_Infomail.Checked
|
||||||
|
f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
|
||||||
' Me.Visible = False ' irgend ein Grund
|
' Me.Visible = False ' irgend ein Grund
|
||||||
f.Show()
|
f.Show()
|
||||||
AddHandler f.EV_FINISHED, AddressOf closeMe
|
AddHandler f.EV_FINISHED, AddressOf closeMe
|
||||||
@@ -2973,6 +2976,7 @@ Public Class frmStartOptions
|
|||||||
Dim f As New frmDYNachrichtenVerarbeitung
|
Dim f As New frmDYNachrichtenVerarbeitung
|
||||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||||
f.sendMail = cbxVW_Infomail.Checked
|
f.sendMail = cbxVW_Infomail.Checked
|
||||||
|
f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
|
||||||
f.ShowDialog()
|
f.ShowDialog()
|
||||||
Me.Visible = True
|
Me.Visible = True
|
||||||
End Sub
|
End Sub
|
||||||
@@ -3031,6 +3035,7 @@ Public Class frmStartOptions
|
|||||||
Dim f As New frmDYNachrichtenVerarbeitung
|
Dim f As New frmDYNachrichtenVerarbeitung
|
||||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||||
f.sendMail = cbxVW_Infomail.Checked
|
f.sendMail = cbxVW_Infomail.Checked
|
||||||
|
f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
|
||||||
f.ShowDialog()
|
f.ShowDialog()
|
||||||
Me.Visible = True
|
Me.Visible = True
|
||||||
End Sub
|
End Sub
|
||||||
@@ -3463,7 +3468,7 @@ Public Class frmStartOptions
|
|||||||
|
|
||||||
Body &= createUIDPruefungUebersicht(dt)
|
Body &= createUIDPruefungUebersicht(dt)
|
||||||
|
|
||||||
Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung", "") & " vermerkt!</b>"
|
Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung (mit der Kennzeichnung UID)", "") & " vermerkt!</b>"
|
||||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||||
|
|
||||||
@@ -3476,7 +3481,7 @@ Public Class frmStartOptions
|
|||||||
If setKundenvermerk Then
|
If setKundenvermerk Then
|
||||||
|
|
||||||
For Each r As DataRow In dt.Rows
|
For Each r As DataRow In dt.Rows
|
||||||
If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" Then
|
If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" AndAlso r("typ") <> "VAK" Then
|
||||||
Dim kunde As cKunde = New cKunde(r("kdNr"))
|
Dim kunde As cKunde = New cKunde(r("kdNr"))
|
||||||
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
|
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
|
||||||
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||||
|
|||||||
Reference in New Issue
Block a user