Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN
This commit is contained in:
@@ -91,12 +91,10 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
STATUS.SAVE()
|
||||
|
||||
'NOCHT NICHT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
If False Then
|
||||
|
||||
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
||||
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
||||
|
||||
If saveVerwahrung Then
|
||||
If saveVerwahrung Then
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
@@ -150,98 +148,64 @@ Public Class cWorker_Verwahrung
|
||||
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
||||
|
||||
Dim existingEntry As Integer = 0
|
||||
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc",,,, "0"))
|
||||
If existingEntry <> 0 Then GoTo Anzeige
|
||||
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc",,,, "0"))
|
||||
If existingEntry <> 0 Then GoTo Anzeige
|
||||
existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0"))
|
||||
If existingEntry = 0 Then
|
||||
existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0"))
|
||||
End If
|
||||
|
||||
''sonderfälle lt. Mestan
|
||||
If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||
If existingEntry > 0 Then
|
||||
|
||||
Select Case SND.FilialenNr
|
||||
Case 5501, 4803, 4809, 5103
|
||||
Standort = "VERAG GmbH"
|
||||
End Select
|
||||
|
||||
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||
|
||||
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||
Standort = "VERAG CS"
|
||||
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||
Select Case SND.FilialenNr
|
||||
Case 4803, 5303, 4809, 5103
|
||||
Standort = "VERAG CS"
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Dim urspringsSicherheit As New cSicherheiten(existingEntry)
|
||||
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort)
|
||||
Dim saldo = GesSichRef.CalcSaldo()
|
||||
|
||||
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
||||
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
||||
|
||||
'Verwahrung ANSCHREIBUNG
|
||||
Dim ANSCHREIBUNG As New cSicherheiten()
|
||||
Dim gsId As Integer
|
||||
With ANSCHREIBUNG
|
||||
.gs_ATBNr = RegistriernummerATLAS
|
||||
.gs_posNr = 1
|
||||
.gs_datum = gestellungsdatum
|
||||
.gs_warenwert = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert), 0)
|
||||
.gs_sicherheitsbetrag = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert) * (GesSichRef.brgakto_gs_zollsatz / 100), 0)
|
||||
.gs_standort = Standort
|
||||
.gs_art = "OPEN"
|
||||
.gs_gsNr = AddNewGesamtSichNr()
|
||||
.gs_erstellungsdatum = Now()
|
||||
.gs_freitext = ""
|
||||
.gs_saldo = saldo
|
||||
.gs_atr = ""
|
||||
.gs_filialenNr = filiale
|
||||
.gs_abfertigungsnr = abfertigungsnummer
|
||||
.gs_LKWKZ = SND.tblSnd_AvisoID
|
||||
.gs_warenort = warenort
|
||||
'.grenzstelle = AVISO.Grenzstelle.ToString.Replace("WO_", "")
|
||||
.gs_systemuser = "DAKOSY-AUTO"
|
||||
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
|
||||
.gs_avisoId = SND.tblSnd_AvisoID
|
||||
|
||||
End With
|
||||
Dim gsId As Integer
|
||||
|
||||
urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO"
|
||||
urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr"))
|
||||
urspringsSicherheit.gs_freitext = RegistriernummerATLAS
|
||||
urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS
|
||||
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
gsId = ANSCHREIBUNG.SAVEOBJECT()
|
||||
gsId = urspringsSicherheit.SAVEOBJECT()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
If posGestellung.Rows.Count > 1 Then
|
||||
For i As Integer = 2 To posGestellung.Rows.Count
|
||||
For i As Integer = 2 To posGestellung.Rows.Count - 1
|
||||
|
||||
Dim ANSCHREIBUNG_POS As New cSicherheiten()
|
||||
With ANSCHREIBUNG_POS
|
||||
|
||||
.gs_gsNr = gsId
|
||||
.gs_ATBNr = RegistriernummerATLAS
|
||||
.gs_ATBNr = urspringsSicherheit.gs_ATBNr
|
||||
.gs_freitext = RegistriernummerATLAS
|
||||
.gs_posNr = i
|
||||
.gs_datum = gestellungsdatum
|
||||
.gs_gsNr = ANSCHREIBUNG.gs_gsNr
|
||||
.gs_gsNr = urspringsSicherheit.gs_gsNr
|
||||
.gs_warenwert = 0
|
||||
.gs_sicherheitsbetrag = 0
|
||||
.gs_standort = Standort
|
||||
.gs_art = "OPEN"
|
||||
.gs_erstellungsdatum = DateTime.Now
|
||||
.gs_freitext = ""
|
||||
.gs_MRNNr = RegistriernummerATLAS
|
||||
.gs_saldo = saldo
|
||||
.gs_atr = ""
|
||||
.gs_systemuser = ANSCHREIBUNG.gs_systemuser
|
||||
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
|
||||
.gs_systemuser = urspringsSicherheit.gs_systemuser
|
||||
.gs_zollsatz = GesSichRef.gsr_zollsatz
|
||||
.gs_avisoId = SND.tblSnd_AvisoID
|
||||
.gs_warenort = ANSCHREIBUNG.gs_warenort
|
||||
.gs_warenort = urspringsSicherheit.gs_warenort
|
||||
|
||||
End With
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
ANSCHREIBUNG.SAVE()
|
||||
ANSCHREIBUNG_POS.SAVE()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Next
|
||||
|
||||
@@ -249,10 +213,13 @@ Public Class cWorker_Verwahrung
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
@@ -267,7 +234,6 @@ Anzeige:
|
||||
|
||||
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)
|
||||
@@ -399,123 +365,111 @@ Anzeige:
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
'Verwahrung ABSCHREIBUNG - RECHTE Seite bei Gesamtsicherheiten
|
||||
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
|
||||
|
||||
If saveAbschreibung Then
|
||||
|
||||
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
||||
|
||||
If regNR <> "" Then
|
||||
|
||||
For Each POS As DataRow In posErledigung.Rows
|
||||
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO")
|
||||
|
||||
Dim ATBNR As String = ""
|
||||
Dim existingEntryID As Integer = 0
|
||||
Dim dtGesamtsicherheit As New DataTable
|
||||
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||
|
||||
If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
|
||||
For Each POS As DataRow In posErledigung.Rows
|
||||
|
||||
Dim POSNr = POS.Item("IDRegNrSumAPos")
|
||||
|
||||
If ATBNR <> POS.Item("IDRegNrSumA") Then
|
||||
ATBNR = POS.Item("IDRegNrSumA")
|
||||
|
||||
dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_ATBNr] = '" & ATBNR & "'", "AVISO")
|
||||
|
||||
End If
|
||||
Dim MRNNR As String = ""
|
||||
Dim existingEntryID As Integer = 0
|
||||
|
||||
|
||||
If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
|
||||
|
||||
Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos"))
|
||||
|
||||
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||
MRNNR = POS.Item("IDRegNrSumA")
|
||||
|
||||
Dim firmaID = -1
|
||||
|
||||
'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort")
|
||||
|
||||
' Case "VERAG GmbH"
|
||||
' firmaID = 23
|
||||
' Case "Verag AG"
|
||||
' firmaId = 1
|
||||
' Case "Unisped GmbH"
|
||||
' firmaId = 21
|
||||
' Case "AMBAR GmbH"
|
||||
' firmaId = 24
|
||||
' Case "Verag CS"
|
||||
' firmaId = 11
|
||||
' Case "IMEX"
|
||||
' firmaId = 20
|
||||
|
||||
|
||||
'End Select
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort"))
|
||||
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||
|
||||
Try
|
||||
|
||||
'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden!
|
||||
|
||||
Dim Warenwert As Double = 0
|
||||
|
||||
Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
||||
|
||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
With SicherheitsPos
|
||||
.gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId")
|
||||
'.gsp_gspPosId = CInt(POSNr)
|
||||
.gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr")
|
||||
.gsp_warenwert = 0
|
||||
.gsp_sicherheitsbetrag = 0
|
||||
.gsp_freitext = "DASKOY-IMPORT"
|
||||
.gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr")
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr")
|
||||
.gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr")
|
||||
.gsp_datum = DateTime.Now
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust")
|
||||
.gsp_ATCNr = POS.Item("IDRegNrSumA")
|
||||
.gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID")
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
End With
|
||||
|
||||
|
||||
SicherheitsPos.SAVE()
|
||||
|
||||
GesSichRef.CalcSaldo()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
' If existingEntryID > 0 Then GoTo Anzeige
|
||||
' existingEntryID = CInt((New SQL).getValueTxtBySql("Select count(*) From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
|
||||
' If existingEntryID > 0 Then GoTo Anzeige
|
||||
|
||||
' Dim gsNr As Integer = 0
|
||||
' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc"))
|
||||
' If gsNr > 0 Then GoTo Insert
|
||||
' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
|
||||
' If gsNr > 0 Then
|
||||
' GoTo Insert
|
||||
' Else
|
||||
' GoTo Anzeige
|
||||
' End If
|
||||
|
||||
|
||||
' ''sonderfälle lt. Mestan
|
||||
' If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||
|
||||
' Select Case SND.FilialenNr
|
||||
' Case 5501, 4803, 4809, 5103
|
||||
' Standort = "VERAG GmbH"
|
||||
' End Select
|
||||
|
||||
' ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||
|
||||
' If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||
' Standort = "VERAG CS"
|
||||
' ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||
' Select Case SND.FilialenNr
|
||||
' Case 4803, 5303, 4809, 5103
|
||||
' Standort = "VERAG CS"
|
||||
' End Select
|
||||
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
'Insert:
|
||||
|
||||
' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||
' Dim saldo = GesSichRef.CalcSaldo()
|
||||
|
||||
' Try
|
||||
|
||||
|
||||
' Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
' With SicherheitsPos
|
||||
' '.gsp_gsId = gs_gsId
|
||||
' ''.gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsNr, ) + 1
|
||||
' '.gsp_gspPosId = OPEN.gs_posNr
|
||||
' '.gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
|
||||
' '.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
|
||||
' '.gsp_freitext = txtPosFreitext.Text
|
||||
' '.gsp_filialenNr = currentSicherheit.gs_filialenNr
|
||||
' '.gsp_art = "CLOSE"
|
||||
' .gsp_gsNr = gsNr
|
||||
' '.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr
|
||||
' .gsp_datum = 'DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
|
||||
' .gsp_erstellungsdatum = DateTime.Now
|
||||
' .gsp_ust = 'currentSicherheit.gs_ust
|
||||
' .gsp_ATCNr = 'txtPositionenCRN.Text
|
||||
' .gsp_avisoId = 'Me.avisoID'
|
||||
' .gsp_systemuser = "DAKOSY-AUTO"
|
||||
' End With
|
||||
|
||||
' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
' SicherheitsPos.SAVE()
|
||||
' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
|
||||
' End Try
|
||||
|
||||
|
||||
|
||||
' End If
|
||||
|
||||
' End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -54,7 +54,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn.ForeColor = System.Drawing.Color.White
|
||||
Me.btn.Location = New System.Drawing.Point(379, -1)
|
||||
Me.btn.Location = New System.Drawing.Point(464, -1)
|
||||
Me.btn.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(75, 22)
|
||||
@@ -84,7 +84,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(456, 319)
|
||||
Me.pnl.Size = New System.Drawing.Size(541, 319)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'lblFTP
|
||||
@@ -102,7 +102,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Me.lblTestsystem.AutoSize = True
|
||||
Me.lblTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTestsystem.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblTestsystem.Location = New System.Drawing.Point(274, 8)
|
||||
Me.lblTestsystem.Location = New System.Drawing.Point(323, 4)
|
||||
Me.lblTestsystem.Name = "lblTestsystem"
|
||||
Me.lblTestsystem.Size = New System.Drawing.Size(89, 13)
|
||||
Me.lblTestsystem.TabIndex = 20
|
||||
@@ -113,7 +113,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'
|
||||
Me.lblDatenCnt.AutoSize = True
|
||||
Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132)
|
||||
Me.lblDatenCnt.Location = New System.Drawing.Point(387, 132)
|
||||
Me.lblDatenCnt.Name = "lblDatenCnt"
|
||||
Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13)
|
||||
Me.lblDatenCnt.TabIndex = 19
|
||||
@@ -134,7 +134,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164)
|
||||
Me.dgvEinarbeitung.Name = "dgvEinarbeitung"
|
||||
Me.dgvEinarbeitung.RowHeadersVisible = False
|
||||
Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145)
|
||||
Me.dgvEinarbeitung.Size = New System.Drawing.Size(351, 145)
|
||||
Me.dgvEinarbeitung.TabIndex = 18
|
||||
'
|
||||
'clmnArt
|
||||
@@ -153,7 +153,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(306, 103)
|
||||
Me.Label9.Location = New System.Drawing.Point(384, 103)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(44, 13)
|
||||
Me.Label9.TabIndex = 17
|
||||
@@ -163,7 +163,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'btnEinlesen
|
||||
'
|
||||
Me.btnEinlesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnEinlesen.Location = New System.Drawing.Point(309, 50)
|
||||
Me.btnEinlesen.Location = New System.Drawing.Point(387, 50)
|
||||
Me.btnEinlesen.Name = "btnEinlesen"
|
||||
Me.btnEinlesen.Size = New System.Drawing.Size(141, 50)
|
||||
Me.btnEinlesen.TabIndex = 16
|
||||
@@ -185,13 +185,13 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Me.ListBox3.FormattingEnabled = True
|
||||
Me.ListBox3.Location = New System.Drawing.Point(11, 50)
|
||||
Me.ListBox3.Name = "ListBox3"
|
||||
Me.ListBox3.Size = New System.Drawing.Size(292, 95)
|
||||
Me.ListBox3.Size = New System.Drawing.Size(352, 95)
|
||||
Me.ListBox3.TabIndex = 12
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(306, 240)
|
||||
Me.Label6.Location = New System.Drawing.Point(384, 240)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(144, 37)
|
||||
Me.Label6.TabIndex = 11
|
||||
@@ -202,7 +202,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(306, 217)
|
||||
Me.Label5.Location = New System.Drawing.Point(384, 217)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(44, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
@@ -212,7 +212,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'btnEinarbeiten
|
||||
'
|
||||
Me.btnEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnEinarbeiten.Location = New System.Drawing.Point(309, 164)
|
||||
Me.btnEinarbeiten.Location = New System.Drawing.Point(387, 164)
|
||||
Me.btnEinarbeiten.Name = "btnEinarbeiten"
|
||||
Me.btnEinarbeiten.Size = New System.Drawing.Size(141, 50)
|
||||
Me.btnEinarbeiten.TabIndex = 9
|
||||
@@ -222,7 +222,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOK.Location = New System.Drawing.Point(309, 280)
|
||||
Me.btnOK.Location = New System.Drawing.Point(387, 280)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Size = New System.Drawing.Size(141, 29)
|
||||
Me.btnOK.TabIndex = 9
|
||||
@@ -254,7 +254,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(456, 319)
|
||||
Me.ClientSize = New System.Drawing.Size(541, 319)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
|
||||
1840
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1840
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -236,6 +236,102 @@
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
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>
|
||||
</data>
|
||||
<data name="PictureBox26.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@@ -649,6 +745,9 @@
|
||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
@@ -767,102 +866,6 @@
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
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>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
|
||||
@@ -690,7 +690,7 @@ Public Class frmStartOptions
|
||||
If fehler <> "" Then
|
||||
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage")
|
||||
closeMe()
|
||||
Exit Sub
|
||||
Exit For
|
||||
Else
|
||||
counTrans += dt.Rows.Count
|
||||
End If
|
||||
@@ -930,7 +930,24 @@ Public Class frmStartOptions
|
||||
|
||||
End Try
|
||||
End Function
|
||||
Function importFileFromEZOLL(datum As Date) As Boolean
|
||||
|
||||
Private Sub addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY As DataTable, Anhaenge As cDHF_Anhaenge, SPEDBUCH_TMP As cSpeditionsbuch, datumImport As Date)
|
||||
|
||||
If SPEDBUCH_TMP IsNot Nothing Then
|
||||
Dim R As DataRow = dtSPEDEintrageAusEinarbeitung_HISTORY.NewRow
|
||||
R("FilialNr") = SPEDBUCH_TMP.FilialenNr
|
||||
R("AbfertigungsNr") = SPEDBUCH_TMP.AbfertigungsNr
|
||||
R("Abfertigungsdatum") = SPEDBUCH_TMP.Abfertigungsdatum
|
||||
R("LNR") = Anhaenge.LRN
|
||||
R("CRN") = Anhaenge.CRN
|
||||
R("Abfertigungsart") = R("AbfertigungsNr") = SPEDBUCH_TMP.Abfertigungsart
|
||||
R("Firma") = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
R("AnhaengeAbDatum") = datumImport.ToShortDateString
|
||||
dtSPEDEintrageAusEinarbeitung_HISTORY.Rows.Add(R)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Function importFileFromEZOLL(datum As Date, Optional sendMail As Boolean = True) As Boolean
|
||||
Try
|
||||
Dim db = "EZOLL"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
@@ -938,7 +955,23 @@ Public Class frmStartOptions
|
||||
End Select
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,zsAnmRefs.LRN,zsAnmRefs.CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
|
||||
where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200)
|
||||
where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431', 'CC529C', 'CC599C', 'CC029C') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200)
|
||||
|
||||
Dim dtSPEDEintrageAusEinarbeitung_HISTORY As New DataTable
|
||||
|
||||
With dtSPEDEintrageAusEinarbeitung_HISTORY
|
||||
.Columns.Add("FilialNr", GetType(Integer))
|
||||
.Columns.Add("AbfertigungsNr", GetType(Integer))
|
||||
.Columns.Add("Abfertigungsdatum", GetType(String))
|
||||
.Columns.Add("LNR", GetType(String))
|
||||
.Columns.Add("CRN", GetType(String))
|
||||
.Columns.Add("Abfertigungsart", GetType(String))
|
||||
.Columns.Add("AnhaengeAbDatum", GetType(String))
|
||||
.Columns.Add("Firma", GetType(String))
|
||||
End With
|
||||
|
||||
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
For Each row In dt.Rows
|
||||
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"), row("LizenzNr"))
|
||||
@@ -959,15 +992,16 @@ Public Class frmStartOptions
|
||||
Dim Bezeichnung = ""
|
||||
Select Case row("MsgTyp")
|
||||
Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
|
||||
Case "EZ923"
|
||||
Case "EZ923", "CC529C"
|
||||
Select Case row("VorgangID")
|
||||
Case "AF"
|
||||
Case "AF" ' -> CC529C ist immer AF!
|
||||
Bezeichnung = "ABD"
|
||||
Case Else '"EF"
|
||||
Bezeichnung = "STEUERBESCHEID_MITT"
|
||||
End Select
|
||||
Case "TR109" : Bezeichnung = "VBD"
|
||||
Case "EX431" : Bezeichnung = "AVM"
|
||||
|
||||
Case "TR109", "CC029C" : Bezeichnung = "VBD"
|
||||
Case "EX431", "CC599C" : Bezeichnung = "AVM"
|
||||
End Select
|
||||
|
||||
Try
|
||||
@@ -1003,7 +1037,10 @@ Public Class frmStartOptions
|
||||
If cDHF_Anhaenge.docID > 0 AndAlso cDHF_Anhaenge.LRN <> "" Then
|
||||
Select Case row("MsgTyp")
|
||||
Case "EZ922" 'STEUERBESCHEID
|
||||
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) And Not sendMail Then 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
'Eintrag aus Nacharbeitung -> Protokollieren
|
||||
addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum)
|
||||
End If
|
||||
|
||||
'=====IMPORT IN VERAG DATENMODELL==========
|
||||
Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
|
||||
@@ -1014,38 +1051,57 @@ Public Class frmStartOptions
|
||||
'==========================================
|
||||
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL")
|
||||
doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
Case "TR109"
|
||||
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL")
|
||||
If sendMail Then doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
Case "TR109", "CC029C"
|
||||
If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) And Not sendMail Then
|
||||
addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum)
|
||||
End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrNCTS='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL")
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
||||
doMailZollbeleg(destFull, "VBD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
Case "EZ923" ' STB/ABD
|
||||
If sendMail Then
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
||||
doMailZollbeleg(destFull, "VBD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
End If
|
||||
|
||||
Case "EZ923", "CC529C" ' STB/ABD
|
||||
Select Case row("VorgangID")
|
||||
Case "AF" ' --> AUSFUHR --> ABD
|
||||
'AES Stuff....
|
||||
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL")
|
||||
If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) And Not sendMail Then 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum)
|
||||
End If
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrAES='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL")
|
||||
|
||||
'Zeitspanne ? 3 Tage , älter nicht senden..
|
||||
If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then
|
||||
doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
If sendMail Then doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
End If
|
||||
Case Else '' --> EINFUHR --> 'Ergänzung STB - Mitteilung
|
||||
|
||||
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) And Not sendMail Then
|
||||
addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum)
|
||||
End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
|
||||
doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
If sendMail Then doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
|
||||
End Select
|
||||
|
||||
Case "EX431" 'AVM --> EZoll Anhänge & Mail senden
|
||||
|
||||
'Select Case art
|
||||
' Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN
|
||||
' Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN
|
||||
' Case Else : SPEDBUCH.AtlasBezNrEZA = LRN
|
||||
'End Select
|
||||
|
||||
Case "EX431", "CC599C" '-> Ausgangsvermerk 'AVM --> EZoll Anhänge & Mail senden
|
||||
'AES Stuff....
|
||||
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL")
|
||||
If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) And Not sendMail Then
|
||||
addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum)
|
||||
End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
|
||||
sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrAES='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL")
|
||||
|
||||
If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then
|
||||
doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
If sendMail Then doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
|
||||
End If
|
||||
|
||||
End Select
|
||||
@@ -1055,6 +1111,18 @@ Public Class frmStartOptions
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If dtSPEDEintrageAusEinarbeitung_HISTORY.Rows.Count > 0 Then
|
||||
|
||||
Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtSPEDEintrageAusEinarbeitung_HISTORY,,,,, False)
|
||||
If filepath <> "" Then
|
||||
Dim anhenge As New List(Of String)
|
||||
anhenge.Add(filepath)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "E-ZOLL nachträgliche Einarbeitung", "Im Anhang befinden sich die Speditionsbucheintrag, die bei der nachträglichen Einarbeitung angelegt wurden: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Return True
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -3932,10 +4000,6 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel25_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked
|
||||
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now)))
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
For Each d In System.IO.Directory.GetDirectories(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
Dim fid As New FileInfo(d)
|
||||
@@ -4475,11 +4539,25 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub lblEZOLLDat_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEZOLLDat.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value)
|
||||
showPic(bool, piceZollAnh)
|
||||
|
||||
If cbxEZOLLUNISPED.Checked Then
|
||||
|
||||
Dim f = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
||||
Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value, cbxSendEZOLL_INFO.Checked)
|
||||
showPic(bool, piceZollAnh)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f
|
||||
|
||||
Else
|
||||
Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value, cbxSendEZOLL_INFO.Checked)
|
||||
showPic(bool, piceZollAnh)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -5097,13 +5175,6 @@ Public Class frmStartOptions
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel48_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel48.LinkClicked
|
||||
Dim f = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
||||
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now)))
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f
|
||||
End Sub
|
||||
|
||||
Private Function checkTestsystemSettings() As Boolean
|
||||
Dim check As Boolean = False
|
||||
If cbxTestFTP.Checked And Not cbxTestsystem.Checked Then
|
||||
@@ -7625,4 +7696,12 @@ repeatRequest:
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles btnEZOLL_7days.Click
|
||||
txtEZOLLAnhDat._value = Now().AddDays(-7).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub Button32_Click(sender As Object, e As EventArgs) Handles btnEZOLL_1month.Click
|
||||
txtEZOLLAnhDat._value = Now().AddMonths(-1).ToShortDateString
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user