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

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

Browse Source
This commit is contained in:
d.breimaier
2024-03-01 15:18:29 +01:00
parent cd06be03e0 9fdca37fab
commit 5770894d1c
47 changed files with 12318 additions and 814 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Administration/frmKasseAbschliessen.vb
View File

@@ -82,7 +82,7 @@
Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double)
Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value
@@ -143,7 +143,7 @@
End Sub
Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double)
Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value, KASSE.rksv_firma).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
BELEG_NEU.Beleg_TYP = "E"
BELEG_NEU.Belegart = 1 'EINGANG
BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv

31
SDL/Classes/cRKSV.vb
View File

@@ -2,6 +2,7 @@
Imports System.Drawing.Printing
Imports GrapeCity.ActiveReports
Imports VERAG_PROG_ALLGEMEIN.DSFinVKService
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cRKSV
Shared SQL As New SQL
@@ -1003,10 +1004,10 @@ Public Class cRKSV
Shared Function getGJ_FIRMA(BelegDat As Date, FIRMA As String) As Integer
If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA
Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR"
Return BelegDat.Year
Case Else
Case "VERAG", "ATILLA"
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
Case Else
Return BelegDat.Year
End Select
End Function
@@ -1014,7 +1015,7 @@ Public Class cRKSV
Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer
'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA_ID
Case -1, 1, 3, 11, 7, 19, 15 'Abweichendes WJ
Case -1, 1, 3, 11, 7, 15 'Abweichendes WJ
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
Case Else
Return BelegDat.Year
@@ -1043,21 +1044,23 @@ Public Class cRKSV
'End Function
Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer) As Date
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "FRONTOFFICE"
Return CDate("31.12." & GeschaerftsJahr)
Case Else
Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date
If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA
Case "VERAG", "ATILLA"
Return CDate("31.01." & (GeschaerftsJahr + 1))
Case Else
Return CDate("31.12." & GeschaerftsJahr)
End Select
End Function
Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer) As Date
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "FRONTOFFICE"
Return CDate("01.01." & GeschaerftsJahr)
Case Else
Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date
If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA
Case "VERAG", "ATILLA"
Return CDate("01.02." & GeschaerftsJahr)
Case Else
Return CDate("01.01." & GeschaerftsJahr)
End Select
End Function

81
SDL/Fakturierung/cFakturierung.vb
View File

@@ -352,7 +352,7 @@ Public Class cFakturierung
End If
If RECHNUNG.Firma_ID = 4 Then
strZahlbar &= " (<Rechnungsdatum+10T>)"
strZahlbar &= " (<Rechnungsdatum+ZZ>)"
End If
'
@@ -541,12 +541,14 @@ Public Class cFakturierung
End If
Case 21, 22, 23
Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
' If ZZKdZahlungszielVL <> ZZKdZahlungsziel Then
If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+10T>, you can deduct the template commission charged. " & vbCrLf)
Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+10T> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+ZZVL>, you can deduct the template commission charged. " & vbCrLf)
Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+ZZVL> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
End Select
End If
' End If
End Select
'strText = strZahlbar & vbNewLine & strText
@@ -785,7 +787,30 @@ Public Class cFakturierung
End If
End If
End If
Case Else 'VERAG,ATILLA
Case 7 ' ATILLA
If Rechnung.RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
If Not hasEUSTZOLL(Rechnung) Then
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 6 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
End If
Else
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
End If
Case Else 'VERAG
If Rechnung.RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
@@ -1057,10 +1082,17 @@ Public Class cFakturierung
End Select
Dim ZZTage = 10
Dim ZZTageVL = 10
Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10)
If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then
ZZTage = ZZKdZahlungsziel
ZZTageVL = ZZTage
End If
Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10)
If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then
ZZTageVL = ZZKdZahlungszielVL
End If
Select Case RECHNUNG.RechnungSprache
Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:"
Case Else : rpt.Label2.Text = ZZTage & " Tage"
@@ -1379,8 +1411,13 @@ Public Class cFakturierung
If vorschau Then
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False)
@@ -1398,11 +1435,19 @@ Public Class cFakturierung
rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZ>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString)
Else
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
End If
Else
@@ -1416,11 +1461,19 @@ Public Class cFakturierung
Else
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZ>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString)
Else
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
End If
If RECHNUNG.[DruckDatumZeit] Is Nothing Then

36
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -530,6 +530,13 @@ Public Class frmRechnungenSuche
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
If brexitXLS Then
cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
Else
Dim sqlstr As String = ""
' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
@@ -537,22 +544,27 @@ Public Class frmRechnungenSuche
" FROM [Rechnungsausgang] WHERE 1=1 "
Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList)
Me.Cursor = Cursors.WaitCursor
'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
If brexitXLS Then
cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£")
Else
cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)})
cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
End If
Me.Cursor = Cursors.Default
'Me.Cursor = Cursors.WaitCursor
''cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
'If brexitXLS Then
' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
' cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£")
'Else
' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
' cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)})
'End If
'Me.Cursor = Cursors.Default
''If brexitXLS Then
'' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
''Else
'' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
''End If
''Me.Cursor = Cursors.Default
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
@@ -800,9 +812,11 @@ Public Class frmRechnungenSuche
/*and Rechnungsausgang.SteuerpflichtigerGesamtbetrag<>0*/
/*and Leistungen.Steuerpflichtig=1*/
and (Leistungen.Abfertigungskosten=1 or Leistungen.LeistungsNr IN (656,425))
and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751)
and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751,20,60,61)
and Firma_ID=26
"
' MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr")
.SET_SQL(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr", "FMZOLL", getSpedbuchList)
.LOAD()

69
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -86,6 +86,7 @@
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
@@ -100,6 +101,7 @@
cboFirma.changeItem("AMBAR")
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
@@ -114,6 +116,7 @@
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
@@ -277,7 +280,7 @@
' cboFirma.changeItem("AG")
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
@@ -286,6 +289,24 @@
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))
Case "VZ_SPECIAL_2" '"VZ Backwaren"
DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
@@ -374,7 +395,7 @@
DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(158).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
@@ -386,6 +407,27 @@
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
Case "VZ_SPECIAL_2" '"VZ Backwaren"
DataGridView.Rows.Add(cnt, "", "Verzollung Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
@@ -525,7 +567,7 @@
cboFirma.changeItem("AG")
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(168).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
@@ -534,6 +576,27 @@
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.8.1")>
<Assembly: AssemblyFileVersion("1.2.8.1")>
<Assembly: AssemblyVersion("1.2.8.2")>
<Assembly: AssemblyFileVersion("1.2.8.2")>

20
SDL/My Project/Resources.Designer.vb generated
View File

@@ -150,6 +150,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property air_pollution() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("air-pollution", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -419,6 +429,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cbam_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

136
SDL/My Project/Resources.resx
View File

@@ -139,18 +139,21 @@
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="air-pollution" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\air-pollution.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="verag_Card1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -181,8 +184,8 @@
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,6 +220,9 @@
<data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -238,9 +244,6 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -262,9 +265,6 @@
<data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -283,6 +283,9 @@
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxZoomIn_Enter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -292,9 +295,6 @@
<data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -349,15 +349,18 @@
<data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -373,6 +376,9 @@
<data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -436,6 +442,9 @@
<data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -460,12 +469,15 @@
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
@@ -478,27 +490,24 @@
<data name="Route5_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_AG_Logo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="chimes2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
@@ -523,9 +532,6 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -547,12 +553,12 @@
<data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -577,8 +583,8 @@
<data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_cz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,9 +634,6 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -649,8 +652,8 @@
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -676,8 +679,8 @@
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -715,8 +718,8 @@
<data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -724,8 +727,8 @@
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="durmaz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -790,14 +793,14 @@
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="modaltrans_original" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -808,8 +811,8 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -841,8 +844,8 @@
<data name="Verag_Customs_Service_GMBH_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pin" xml:space="preserve">
<value>VERAGZoll1</value>
@@ -850,8 +853,8 @@
<data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -859,8 +862,8 @@
<data name="mahn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -874,8 +877,8 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -889,8 +892,8 @@
<data name="Einheitspapier_0777_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -904,7 +907,10 @@
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="durmaz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

96
SDL/OriginalArchiv_ATR/frmATR.Designer.vb generated
View File

@@ -24,6 +24,8 @@ Partial Class frmATR
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATR))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
Me.lblErr_DocNr = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -51,6 +53,7 @@ Partial Class frmATR
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
@@ -69,15 +72,13 @@ Partial Class frmATR
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtInfo = New System.Windows.Forms.RichTextBox()
Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label()
Me.lblErr_DocNr = New System.Windows.Forms.Label()
Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
@@ -124,6 +125,32 @@ Partial Class frmATR
Me.Panel1.Size = New System.Drawing.Size(658, 588)
Me.Panel1.TabIndex = 0
'
'lblErr_Aufbewarungsort
'
Me.lblErr_Aufbewarungsort.AutoSize = True
Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Aufbewarungsort.TabIndex = 108
Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aufbewarungsort.Visible = False
'
'lblErr_DocNr
'
Me.lblErr_DocNr.AutoSize = True
Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
Me.lblErr_DocNr.Name = "lblErr_DocNr"
Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
Me.lblErr_DocNr.TabIndex = 107
Me.lblErr_DocNr.Text = "Pflichtfeld!"
Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_DocNr.Visible = False
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -558,6 +585,17 @@ Partial Class frmATR
Me.Panel2.Size = New System.Drawing.Size(658, 44)
Me.Panel2.TabIndex = 1
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 134
Me.PictureBox6.TabStop = False
'
'Label10
'
Me.Label10.AutoSize = True
@@ -574,6 +612,7 @@ Partial Class frmATR
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum)
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst)
Me.Panel3.Controls.Add(Me.txtErhaltenReferenz)
@@ -816,42 +855,18 @@ Partial Class frmATR
Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Ausstellungsdatum.Visible = False
'
'lblErr_DocNr
'lblErr_ErhaltenDatum
'
Me.lblErr_DocNr.AutoSize = True
Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
Me.lblErr_DocNr.Name = "lblErr_DocNr"
Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
Me.lblErr_DocNr.TabIndex = 107
Me.lblErr_DocNr.Text = "Pflichtfeld!"
Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_DocNr.Visible = False
'
'lblErr_Aufbewarungsort
'
Me.lblErr_Aufbewarungsort.AutoSize = True
Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Aufbewarungsort.TabIndex = 108
Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aufbewarungsort.Visible = False
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 134
Me.PictureBox6.TabStop = False
Me.lblErr_ErhaltenDatum.AutoSize = True
Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red
Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26)
Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum"
Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13)
Me.lblErr_ErhaltenDatum.TabIndex = 109
Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!"
Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_ErhaltenDatum.Visible = False
'
'frmATR
'
@@ -869,10 +884,10 @@ Partial Class frmATR
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -926,4 +941,5 @@ Partial Class frmATR
Friend WithEvents lblErr_DocNr As Label
Friend WithEvents lblErr_Ausstellungsdatum As Label
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents lblErr_ErhaltenDatum As Label
End Class

34
SDL/OriginalArchiv_ATR/frmATR.vb
View File

@@ -58,6 +58,8 @@ Public Class frmATR
getValues()
'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben:
If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr)
@@ -67,7 +69,7 @@ Public Class frmATR
End If
End If
If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) Or (loadedDSID <> DSID And loadedDSID > 0) Then
If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then
If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
If ATR.atr_dsId < 0 Then
MsgBox("Kein PDF-Anhang!")
@@ -81,6 +83,7 @@ Public Class frmATR
ANH.anh_Art = "ATR"
ANH.SAVE() 'Eintrag wird überschreiben
ATR.atr_anhID = ANH.anh_id
insertVermerkATR(ATR)
End If
End If
@@ -95,14 +98,24 @@ Public Class frmATR
Me.DialogResult = DialogResult.None
End Sub
Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR)
Dim VermerkeCodeID = 110
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen!
Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID)
If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben!
End Sub
Function doValidation() As Boolean
lblErr_Ausstellungsdatum.Visible = False
lblErr_DocNr.Visible = False
lblErr_Aufbewarungsort.Visible = False
lblErr_ErhaltenDatum.Visible = False
If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False
If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False
If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False
If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False
Return True
@@ -135,8 +148,8 @@ Public Class frmATR
txtDocNumber.Text = If(ATR.atr_documentNr, "")
txtDocDatum._value = If(ATR.atr_austellungsdatum, "")
txtKennzeichen.Text = If(ATR.atr_LKW, "")
txtFiliale.Text = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "")
txtAbfNr.Text = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "")
txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "")
txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "")
sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId)
@@ -156,9 +169,9 @@ Public Class frmATR
ATR.atr_documentNr = txtDocNumber.Text
ATR.atr_austellungsdatum = txtDocDatum._value
'ATR.atr_erfassungsdatum = Now
ATR.atr_absender = txtAbsender.KdName
ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text)
ATR.atr_absenderkdnr = txtAbsender.KdNr
ATR.atr_empfaenger = txtEmpfaenger.KdName
ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text)
ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr
ATR.atr_location = txtLocation.Text
ATR.atr_info = txtInfo.Text
@@ -167,7 +180,7 @@ Public Class frmATR
If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value
ATR.atr_LKW = txtKennzeichen.Text
ATR.atr_SendungsId = sbAvisoSuche._value
ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1)
If sbAvisoSuche._value <> "" Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1)
@@ -196,7 +209,7 @@ Public Class frmATR
'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300)
sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /* AND (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
If ATR IsNot Nothing Then
@@ -262,11 +275,13 @@ Public Class frmATR
Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED
txtFiliale.Text = ""
txtAbfNr.Text = ""
If sbAvisoSuche._value <> "" Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value)
If SND IsNot Nothing Then
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID)
txtFiliale.Text = SND.FilialenNr
txtAbfNr.Text = SND.AbfertigungsNr
txtFiliale._value = SND.FilialenNr
txtAbfNr._value = SND.AbfertigungsNr
lblLKWId.Text = SND.tblSnd_AvisoID
If AVISO IsNot Nothing Then
txtKennzeichen.Text = AVISO.LKW_Nr
@@ -274,6 +289,7 @@ Public Class frmATR
' lblKennzeichen.Visible = True
lblLKWId.Visible = True
End If
End If
End Sub
Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click

667
SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb generated
View File

@@ -25,12 +25,23 @@ Partial Class frmOriginalArchiv_ATR
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOriginalArchiv_ATR))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
@@ -38,6 +49,7 @@ Partial Class frmOriginalArchiv_ATR
Me.Label23 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
@@ -46,47 +58,36 @@ Partial Class frmOriginalArchiv_ATR
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label()
Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.btnSendungKoppeln = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
Me.FlatButton7 = New System.Windows.Forms.Button()
Me.lblErgebnis = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnSendungKoppeln = New System.Windows.Forms.Button()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnloptions.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnloptions.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cboDatum)
Me.pnl.Controls.Add(Me.txtSuche)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.txtSB)
@@ -118,7 +119,6 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.Controls.Add(Me.btnVonMonat)
Me.pnl.Controls.Add(Me.DateTimePicker2)
Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.lblAbfertigungsdatum)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label12)
@@ -129,6 +129,30 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.Size = New System.Drawing.Size(1419, 171)
Me.pnl.TabIndex = 0
'
'txtSuche
'
Me.txtSuche._DateTimeOnly = False
Me.txtSuche._numbersOnly = False
Me.txtSuche._numbersOnlyKommastellen = ""
Me.txtSuche._numbersOnlyTrennzeichen = False
Me.txtSuche._Prozent = False
Me.txtSuche._ShortDateNew = False
Me.txtSuche._ShortDateOnly = False
Me.txtSuche._TimeOnly = False
Me.txtSuche._TimeOnly_Seconds = False
Me.txtSuche._value = ""
Me.txtSuche._Waehrung = False
Me.txtSuche._WaehrungZeichen = False
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSuche.ForeColor = System.Drawing.Color.Black
Me.txtSuche.Location = New System.Drawing.Point(338, 75)
Me.txtSuche.MaxLineLength = -1
Me.txtSuche.MaxLines_Warning = ""
Me.txtSuche.MaxLines_Warning_Label = Nothing
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(258, 20)
Me.txtSuche.TabIndex = 77
'
'Label9
'
Me.Label9.AutoSize = True
@@ -139,6 +163,55 @@ Partial Class frmOriginalArchiv_ATR
Me.Label9.TabIndex = 76
Me.Label9.Text = "Suche:"
'
'txtSB
'
Me.txtSB._DateTimeOnly = False
Me.txtSB._numbersOnly = False
Me.txtSB._numbersOnlyKommastellen = ""
Me.txtSB._numbersOnlyTrennzeichen = False
Me.txtSB._Prozent = False
Me.txtSB._ShortDateNew = False
Me.txtSB._ShortDateOnly = False
Me.txtSB._TimeOnly = False
Me.txtSB._TimeOnly_Seconds = False
Me.txtSB._value = ""
Me.txtSB._Waehrung = False
Me.txtSB._WaehrungZeichen = False
Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSB.ForeColor = System.Drawing.Color.Black
Me.txtSB.Location = New System.Drawing.Point(920, 131)
Me.txtSB.MaxLineLength = -1
Me.txtSB.MaxLines_Warning = ""
Me.txtSB.MaxLines_Warning_Label = Nothing
Me.txtSB.Multiline = True
Me.txtSB.Name = "txtSB"
Me.txtSB.Size = New System.Drawing.Size(240, 22)
Me.txtSB.TabIndex = 75
'
'txtDocumetNummer
'
Me.txtDocumetNummer._DateTimeOnly = False
Me.txtDocumetNummer._numbersOnly = False
Me.txtDocumetNummer._numbersOnlyKommastellen = ""
Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
Me.txtDocumetNummer._Prozent = False
Me.txtDocumetNummer._ShortDateNew = False
Me.txtDocumetNummer._ShortDateOnly = False
Me.txtDocumetNummer._TimeOnly = False
Me.txtDocumetNummer._TimeOnly_Seconds = False
Me.txtDocumetNummer._value = ""
Me.txtDocumetNummer._Waehrung = False
Me.txtDocumetNummer._WaehrungZeichen = False
Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
Me.txtDocumetNummer.MaxLineLength = -1
Me.txtDocumetNummer.MaxLines_Warning = ""
Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
Me.txtDocumetNummer.Name = "txtDocumetNummer"
Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
Me.txtDocumetNummer.TabIndex = 74
'
'Label8
'
Me.Label8.AutoSize = True
@@ -149,6 +222,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label8.TabIndex = 73
Me.Label8.Text = "Dokument-Nummer"
'
'txtAbsender
'
Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False
Me.txtAbsender._TimeOnly = False
Me.txtAbsender._TimeOnly_Seconds = False
Me.txtAbsender._value = Nothing
Me.txtAbsender._Waehrung = False
Me.txtAbsender._WaehrungZeichen = True
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.ForeColor = System.Drawing.Color.Black
Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
Me.txtAbsender.MaxLineLength = -1
Me.txtAbsender.MaxLines_Warning = ""
Me.txtAbsender.MaxLines_Warning_Label = Nothing
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
Me.txtAbsender.TabIndex = 72
'
'Label7
'
Me.Label7.AutoSize = True
@@ -159,6 +256,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label7.TabIndex = 71
Me.Label7.Text = "Absender"
'
'txtReferenz
'
Me.txtReferenz._DateTimeOnly = False
Me.txtReferenz._numbersOnly = False
Me.txtReferenz._numbersOnlyKommastellen = ""
Me.txtReferenz._numbersOnlyTrennzeichen = True
Me.txtReferenz._Prozent = False
Me.txtReferenz._ShortDateNew = False
Me.txtReferenz._ShortDateOnly = False
Me.txtReferenz._TimeOnly = False
Me.txtReferenz._TimeOnly_Seconds = False
Me.txtReferenz._value = Nothing
Me.txtReferenz._Waehrung = False
Me.txtReferenz._WaehrungZeichen = True
Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtReferenz.ForeColor = System.Drawing.Color.Black
Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
Me.txtReferenz.MaxLineLength = -1
Me.txtReferenz.MaxLines_Warning = ""
Me.txtReferenz.MaxLines_Warning_Label = Nothing
Me.txtReferenz.Name = "txtReferenz"
Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
Me.txtReferenz.TabIndex = 70
'
'Label5
'
Me.Label5.AutoSize = True
@@ -169,6 +290,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label5.TabIndex = 69
Me.Label5.Text = "Referenz:"
'
'txtFEmpfänger
'
Me.txtFEmpfänger._DateTimeOnly = False
Me.txtFEmpfänger._numbersOnly = False
Me.txtFEmpfänger._numbersOnlyKommastellen = ""
Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
Me.txtFEmpfänger._Prozent = False
Me.txtFEmpfänger._ShortDateNew = False
Me.txtFEmpfänger._ShortDateOnly = False
Me.txtFEmpfänger._TimeOnly = False
Me.txtFEmpfänger._TimeOnly_Seconds = False
Me.txtFEmpfänger._value = Nothing
Me.txtFEmpfänger._Waehrung = False
Me.txtFEmpfänger._WaehrungZeichen = True
Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
Me.txtFEmpfänger.MaxLineLength = -1
Me.txtFEmpfänger.MaxLines_Warning = ""
Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
Me.txtFEmpfänger.Name = "txtFEmpfänger"
Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
Me.txtFEmpfänger.TabIndex = 68
'
'Label6
'
Me.Label6.AutoSize = True
@@ -179,6 +324,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label6.TabIndex = 67
Me.Label6.Text = "Empfänger:"
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen._DateTimeOnly = False
Me.txtLKWKennzeichen._numbersOnly = False
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
Me.txtLKWKennzeichen._Prozent = False
Me.txtLKWKennzeichen._ShortDateNew = False
Me.txtLKWKennzeichen._ShortDateOnly = False
Me.txtLKWKennzeichen._TimeOnly = False
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
Me.txtLKWKennzeichen._value = Nothing
Me.txtLKWKennzeichen._Waehrung = False
Me.txtLKWKennzeichen._WaehrungZeichen = True
Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
Me.txtLKWKennzeichen.MaxLineLength = -1
Me.txtLKWKennzeichen.MaxLines_Warning = ""
Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
Me.txtLKWKennzeichen.TabIndex = 66
'
'Label3
'
Me.Label3.AutoSize = True
@@ -189,6 +358,94 @@ Partial Class frmOriginalArchiv_ATR
Me.Label3.TabIndex = 65
Me.Label3.Text = "LKW:"
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 33
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 36
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(920, 75)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
Me.cboFiliale.TabIndex = 53
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = True
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
Me.txtAbfertigungsnummer.TabIndex = 55
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -281,6 +538,17 @@ Partial Class frmOriginalArchiv_ATR
Me.pnlTop.Size = New System.Drawing.Size(1417, 48)
Me.pnlTop.TabIndex = 34
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
Me.PictureBox6.TabIndex = 135
Me.PictureBox6.TabStop = False
'
'Label4
'
Me.Label4.AutoSize = True
@@ -386,16 +654,6 @@ Partial Class frmOriginalArchiv_ATR
Me.Label13.TabIndex = 46
Me.Label13.Text = "von:"
'
'lblAbfertigungsdatum
'
Me.lblAbfertigungsdatum.AutoSize = True
Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59)
Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum"
Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(118, 13)
Me.lblAbfertigungsdatum.TabIndex = 32
Me.lblAbfertigungsdatum.Text = "Ausstellungs-Datum"
'
'Label1
'
Me.Label1.AutoSize = True
@@ -447,6 +705,23 @@ Partial Class frmOriginalArchiv_ATR
Me.Panel1.Size = New System.Drawing.Size(1419, 390)
Me.Panel1.TabIndex = 1
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowHeadersWidth = 51
Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
Me.MyDatagridview1.TabIndex = 0
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -481,6 +756,21 @@ Partial Class frmOriginalArchiv_ATR
Me.pnloptions.Size = New System.Drawing.Size(1419, 59)
Me.pnloptions.TabIndex = 2
'
'btnSendungKoppeln
'
Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
Me.btnSendungKoppeln.TabIndex = 75
Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
Me.btnSendungKoppeln.UseVisualStyleBackColor = True
Me.btnSendungKoppeln.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -559,280 +849,6 @@ Partial Class frmOriginalArchiv_ATR
Me.Label37.TabIndex = 69
Me.Label37.Text = "Max:"
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowHeadersWidth = 51
Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
Me.MyDatagridview1.TabIndex = 0
'
'txtSuche
'
Me.txtSuche._DateTimeOnly = False
Me.txtSuche._numbersOnly = False
Me.txtSuche._numbersOnlyKommastellen = ""
Me.txtSuche._numbersOnlyTrennzeichen = False
Me.txtSuche._Prozent = False
Me.txtSuche._ShortDateNew = False
Me.txtSuche._ShortDateOnly = False
Me.txtSuche._TimeOnly = False
Me.txtSuche._TimeOnly_Seconds = False
Me.txtSuche._value = ""
Me.txtSuche._Waehrung = False
Me.txtSuche._WaehrungZeichen = False
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSuche.ForeColor = System.Drawing.Color.Black
Me.txtSuche.Location = New System.Drawing.Point(338, 75)
Me.txtSuche.MaxLineLength = -1
Me.txtSuche.MaxLines_Warning = ""
Me.txtSuche.MaxLines_Warning_Label = Nothing
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(258, 20)
Me.txtSuche.TabIndex = 77
'
'txtSB
'
Me.txtSB._DateTimeOnly = False
Me.txtSB._numbersOnly = False
Me.txtSB._numbersOnlyKommastellen = ""
Me.txtSB._numbersOnlyTrennzeichen = False
Me.txtSB._Prozent = False
Me.txtSB._ShortDateNew = False
Me.txtSB._ShortDateOnly = False
Me.txtSB._TimeOnly = False
Me.txtSB._TimeOnly_Seconds = False
Me.txtSB._value = ""
Me.txtSB._Waehrung = False
Me.txtSB._WaehrungZeichen = False
Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSB.ForeColor = System.Drawing.Color.Black
Me.txtSB.Location = New System.Drawing.Point(920, 131)
Me.txtSB.MaxLineLength = -1
Me.txtSB.MaxLines_Warning = ""
Me.txtSB.MaxLines_Warning_Label = Nothing
Me.txtSB.Multiline = True
Me.txtSB.Name = "txtSB"
Me.txtSB.Size = New System.Drawing.Size(240, 22)
Me.txtSB.TabIndex = 75
'
'txtDocumetNummer
'
Me.txtDocumetNummer._DateTimeOnly = False
Me.txtDocumetNummer._numbersOnly = False
Me.txtDocumetNummer._numbersOnlyKommastellen = ""
Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
Me.txtDocumetNummer._Prozent = False
Me.txtDocumetNummer._ShortDateNew = False
Me.txtDocumetNummer._ShortDateOnly = False
Me.txtDocumetNummer._TimeOnly = False
Me.txtDocumetNummer._TimeOnly_Seconds = False
Me.txtDocumetNummer._value = ""
Me.txtDocumetNummer._Waehrung = False
Me.txtDocumetNummer._WaehrungZeichen = False
Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
Me.txtDocumetNummer.MaxLineLength = -1
Me.txtDocumetNummer.MaxLines_Warning = ""
Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
Me.txtDocumetNummer.Name = "txtDocumetNummer"
Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
Me.txtDocumetNummer.TabIndex = 74
'
'txtAbsender
'
Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False
Me.txtAbsender._TimeOnly = False
Me.txtAbsender._TimeOnly_Seconds = False
Me.txtAbsender._value = Nothing
Me.txtAbsender._Waehrung = False
Me.txtAbsender._WaehrungZeichen = True
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.ForeColor = System.Drawing.Color.Black
Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
Me.txtAbsender.MaxLineLength = -1
Me.txtAbsender.MaxLines_Warning = ""
Me.txtAbsender.MaxLines_Warning_Label = Nothing
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
Me.txtAbsender.TabIndex = 72
'
'txtReferenz
'
Me.txtReferenz._DateTimeOnly = False
Me.txtReferenz._numbersOnly = False
Me.txtReferenz._numbersOnlyKommastellen = ""
Me.txtReferenz._numbersOnlyTrennzeichen = True
Me.txtReferenz._Prozent = False
Me.txtReferenz._ShortDateNew = False
Me.txtReferenz._ShortDateOnly = False
Me.txtReferenz._TimeOnly = False
Me.txtReferenz._TimeOnly_Seconds = False
Me.txtReferenz._value = Nothing
Me.txtReferenz._Waehrung = False
Me.txtReferenz._WaehrungZeichen = True
Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtReferenz.ForeColor = System.Drawing.Color.Black
Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
Me.txtReferenz.MaxLineLength = -1
Me.txtReferenz.MaxLines_Warning = ""
Me.txtReferenz.MaxLines_Warning_Label = Nothing
Me.txtReferenz.Name = "txtReferenz"
Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
Me.txtReferenz.TabIndex = 70
'
'txtFEmpfänger
'
Me.txtFEmpfänger._DateTimeOnly = False
Me.txtFEmpfänger._numbersOnly = False
Me.txtFEmpfänger._numbersOnlyKommastellen = ""
Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
Me.txtFEmpfänger._Prozent = False
Me.txtFEmpfänger._ShortDateNew = False
Me.txtFEmpfänger._ShortDateOnly = False
Me.txtFEmpfänger._TimeOnly = False
Me.txtFEmpfänger._TimeOnly_Seconds = False
Me.txtFEmpfänger._value = Nothing
Me.txtFEmpfänger._Waehrung = False
Me.txtFEmpfänger._WaehrungZeichen = True
Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
Me.txtFEmpfänger.MaxLineLength = -1
Me.txtFEmpfänger.MaxLines_Warning = ""
Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
Me.txtFEmpfänger.Name = "txtFEmpfänger"
Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
Me.txtFEmpfänger.TabIndex = 68
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen._DateTimeOnly = False
Me.txtLKWKennzeichen._numbersOnly = False
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
Me.txtLKWKennzeichen._Prozent = False
Me.txtLKWKennzeichen._ShortDateNew = False
Me.txtLKWKennzeichen._ShortDateOnly = False
Me.txtLKWKennzeichen._TimeOnly = False
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
Me.txtLKWKennzeichen._value = Nothing
Me.txtLKWKennzeichen._Waehrung = False
Me.txtLKWKennzeichen._WaehrungZeichen = True
Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
Me.txtLKWKennzeichen.MaxLineLength = -1
Me.txtLKWKennzeichen.MaxLines_Warning = ""
Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
Me.txtLKWKennzeichen.TabIndex = 66
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 33
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 36
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(920, 75)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
Me.cboFiliale.TabIndex = 53
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = True
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
Me.txtAbfertigungsnummer.TabIndex = 55
'
'txtMaxSrch
'
Me.txtMaxSrch._DateTimeOnly = False
@@ -860,31 +876,22 @@ Partial Class frmOriginalArchiv_ATR
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'btnSendungKoppeln
'cboDatum
'
Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
Me.btnSendungKoppeln.TabIndex = 75
Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
Me.btnSendungKoppeln.UseVisualStyleBackColor = True
Me.btnSendungKoppeln.Visible = False
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
Me.PictureBox6.TabIndex = 135
Me.PictureBox6.TabStop = False
Me.cboDatum._allowedValuesFreiText = Nothing
Me.cboDatum._allowFreiText = False
Me.cboDatum._value = ""
Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDatum.DropDownWidth = 250
Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDatum.FormattingEnabled = True
Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
Me.cboDatum.Location = New System.Drawing.Point(15, 52)
Me.cboDatum.Name = "cboDatum"
Me.cboDatum.Size = New System.Drawing.Size(141, 22)
Me.cboDatum.TabIndex = 78
'
'frmOriginalArchiv_ATR
'
@@ -902,11 +909,11 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.PerformLayout()
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnloptions.ResumeLayout(False)
Me.pnloptions.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -930,7 +937,6 @@ Partial Class frmOriginalArchiv_ATR
Friend WithEvents btnVonMonat As System.Windows.Forms.Button
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents lblAbfertigungsdatum As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
@@ -961,4 +967,5 @@ Partial Class frmOriginalArchiv_ATR
Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSendungKoppeln As Button
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

22
SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb
View File

@@ -20,6 +20,13 @@ Public Class frmOriginalArchiv_ATR
txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
cboDatum.Items.Clear()
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat"))
cboDatum.changeItem("ADat")
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
@@ -148,6 +155,9 @@ Public Class frmOriginalArchiv_ATR
Function getWhere() As String
Dim sqlstr = ""
If cboDatum._value = "ADat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
@@ -155,6 +165,17 @@ Public Class frmOriginalArchiv_ATR
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
End If
End If
ElseIf cboDatum._value = "EDat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) "
End If
End If
End If
If txtSuche._value <> "" Then
sqlstr &= " AND ( "
@@ -402,6 +423,7 @@ Public Class frmOriginalArchiv_ATR
ATR.atr_FilialenNr = SND.FilialenNr
ATR.atr_AbfertigungsNr = SND.AbfertigungsNr
If ATR.SAVE() Then
frmATR.insertVermerkATR(ATR)
Me.Close()
End If
End If

2
SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb
View File

@@ -52,7 +52,7 @@ Public Class rptKontrolleLKW_Dakosy
Dim firmaStr = ""
If FIRMA = "DURMAZ" Then
firmaStr = " AND ncts_ObjectName LIKE 'DU%' "
firmaStr = " AND (ncts_ObjectName LIKE 'DU%' OR ncts_firma='DURMAZ') "
ElseIf FIRMA = "IMEX" Then
firmaStr = " AND (ncts_ObjectName LIKE '402%' OR ncts_ObjectName LIKE '502%' OR ncts_ObjectName LIKE '5501%') "
ElseIf FIRMA = "AMBAR" Then

4
SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb
View File

@@ -54,7 +54,7 @@ Public Class rptKontrolleLKW_TELOTEC
'If FIRMA = "DURMAZ" Then mandant = "SUW"
Dim sqlStr As String = "SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
Dim sqlStr As String = "SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' )
@@ -80,7 +80,7 @@ Public Class rptKontrolleLKW_TELOTEC
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
Dim sqlStrSUB As String = " SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, *
Dim sqlStrSUB As String = " SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, *
FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' )

BIN
SDL/Resources/air-pollution.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 27 KiB

BIN
SDL/Resources/cbam_s.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.2 KiB

31
SDL/SDL.vbproj
View File

@@ -94,7 +94,10 @@
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>AL20210908.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>AL20231110.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<PropertyGroup>
<DelaySign>false</DelaySign>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
@@ -102,9 +105,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
</Reference>
<Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
<Reference Include="ClosedXML, Version=0.68.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\closedxml\ClosedXML.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
@@ -715,6 +718,12 @@
<Compile Include="kunden\usrCntlKundenZollVollmachten.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrCntlCBAM.Designer.vb">
<DependentUpon>usrCntlCBAM.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrCntlCBAM.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrcntlVertraege.Designer.vb">
<DependentUpon>usrcntlVertraege.vb</DependentUpon>
</Compile>
@@ -2923,6 +2932,12 @@
<Compile Include="zoll\usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="zoll\usrCntlAuswertungenCBAM_DE.Designer.vb">
<DependentUpon>usrCntlAuswertungenCBAM_DE.vb</DependentUpon>
</Compile>
<Compile Include="zoll\usrCntlAuswertungenCBAM_DE.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="zoll\usrCntlAuswertungenFiskalvertretung_4200.Designer.vb">
<DependentUpon>usrCntlAuswertungenFiskalvertretung_4200.vb</DependentUpon>
</Compile>
@@ -3153,6 +3168,9 @@
<EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
<DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlCBAM.resx">
<DependentUpon>usrCntlCBAM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrcntlVertraege.resx">
<DependentUpon>usrcntlVertraege.vb</DependentUpon>
</EmbeddedResource>
@@ -3186,6 +3204,7 @@
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungVERAGCardNEU.resx">
<DependentUpon>usrCntlSDLLeistungVERAGCardNEU.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="OriginalArchiv_ATR\frmATR.resx">
<DependentUpon>frmATR.vb</DependentUpon>
</EmbeddedResource>
@@ -4242,6 +4261,9 @@
<EmbeddedResource Include="zoll\usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.resx">
<DependentUpon>usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="zoll\usrCntlAuswertungenCBAM_DE.resx">
<DependentUpon>usrCntlAuswertungenCBAM_DE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="zoll\usrCntlAuswertungenFiskalvertretung_4200.resx">
<DependentUpon>usrCntlAuswertungenFiskalvertretung_4200.vb</DependentUpon>
</EmbeddedResource>
@@ -4278,6 +4300,7 @@
</ItemGroup>
<ItemGroup>
<None Include="AL20210908.pfx" />
<None Include="AL20231110.pfx" />
<None Include="andreas.cer" />
<None Include="ClassDiagram1.cd" />
<None Include="PrivateCodeSignaturDaniel20240131.pfx" />
@@ -4692,6 +4715,8 @@
<None Include="Resources\creditsafe.png" />
<None Include="Resources\Abrechnung.png" />
<None Include="Resources\Abrechnung_s.png" />
<None Include="Resources\air-pollution.png" />
<None Include="Resources\cbam_s.png" />
<Content Include="Resources\food.png" />
<None Include="Resources\food1.png" />
<None Include="Resources\food2.png" />

123
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -35,12 +35,10 @@ Partial Class frmKundenUebersichtZOLL
Me.tabZolltarife = New System.Windows.Forms.TabPage()
Me.pnlZollTarife = New System.Windows.Forms.Panel()
Me.tabKundendaten = New System.Windows.Forms.TabPage()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbStatistik = New System.Windows.Forms.TabPage()
Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
@@ -95,7 +93,7 @@ Partial Class frmKundenUebersichtZOLL
Me.Label40 = New System.Windows.Forms.Label()
Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.tbCBAM = New System.Windows.Forms.TabPage()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -122,6 +120,8 @@ Partial Class frmKundenUebersichtZOLL
Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueCBAM = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
@@ -148,7 +148,9 @@ Partial Class frmKundenUebersichtZOLL
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -221,17 +223,6 @@ Partial Class frmKundenUebersichtZOLL
Me.tabKundendaten.TabIndex = 0
Me.tabKundendaten.Text = "Kundendaten"
'
'usrcntlKundenuebersicht
'
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -256,6 +247,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen)
Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch)
Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht)
Me.tbcntrKundenDaten.Controls.Add(Me.tbCBAM)
Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0)
Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
@@ -276,16 +268,6 @@ Partial Class frmKundenUebersichtZOLL
Me.TabPage1.TabIndex = 2
Me.TabPage1.Text = "Offerte"
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbStatistik
'
Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -973,14 +955,15 @@ Partial Class frmKundenUebersichtZOLL
Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
'
'UsrcntlFiskaluebersicht1
'tbCBAM
'
Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
Me.UsrcntlFiskaluebersicht1.TabIndex = 0
Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
Me.tbCBAM.Name = "tbCBAM"
Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3)
Me.tbCBAM.Size = New System.Drawing.Size(1182, 697)
Me.tbCBAM.TabIndex = 8
Me.tbCBAM.Text = "CBAM"
Me.tbCBAM.UseVisualStyleBackColor = True
'
'NotifyIcon1
'
@@ -1006,7 +989,7 @@ Partial Class frmKundenUebersichtZOLL
Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueCBAM, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
Me.MenuStripKunden.Name = "MenuStripKunden"
@@ -1023,8 +1006,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueKunden.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueKunden.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueKunden.Name = "mnueKunden"
Me.mnueKunden.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
Me.mnueKunden.Size = New System.Drawing.Size(107, 69)
Me.mnueKunden.Size = New System.Drawing.Size(107, 64)
Me.mnueKunden.Text = "Kunden"
Me.mnueKunden.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueKunden.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1039,8 +1021,8 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueZoll.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueZoll.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
Me.mnueZoll.Name = "mnueZoll"
Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0, 0, 0, 5)
Me.mnueZoll.Size = New System.Drawing.Size(107, 64)
Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0)
Me.mnueZoll.Size = New System.Drawing.Size(107, 59)
Me.mnueZoll.Text = "Kunden-Zolltarif"
Me.mnueZoll.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueZoll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1054,8 +1036,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueOfferte.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueOfferte.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
Me.mnueOfferte.Name = "mnueOfferte"
Me.mnueOfferte.Padding = New System.Windows.Forms.Padding(4, 0, 4, 15)
Me.mnueOfferte.Size = New System.Drawing.Size(107, 64)
Me.mnueOfferte.Size = New System.Drawing.Size(107, 49)
Me.mnueOfferte.Text = "Offerte/Preise"
Me.mnueOfferte.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueOfferte.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1069,8 +1050,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueRechnungen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueRechnungen.Margin = New System.Windows.Forms.Padding(0, 0, 0, 2)
Me.mnueRechnungen.Name = "mnueRechnungen"
Me.mnueRechnungen.Padding = New System.Windows.Forms.Padding(4, 0, 4, 10)
Me.mnueRechnungen.Size = New System.Drawing.Size(107, 61)
Me.mnueRechnungen.Size = New System.Drawing.Size(107, 51)
Me.mnueRechnungen.Text = "Rechnungen"
Me.mnueRechnungen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueRechnungen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1082,8 +1062,8 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueSpeditionsbuch.Image = Global.SDL.My.Resources.Resources.spedbuch1
Me.mnueSpeditionsbuch.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueSpeditionsbuch.Name = "mnueSpeditionsbuch"
Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 10)
Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 79)
Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 0)
Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 69)
Me.mnueSpeditionsbuch.Text = "Speditionsbuch"
Me.mnueSpeditionsbuch.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueSpeditionsbuch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1096,8 +1076,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueStatistik.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueStatistik.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueStatistik.Name = "mnueStatistik"
Me.mnueStatistik.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
Me.mnueStatistik.Size = New System.Drawing.Size(107, 63)
Me.mnueStatistik.Size = New System.Drawing.Size(107, 58)
Me.mnueStatistik.Text = "Statistik"
Me.mnueStatistik.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueStatistik.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1217,6 +1196,26 @@ Partial Class frmKundenUebersichtZOLL
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22)
Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)"
'
'EORIAntragToolStripMenuItem
'
Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
'
'mnueCBAM
'
Me.mnueCBAM.Enabled = False
Me.mnueCBAM.ForeColor = System.Drawing.Color.White
Me.mnueCBAM.Image = Global.SDL.My.Resources.Resources.cbam_s
Me.mnueCBAM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueCBAM.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueCBAM.Name = "mnueCBAM"
Me.mnueCBAM.Size = New System.Drawing.Size(107, 49)
Me.mnueCBAM.Text = "CBAM"
Me.mnueCBAM.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueCBAM.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.mnueCBAM.Visible = False
'
'mnueFiskaluebersicht
'
Me.mnueFiskaluebersicht.Enabled = False
@@ -1469,11 +1468,35 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'EORIAntragToolStripMenuItem
'usrcntlKundenuebersicht
'
Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrcntlFiskaluebersicht1
'
Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
Me.UsrcntlFiskaluebersicht1.TabIndex = 0
'
'frmKundenUebersichtZOLL
'
@@ -1644,4 +1667,6 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
Friend WithEvents mneBearbeiten As ToolStripMenuItem
Friend WithEvents EORIAntragToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tbCBAM As TabPage
Friend WithEvents mnueCBAM As ToolStripMenuItem
End Class

27
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -105,7 +105,6 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
timerOP.Interval = 500
timerOP.Enabled = False
@@ -206,6 +205,12 @@ Public Class frmKundenUebersichtZOLL
mnueFiskaluebersicht.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", Me) Then
mnueCBAM.Visible = True
mnueCBAM.Visible = True
mnueCBAM.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
@@ -303,6 +308,7 @@ Public Class frmKundenUebersichtZOLL
mnueFiskaluebersicht.Enabled = True
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
mnueCBAM.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -335,6 +341,7 @@ Public Class frmKundenUebersichtZOLL
mnueStatistik.Enabled = False
mneFormulare.Enabled = False
mnueFiskal.Enabled = False
mnueCBAM.Enabled = False
mneBearbeiten.Enabled = False
toolOptionen.Enabled = False
mnueFiskaluebersicht.Enabled = False
@@ -517,6 +524,9 @@ Public Class frmKundenUebersichtZOLL
ElseIf tbcntrKundenDaten.SelectedIndex = 6 Then
' initBtns("Monat")
initSpeditinsbuch()
ElseIf tbcntrKundenDaten.SelectedIndex = 8 Then
' initBtns("Monat")
initCBAM()
End If
End Sub
@@ -613,6 +623,15 @@ Public Class frmKundenUebersichtZOLL
End Sub
Sub initCBAM()
tbCBAM.Controls.Clear()
Dim s As New SDL.usrCntlCBAM(kdNr)
s.Dock = DockStyle.Fill
tbCBAM.Controls.Add(s)
End Sub
Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvRg.DoubleClick
If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -1419,6 +1438,12 @@ Public Class frmKundenUebersichtZOLL
Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {})
End Sub
Private Sub ToolStripMenuItem5_Click_1(sender As Object, e As EventArgs) Handles mnueCBAM.Click
changeTab(8, mnueStatistik)
End Sub
End Class

646
SDL/kunden/usrCntlCBAM.Designer.vb generated Normal file
View File

@@ -0,0 +1,646 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlCBAM
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.lblOffert = New System.Windows.Forms.TextBox()
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button()
Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button()
Me.btnCBAMPruef_TELOTEC = New System.Windows.Forms.Button()
Me.btnCBAMPruef_DHF_UNISPED = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnCBAMPruef_ALLE = New System.Windows.Forms.Button()
Me.txtCBAMPruef_DAKOSY = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DAKOSY = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnCBAM_DS_DAKOSY_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DAKOSY_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Detail = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.btnCBAM_DS_DAKOSY_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button()
Me.cntxtAddSdl.SuspendLayout()
Me.SuspendLayout()
'
'lblOffert
'
Me.lblOffert.BackColor = System.Drawing.Color.White
Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblOffert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOffert.Location = New System.Drawing.Point(5, 10)
Me.lblOffert.Multiline = True
Me.lblOffert.Name = "lblOffert"
Me.lblOffert.ReadOnly = True
Me.lblOffert.Size = New System.Drawing.Size(110, 22)
Me.lblOffert.TabIndex = 0
Me.lblOffert.Text = "CBAM"
'
'cntxtAddSdl
'
Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem})
Me.cntxtAddSdl.Name = "cntxtAddSdl"
Me.cntxtAddSdl.Size = New System.Drawing.Size(82, 26)
'
'DToolStripMenuItem
'
Me.DToolStripMenuItem.Name = "DToolStripMenuItem"
Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22)
Me.DToolStripMenuItem.Text = "d"
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = ""
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(106, 48)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(341, 20)
Me.txtEori.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(5, 51)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "EORI:"
'
'btnCBAMPruef_DAKOSY
'
Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74)
Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY"
Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DAKOSY.TabIndex = 3
Me.btnCBAMPruef_DAKOSY.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
Me.btnCBAMPruef_DAKOSY.UseVisualStyleBackColor = True
'
'btnCBAMPruef_DHF_VERAG
'
Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74)
Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG"
Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4
Me.btnCBAMPruef_DHF_VERAG.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
Me.btnCBAMPruef_DHF_VERAG.UseVisualStyleBackColor = True
'
'btnCBAMPruef_TELOTEC
'
Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74)
Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC"
Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_TELOTEC.TabIndex = 5
Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True
'
'btnCBAMPruef_DHF_UNISPED
'
Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74)
Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED"
Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6
Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 130)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(51, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Ergebnis:"
'
'btnCBAMPruef_ALLE
'
Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74)
Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE"
Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_ALLE.TabIndex = 8
Me.btnCBAMPruef_ALLE.Text = "Alle"
Me.btnCBAMPruef_ALLE.UseVisualStyleBackColor = True
'
'txtCBAMPruef_DAKOSY
'
Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125)
Me.txtCBAMPruef_DAKOSY.Multiline = True
Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY"
Me.txtCBAMPruef_DAKOSY.ReadOnly = True
Me.txtCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DAKOSY.TabIndex = 10
Me.txtCBAMPruef_DAKOSY.Text = "-"
Me.txtCBAMPruef_DAKOSY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_DHF_VERAG
'
Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125)
Me.txtCBAMPruef_DHF_VERAG.Multiline = True
Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG"
Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True
Me.txtCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DHF_VERAG.TabIndex = 11
Me.txtCBAMPruef_DHF_VERAG.Text = "-"
Me.txtCBAMPruef_DHF_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_DHF_UNISPED
'
Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125)
Me.txtCBAMPruef_DHF_UNISPED.Multiline = True
Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED"
Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True
Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12
Me.txtCBAMPruef_DHF_UNISPED.Text = "-"
Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_TELOTEC
'
Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125)
Me.txtCBAMPruef_TELOTEC.Multiline = True
Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC"
Me.txtCBAMPruef_TELOTEC.ReadOnly = True
Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_TELOTEC.TabIndex = 13
Me.txtCBAMPruef_TELOTEC.Text = "-"
Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtBis
'
Me.txtBis._DateTimeOnly = False
Me.txtBis._numbersOnly = False
Me.txtBis._numbersOnlyKommastellen = ""
Me.txtBis._numbersOnlyTrennzeichen = True
Me.txtBis._Prozent = False
Me.txtBis._ShortDateNew = False
Me.txtBis._ShortDateOnly = False
Me.txtBis._TimeOnly = False
Me.txtBis._TimeOnly_Seconds = False
Me.txtBis._value = ""
Me.txtBis._Waehrung = False
Me.txtBis._WaehrungZeichen = True
Me.txtBis.ForeColor = System.Drawing.Color.Black
Me.txtBis.Location = New System.Drawing.Point(860, 49)
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
Me.txtBis.MaxLines_Warning_Label = Nothing
Me.txtBis.Name = "txtBis"
Me.txtBis.Size = New System.Drawing.Size(110, 20)
Me.txtBis.TabIndex = 14
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(744, 49)
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(110, 20)
Me.txtVon.TabIndex = 15
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(694, 52)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(44, 13)
Me.Label4.TabIndex = 17
Me.Label4.Text = "von-bis:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(453, 51)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(51, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Zeitraum:"
'
'cboQuartal
'
Me.cboQuartal._allowedValuesFreiText = Nothing
Me.cboQuartal._allowFreiText = False
Me.cboQuartal._value = ""
Me.cboQuartal.FormattingEnabled = True
Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
Me.cboQuartal.Location = New System.Drawing.Point(511, 48)
Me.cboQuartal.Name = "cboQuartal"
Me.cboQuartal.Size = New System.Drawing.Size(45, 21)
Me.cboQuartal.TabIndex = 19
'
'txtJahr
'
Me.txtJahr._DateTimeOnly = False
Me.txtJahr._numbersOnly = False
Me.txtJahr._numbersOnlyKommastellen = ""
Me.txtJahr._numbersOnlyTrennzeichen = True
Me.txtJahr._Prozent = False
Me.txtJahr._ShortDateNew = False
Me.txtJahr._ShortDateOnly = False
Me.txtJahr._TimeOnly = False
Me.txtJahr._TimeOnly_Seconds = False
Me.txtJahr._value = ""
Me.txtJahr._Waehrung = False
Me.txtJahr._WaehrungZeichen = True
Me.txtJahr.ForeColor = System.Drawing.Color.Black
Me.txtJahr.Location = New System.Drawing.Point(562, 49)
Me.txtJahr.MaxLineLength = -1
Me.txtJahr.MaxLines_Warning = ""
Me.txtJahr.MaxLines_Warning_Label = Nothing
Me.txtJahr.Name = "txtJahr"
Me.txtJahr.Size = New System.Drawing.Size(60, 20)
Me.txtJahr.TabIndex = 20
'
'btnCBAM_DS_DHF_UNISPED
'
Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 168)
Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED"
Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24
Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC
'
Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 168)
Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC"
Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_TELOTEC.TabIndex = 23
Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG
'
Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 168)
Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG"
Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22
Me.btnCBAM_DS_DHF_VERAG.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
Me.btnCBAM_DS_DHF_VERAG.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DAKOSY
'
Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 168)
Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY"
Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DAKOSY.TabIndex = 21
Me.btnCBAM_DS_DAKOSY.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
Me.btnCBAM_DS_DAKOSY.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(5, 183)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(64, 13)
Me.Label3.TabIndex = 25
Me.Label3.Text = "Datensätze:"
'
'btnCBAM_DS_DAKOSY_Deteil
'
Me.btnCBAM_DS_DAKOSY_Deteil.Enabled = False
Me.btnCBAM_DS_DAKOSY_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DAKOSY_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Deteil.Location = New System.Drawing.Point(144, 216)
Me.btnCBAM_DS_DAKOSY_Deteil.Name = "btnCBAM_DS_DAKOSY_Deteil"
Me.btnCBAM_DS_DAKOSY_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Deteil.TabIndex = 26
Me.btnCBAM_DS_DAKOSY_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DAKOSY_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DAKOSY_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DAKOSY_Summe
'
Me.btnCBAM_DS_DAKOSY_Summe.Enabled = False
Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 264)
Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe"
Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27
Me.btnCBAM_DS_DAKOSY_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DAKOSY_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DAKOSY_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Summe
'
Me.btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 264)
Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe"
Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29
Me.btnCBAM_DS_DHF_VERAG_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DHF_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_VERAG_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Deteil
'
Me.btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_VERAG_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Deteil.Location = New System.Drawing.Point(318, 216)
Me.btnCBAM_DS_DHF_VERAG_Deteil.Name = "btnCBAM_DS_DHF_VERAG_Deteil"
Me.btnCBAM_DS_DHF_VERAG_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Deteil.TabIndex = 28
Me.btnCBAM_DS_DHF_VERAG_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DHF_VERAG_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_VERAG_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Summe
'
Me.btnCBAM_DS_DHF_UNISPED_Summe.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 264)
Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe"
Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31
Me.btnCBAM_DS_DHF_UNISPED_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DHF_UNISPED_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_UNISPED_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Deteil
'
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_UNISPED_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Location = New System.Drawing.Point(492, 216)
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Name = "btnCBAM_DS_DHF_UNISPED_Deteil"
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Deteil.TabIndex = 30
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DHF_UNISPED_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_UNISPED_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Summe
'
Me.btnCBAM_DS_TELOTEC_Summe.Enabled = False
Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 264)
Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe"
Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33
Me.btnCBAM_DS_TELOTEC_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_TELOTEC_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_TELOTEC_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Detail
'
Me.btnCBAM_DS_TELOTEC_Detail.Enabled = False
Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 216)
Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail"
Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32
Me.btnCBAM_DS_TELOTEC_Detail.Text = "Detailbericht"
Me.btnCBAM_DS_TELOTEC_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_TELOTEC_Detail.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(5, 74)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(41, 13)
Me.Label6.TabIndex = 34
Me.Label6.Text = "Prüfen:"
'
'btnCBAM_DS_DAKOSY_Copy
'
Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False
Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 312)
Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy"
Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35
Me.btnCBAM_DS_DAKOSY_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DAKOSY_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Copy
'
Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 312)
Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy"
Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36
Me.btnCBAM_DS_DHF_VERAG_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DHF_VERAG_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Copy
'
Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 312)
Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy"
Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37
Me.btnCBAM_DS_DHF_UNISPED_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DHF_UNISPED_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Copy
'
Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False
Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 312)
Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy"
Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38
Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True
'
'usrCntlCBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Copy)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Summe)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Detail)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Deteil)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Deteil)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Deteil)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY)
Me.Controls.Add(Me.txtJahr)
Me.Controls.Add(Me.cboQuartal)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtVon)
Me.Controls.Add(Me.txtBis)
Me.Controls.Add(Me.txtCBAMPruef_TELOTEC)
Me.Controls.Add(Me.txtCBAMPruef_DHF_UNISPED)
Me.Controls.Add(Me.txtCBAMPruef_DHF_VERAG)
Me.Controls.Add(Me.txtCBAMPruef_DAKOSY)
Me.Controls.Add(Me.btnCBAMPruef_ALLE)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnCBAMPruef_DHF_UNISPED)
Me.Controls.Add(Me.btnCBAMPruef_TELOTEC)
Me.Controls.Add(Me.btnCBAMPruef_DHF_VERAG)
Me.Controls.Add(Me.btnCBAMPruef_DAKOSY)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtEori)
Me.Controls.Add(Me.lblOffert)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "usrCntlCBAM"
Me.Size = New System.Drawing.Size(1041, 576)
Me.cntxtAddSdl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblOffert As System.Windows.Forms.TextBox
Friend WithEvents cntxtAddSdl As ContextMenuStrip
Friend WithEvents DToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents btnCBAMPruef_DAKOSY As Button
Friend WithEvents btnCBAMPruef_DHF_VERAG As Button
Friend WithEvents btnCBAMPruef_TELOTEC As Button
Friend WithEvents btnCBAMPruef_DHF_UNISPED As Button
Friend WithEvents Label2 As Label
Friend WithEvents btnCBAMPruef_ALLE As Button
Friend WithEvents txtCBAMPruef_DAKOSY As TextBox
Friend WithEvents txtCBAMPruef_DHF_VERAG As TextBox
Friend WithEvents txtCBAMPruef_DHF_UNISPED As TextBox
Friend WithEvents txtCBAMPruef_TELOTEC As TextBox
Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnCBAM_DS_DHF_UNISPED As Button
Friend WithEvents btnCBAM_DS_TELOTEC As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG As Button
Friend WithEvents btnCBAM_DS_DAKOSY As Button
Friend WithEvents Label3 As Label
Friend WithEvents btnCBAM_DS_DAKOSY_Deteil As Button
Friend WithEvents btnCBAM_DS_DAKOSY_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Deteil As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Deteil As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Summe As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Detail As Button
Friend WithEvents Label6 As Label
Friend WithEvents btnCBAM_DS_DAKOSY_Copy As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Copy As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Copy As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Copy As Button
End Class

123
SDL/kunden/usrCntlCBAM.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

570
SDL/kunden/usrCntlCBAM.vb Normal file
View File

@@ -0,0 +1,570 @@

Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Public Class usrCntlCBAM
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdnr = -1
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Sub New()
InitializeComponent()
End Sub
Sub New(kdNr)
InitializeComponent()
Me.kdnr = kdNr
End Sub
Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click
txtCBAMPruef_DAKOSY.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DAKOSY.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click
btnCBAMPruef_DAKOSY.PerformClick()
btnCBAMPruef_DHF_VERAG.PerformClick()
btnCBAMPruef_DHF_UNISPED.PerformClick()
btnCBAMPruef_TELOTEC.PerformClick()
End Sub
Private Sub btnCBAMPruef_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_VERAG.Click
txtCBAMPruef_DHF_VERAG.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DHF_VERAG.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DHF_VERAG.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_DHF_UNISPED_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_UNISPED.Click
txtCBAMPruef_DHF_UNISPED.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DHF_UNISPED.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DHF_UNISPED.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_TELOTEC.Click
txtCBAMPruef_TELOTEC.Text = "nicht verfügbar"
Exit Sub
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_TELOTEC.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_TELOTEC.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
txtJahr.Text = Now.Year
If Now.Month < 3 Then
txtJahr.Text = Now.Year - 1
cboQuartal.Text = "Q4"
ElseIf Now.Month < 6 Then : cboQuartal.Text = "Q1"
ElseIf Now.Month < 9 Then : cboQuartal.Text = "Q2"
ElseIf Now.Month < 12 Then : cboQuartal.Text = "Q3"
End If
If kdnr > 0 Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
End If
If KD IsNot Nothing Then
txtEori.Text = KD.EORITIN
End If
End Sub
Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged
If cboQuartal.Text <> "" And IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then
Select Case cboQuartal.Text
Case "Q1" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
End Select
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
btnCBAM_DS_DAKOSY_Copy.Enabled = False
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT
[eza_ANR] RegistriernummerATLAS
,ezaWP_PositionsNummer PositionsNummer
,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum
,[eza_ObjectName] BezugsNr
,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis
,ezaWP_WarennummerEZT Tarifnummer
,ezaWP_Eigenmasse Eigenmasse
,[eza_VersendungsLandCode] VersendungsLand
,[eza_Bestimmungsland] Bestimmungsland
,[ezaWP_Artikelpreis]Rechnungspreis
,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DAKOSY_Deteil.Tag = path
btnCBAM_DS_DAKOSY_Deteil.Enabled = True
btnCBAM_DS_DAKOSY_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DAKOSY_Summe.Enabled = False
btnCBAM_DS_DAKOSY_Summe.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DAKOSY_Summe.Tag = path
btnCBAM_DS_DAKOSY_Summe.Enabled = True
btnCBAM_DS_DAKOSY_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click,
btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click
If sender.tag <> "" Then
Try : Process.Start(sender.tag) : Catch : End Try
End If
End Sub
Private Sub btnCBAM_DS_DAKOSY_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag)
If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DHF_VERAG_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Deteil.Tag)
If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_UNISPED_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_UNISPED_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DHF_UNISPED_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Deteil.Tag)
If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_TELOTEC_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
btnCBAM_DS_DHF_VERAG_Deteil.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
, Orig Ursprungsland
, isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender
, isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
, isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
, isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
order by (SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID ))
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Deteil.Tag = path
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select left(zsAnmGdsitem.ComCd,8) Tarifnummer, sum(Net)Eigenmasse, sum(ItVal)Rechnungspreis,Orig
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
GROUP BY Orig,left(zsAnmGdsitem.ComCd,8)
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Summe.Tag = path
btnCBAM_DS_DHF_VERAG_Summe.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class

40
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -337,6 +337,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label101 = New System.Windows.Forms.Label()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -1056,6 +1058,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.Label101)
Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL)
Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB)
Me.tbVerrechnung.Controls.Add(Me.Label95)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails)
@@ -4519,6 +4523,40 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'txtAbwZZVL
'
Me.txtAbwZZVL._DateTimeOnly = False
Me.txtAbwZZVL._numbersOnly = True
Me.txtAbwZZVL._numbersOnlyKommastellen = ""
Me.txtAbwZZVL._numbersOnlyTrennzeichen = True
Me.txtAbwZZVL._Prozent = False
Me.txtAbwZZVL._ShortDateNew = False
Me.txtAbwZZVL._ShortDateOnly = False
Me.txtAbwZZVL._TimeOnly = False
Me.txtAbwZZVL._TimeOnly_Seconds = False
Me.txtAbwZZVL._value = ""
Me.txtAbwZZVL._Waehrung = False
Me.txtAbwZZVL._WaehrungZeichen = True
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66)
Me.txtAbwZZVL.MaxLength = 10
Me.txtAbwZZVL.MaxLineLength = -1
Me.txtAbwZZVL.MaxLines_Warning = ""
Me.txtAbwZZVL.MaxLines_Warning_Label = Nothing
Me.txtAbwZZVL.Name = "txtAbwZZVL"
Me.txtAbwZZVL.Size = New System.Drawing.Size(60, 20)
Me.txtAbwZZVL.TabIndex = 41
Me.txtAbwZZVL.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label101
'
Me.Label101.AutoSize = True
Me.Label101.Location = New System.Drawing.Point(191, 53)
Me.Label101.Name = "Label101"
Me.Label101.Size = New System.Drawing.Size(50, 13)
Me.Label101.TabIndex = 42
Me.Label101.Text = "abw. ZZ:"
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4907,4 +4945,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label100 As Label
Friend WithEvents txtAdresseZusatz As TextBox
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents Label101 As Label
Friend WithEvents txtAbwZZVL As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

2
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -218,6 +218,7 @@ Public Class usrcntlKundeBearbeitenFull
txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "")
txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "")
txtVers_Kreditlimit.Text = loadValue(KUNDE.Kreditlimit, "")
txtAbwZZVL.Text = loadValue(KUNDE_ERW.kde_abweichendesZZVL, "")
txtAbf_Zahlungsziel.Text = loadValue(KUNDE.Zahlungsziel, "")
txtAbf_Zahlungsziel2.Text = loadValue(KUNDE_ERW.Zahlungsziel2, "")
txtAbf_Zahlungsziel3.Text = loadValue(KUNDE_ERW.Zahlungsziel3, "")
@@ -514,6 +515,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0)
KUNDE.Kreditlimit = txtVers_Kreditlimit.Text
KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing)
KUNDE.Zahlungsziel = txtAbf_Zahlungsziel.Text
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)

266
SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb generated Normal file
View File

@@ -0,0 +1,266 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlAuswertungenCBAM_DE
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Label8 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.kdKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.lblCnt2 = New System.Windows.Forms.Label()
Me.txtJahr = New System.Windows.Forms.NumericUpDown()
Me.cboMonat = New System.Windows.Forms.ComboBox()
Me.Label77 = New System.Windows.Forms.Label()
Me.datAuswertBis = New System.Windows.Forms.DateTimePicker()
Me.Label78 = New System.Windows.Forms.Label()
Me.Label79 = New System.Windows.Forms.Label()
Me.Label80 = New System.Windows.Forms.Label()
Me.datAuswertVon = New System.Windows.Forms.DateTimePicker()
Me.Button3 = New System.Windows.Forms.Button()
Me.lblErr = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.lblCnt = New System.Windows.Forms.Label()
Me.GroupBox2.SuspendLayout()
CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label8.Location = New System.Drawing.Point(3, 0)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(118, 17)
Me.Label8.TabIndex = 16
Me.Label8.Text = "CBAM DAKOSY"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.kdKunde)
Me.GroupBox2.Controls.Add(Me.lblCnt2)
Me.GroupBox2.Controls.Add(Me.txtJahr)
Me.GroupBox2.Controls.Add(Me.cboMonat)
Me.GroupBox2.Controls.Add(Me.Label77)
Me.GroupBox2.Controls.Add(Me.datAuswertBis)
Me.GroupBox2.Controls.Add(Me.Label78)
Me.GroupBox2.Controls.Add(Me.Label79)
Me.GroupBox2.Controls.Add(Me.Label80)
Me.GroupBox2.Controls.Add(Me.datAuswertVon)
Me.GroupBox2.Controls.Add(Me.Button3)
Me.GroupBox2.Controls.Add(Me.lblErr)
Me.GroupBox2.Controls.Add(Me.Label14)
Me.GroupBox2.Controls.Add(Me.lblCnt)
Me.GroupBox2.Location = New System.Drawing.Point(2, 11)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(697, 86)
Me.GroupBox2.TabIndex = 15
Me.GroupBox2.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(145, 63)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 45
Me.Label1.Text = "Kunde:"
'
'kdKunde
'
Me.kdKunde._AlleFirmenCLUSTER = True
Me.kdKunde._AllowSetValue = True
Me.kdKunde._autoSizeGross = False
Me.kdKunde._display_Name1 = False
Me.kdKunde._displayAVISO_Email = False
Me.kdKunde._displayFullName = False
Me.kdKunde._displayWoelflKd = False
Me.kdKunde._hideIfListEmpty = True
Me.kdKunde._loadKdData = False
Me.kdKunde._searchName1 = True
Me.kdKunde._UseFIRMA = ""
Me.kdKunde._ValueKdAndName = True
Me.kdKunde.dgvpos = "LEFT"
Me.kdKunde.KdName = ""
Me.kdKunde.KdNr = "-1"
Me.kdKunde.kdNrField = Nothing
Me.kdKunde.KdNrNullInt = Nothing
Me.kdKunde.Location = New System.Drawing.Point(186, 60)
Me.kdKunde.Name = "kdKunde"
Me.kdKunde.nurAktive = True
Me.kdKunde.searchActive = True
Me.kdKunde.Size = New System.Drawing.Size(177, 20)
Me.kdKunde.TabIndex = 44
Me.kdKunde.TIMER_SEARCH = True
Me.kdKunde.usrcntl = Nothing
'
'lblCnt2
'
Me.lblCnt2.Location = New System.Drawing.Point(52, 69)
Me.lblCnt2.Name = "lblCnt2"
Me.lblCnt2.Size = New System.Drawing.Size(78, 13)
Me.lblCnt2.TabIndex = 43
Me.lblCnt2.Text = "99/99"
Me.lblCnt2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtJahr
'
Me.txtJahr.Location = New System.Drawing.Point(315, 37)
Me.txtJahr.Maximum = New Decimal(New Integer() {2050, 0, 0, 0})
Me.txtJahr.Minimum = New Decimal(New Integer() {1999, 0, 0, 0})
Me.txtJahr.Name = "txtJahr"
Me.txtJahr.Size = New System.Drawing.Size(48, 20)
Me.txtJahr.TabIndex = 40
Me.txtJahr.Value = New Decimal(New Integer() {2016, 0, 0, 0})
'
'cboMonat
'
Me.cboMonat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMonat.FormattingEnabled = True
Me.cboMonat.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
Me.cboMonat.Location = New System.Drawing.Point(186, 36)
Me.cboMonat.Name = "cboMonat"
Me.cboMonat.Size = New System.Drawing.Size(87, 21)
Me.cboMonat.TabIndex = 41
'
'Label77
'
Me.Label77.AutoSize = True
Me.Label77.Location = New System.Drawing.Point(569, 40)
Me.Label77.Name = "Label77"
Me.Label77.Size = New System.Drawing.Size(23, 13)
Me.Label77.TabIndex = 39
Me.Label77.Text = "bis:"
'
'datAuswertBis
'
Me.datAuswertBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertBis.Location = New System.Drawing.Point(598, 37)
Me.datAuswertBis.Name = "datAuswertBis"
Me.datAuswertBis.Size = New System.Drawing.Size(93, 20)
Me.datAuswertBis.TabIndex = 38
'
'Label78
'
Me.Label78.AutoSize = True
Me.Label78.Location = New System.Drawing.Point(279, 40)
Me.Label78.Name = "Label78"
Me.Label78.Size = New System.Drawing.Size(30, 13)
Me.Label78.TabIndex = 35
Me.Label78.Text = "Jahr:"
'
'Label79
'
Me.Label79.AutoSize = True
Me.Label79.Location = New System.Drawing.Point(145, 40)
Me.Label79.Name = "Label79"
Me.Label79.Size = New System.Drawing.Size(41, 13)
Me.Label79.TabIndex = 36
Me.Label79.Text = "Quartal"
'
'Label80
'
Me.Label80.AutoSize = True
Me.Label80.Location = New System.Drawing.Point(436, 40)
Me.Label80.Name = "Label80"
Me.Label80.Size = New System.Drawing.Size(28, 13)
Me.Label80.TabIndex = 37
Me.Label80.Text = "von:"
'
'datAuswertVon
'
Me.datAuswertVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertVon.Location = New System.Drawing.Point(470, 37)
Me.datAuswertVon.Name = "datAuswertVon"
Me.datAuswertVon.Size = New System.Drawing.Size(93, 20)
Me.datAuswertVon.TabIndex = 34
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.Location = New System.Drawing.Point(9, 16)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(121, 37)
Me.Button3.TabIndex = 33
Me.Button3.Text = "CBAM Kunden"
Me.Button3.UseVisualStyleBackColor = True
'
'lblErr
'
Me.lblErr.AutoSize = True
Me.lblErr.ForeColor = System.Drawing.Color.Red
Me.lblErr.Location = New System.Drawing.Point(6, 56)
Me.lblErr.Name = "lblErr"
Me.lblErr.Size = New System.Drawing.Size(69, 13)
Me.lblErr.TabIndex = 13
Me.lblErr.Text = "Keine Daten!"
Me.lblErr.Visible = False
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(145, 16)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(222, 13)
Me.Label14.TabIndex = 5
Me.Label14.Text = "Erstellt Excel Dateien für dei EV Veranlagung."
'
'lblCnt
'
Me.lblCnt.Location = New System.Drawing.Point(52, 56)
Me.lblCnt.Name = "lblCnt"
Me.lblCnt.Size = New System.Drawing.Size(78, 13)
Me.lblCnt.TabIndex = 42
Me.lblCnt.Text = "99/99"
Me.lblCnt.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'usrCntlAuswertungenCBAM_DE
'
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.GroupBox2)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents lblErr As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents txtJahr As NumericUpDown
Friend WithEvents cboMonat As ComboBox
Friend WithEvents Label77 As Label
Friend WithEvents datAuswertBis As DateTimePicker
Friend WithEvents Label78 As Label
Friend WithEvents Label79 As Label
Friend WithEvents Label80 As Label
Friend WithEvents datAuswertVon As DateTimePicker
Friend WithEvents lblCnt As Label
Friend WithEvents lblCnt2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents kdKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox
End Class

120
SDL/zoll/usrCntlAuswertungenCBAM_DE.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

241
SDL/zoll/usrCntlAuswertungenCBAM_DE.vb Normal file
View File

@@ -0,0 +1,241 @@
Imports System.IO
Public Class usrCntlAuswertungenCBAM_DE
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Property rst As Object
Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs)
kdKunde.initKdBox(Me.FindForm)
'datVon.Value = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
'datBis.Value = datVon.Value.AddMonths(1).AddDays(-1)
txtJahr.Value = Now.Year
cboMonat.SelectedIndex = Now.AddMonths(-1).Month
'datVon_NCTSTR.Value = Now
'datBis_NCTSTR.Value = Now.AddDays(3)
lblErr.Visible = False
lblCnt.Text = ""
lblCnt2.Text = ""
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
Try
Me.Cursor = Cursors.WaitCursor
lblCnt.Text = ""
lblCnt2.Text = ""
Dim dt As DataTable = SQL.loadDgvBySql("SELECT [kde_KundenNr], [Name 1] Name FROM [tblKundenErweitert] INNER JOIN ADRESSEN on adressennr = kde_KundenNr WHERE " & If(kdKunde.KdNr_value > 0, " kde_KundenNr='" & kdKunde.KdNr_value & "' AND ", "") & " [Veranlagungskunde]=1 and Auswahl='A' ", "FMZOLL")
If dt Is Nothing Then lblErr.Visible = True : Exit Sub
Dim folderpath = ""
Dim FolderBrowserDialog1 As New FolderBrowserDialog
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
folderpath = FolderBrowserDialog1.SelectedPath
If vbYes = MsgBox("Es werden '" & dt.Rows.Count & "' Kunden ausgewertet. Möchten Sie fortfahren?", vbYesNoCancel) Then
Dim cnt = 1
For Each r In dt.Rows
lblCnt.Text = cnt & "/ " & dt.Rows.Count
Me.Refresh()
genExcelKd(r("kde_KundenNr"), folderpath, r("Name"))
cnt += 1
Next
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Sub genExcelKd(KdNr, sPath, Optional EmpfName = "")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],Empfänger FROM [Speditionsbuch] where (EmpfängerKundenNr='" & KdNr & "' OR VermittlerKundenNr='" & KdNr & "') and cast(Abfertigungsdatum as date) between '" & datAuswertVon.Value & "' and '" & datAuswertBis.Value & "' and Abfertigungsart=38 ORDER BY Abfertigungsdatum ", "FMZOLL")
lblCnt2.Text = ""
'EXCEL
Try
'Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" ' My.Computer.FileSystem.GetTempFileName
'If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
' My.Computer.FileSystem.CreateDirectory(sPath)
'End If
Dim Path = ""
Dim exclApp As Object 'as Application
Dim Datei As Object 'as WorkBook
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
exclApp = CreateObject("Excel.Application")
Dim nodata = False
If dt Is Nothing Or dt.Rows.Count = 0 Then nodata = True
Try
Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & ".xlsx"
While System.IO.File.Exists(Path)
Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False)
'Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & ".xlsx"
'While System.IO.File.Exists(Path)
' Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
'End While
'My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False)
Catch ex As System.Exception
' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
Exit Sub
End Try
With exclApp
.Visible = False
Datei = .Workbooks.Open(Path)
Blatt = Datei.Worksheets(1)
Blatt.Range("A2").Value = EmpfName & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString
'Blatt.Range("A2").Value = dt.Rows(0)("Empfänger") & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString
If Not nodata Then
Dim cnt = 8
Dim cnt_zeile = 1
For Each r In dt.Rows
lblCnt2.Text = cnt_zeile & "/" & dt.Rows.Count
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("UnterNr"))
If SPEDBUCH.hasEntry Then
'LRN
Dim BezugsNr = If(SPEDBUCH.AtlasBezNrEZA, "")
If BezugsNr = "" Then BezugsNr = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
'Handelsrechnungen
Dim handelsrechnungen = "" : Dim semi = ""
'EUST
Dim EUST_Basis As Double = 0
Dim EUST_5EV As Double = 0
Select Case r("FilialenNr")
Case "5501"
'EUST
Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id
where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL")
If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")
End If
'Handelsrechnungen
For Each rg In SQL.DLookupArray("distinct([DocCerts_DRef]) ", "[tblTelotec_PositionsdatenDokumente] As DOC inner join tblTelotec_Anmeldung As ANM ON telanm_id=[telposAbg_telanmId]", " (ANM.Refs_LRN = '" & BezugsNr & "') and [DocCerts_DocCd] IN ('N380','N325')", "FMZOLL", "DocCerts_DRef")
handelsrechnungen &= semi & rg : semi = ","
Next
Case Else
'EUST
Dim dtEUST = SQL.loadDgvBySql("select sum(base) Base,sum(Amnt)Amnt FROM ztIMsgGdsItemDutyCalc as GDS inner join zzAktivitaet as AKT on GDS.OperatorID=AKT.OperatorID AND GDS.LizenzNr=AKT.LizenzNr AND GDS.IMsgID=AKT.IMsgID
inner join zsAnmRefs as ANM on ANM.LizenzNr=AKT.LizenzNr And ANM.OperatorID=AKT.OperatorID And ANM.AnmID=AKT.AnmID
where Ty IN ('5EV') and LRN LIKE '" & BezugsNr & "' AND ErledigungsTypID LIKE 'F%'", "EZOLL")
If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")
End If
'Handelsrechnungen
For Each rg In SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL", "DRef")
handelsrechnungen &= semi & rg : semi = ","
Next
End Select
If SPEDBUCH.ENDEMPFAENGER.Count > 0 Then
Dim cnt2 = 0
For Each EEMPF In SPEDBUCH.ENDEMPFAENGER
Blatt.Range("A" & cnt).EntireRow.Copy()
Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown)
Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum
Blatt.Range("C" & cnt).Value = handelsrechnungen
If cnt2 = 0 Then 'Nur oberste Zeile je Abfertigung
Blatt.Range("D" & cnt).Value = EUST_Basis
Blatt.Range("E" & cnt).Value = EUST_5EV
'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00")
'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00")
'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €"
'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €"
Else
Blatt.Range("D" & cnt).Value = "-"
Blatt.Range("E" & cnt).Value = "-"
End If
Blatt.Range("F" & cnt).Value = EEMPF.EndEmpfaenger
Blatt.Range("G" & cnt).Value = If(EEMPF.UstIdKz, "") & If(EEMPF.UstIdNr, "")
If EEMPF.Rechnungsbetrag IsNot Nothing AndAlso IsNumeric(EEMPF.Rechnungsbetrag) Then
Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag)
'Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag).ToString("0.00")
'Blatt.Range("H" & cnt).Style.NumberFormat = "###,###,##0.00 €"
End If
cnt += 1
cnt2 += 1
'+Zeile
Next
Else
Blatt.Range("A" & cnt).EntireRow.Copy()
Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown)
Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum
Blatt.Range("C" & cnt).Value = handelsrechnungen
Blatt.Range("D" & cnt).Value = EUST_Basis
Blatt.Range("E" & cnt).Value = EUST_5EV
'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00")
'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00")
'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €"
'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €"
cnt += 1
'+Zeile
End If
End If
cnt_zeile += 1
Next
End If
Datei.Save
Datei.Close
' .Visible = True 'TEST
End With
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Function AdjustPath(Input As String) As String
Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|]", String.Empty)
End Function
Private Sub Nctstr_SelectedIndexChanged(sender As Object, e As EventArgs)
If cboMonat.SelectedIndex <= 0 Then Exit Sub
Dim d As Date = CDate("01." & (cboMonat.SelectedIndex) & "." & txtJahr.Text)
datAuswertVon.Value = d
datAuswertBis.Value = d.AddMonths(1).AddDays(-1)
End Sub
End Class

190
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -64,7 +64,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label19 = New System.Windows.Forms.Label()
Me.cboEZOLLMandant = New System.Windows.Forms.ComboBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLLStatus = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.datEZOLLBis = New System.Windows.Forms.DateTimePicker()
@@ -93,7 +92,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label30 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label95 = New System.Windows.Forms.Label()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox()
Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
Me.Button8 = New System.Windows.Forms.Button()
@@ -114,7 +112,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label98 = New System.Windows.Forms.Label()
Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Label88 = New System.Windows.Forms.Label()
@@ -147,7 +144,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label76 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.Label94 = New System.Windows.Forms.Label()
Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button22 = New System.Windows.Forms.Button()
Me.Button19 = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button()
@@ -190,7 +186,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label56 = New System.Windows.Forms.Label()
Me.Button12 = New System.Windows.Forms.Button()
Me.Label53 = New System.Windows.Forms.Label()
Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label55 = New System.Windows.Forms.Label()
Me.datEZOLL_TC_Bis = New System.Windows.Forms.DateTimePicker()
Me.Label57 = New System.Windows.Forms.Label()
@@ -251,6 +246,12 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14 = New System.Windows.Forms.Button()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
@@ -258,7 +259,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -760,20 +760,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label29.TabIndex = 19
Me.Label29.Text = "Mandant:"
'
'cboEZOLLBrg
'
Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
Me.cboEZOLLBrg._allowFreiText = False
Me.cboEZOLLBrg._value = ""
Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboEZOLLBrg.DropDownWidth = 350
Me.cboEZOLLBrg.FormattingEnabled = True
Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
Me.cboEZOLLBrg.TabIndex = 12
'
'cboEZOLLStatus
'
Me.cboEZOLLStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -1073,19 +1059,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label95.TabIndex = 23
Me.Label95.Text = "NCTS-SYSTEM:"
'
'cboDY_NCTS
'
Me.cboDY_NCTS._allowedValuesFreiText = Nothing
Me.cboDY_NCTS._allowFreiText = False
Me.cboDY_NCTS._value = ""
Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDY_NCTS.DropDownWidth = 350
Me.cboDY_NCTS.FormattingEnabled = True
Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
Me.cboDY_NCTS.Name = "cboDY_NCTS"
Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
Me.cboDY_NCTS.TabIndex = 22
'
'cbxSplittungNachPos
'
Me.cbxSplittungNachPos.AutoSize = True
@@ -1261,7 +1234,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(689, 1829)
Me.tbcntr.Size = New System.Drawing.Size(701, 1829)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1304,7 +1277,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(681, 1803)
Me.TabPage1.Size = New System.Drawing.Size(693, 1803)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1318,19 +1291,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label98.TabIndex = 39
Me.Label98.Text = "NCTS-SYSTEM (DAKOSY):"
'
'cboNCTSSystemDY
'
Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
Me.cboNCTSSystemDY._allowFreiText = False
Me.cboNCTSSystemDY._value = ""
Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNCTSSystemDY.DropDownWidth = 350
Me.cboNCTSSystemDY.FormattingEnabled = True
Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
Me.cboNCTSSystemDY.TabIndex = 38
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Label3)
@@ -1671,19 +1631,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label94.TabIndex = 18
Me.Label94.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBRG_Verimex
'
Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
Me.cboBRG_Verimex._allowFreiText = False
Me.cboBRG_Verimex._value = ""
Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBRG_Verimex.DropDownWidth = 350
Me.cboBRG_Verimex.FormattingEnabled = True
Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
Me.cboBRG_Verimex.TabIndex = 17
'
'Button22
'
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2117,20 +2064,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label53.TabIndex = 13
Me.Label53.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBrgEZollTC
'
Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
Me.cboBrgEZollTC._allowFreiText = False
Me.cboBrgEZollTC._value = ""
Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgEZollTC.DropDownWidth = 350
Me.cboBrgEZollTC.FormattingEnabled = True
Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
Me.cboBrgEZollTC.TabIndex = 12
'
'Label55
'
Me.Label55.AutoSize = True
@@ -2501,7 +2434,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(698, 1803)
Me.TabPage2.Size = New System.Drawing.Size(710, 1803)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -2514,7 +2447,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(698, 1803)
Me.TabPage3.Size = New System.Drawing.Size(710, 1803)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -2525,7 +2458,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(698, 1803)
Me.TabPage4.Size = New System.Drawing.Size(710, 1803)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
@@ -2538,7 +2471,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(698, 1803)
Me.TabPage5.Size = New System.Drawing.Size(710, 1803)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2746,9 +2679,89 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(689, 57)
Me.pnl.Size = New System.Drawing.Size(701, 57)
Me.pnl.TabIndex = 23
'
'cboNCTSSystemDY
'
Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
Me.cboNCTSSystemDY._allowFreiText = False
Me.cboNCTSSystemDY._value = ""
Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNCTSSystemDY.DropDownWidth = 350
Me.cboNCTSSystemDY.FormattingEnabled = True
Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
Me.cboNCTSSystemDY.TabIndex = 38
'
'cboBRG_Verimex
'
Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
Me.cboBRG_Verimex._allowFreiText = False
Me.cboBRG_Verimex._value = ""
Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBRG_Verimex.DropDownWidth = 350
Me.cboBRG_Verimex.FormattingEnabled = True
Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
Me.cboBRG_Verimex.TabIndex = 17
'
'cboBrgEZollTC
'
Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
Me.cboBrgEZollTC._allowFreiText = False
Me.cboBrgEZollTC._value = ""
Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgEZollTC.DropDownWidth = 350
Me.cboBrgEZollTC.FormattingEnabled = True
Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
Me.cboBrgEZollTC.TabIndex = 12
'
'cboDYDatumArt
'
Me.cboDYDatumArt._allowedValuesFreiText = Nothing
Me.cboDYDatumArt._allowFreiText = False
Me.cboDYDatumArt._value = ""
Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDYDatumArt.DropDownWidth = 350
Me.cboDYDatumArt.FormattingEnabled = True
Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
Me.cboDYDatumArt.Name = "cboDYDatumArt"
Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
Me.cboDYDatumArt.TabIndex = 39
'
'cboDY_NCTS
'
Me.cboDY_NCTS._allowedValuesFreiText = Nothing
Me.cboDY_NCTS._allowFreiText = False
Me.cboDY_NCTS._value = ""
Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDY_NCTS.DropDownWidth = 350
Me.cboDY_NCTS.FormattingEnabled = True
Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
Me.cboDY_NCTS.Name = "cboDY_NCTS"
Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
Me.cboDY_NCTS.TabIndex = 22
'
'cboEZOLLBrg
'
Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
Me.cboEZOLLBrg._allowFreiText = False
Me.cboEZOLLBrg._value = ""
Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboEZOLLBrg.DropDownWidth = 350
Me.cboEZOLLBrg.FormattingEnabled = True
Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
Me.cboEZOLLBrg.TabIndex = 12
'
'UsrCntlAuswertungenUIDPruefung1
'
Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
@@ -2764,7 +2777,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(29, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'UsrCntlAuswertungenEV_Veranlagungen1
@@ -2807,19 +2820,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'cboDYDatumArt
'
Me.cboDYDatumArt._allowedValuesFreiText = Nothing
Me.cboDYDatumArt._allowFreiText = False
Me.cboDYDatumArt._value = ""
Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDYDatumArt.DropDownWidth = 350
Me.cboDYDatumArt.FormattingEnabled = True
Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
Me.cboDYDatumArt.Name = "cboDYDatumArt"
Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
Me.cboDYDatumArt.TabIndex = 39
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2829,7 +2829,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(689, 1174)
Me.Size = New System.Drawing.Size(701, 1174)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)

4
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -664,7 +664,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ", cboNCTSSystemDY._value)
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", cboNCTSSystemDY._value)
frmPrintLayout.Show()
End Sub
@@ -873,7 +873,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
If cbxSplittungNachPos_NCTSTR.Checked Then
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_ncts_tr_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
End If

40
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -1988,7 +1988,30 @@ Public Class cVermerkeDAL
End Function
Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer
'Daten zuweisen und speichern
Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "")
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId
'myVermerk.her = VermerkCodeId
myVermerk.SendungID = SendungID
If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
myVermerk.VermerkArt = "S"
Dim VermerkeDAL As New cVermerkeDAL
insertSendungsVermerk = VermerkeDAL.SpeichernVermerk(myVermerk)
If myVermerk.VermerkCodeId = 18 Then
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
End If
End Function
Public Function loadTableMyAviso(maId As Integer) As DataTable
' While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
@@ -2263,7 +2286,7 @@ Public Class cVermerkeDAL
End Sub
Public Sub toggleHervorheben(ByVal hID As Integer)
Public Shared Sub toggleHervorheben(ByVal hID As Integer)
Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID)
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2276,6 +2299,21 @@ Public Class cVermerkeDAL
End Using
conn.Close()
End Sub
Public Shared Sub DeleteSNDVermerkCode(ByVal SendungID As Integer, VermerkeCode As Integer)
Dim sql = "DELETE Vermerke WHERE VermerkeCode = '" & VermerkeCode & "' and SendungID= '" & SendungID & "'"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben")
End Try
End Using
conn.Close()
End Sub
Public Function Vermerke_einlesen(hAvisoID As Integer) As String
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb
View File

@@ -265,7 +265,7 @@ Public Class MySearchBox
If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter
SQLstr &= " AND ( 1<>1 "
For Each s In SQL_WhereParamList
SQLstr &= " OR " & s & " LIKE '" & srch & "%' "
SQLstr &= " OR " & s & " LIKE '" & srch.Replace("*", "%") & "%' "
Next
SQLstr &= " ) "
End If
@@ -273,7 +273,7 @@ Public Class MySearchBox
If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter
SQLstr &= " AND ( 1<>1 "
For Each s In SQL_WhereParamList
SQLstr &= " OR " & s & " LIKE '" & srch2 & "%' "
SQLstr &= " OR " & s & " LIKE '" & srch2.Replace("*", "%") & "%' "
Next
SQLstr &= " ) "
End If

4
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -787,7 +787,7 @@ Public Class SQL
Return defaultReturn
End Function
Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean
Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional timeout As Integer = 0) As Boolean
If conn Is Nothing Then
conn = New SqlConnection
@@ -812,9 +812,11 @@ Public Class SQL
conn.Open()
End Select
End If
Try
' MsgBox(sql)
Using cmd As New SqlCommand(sql, conn)
If timeout > 0 Then cmd.CommandTimeout = timeout
If list IsNot Nothing Then
For Each i In list
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))

128
VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb Normal file
View File

@@ -0,0 +1,128 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAvisoStatusMails
Property asm_AvisoId As Integer
Property asm_KdNr As Integer
Property asm_StatuscodeSent As Integer
Property asm_datetime As Date = Now
Public hasEntry = False
Dim SQL As New SQL
Sub New(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
Me.asm_AvisoId = asm_AvisoId
Me.asm_KdNr = asm_KdNr
Me.asm_StatuscodeSent = asm_StatuscodeSent
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_AvisoId", asm_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_KdNr", asm_KdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_StatuscodeSent", asm_StatuscodeSent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_datetime", asm_datetime))
Return list
End Function
Public Shared Function INSERT_INTO(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) As Boolean
Dim AST As New cAvisoStatusMails(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
AST.asm_AvisoId = asm_AvisoId
AST.asm_KdNr = asm_KdNr
AST.asm_StatuscodeSent = asm_StatuscodeSent
Return AST.SAVE()
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ", conn)
cmd.Parameters.AddWithValue("@asm_AvisoId", asm_AvisoId)
cmd.Parameters.AddWithValue("@asm_KdNr", asm_KdNr)
cmd.Parameters.AddWithValue("@asm_StatuscodeSent", asm_StatuscodeSent)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblAvisoStatusMails] SET " & str & " WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblAvisoStatusMails (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -62,7 +62,7 @@ Public Class cKundenErweitert
Property Veranlagungskunde As Boolean = False
Property Anmerkungen_Warnhinweis As Object = Nothing
Property kde_VERAG_INTERFACE_ID As Object = Nothing
Property kde_BesonderheitenNeu As Boolean = False
Property kde_BesonderheitenNeu As Boolean = True
Property kde_InfoAuftragsNr As Object = Nothing
Property kde_KundeFremdspedition As Boolean = False
Property kde_verzolltBei As Object = Nothing
@@ -76,6 +76,7 @@ Public Class cKundenErweitert
Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
Property kde_EORIgeprueftAm As Object = Nothing
Property kde_AdressZusatz As Object = Nothing
Property kde_abweichendesZZVL As Object = Nothing
Dim SQL As New SQL
@@ -153,6 +154,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))
Return list
End Function

4
VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
View File

@@ -14,8 +14,8 @@ Public Class cOrigianlATR
Property atr_empfaengerkdnr As Integer = -1
Property atr_absenderkdnr As Integer = -1
Property atr_austellungsdatum As Object = Nothing
Property atr_AvisoId As Object = Nothing
Property atr_SendungsId As Object = Nothing
Property atr_AvisoId As Integer = -1
Property atr_SendungsId As Integer = -1
Property atr_LKW As Object = Nothing
Property atr_dsId As Object = Nothing
Property atr_DHL_ReferenzNr As Object = Nothing

1
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -616,6 +616,7 @@ Class TrdInvoice_FUNCTIONS
WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
'" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb
View File

@@ -9,7 +9,6 @@ Public Class cUeberstunden
Property uest_timasId As Object = Nothing
Property uest_100 As Object = Nothing
Property uest_50 As Object = Nothing
Property uest_25 As Object = Nothing
Property uest_0 As Object = Nothing
Property uest_date As Date = Nothing
Property uest_created As Object = Nothing
@@ -46,7 +45,6 @@ Public Class cUeberstunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_timasId", uest_timasId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_100", uest_100))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_50", uest_50))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_25", uest_25))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_0", uest_0))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_date", uest_date))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_created", uest_created))

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -39,11 +38,11 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -64,7 +63,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -92,9 +91,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()

1
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -810,6 +810,7 @@ Public Class frmMessenger
Try
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer Then Return False
Dim Dt_New As DataTable = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name
,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen
FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0

74
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb generated
View File

@@ -48,7 +48,7 @@ Partial Class frmUeberstundenauszahlen
Me.txtberAusz100 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtlfdSaldo = New System.Windows.Forms.TextBox()
Me.lbllfdSaldo = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.picDel = New System.Windows.Forms.PictureBox()
Me.txtAusz50vonSaldo = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
@@ -92,7 +92,7 @@ Partial Class frmUeberstundenauszahlen
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(33, 11)
Me.Label2.Location = New System.Drawing.Point(13, 11)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(196, 13)
Me.Label2.TabIndex = 2
@@ -101,7 +101,7 @@ Partial Class frmUeberstundenauszahlen
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(32, 131)
Me.Label3.Location = New System.Drawing.Point(12, 131)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 3
@@ -110,7 +110,7 @@ Partial Class frmUeberstundenauszahlen
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(33, 53)
Me.Label4.Location = New System.Drawing.Point(13, 53)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(113, 13)
Me.Label4.TabIndex = 4
@@ -118,7 +118,7 @@ Partial Class frmUeberstundenauszahlen
'
'txt100
'
Me.txt100.Location = New System.Drawing.Point(36, 27)
Me.txt100.Location = New System.Drawing.Point(16, 27)
Me.txt100.Name = "txt100"
Me.txt100.ReadOnly = True
Me.txt100.Size = New System.Drawing.Size(47, 20)
@@ -127,7 +127,7 @@ Partial Class frmUeberstundenauszahlen
'
'txt50
'
Me.txt50.Location = New System.Drawing.Point(36, 69)
Me.txt50.Location = New System.Drawing.Point(16, 69)
Me.txt50.Name = "txt50"
Me.txt50.ReadOnly = True
Me.txt50.Size = New System.Drawing.Size(47, 20)
@@ -136,7 +136,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtMehr
'
Me.txtMehr.Location = New System.Drawing.Point(35, 147)
Me.txtMehr.Location = New System.Drawing.Point(15, 147)
Me.txtMehr.Name = "txtMehr"
Me.txtMehr.ReadOnly = True
Me.txtMehr.Size = New System.Drawing.Size(47, 20)
@@ -145,7 +145,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtAusz
'
Me.txtAusz.Location = New System.Drawing.Point(212, 196)
Me.txtAusz.Location = New System.Drawing.Point(192, 196)
Me.txtAusz.Name = "txtAusz"
Me.txtAusz.Size = New System.Drawing.Size(54, 20)
Me.txtAusz.TabIndex = 9
@@ -154,7 +154,7 @@ Partial Class frmUeberstundenauszahlen
'lblMA
'
Me.lblMA.AutoSize = True
Me.lblMA.Location = New System.Drawing.Point(236, 25)
Me.lblMA.Location = New System.Drawing.Point(238, 6)
Me.lblMA.Name = "lblMA"
Me.lblMA.Size = New System.Drawing.Size(56, 13)
Me.lblMA.TabIndex = 10
@@ -163,7 +163,7 @@ Partial Class frmUeberstundenauszahlen
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(236, 45)
Me.Label7.Location = New System.Drawing.Point(238, 26)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(65, 13)
Me.Label7.TabIndex = 11
@@ -181,7 +181,7 @@ Partial Class frmUeberstundenauszahlen
'
'txt100x2
'
Me.txt100x2.Location = New System.Drawing.Point(132, 27)
Me.txt100x2.Location = New System.Drawing.Point(112, 27)
Me.txt100x2.Name = "txt100x2"
Me.txt100x2.ReadOnly = True
Me.txt100x2.Size = New System.Drawing.Size(49, 20)
@@ -190,7 +190,7 @@ Partial Class frmUeberstundenauszahlen
'
'txt50x15
'
Me.txt50x15.Location = New System.Drawing.Point(132, 69)
Me.txt50x15.Location = New System.Drawing.Point(112, 69)
Me.txt50x15.Name = "txt50x15"
Me.txt50x15.ReadOnly = True
Me.txt50x15.Size = New System.Drawing.Size(49, 20)
@@ -199,7 +199,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtAusz100
'
Me.txtAusz100.Location = New System.Drawing.Point(217, 27)
Me.txtAusz100.Location = New System.Drawing.Point(197, 27)
Me.txtAusz100.Name = "txtAusz100"
Me.txtAusz100.ReadOnly = True
Me.txtAusz100.Size = New System.Drawing.Size(54, 20)
@@ -208,7 +208,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtAusz50
'
Me.txtAusz50.Location = New System.Drawing.Point(217, 69)
Me.txtAusz50.Location = New System.Drawing.Point(197, 69)
Me.txtAusz50.Name = "txtAusz50"
Me.txtAusz50.ReadOnly = True
Me.txtAusz50.Size = New System.Drawing.Size(54, 20)
@@ -253,7 +253,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtSummeAuszb
'
Me.txtSummeAuszb.Location = New System.Drawing.Point(130, 196)
Me.txtSummeAuszb.Location = New System.Drawing.Point(110, 196)
Me.txtSummeAuszb.Name = "txtSummeAuszb"
Me.txtSummeAuszb.ReadOnly = True
Me.txtSummeAuszb.Size = New System.Drawing.Size(49, 20)
@@ -289,21 +289,21 @@ Partial Class frmUeberstundenauszahlen
'
'txtlfdSaldo
'
Me.txtlfdSaldo.Location = New System.Drawing.Point(36, 108)
Me.txtlfdSaldo.Location = New System.Drawing.Point(17, 108)
Me.txtlfdSaldo.Name = "txtlfdSaldo"
Me.txtlfdSaldo.ReadOnly = True
Me.txtlfdSaldo.Size = New System.Drawing.Size(49, 20)
Me.txtlfdSaldo.TabIndex = 26
Me.txtlfdSaldo.Text = "0"
'
'lbllfdSaldo
'Label6
'
Me.lbllfdSaldo.AutoSize = True
Me.lbllfdSaldo.Location = New System.Drawing.Point(33, 92)
Me.lbllfdSaldo.Name = "lbllfdSaldo"
Me.lbllfdSaldo.Size = New System.Drawing.Size(48, 13)
Me.lbllfdSaldo.TabIndex = 27
Me.lbllfdSaldo.Text = "lfd Saldo"
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(18, 92)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(48, 13)
Me.Label6.TabIndex = 27
Me.Label6.Text = "lfd Saldo"
'
'picDel
'
@@ -317,7 +317,7 @@ Partial Class frmUeberstundenauszahlen
'
'txtAusz50vonSaldo
'
Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(217, 108)
Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(197, 108)
Me.txtAusz50vonSaldo.Name = "txtAusz50vonSaldo"
Me.txtAusz50vonSaldo.ReadOnly = True
Me.txtAusz50vonSaldo.Size = New System.Drawing.Size(49, 20)
@@ -341,7 +341,7 @@ Partial Class frmUeberstundenauszahlen
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.picDel)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.lbllfdSaldo)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.txt100)
Me.Panel1.Controls.Add(Me.txtlfdSaldo)
Me.Panel1.Controls.Add(Me.txt50)
@@ -422,7 +422,7 @@ Partial Class frmUeberstundenauszahlen
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(214, 179)
Me.Label8.Location = New System.Drawing.Point(194, 179)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(56, 13)
Me.Label8.TabIndex = 33
@@ -430,7 +430,7 @@ Partial Class frmUeberstundenauszahlen
'
'txt50x1
'
Me.txt50x1.Location = New System.Drawing.Point(132, 108)
Me.txt50x1.Location = New System.Drawing.Point(112, 108)
Me.txt50x1.Name = "txt50x1"
Me.txt50x1.ReadOnly = True
Me.txt50x1.Size = New System.Drawing.Size(49, 20)
@@ -461,15 +461,17 @@ Partial Class frmUeberstundenauszahlen
Me.dgvUeberstunden.TabIndex = 13
Me.dgvUeberstunden.Visible = False
'
'PictureBox1
'cbxoverwrite
'
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(422, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(29, 26)
Me.PictureBox1.TabIndex = 38
Me.PictureBox1.TabStop = False
Me.cbxoverwrite.AutoSize = True
Me.cbxoverwrite.Checked = True
Me.cbxoverwrite.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxoverwrite.Location = New System.Drawing.Point(59, 179)
Me.cbxoverwrite.Name = "cbxoverwrite"
Me.cbxoverwrite.Size = New System.Drawing.Size(102, 17)
Me.cbxoverwrite.TabIndex = 31
Me.cbxoverwrite.Text = "max. auszahlbar"
Me.cbxoverwrite.UseVisualStyleBackColor = True
'
'picShow
'
@@ -537,7 +539,7 @@ Partial Class frmUeberstundenauszahlen
Friend WithEvents txtberAusz100 As Windows.Forms.TextBox
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents txtlfdSaldo As Windows.Forms.TextBox
Friend WithEvents lbllfdSaldo As Windows.Forms.Label
Friend WithEvents Label6 As Windows.Forms.Label
Friend WithEvents picDel As Windows.Forms.PictureBox
Friend WithEvents txtAusz50vonSaldo As Windows.Forms.TextBox
Friend WithEvents Panel1 As Windows.Forms.Panel

138
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -5,7 +5,6 @@ Imports System.Threading
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ToolTip
Public Class frmUeberstundenauszahlen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -18,9 +17,7 @@ Public Class frmUeberstundenauszahlen
Dim tag As cFeiertage
Dim auszahlugsdatum As New Date
Dim maxUberstundenpruefung As Boolean = True
Dim istTeilzeit As Boolean = False
Dim faktorTeilzeit As Double = 100
Dim stunden100ausz, stunden50ausz, stunden100auszbere, stunden50auszbere, stunden100bereitsausbezahl, stunden50bereitsausbezahlt, stunden25bereitsausbezahlt, mehrabeit, stundenlfdSaldo, stundenlfdSaldobere, overwrittenSum As Double
Dim stunden100ausz, stunden50ausz, stunden100auszbere, stunden50auszbere, stunden100bereitsausbezahl, stunden50bereitsausbezahlt, mehrabeit, stundenlfdSaldo, stundenlfdSaldobere As Double
Sub New(mit_id)
@@ -98,11 +95,6 @@ Public Class frmUeberstundenauszahlen
End Sub
Private Sub cbxTeilzeit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeilzeit.CheckedChanged
istTeilzeit = cbxTeilzeit.Checked
changeTeilzeit()
End Sub
Private Sub getUeberstunden(abwDatum As Boolean)
Dim startdate, enddate As Date
@@ -145,7 +137,7 @@ Public Class frmUeberstundenauszahlen
End Sub
Private Function getUeberstunden(dtAccouts As DataTable, dtSumUeberstunden As DataTable) As DataTable
Private Function calcUeberstunden(dtAccouts As DataTable, dtSumUeberstunden As DataTable) As DataTable
Dim dtmerged As DataTable
If dtAccouts IsNot Nothing AndAlso dtSumUeberstunden IsNot Nothing Then
@@ -293,13 +285,9 @@ Public Class frmUeberstundenauszahlen
End If
Next
'alle zurücksetzen, falls im neuen Monat dieser Wert nicht mitgegeben wird!
stunden50ausz = 0
stunden100ausz = 0
mehrabeit = 0
stunden50bereitsausbezahlt = 0
stunden100bereitsausbezahl = 0
stunden25bereitsausbezahlt = 0
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim calc As Double = 0
@@ -342,15 +330,6 @@ Public Class frmUeberstundenauszahlen
stunden50bereitsausbezahlt = calc
End If
If r.Item("accountid") = "1553" Then
txtberAusz25.Visible = True
calc = CDbl(txtberAusz25.Text)
calc += r.Item("value") * (r.Item("multiplier") & "1")
txtberAusz25.Text = calc
stunden25bereitsausbezahlt = calc
cbxTeilzeit.Checked = True
End If
'Berechnung von lfd Saldo im Zeitraum -> deaktiviert, es soll immer der aktuelle Saldo gezogen werden, egal in welchem Monat ich bin (22.02.2024)
'If r.Item("accountid") = "65" Then
' calc = CDbl(txtlfdSaldo.Text)
@@ -361,7 +340,7 @@ Public Class frmUeberstundenauszahlen
End If
Next
If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt + stunden25bereitsausbezahlt) > 0 Then
If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt) > 0 Then
picDel.Visible = True
Button1.Enabled = False
txtAusz.Enabled = False
@@ -396,7 +375,69 @@ Public Class frmUeberstundenauszahlen
Private Sub txtAusz_TextChanged(sender As Object, e As EventArgs) Handles txtAusz.TextChanged
calcUeberstunden()
If txtAusz.Text <> "" AndAlso IsNumeric(txtAusz.Text) Then
Dim summeAusz = CDbl(txtAusz.Text)
If summeAusz <= 0 Then
txtAusz50vonSaldo.Text = "0"
txtAusz50.Text = "0"
txtAusz100.Text = "0"
txtAusz.Text = "0"
Button1.Enabled = False
Exit Sub
End If
txt100x2.Text = stunden100auszbere
txt50x15.Text = stunden50auszbere
txt50x1.Text = stundenlfdSaldobere
If stundenlfdSaldo >= summeAusz Then 'Prüfung, damit nicht zuviele ÜS ausbezahlt werden können!
Button1.Enabled = True
Else
If maxUberstundenpruefung Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
End If
If summeAusz >= stunden100auszbere Then
txtAusz100.Text = stunden100auszbere
Else
txtAusz100.Text = summeAusz
End If
summeAusz = Math.Round(summeAusz - stunden100auszbere, 2)
If summeAusz >= stunden50auszbere Then
txtAusz50.Text = stunden50auszbere
summeAusz = Math.Round(summeAusz - stunden50auszbere, 2)
ElseIf summeAusz < 0 Then
txtAusz50.Text = "0"
Else
txtAusz50.Text = summeAusz
summeAusz = Math.Round(summeAusz - stunden50auszbere, 2)
End If
If summeAusz >= stundenlfdSaldo Then
txtAusz50vonSaldo.Text = stundenlfdSaldo
summeAusz = Math.Round(summeAusz - stundenlfdSaldo, 2)
ElseIf summeAusz < 0 Then
txtAusz50vonSaldo.Text = "0"
Else
txtAusz50vonSaldo.Text = summeAusz
summeAusz = Math.Round(summeAusz - stundenlfdSaldo, 2)
End If
End If
End Sub
@@ -420,19 +461,12 @@ Public Class frmUeberstundenauszahlen
Dim sum100, sum50, sum0, gesamt As Double
sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / 200, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 0.5, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / 150, 2)
sum0 = RoundOfDigits(CDbl(txtAusz50vonSaldo.Text) * 100 / faktorTeilzeit, 2)
gesamt = IIf(overwrittenSum > 0, overwrittenSum, CDbl(txtAusz.Text))
sum0 = CDbl(txtAusz50vonSaldo.Text)
gesamt = CDbl(txtAusz.Text)
Dim txtAusgabe As New StringBuilder
txtAusgabe.Append("Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " auszahlen?" & vbNewLine)
txtAusgabe.Append(sum100 & "x 100% ÜS :" & txtAusz100.Text & vbNewLine)
txtAusgabe.Append(IIf(Not istTeilzeit, sum50 + sum0, sum50) & "x 50% ÜS: " & CDbl(txtAusz50.Text) + IIf(Not istTeilzeit, CDbl(txtAusz50vonSaldo.Text), 0) & vbNewLine)
If istTeilzeit Then txtAusgabe.Append(sum0 & "x 25% ÜS: " & CDbl(txtAusz50vonSaldo.Text) & vbNewLine)
txtAusgabe.Append("ÜS gesamt: " & gesamt)
Dim aksAuszahlung As MsgBoxResult = MsgBox(txtAusgabe.ToString, vbYesNo)
Dim aksAuszahlung As MsgBoxResult = MsgBox("Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " auszahlen?" & vbNewLine & sum100 & "x 100% ÜS :" & txtAusz100.Text & vbNewLine & sum50 & "x 50% ÜS: " & CDbl(txtAusz50.Text) + CDbl(txtAusz50vonSaldo.Text) & vbNewLine & "ÜS gesamt: " & gesamt, vbYesNo)
If aksAuszahlung = vbYes Then
Dim dtsetEntries As New DataTable
@@ -440,28 +474,28 @@ Public Class frmUeberstundenauszahlen
dtsetEntries.Columns.Add("accountid", GetType(Integer))
dtsetEntries.Columns.Add("value", GetType(String))
If sum100 > 0 Then
If sum100 >= 0 Then
Dim row = dtsetEntries.NewRow
row.Item("accountid") = 1550
row.Item("value") = sum100.ToString.Replace(",", ".")
dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
End If
If sum50 > 0 Then
If sum50 >= 0 Then
Dim row = dtsetEntries.NewRow
row.Item("accountid") = 1551
row.Item("value") = sum50.ToString.Replace(",", ".")
dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
End If
If sum0 > 0 Then
If sum0 >= 0 Then
Dim row = dtsetEntries.NewRow
row.Item("accountid") = IIf(istTeilzeit, 1553, 1551)
row.Item("accountid") = 1551
row.Item("value") = sum0.ToString.Replace(",", ".")
dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)
End If
If gesamt > 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!!
If gesamt >= 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!!
Dim row = dtsetEntries.NewRow
row.Item("accountid") = 993
row.Item("value") = gesamt.ToString.Replace(",", ".")
@@ -472,7 +506,7 @@ Public Class frmUeberstundenauszahlen
ues.uest_timasId = MA.mit_timasId
ues.uest_100 = sum100
ues.uest_50 = sum50
ues.uest_overwriteValue = IIf(cbx100.Checked Or cbx50.Checked Or cx25.Checked, True, False)
ues.uest_0 = sum0
ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
ues.uest_ignoreLimit = Not maxUberstundenpruefung
ues.uest_maxUE = CDbl(txtSummeAuszb.Text)
@@ -498,17 +532,7 @@ Public Class frmUeberstundenauszahlen
End Sub
Private Sub picDel_Click(sender As Object, e As EventArgs) Handles picDel.Click
Dim txtAusgabe As New StringBuilder
txtAusgabe.Append("Ausbezahlte Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " zurücksetzen?" & vbNewLine)
txtAusgabe.Append("100% ÜS: " & txtberAusz100.Text & vbNewLine)
txtAusgabe.Append("50% ÜS: " & txtberAusz50.Text + IIf(Not istTeilzeit, CDbl(txtberAusz25.Text), 0) & vbNewLine)
If istTeilzeit Then txtAusgabe.Append("25% ÜS: " & CDbl(txtberAusz25.Text) & vbNewLine)
txtAusgabe.Append("ÜS gesamt: " & CDbl(txtberAusz100.Text) + CDbl(txtberAusz50.Text) + CDbl(txtberAusz25.Text))
Dim aksAuszahlung As MsgBoxResult = MsgBox(txtAusgabe.ToString, vbYesNo)
Dim aksAuszahlung As MsgBoxResult = MsgBox("Ausbezahlte Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " zurücksetzen?" & vbNewLine & "100% ÜS: " & txtberAusz100.Text & vbNewLine & "50% ÜS: " & txtberAusz50.Text & vbNewLine & "ÜS gesamt: " & CDbl(txtberAusz100.Text) + CDbl(txtberAusz50.Text), vbYesNo)
If aksAuszahlung = vbYes Then
Dim dtdeleteEntries As New DataTable
@@ -531,12 +555,6 @@ Public Class frmUeberstundenauszahlen
dtdeleteEntries.Rows.InsertAt(row, dtdeleteEntries.Rows.Count)
End If
If txtberAusz25.Text <> "" AndAlso IsNumeric(txtberAusz25.Text) Then
Dim row = dtdeleteEntries.NewRow
row.Item("accountid") = 1553
dtdeleteEntries.Rows.InsertAt(row, dtdeleteEntries.Rows.Count)
End If
If timas.deleteTimeAccounts(auszahlugsdatum, auszahlugsdatum, MA.mit_timasId, dtdeleteEntries) Then
Dim ues As New cUeberstunden(MA.mit_id, auszahlugsdatum.ToString("dd/MM/yyyy"))
ues.uest_deleted = True

8407
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

364
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd Normal file
View File

@@ -0,0 +1,364 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
elementFormDefault="qualified"
attributeFormDefault="unqualified"
xmlns:jaxb="http://java.sun.com/xml/ns/jaxb"
jaxb:version="2.1">
<xs:include schemaLocation="stypes.xsd"/>
<xs:element name="QReport" type="QReportType" />
<xs:complexType name="QReportType">
<xs:sequence>
<xs:element name="SubmissionDate" type="DateTimeContentType"/>
<xs:element name="DraftReportId" type="an..22"/>
<xs:element name="ReportId" type="an..22" minOccurs="0"/>
<xs:element name="ReportingPeriod" type="an2"/>
<xs:element name="Year" type="n4"/>
<xs:element name="TotalImported" type="n..5"/>
<xs:element name="TotalEmissions" type="dec16-5"/>
<xs:element name="Declarant" type="DeclarantType"/>
<xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
<xs:element name="Importer" type="ImporterType" minOccurs="0"/>
<xs:element name="NationalCompetentAuth" type="NationalCompetentAuthType"/>
<xs:element name="Signatures" type="SignaturesType"/>
<xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
<xs:element name="ImportedGood" type="ImportedGoodType" maxOccurs="99999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DeclarantType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="Role" type="an..5"/>
<xs:element name="ActorAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImporterType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="ImporterAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RepresentativeType">
<xs:sequence>
<xs:element name="IdentificationNumber" type="an..17"/>
<xs:element name="Name" type="an..70"/>
<xs:element name="RepresentativeAddress" type="AddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="NationalCompetentAuthType">
<xs:sequence>
<xs:element name="ReferenceNumber" type="an..128"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SignaturesType">
<xs:sequence>
<xs:element name="ReportConfirmation" type="ReportConfirmationType"/>
<xs:element name="ApplicableMethdologyConfirmation" type="ApplicableMethodologyConfirmationType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ReportConfirmationType">
<xs:sequence>
<xs:element name="GlobalDataConfirmation" type="xs:boolean"/>
<xs:element name="UseOfDataConfirmation" type="xs:boolean"/>
<xs:element name="SignatureDate" type="n8"/>
<xs:element name="SignaturePlace" type="an..128"/>
<xs:element name="Signature" type="an..128"/>
<xs:element name ="PositionOfPersonSending" type="an..128"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicableMethodologyConfirmationType">
<xs:sequence>
<xs:element name="OtherApplicableReportingMethodology" type="xs:boolean"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RemarksType">
<xs:sequence>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportedGoodType">
<xs:sequence>
<xs:element name="ItemNumber" type="n..5"/>
<xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
<xs:element name="Importer" type="ImporterType" minOccurs="0"/>
<xs:element name="CommodityCode" type="CommodityCodeType" minOccurs="0"/>
<xs:element name="OriginCountry" type="OriginCountryType"/>
<xs:element name="ImportedQuantity" type="ImportedQuantityType" minOccurs="1" maxOccurs="9"/>
<xs:element name="MeasureImported" type="MeasureType"/>
<xs:element name="TotalEmissions" type="TotalEmissionsType"/>
<xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
<xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
<xs:element name="GoodsEmissions" type="GoodsEmissionsType" minOccurs="1" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CommodityCodeType">
<xs:sequence>
<xs:element name="HsCode" type="an6"/>
<xs:element name="CnCode" type="an2"/>
<xs:element name="CommodityDetails" type="CommodityDetailsType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CommodityDetailsType">
<xs:sequence>
<xs:element name="Description" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="OriginCountryType">
<xs:sequence>
<xs:element name="Country" type="a2"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportedQuantityType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Procedure" type="ProcedureType"/>
<xs:element name="ImportArea" type="ImportAreaType"/>
<xs:element name="MeasureProcedureImported" type="MeasureProcedureType" maxOccurs="2"/>
<xs:element name="SpecialReferences" type="SpecialReferencesType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProcedureType">
<xs:sequence>
<xs:element name="RequestedProc" type="an2"/>
<xs:element name="PreviousProc" type="an2" minOccurs="0"/>
<xs:element name="InwardProcessingInfo" type="InwardProcessingInfoType" minOccurs="0" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InwardProcessingInfoType">
<xs:sequence>
<xs:element name="MemberStateAuth" type="a2"/>
<xs:element name="DischargeBillWaiver" type="n1"/>
<xs:element name="Authorisation" type="an..512" />
<xs:element name="StartTime" type="n8"/>
<xs:element name="EndTime" type="n8"/>
<xs:element name="Deadline" type="n8"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ImportAreaType">
<xs:sequence>
<xs:element name="ImportArea" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="MeasureType">
<xs:sequence>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="MeasureProcedureType">
<xs:sequence>
<xs:element name="Indicator" type="n1"/>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SpecialReferencesType">
<xs:sequence>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TotalEmissionsType">
<xs:sequence>
<xs:element name="EmissionsPerUnit" type="xs:decimal"/>
<xs:element name="OverallEmissions" type="xs:decimal"/>
<xs:element name="TotalDirect" type="xs:decimal"/>
<xs:element name="TotalIndirect" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SupportingDocumentsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Type" type="an4"/>
<xs:element name="Country" type="a2" minOccurs="0"/>
<xs:element name="ReferenceNumber" type="an..70"/>
<xs:element name="LineItemNumber" type="n..5" minOccurs="0"/>
<xs:element name="IssuingAuthName" type="an..70" minOccurs="0"/>
<xs:element name="ValidityStartDate" type="DateContentType" minOccurs="0"/>
<xs:element name="ValidityEndDate" type="DateContentType" minOccurs="0"/>
<xs:element name="Description" type="an..256" minOccurs="0"/>
<xs:element name="Attachment" type="AttachmentType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="AttachmentType">
<xs:sequence>
<xs:element name="Filename" type="an..256"/>
<xs:element name="URI" type="an..2048" minOccurs="0"/>
<xs:element name="MIME" type="an..70"/>
<xs:element name="Binary" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="QualifyingParametersType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="DeterminationType" type="an..5"/>
<xs:element name="ParameterId" type="an..5"/>
<xs:element name="ParameterName" type="an..256"/>
<xs:element name="Description" type="an..256" minOccurs="0"/>
<xs:element name="ParameterValueType" type="an..256"/>
<xs:element name="ParameterValue" type="an..256"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="GoodsEmissionsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="ProductionCountry" type="a2" minOccurs="0"/>
<xs:element name="InstallationOperator" type="InstallationOperatorType" minOccurs="0"/>
<xs:element name="Installation" type="InstallationType" minOccurs="0"/>
<xs:element name="ProducedMeasure" type="MeasureType"/>
<xs:element name="InstallationEmissions" type="InstallationEmissionsType"/>
<xs:element name="DirectEmissions" type="DirectEmissionsType"/>
<xs:element name="IndirectEmissions" type="IndirectEmissionsType" minOccurs="0"/>
<xs:element name="ProdMethodQualifyingParams" type="ProdMethodQualifyingParamsType" maxOccurs="99"/>
<xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
<xs:element name="CarbonPriceDue" type="CarbonPriceDueType" minOccurs="0" maxOccurs="99"/>
<xs:element name="RemarksEmissions" type="RemarksEmissionsType" minOccurs="0" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationType">
<xs:sequence>
<xs:element name="InstallationId" type="an..17"/>
<xs:element name="InstallationName" type="an..256"/>
<xs:element name="EconomicActivity" type="an..256" minOccurs="0"/>
<xs:element name="Address" type="InstallationAddressType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationAddressType">
<xs:sequence>
<xs:element name="EstablishmentCountry" type="a2"/>
<xs:element name="SubDivision" type="an..35" minOccurs="0"/>
<xs:element name="City" type="an..35" minOccurs="0"/>
<xs:element name="Street" type="an..70" minOccurs="0"/>
<xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
<xs:element name="Number" type="an..35" minOccurs="0"/>
<xs:element name="Postcode" type="an..17" minOccurs="0"/>
<xs:element name="POBox" type="an..70" minOccurs="0"/>
<xs:element name="PlotParcelNumber" type="an..15" minOccurs="0"/>
<xs:element name="UNLOCODE" type="an..17" minOccurs="0"/>
<xs:element name="Latitude" type="an..17" minOccurs="0"/>
<xs:element name="Longitude" type="an..17" minOccurs="0"/>
<xs:element name="CoordinatesType" type="an..5" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationOperatorType">
<xs:sequence>
<xs:element name="OperatorId" type="an..17"/>
<xs:element name="OperatorName" type="an..70"/>
<xs:element name="OperatorAddress" type="AddressType"/>
<xs:element name="ContactDetails" type="ContactDetailsType" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="AddressType">
<xs:sequence>
<xs:element name="Country" type="a2"/>
<xs:element name="SubDivision" type="an..35" minOccurs="0"/>
<xs:element name="City" type="an..35"/>
<xs:element name="Street" type="an..70" minOccurs="0"/>
<xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
<xs:element name="Number" type="an..35" minOccurs="0"/>
<xs:element name="Postcode" type="an..17" minOccurs="0"/>
<xs:element name="POBox" type="an..70" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ContactDetailsType">
<xs:sequence>
<xs:element name="Name" type="an..70"/>
<xs:element name="Phone" type="an..35"/>
<xs:element name="Email" type="an..256"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProdMethodQualifyingParamsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="MethodId" type="an..5"/>
<xs:element name="MethodName" type="an..256"/>
<xs:element name="SteelMillNumber" type="an..256" minOccurs="0"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
<xs:element name="DirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
<xs:element name="IndirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProducedGoodsMeasureType">
<xs:sequence>
<xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
<xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="InstallationEmissionsType">
<xs:sequence>
<xs:element name="OverallEmissions" type="xs:decimal"/>
<xs:element name="TotalDirect" type="xs:decimal"/>
<xs:element name="TotalIndirect" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DirectEmissionsType">
<xs:sequence>
<xs:element name="DeterminationType" type="an..5" minOccurs="0"/>
<xs:element name="DeterminationTypeElectricity" type="an..5" minOccurs="0"/>
<xs:element name="ApplicableReportingTypeMethodology" type="an..5"/>
<xs:element name="ApplicableReportingMethodology" type="an..256" minOccurs="0"/>
<xs:element name="SpecificEmbeddedEmissions" type="dec16-5" minOccurs="0"/>
<xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
<xs:element name="EmissionFactorSourceElectricity" type="an..5" minOccurs="0"/>
<xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
<xs:element name="ElectricityImported" type="xs:decimal" minOccurs="0"/>
<xs:element name="TotalEmbeddedElectricityImported" type="dec16-5" minOccurs="0"/>
<xs:element name="MeasurementUnit" type="an..5"/>
<xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
<xs:element name="Justification" type="an..512" minOccurs="0"/>
<xs:element name="ConditionalityFulfillment" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="IndirectEmissionsType">
<xs:sequence>
<xs:element name="DeterminationType" type="an..5"/>
<xs:element name="EmissionFactorSource" type="an..5" minOccurs="0"/>
<xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
<xs:element name="SpecificEmbeddedEmissions" type="xs:decimal"/>
<xs:element name="MeasurementUnit" type="an..5"/>
<xs:element name="ElectricityConsumed" type="dec5-2" minOccurs="0"/>
<xs:element name="ElectricitySource" type="an..5"/>
<xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
<xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="CarbonPriceDueType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="InstrumentType" type="an..5"/>
<xs:element name="LegalActDescription" type="an..512"/>
<xs:element name="Amount" type="xs:decimal"/>
<xs:element name="Currency" type="a3"/>
<xs:element name="ExchangeRate" type="an..2"/>
<xs:element name="EURO" type="xs:decimal"/>
<xs:element name="Country" type="a2"/>
<xs:element name="ProductsCovered" type="ProductsCoveredType" minOccurs="0" maxOccurs="9"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ProductsCoveredType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="Type" type="an..5"/>
<xs:element name="CN" type="an..8" minOccurs="0"/>
<xs:element name="QuantityCovered" type="dec16-5"/>
<xs:element name="QuantityCoveredFreeAloc" type="dec16-5"/>
<xs:element name="SupplementaryInformation" type="an..256" minOccurs="0"/>
<xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
<xs:element name="Measure" type="MeasureType"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="RemarksEmissionsType">
<xs:sequence>
<xs:element name="SequenceNumber" type="n..5"/>
<xs:element name="AdditionalInformation" type="an..512"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

202
VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd Normal file
View File

@@ -0,0 +1,202 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
elementFormDefault="qualified"
attributeFormDefault="unqualified">
<xs:simpleType name="an20">
<xs:restriction base="xs:string">
<xs:minLength value="20"/>
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an2">
<xs:restriction base="xs:string">
<xs:minLength value="2"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an8">
<xs:restriction base="xs:string">
<xs:minLength value="8"/>
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..15">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="15"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..70">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="70"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..5">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..128">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="128"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..512">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="512"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..256">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="256"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2048">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="2048"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an4">
<xs:restriction base="xs:string">
<xs:minLength value="4"/>
<xs:maxLength value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an9">
<xs:restriction base="xs:string">
<xs:minLength value="9"/>
<xs:maxLength value="9"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an6">
<xs:restriction base="xs:string">
<xs:minLength value="6"/>
<xs:maxLength value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="a2">
<xs:restriction base="xs:string">
<xs:minLength value="2"/>
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n4">
<xs:restriction base="xs:int">
<xs:totalDigits value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n1">
<xs:restriction base="xs:int">
<xs:totalDigits value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n2">
<xs:restriction base="xs:int">
<xs:totalDigits value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n8">
<xs:restriction base="xs:int">
<xs:totalDigits value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n6.16">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{6,16}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..5">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{1,5}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..2">
<xs:restriction base="xs:integer">
<xs:pattern value="\d{1,2}" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec5-2">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="7"/>
<xs:fractionDigits value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec16-6">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="16"/>
<xs:fractionDigits value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="dec16-5">
<xs:restriction base="xs:decimal">
<xs:totalDigits value="16"/>
<xs:fractionDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an3">
<xs:restriction base="xs:string">
<xs:minLength value="3"/>
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="a3">
<xs:restriction base="xs:string">
<xs:minLength value="3"/>
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="DateTimeContentType">
<xs:restriction base="xs:dateTime">
<xs:pattern value="\d{4}-\d\d-\d\dT\d\d:\d\d:\d\dZ" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="DateContentType">
<xs:restriction base="xs:date">
<xs:pattern value="\d{4}-\d\d-\d\d" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..22">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="22"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..8">
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
</xs:schema>

33
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -267,12 +267,14 @@ Public Class cSyska_Interface
' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(1, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(7, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(4, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(11, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(17, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
End If
If boolBuchungen Then
If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(4, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
@@ -1366,7 +1368,7 @@ Public Class cSyska_Interface
Return False
End Try
End Function
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer) As Boolean
Try
Dim sqlStr = "
@@ -1377,10 +1379,9 @@ Public Class cSyska_Interface
Kunden
WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0 "
If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' "
SQL.doSQL(sqlStr, "FMZOLL")
SQL.doSQL(sqlStr, "FMZOLL",,,, 1800)
Return True
Catch ex As Exception
@@ -1390,6 +1391,32 @@ Public Class cSyska_Interface
End Function
Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, KdNr As Integer) As Boolean
If KdNr <= 0 Then
Return OP_LFD_SALDO_AKTUALISIERN(Firma_ID)
End If
Try
Dim sqlStr = "
UPDATE KUNDEN
SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where Kontonummer=KundenNrZentrale order by [OP_ID] desc )
FROM
Kunden
WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0
AND KundenNrZentrale='" & KdNr & "'
"
SQL.doSQL(sqlStr, "FMZOLL",,,, 600)
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Return False
End Try
End Function

8
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -330,6 +330,7 @@
<Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cAvisoAnhangsarten.vb" />
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
<Compile Include="Classes\cAvisoStatusMails.vb" />
<Compile Include="Classes\cBesuchsbericht.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" />
<Compile Include="Classes\cChilkat_Helper.vb" />
@@ -392,6 +393,7 @@
<AutoGen>True</AutoGen>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="Schnittstellen\CBAM\QReport_v17.00.Designer.vb" />
<Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
<Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
<Compile Include="Classes\cParameter.vb" />
@@ -794,6 +796,12 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="ProgAllg.pfx" />
<None Include="Schnittstellen\CBAM\QReport_v17.00.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\CBAM\stypes.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
<SubType>Designer</SubType>
</None>

6
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -493,10 +493,13 @@ Public Class cProgramFunctions
End Sub
Public Shared Function getFilePathTypeValid(filePath) As String
Dim Typ = ""
If filePath <> "" Then
Dim fi As New FileInfo(filePath)
Dim filename = fi.Name
Dim Typ = ""
Select Case fi.Extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF"
Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
@@ -506,6 +509,7 @@ Public Class cProgramFunctions
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
End If
Return Typ
End Function