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

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Administration/frmKasseAbschliessen.vb
View File

@@ -82,7 +82,9 @@
Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double)
Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
BELEG_ALT.BelegDat = CDate("31.01." & NumericUpDown1.Value)
BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
BELEG_ALT.Belegart = 2 'AUSGANG
BELEG_ALT.Beleg_TYP = "E"
BELEG_ALT.rksv_aktiv = KASSE.rksv_aktiv
@@ -140,7 +142,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 = CDate("01.02." & NumericUpDown1.Value)
BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
BELEG_NEU.Beleg_TYP = "E"
BELEG_NEU.Belegart = 1 'EINGANG
BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv

10
SDL/Checkliste/frmCheckliste.vb
View File

@@ -668,7 +668,15 @@ Public Class frmCheckliste
End If
If doFilling Then
Try
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "813570890")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "295575575")
Case "UNISPED"
Case Else
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "813570890")
End Select
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("abfrage_nr").Item(0).SetAttribute("value", UIDNr)
Select Case UIDLandKz

23
SDL/Checkliste/frmEoriLink.Designer.vb generated
View File

@@ -36,6 +36,7 @@ Partial Class frmEoriLink
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
@@ -52,7 +53,7 @@ Partial Class frmEoriLink
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Image = Global.SDL.My.Resources.ok
Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(12, 113)
Me.btnOK.Name = "btnOK"
@@ -64,7 +65,7 @@ Partial Class frmEoriLink
'btnNO
'
Me.btnNO.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNO.Image = Global.SDL.My.Resources.del
Me.btnNO.Image = Global.SDL.My.Resources.Resources.del
Me.btnNO.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNO.Location = New System.Drawing.Point(207, 113)
Me.btnNO.Name = "btnNO"
@@ -135,7 +136,7 @@ Partial Class frmEoriLink
'btnPrint
'
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Image = Global.SDL.My.Resources.printer2
Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPrint.Location = New System.Drawing.Point(712, 97)
Me.btnPrint.Name = "btnPrint"
@@ -156,6 +157,7 @@ Partial Class frmEoriLink
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.btnOK)
@@ -181,6 +183,20 @@ Partial Class frmEoriLink
Me.Label6.TabIndex = 10
Me.Label6.Text = "Adresse in VERAG-Kunden-Datenbank:"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(514, 113)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(192, 53)
Me.Button1.TabIndex = 11
Me.Button1.Text = "Als Sendungsanhang" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "speichern"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'frmEoriLink
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -212,4 +228,5 @@ Partial Class frmEoriLink
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Button1 As Button
End Class

11
SDL/Checkliste/frmEoriLink.vb
View File

@@ -2,7 +2,10 @@
Public link As String
Dim printed As Boolean = False
Public frmCheckliste As frmCheckliste
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Button1.Enabled = (VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0)
If frmCheckliste.txtEori.Text <> "" Then
WebBrowser1.Navigate(link)
Label3.Text = frmCheckliste.txtFirma.Text
@@ -57,4 +60,12 @@
Me.Top = 0
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(WebBrowser1.Url.AbsoluteUri.ToString)
Process.Start(pdf)
'frmLKW_AnhaengeDatenarchiv.
' saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing)
'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID
End Sub
End Class

2
SDL/Classes/cKassenbuch.vb
View File

@@ -4,7 +4,7 @@ Public Class cKassenbuch
Property Mandant As String = "VERA"
Property Niederlassung As String = "SUB"
Property Benutzer As Integer = -1
Property Geschäftsjahr As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Property Geschäftsjahr As Integer = cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Property JournalNr As Integer = -1
Property Buchungsdatum As Object = Nothing
Property BelegDat As Object = Nothing

27
SDL/Classes/cRKSV.vb
View File

@@ -336,7 +336,32 @@ Public Class cRKSV
Return BELEG
End Function
Shared Function getGJ(BelegDat As Date) As Integer
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "FRONTOFFICE"
Return BelegDat.Year
Case Else
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
End Select
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
Return CDate("31.01." & (GeschaerftsJahr + 1))
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
Return CDate("01.02." & GeschaerftsJahr)
End Select
End Function
Public Shared Function isforbiddenDate() As Boolean

18
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -115,7 +115,18 @@ Public Class usrCntlATLAS_EZA
Function getBezugsnr(ByRef BezugsNr)
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
Dim BezugsNrTmp = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
@@ -127,8 +138,9 @@ Public Class usrCntlATLAS_EZA
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function

16
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -113,12 +113,22 @@ Public Class usrCntlATLAS_NCTS
End Sub
Function getBezugsnr(ByRef BezugsNr)
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
Dim BezugsNrTmp = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "/" & zusatz
BezugsNr = BezugsNrTmp & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)

5
SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -148,6 +148,9 @@ Class DAKOSY_Interface_SEND
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select
Case "UNISPED"
Return ""'"ATSP"
Case "IMEX"
If fiskal Then
Return "GLO"
@@ -173,6 +176,8 @@ Class DAKOSY_Interface_SEND
Return "DUR"
Case "IMEX"
Return "IMEX"
Case "UNISPED"
Return "UNAT"
Case Else : Return "VERG"
End Select
End If

1
SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb
View File

@@ -39,6 +39,7 @@
'End Select
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME")
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP"
End Select
cboVerfahren.Items.Clear()

6
SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
View File

@@ -16,6 +16,7 @@
cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERG", "VERG"))
cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATIL", "ATIL"))
cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNAT", "UNAT"))
cboLand.changeItem("DE")
cboVerfahren.changeItem("EZA")
@@ -24,6 +25,7 @@
Case "VERAG" : cboMandant.changeItem("VERG")
Case "ATILLA" : cboMandant.changeItem("ATIL") : cboVerfahren.changeItem("NCTS")
Case "IMEX" : cboMandant.changeItem("IMEX")
Case "UNISPED" : cboMandant.changeItem("UNAT")
End Select
End Sub
@@ -239,6 +241,9 @@
Case "ATIL"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
cboNL.changeItem("SUW")
Case "UNAT"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP"))
cboNL.changeItem("ATSP")
End Select
initDGV()
@@ -252,7 +257,6 @@
End Sub
Private Sub cboNL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNL.SelectedIndexChanged
initDGV()
End Sub

34
SDL/DAKOSY/usrCntlAdresse.Designer.vb generated
View File

@@ -37,6 +37,7 @@ Partial Class usrCntlAdresse
Me.sbLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtkdNr = New System.Windows.Forms.Label()
Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.SuspendLayout()
'
'Label12
@@ -80,6 +81,7 @@ Partial Class usrCntlAdresse
Me.txtPlz._TimeOnly = False
Me.txtPlz._value = ""
Me.txtPlz._Waehrung = False
Me.txtPlz._WaehrungZeichen = True
Me.txtPlz.ForeColor = System.Drawing.Color.Black
Me.txtPlz.Location = New System.Drawing.Point(97, 57)
Me.txtPlz.MaxLength = 9
@@ -101,6 +103,7 @@ Partial Class usrCntlAdresse
Me.txtStrasse._TimeOnly = False
Me.txtStrasse._value = Nothing
Me.txtStrasse._Waehrung = False
Me.txtStrasse._WaehrungZeichen = True
Me.txtStrasse.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtStrasse.ForeColor = System.Drawing.Color.Black
@@ -117,6 +120,7 @@ Partial Class usrCntlAdresse
'
Me.kdFirma._AllowSetValue = True
Me.kdFirma._autoSizeGross = False
Me.kdFirma._display_Name1 = False
Me.kdFirma._displayAVISO_Email = False
Me.kdFirma._displayFullName = True
Me.kdFirma._displayWoelflKd = False
@@ -129,12 +133,13 @@ Partial Class usrCntlAdresse
Me.kdFirma.KdName = Nothing
Me.kdFirma.KdNr = "-1"
Me.kdFirma.kdNrField = Nothing
Me.kdFirma.KdNrNullInt = Nothing
Me.kdFirma.Location = New System.Drawing.Point(51, 19)
Me.kdFirma.MaxLength = 35
Me.kdFirma.Name = "kdFirma"
Me.kdFirma.nurAktive = True
Me.kdFirma.searchActive = True
Me.kdFirma.Size = New System.Drawing.Size(329, 20)
Me.kdFirma.Size = New System.Drawing.Size(305, 20)
Me.kdFirma.TabIndex = 0
Me.kdFirma.usrcntl = Nothing
'
@@ -159,6 +164,7 @@ Partial Class usrCntlAdresse
Me.txtEORI._TimeOnly = False
Me.txtEORI._value = Nothing
Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True
Me.txtEORI.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtEORI.ForeColor = System.Drawing.Color.Black
@@ -182,6 +188,7 @@ Partial Class usrCntlAdresse
Me.txtEORINL._TimeOnly = False
Me.txtEORINL._value = ""
Me.txtEORINL._Waehrung = False
Me.txtEORINL._WaehrungZeichen = True
Me.txtEORINL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtEORINL.ForeColor = System.Drawing.Color.Black
Me.txtEORINL.Location = New System.Drawing.Point(333, 83)
@@ -214,6 +221,7 @@ Partial Class usrCntlAdresse
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
@@ -237,6 +245,7 @@ Partial Class usrCntlAdresse
Me.txtOrt._TimeOnly = False
Me.txtOrt._value = Nothing
Me.txtOrt._Waehrung = False
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOrt.ForeColor = System.Drawing.Color.Black
@@ -276,7 +285,7 @@ Partial Class usrCntlAdresse
'txtkdNr
'
Me.txtkdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtkdNr.Location = New System.Drawing.Point(297, 3)
Me.txtkdNr.Location = New System.Drawing.Point(273, 3)
Me.txtkdNr.Name = "txtkdNr"
Me.txtkdNr.Size = New System.Drawing.Size(83, 13)
Me.txtkdNr.TabIndex = 31
@@ -290,18 +299,33 @@ Partial Class usrCntlAdresse
Me.FlatButton3.FlatAppearance.BorderSize = 0
Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton3.ForeColor = System.Drawing.Color.Black
Me.FlatButton3.Image = Global.SDL.My.Resources.personInaktiv
Me.FlatButton3.Location = New System.Drawing.Point(379, 14)
Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv
Me.FlatButton3.Location = New System.Drawing.Point(355, 14)
Me.FlatButton3.Name = "FlatButton3"
Me.FlatButton3.Size = New System.Drawing.Size(24, 25)
Me.FlatButton3.TabIndex = 32
Me.FlatButton3.UseVisualStyleBackColor = True
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.person_add
Me.FlatButton1.Location = New System.Drawing.Point(379, 14)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(24, 25)
Me.FlatButton1.TabIndex = 33
Me.FlatButton1.UseVisualStyleBackColor = True
'
'usrCntlAdresse
'
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.FlatButton1)
Me.Controls.Add(Me.txtkdNr)
Me.Controls.Add(Me.sbLand)
Me.Controls.Add(Me.txtStrasse)
@@ -338,5 +362,5 @@ Partial Class usrCntlAdresse
Friend WithEvents sbLand As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtkdNr As System.Windows.Forms.Label
Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
End Class

36
SDL/DAKOSY/usrCntlAdresse.vb
View File

@@ -66,4 +66,40 @@ Public Class usrCntlAdresse
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
newKunde(kdFirma)
End Sub
Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim frmKundenblatt As New SDL.frmKundenblatt
frmKundenblatt.showEdit = True
frmKundenblatt.kdNr = -1
'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
If frmKundenblatt.ShowDialog(Me) Then
If frmKundenblatt.kdNr > 0 Then
KD.KdNr = frmKundenblatt.kdNr
End If
End If
Else
Dim frmKd As New SDL.frmNeuerKunde
frmKd.openKd = False
frmKd.timerIntervall = 500
frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
' frmKd.tmpKdNrKreis = 9
If KD.KdNr = -1 Then
frmKd.tmpKdName = KD.Text
End If
frmKd.ShowDialog()
If frmKd.kdnr > 0 Then
KD.KdNr = frmKd.kdnr
End If
End If
End Sub
End Class

33
SDL/DAKOSY/usrCntlAdresseEZA.Designer.vb generated
View File

@@ -38,6 +38,7 @@ Partial Class usrCntlAdresseEZA
Me.Label3 = New System.Windows.Forms.Label()
Me.txtName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtName1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.SuspendLayout()
'
'Label12
@@ -81,6 +82,7 @@ Partial Class usrCntlAdresseEZA
Me.txtPlz._TimeOnly = False
Me.txtPlz._value = ""
Me.txtPlz._Waehrung = False
Me.txtPlz._WaehrungZeichen = True
Me.txtPlz.ForeColor = System.Drawing.Color.Black
Me.txtPlz.Location = New System.Drawing.Point(97, 108)
Me.txtPlz.MaxLength = 9
@@ -102,6 +104,7 @@ Partial Class usrCntlAdresseEZA
Me.txtStrasse._TimeOnly = False
Me.txtStrasse._value = Nothing
Me.txtStrasse._Waehrung = False
Me.txtStrasse._WaehrungZeichen = True
Me.txtStrasse.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtStrasse.ForeColor = System.Drawing.Color.Black
@@ -137,7 +140,7 @@ Partial Class usrCntlAdresseEZA
Me.kdFirma.Name = "kdFirma"
Me.kdFirma.nurAktive = True
Me.kdFirma.searchActive = True
Me.kdFirma.Size = New System.Drawing.Size(329, 20)
Me.kdFirma.Size = New System.Drawing.Size(305, 20)
Me.kdFirma.TabIndex = 0
Me.kdFirma.usrcntl = Nothing
'
@@ -162,6 +165,7 @@ Partial Class usrCntlAdresseEZA
Me.txtEORI._TimeOnly = False
Me.txtEORI._value = Nothing
Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True
Me.txtEORI.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtEORI.ForeColor = System.Drawing.Color.Black
@@ -185,6 +189,7 @@ Partial Class usrCntlAdresseEZA
Me.txtEORINL._TimeOnly = False
Me.txtEORINL._value = ""
Me.txtEORINL._Waehrung = False
Me.txtEORINL._WaehrungZeichen = True
Me.txtEORINL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtEORINL.ForeColor = System.Drawing.Color.Black
Me.txtEORINL.Location = New System.Drawing.Point(333, 134)
@@ -207,6 +212,7 @@ Partial Class usrCntlAdresseEZA
Me.txtOrt._TimeOnly = False
Me.txtOrt._value = Nothing
Me.txtOrt._Waehrung = False
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOrt.ForeColor = System.Drawing.Color.Black
@@ -246,7 +252,7 @@ Partial Class usrCntlAdresseEZA
'txtkdNr
'
Me.txtkdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtkdNr.Location = New System.Drawing.Point(297, 3)
Me.txtkdNr.Location = New System.Drawing.Point(273, 3)
Me.txtkdNr.Name = "txtkdNr"
Me.txtkdNr.Size = New System.Drawing.Size(83, 13)
Me.txtkdNr.TabIndex = 31
@@ -260,8 +266,8 @@ Partial Class usrCntlAdresseEZA
Me.FlatButton3.FlatAppearance.BorderSize = 0
Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton3.ForeColor = System.Drawing.Color.Black
Me.FlatButton3.Image = Global.SDL.My.Resources.personInaktiv
Me.FlatButton3.Location = New System.Drawing.Point(379, 14)
Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv
Me.FlatButton3.Location = New System.Drawing.Point(355, 14)
Me.FlatButton3.Name = "FlatButton3"
Me.FlatButton3.Size = New System.Drawing.Size(24, 25)
Me.FlatButton3.TabIndex = 32
@@ -288,6 +294,7 @@ Partial Class usrCntlAdresseEZA
Me.txtName2._TimeOnly = False
Me.txtName2._value = Nothing
Me.txtName2._Waehrung = False
Me.txtName2._WaehrungZeichen = True
Me.txtName2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtName2.ForeColor = System.Drawing.Color.Black
@@ -311,6 +318,7 @@ Partial Class usrCntlAdresseEZA
Me.txtName1._TimeOnly = False
Me.txtName1._value = Nothing
Me.txtName1._Waehrung = False
Me.txtName1._WaehrungZeichen = True
Me.txtName1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtName1.ForeColor = System.Drawing.Color.Black
@@ -323,11 +331,26 @@ Partial Class usrCntlAdresseEZA
Me.txtName1.Size = New System.Drawing.Size(352, 20)
Me.txtName1.TabIndex = 35
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.person_add
Me.FlatButton1.Location = New System.Drawing.Point(379, 14)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(24, 25)
Me.FlatButton1.TabIndex = 36
Me.FlatButton1.UseVisualStyleBackColor = True
'
'usrCntlAdresseEZA
'
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.FlatButton1)
Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.txtName2)
Me.Controls.Add(Me.Label3)
@@ -366,5 +389,5 @@ Partial Class usrCntlAdresseEZA
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtName2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtName1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
End Class

37
SDL/DAKOSY/usrCntlAdresseEZA.vb
View File

@@ -69,5 +69,40 @@ Public Class usrCntlAdresseEZA
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
newKunde(kdFirma)
End Sub
Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim frmKundenblatt As New SDL.frmKundenblatt
frmKundenblatt.showEdit = True
frmKundenblatt.kdNr = -1
'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
If frmKundenblatt.ShowDialog(Me) Then
If frmKundenblatt.kdNr > 0 Then
KD.KdNr = frmKundenblatt.kdNr
End If
End If
Else
Dim frmKd As New SDL.frmNeuerKunde
frmKd.openKd = False
frmKd.timerIntervall = 500
frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
' frmKd.tmpKdNrKreis = 9
If KD.KdNr = -1 Then
frmKd.tmpKdName = KD.Text
End If
frmKd.ShowDialog()
If frmKd.kdnr > 0 Then
KD.KdNr = frmKd.kdnr
End If
End If
End Sub
End Class

108
SDL/Fakturierung/cFakturierung.vb
View File

@@ -181,7 +181,48 @@ Public Class cFakturierung
End Function
Shared Sub setGesamtBetraege(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional Steuersatz_Proz As Object = Nothing)
Dim steuerPflichtigerBetrag As Double = 0
Dim steuerFreierBetrag As Double = 0
Dim Abfertigungskosten As Double = 0
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
If Steuersatz_Proz IsNot Nothing Then
RECHNUNG.Steuersatz_Proz = CDbl(Steuersatz_Proz)
End If ' RECHNUNG.Steuersatz_Proz = If(txtSteuersatz._value, 0)
For Each POS In RECHNUNG.POSITIONEN
If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
If CBool(POS.Steuerpflichtig) Then
steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
Else
steuerFreierBetrag += POS.SteuerfreierBetrag
End If
If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
End If
End If
Next
RECHNUNG.Abfertigungskosten = Abfertigungskosten * vorzeichen
steuerFreierBetrag *= vorzeichen
steuerPflichtigerBetrag *= vorzeichen
steuerFreierBetrag *= vorzeichen
Dim steuerBetrag As Double = 0
If RECHNUNG.Steuersatz_Proz <> 0 Then
steuerBetrag = steuerPflichtigerBetrag * RECHNUNG.Steuersatz_Proz
RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag + steuerBetrag
RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag
Else
RECHNUNG.SteuerpflichtigerGesamtbetrag = 0
RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag + steuerPflichtigerBetrag
End If
End Sub
Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String)
@@ -215,22 +256,20 @@ Public Class cFakturierung
End If
'Zahlungsziel bei Maut/Diesel.
If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL")
'DA STIMMT WAS NICHT::::::
'If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
' Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL")
' Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "")
' Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'') FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL")
If ZahlungszielOffert <> "" Then
Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "")
Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'') FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL")
If ZahlungszielKunde <> "" Then 'Zahlungsziel für Kunde verwenden
RECHNUNG.Nettozahlungsziel = ZahlungszielKunde
strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!"
Else 'Zahlungsziel für Offerte verwenden
RECHNUNG.Nettozahlungsziel = ZahlungszielOffert
strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!"
End If
End If
End If
' If ZahlungszielKunde <> "" Then 'Zahlungsziel für Kunde verwenden
' RECHNUNG.Nettozahlungsziel = ZahlungszielKunde
' strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!"
' ElseIf ZahlungszielOffert <> "" Then 'Zahlungsziel für Offerte verwenden
' RECHNUNG.Nettozahlungsziel = ZahlungszielOffert
' strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!"
' End If
'End If
' Text bei Zoll oder EUSt drucken
@@ -382,7 +421,8 @@ Public Class cFakturierung
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
If Rechnung.RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867"
rpt.txtBank2.Text = ""
Else
If hasVK(Rechnung) Then
@@ -668,6 +708,13 @@ Public Class cFakturierung
If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then
rpt.lblAnlagenUeberschrift.Visible = False
End If
rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "")
If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then
rpt.lblHandlingATA.Visible = False
End If
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'ANLAGE ZUR RECHNUNG:
@@ -816,7 +863,7 @@ Public Class cFakturierung
End If
'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben
Dim RG_Bezeichnung = "VERAG_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
'Immer Exportieren, da in Therefore speichern
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
@@ -925,6 +972,9 @@ Public Class cFakturierung
Case "VERAG" : firma = 1
Case "IMEX" : firma = 20
Case "ATILLA" : firma = 7
Case "UNISPED" : firma = 21
Case "AMBAR" : firma = 22
Case "FRONTOFFICE" : firma = 23
Case Else : firma = 1
End Select
End If
@@ -996,7 +1046,7 @@ Public Class cFakturierung
End If
' RECHNUNG.Buchungsjahr = If(Now.Month = 1, Now.Year - 1, Now.Year)
End If
RECHNUNG.Buchungsjahr = If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum]) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
If RECHNUNG.Buchungsjahr < 2000 Then
MsgBox("Buchungsjahr im falschen Format!")
@@ -1112,7 +1162,7 @@ Public Class cFakturierung
If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
Dim Buchungsjahr = IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)
Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)
Dim Aktuelle_RgNr As Integer = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
@@ -1227,7 +1277,7 @@ Public Class cFakturierung
If list.Count > 0 Then
' pathPDF = "" 'PAD Pfad zurückgeben!!!!!!
pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VERAG_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
If Not FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
pathPDF = "" : MsgBox("Fehler PDF")
@@ -1388,6 +1438,10 @@ Public Class cFakturierung
If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
If If(RECHNUNG.Handling, "") <> "" Then
rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
End If
If True Then 'ANLAGEN
Dim Anlagen = ""
If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
@@ -1400,6 +1454,8 @@ Public Class cFakturierung
If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
End If
rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
@@ -1466,7 +1522,7 @@ Public Class cFakturierung
'ORIGINAL
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf"
Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf"
'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
@@ -1489,9 +1545,9 @@ Public Class cFakturierung
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr")
Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
Mail.Display()
Catch ex As Exception
@@ -1764,7 +1820,7 @@ Public Class cFakturierung
'ORIGINAL
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf"
Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & RechnungsNr & ".pdf"
'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben
' MsgBox("RechnungsdruckArt2: " & If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)))
@@ -1795,9 +1851,9 @@ Public Class cFakturierung
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr")
Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
Mail.Display()
Catch ex As Exception

26
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -325,7 +325,31 @@ Public Class frmAbrechnungsMaske
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
If r.Cells("Art").Value <> "0" Then
MsgBox("Nur bei Einzelrechnung")
Exit Sub
End If
Next
If MyDatagridview1.SelectedRows.Count = 1 Then
Try
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(MyDatagridview1.SelectedRows(0).Cells("RK_ID").Value)
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.SpeditionsbuchUnterNr)
If SPEDBUCH IsNot Nothing Then
Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, True)
f.ShowDialog(Me)
End If
'merge PDFs path
initDGV()
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Mail-Fensters!" & vbNewLine & vbNewLine & ex.StackTrace & ex.Message)
End Try
ElseIf MyDatagridview1.SelectedRows.Count > 1 Then
If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail angefügt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
Dim list As New List(Of String) ' Sammlung PDFs

39
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -124,6 +124,8 @@ Partial Public Class rptRechnungDruck
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -207,6 +209,8 @@ Partial Public Class rptRechnungDruck
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label43, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -893,7 +897,7 @@ Partial Public Class rptRechnungDruck
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17})
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA})
Me.ReportFooter1.Height = 1.590551!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
@@ -1077,18 +1081,18 @@ Partial Public Class rptRechnungDruck
"r-set: 1"
Me.lblAnlagenUeberschrift.Text = "Anlage:"
Me.lblAnlagenUeberschrift.Top = 1.433071!
Me.lblAnlagenUeberschrift.Width = 1.155512!
Me.lblAnlagenUeberschrift.Width = 0.676378!
'
'txtAnlagen
'
Me.txtAnlagen.Height = 0.1574803!
Me.txtAnlagen.Left = 1.229922!
Me.txtAnlagen.Left = 0.7094489!
Me.txtAnlagen.Name = "txtAnlagen"
Me.txtAnlagen.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.txtAnlagen.Text = "ATC1812345678"
Me.txtAnlagen.Top = 1.433071!
Me.txtAnlagen.Width = 6.211024!
Me.txtAnlagen.Width = 3.668504!
'
'Line6
'
@@ -1450,6 +1454,29 @@ Partial Public Class rptRechnungDruck
Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4"
'
'txtHandlingATA
'
Me.txtHandlingATA.Height = 0.1574803!
Me.txtHandlingATA.Left = 5.054331!
Me.txtHandlingATA.Name = "txtHandlingATA"
Me.txtHandlingATA.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.txtHandlingATA.Text = "ATC1812345678"
Me.txtHandlingATA.Top = 1.433071!
Me.txtHandlingATA.Width = 2.324409!
'
'lblHandlingATA
'
Me.lblHandlingATA.Height = 0.1574803!
Me.lblHandlingATA.HyperLink = Nothing
Me.lblHandlingATA.Left = 4.377953!
Me.lblHandlingATA.Name = "lblHandlingATA"
Me.lblHandlingATA.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.lblHandlingATA.Text = "Handling:"
Me.lblHandlingATA.Top = 1.433071!
Me.lblHandlingATA.Width = 0.676378!
'
'rptRechnungDruck
'
Me.MasterReport = False
@@ -1556,6 +1583,8 @@ Partial Public Class rptRechnungDruck
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label43, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -1664,4 +1693,6 @@ Partial Public Class rptRechnungDruck
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

59
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class usrCntlFaktAbrechnung
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -60,6 +61,7 @@ Partial Class usrCntlFaktAbrechnung
Me.lblRechnungsDatum = New System.Windows.Forms.Label()
Me.lblRechnungsNummer = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label52 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label49 = New System.Windows.Forms.Label()
Me.Label48 = New System.Windows.Forms.Label()
@@ -141,7 +143,8 @@ Partial Class usrCntlFaktAbrechnung
Me.Label33 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label()
Me.ToolTip = New System.Windows.Forms.ToolTip()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -194,14 +197,14 @@ Partial Class usrCntlFaktAbrechnung
Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -611,6 +614,8 @@ Partial Class usrCntlFaktAbrechnung
'Panel1
'
Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.rtbHandling)
Me.Panel1.Controls.Add(Me.Label52)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.pnlAvisierer)
Me.Panel1.Controls.Add(Me.cboAnlage5)
@@ -658,6 +663,17 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel1.Size = New System.Drawing.Size(830, 1130)
Me.Panel1.TabIndex = 1
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(549, 938)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(56, 13)
Me.Label52.TabIndex = 43
Me.Label52.Text = "ATA-Nr.:"
Me.Label52.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.White
@@ -1668,6 +1684,17 @@ Partial Class usrCntlFaktAbrechnung
Me.Label28.Text = "Besonderheiten für Verrechung:"
Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'rtbHandling
'
Me.rtbHandling.Location = New System.Drawing.Point(552, 954)
Me.rtbHandling.MaxLineLength = -1
Me.rtbHandling.MaxLines_Warning = ""
Me.rtbHandling.MaxLines_Warning_Label = Nothing
Me.rtbHandling.Name = "rtbHandling"
Me.rtbHandling.Size = New System.Drawing.Size(268, 61)
Me.rtbHandling.TabIndex = 44
Me.rtbHandling.Text = ""
'
'txtPositionAnzahl
'
Me.txtPositionAnzahl._DateTimeOnly = False
@@ -1836,10 +1863,10 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboAnlage5.FormattingEnabled = True
Me.cboAnlage5.Location = New System.Drawing.Point(423, 974)
Me.cboAnlage5.Location = New System.Drawing.Point(280, 974)
Me.cboAnlage5.MaxLength = 35
Me.cboAnlage5.Name = "cboAnlage5"
Me.cboAnlage5.Size = New System.Drawing.Size(398, 21)
Me.cboAnlage5.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage5.TabIndex = 32
'
'cboAnlage1
@@ -1853,7 +1880,7 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage1.Location = New System.Drawing.Point(10, 954)
Me.cboAnlage1.MaxLength = 35
Me.cboAnlage1.Name = "cboAnlage1"
Me.cboAnlage1.Size = New System.Drawing.Size(397, 21)
Me.cboAnlage1.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage1.TabIndex = 28
'
'txtWarenwertUmrechnung
@@ -1891,7 +1918,7 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage2.Location = New System.Drawing.Point(10, 974)
Me.cboAnlage2.MaxLength = 35
Me.cboAnlage2.Name = "cboAnlage2"
Me.cboAnlage2.Size = New System.Drawing.Size(397, 21)
Me.cboAnlage2.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage2.TabIndex = 29
'
'cboAnlage3
@@ -1905,7 +1932,7 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage3.Location = New System.Drawing.Point(10, 994)
Me.cboAnlage3.MaxLength = 35
Me.cboAnlage3.Name = "cboAnlage3"
Me.cboAnlage3.Size = New System.Drawing.Size(397, 21)
Me.cboAnlage3.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage3.TabIndex = 30
'
'txtVermerk
@@ -1938,10 +1965,10 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboAnlage6.FormattingEnabled = True
Me.cboAnlage6.Location = New System.Drawing.Point(423, 994)
Me.cboAnlage6.Location = New System.Drawing.Point(280, 994)
Me.cboAnlage6.MaxLength = 35
Me.cboAnlage6.Name = "cboAnlage6"
Me.cboAnlage6.Size = New System.Drawing.Size(398, 21)
Me.cboAnlage6.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage6.TabIndex = 33
'
'cboAnlage4
@@ -1952,10 +1979,10 @@ Partial Class usrCntlFaktAbrechnung
Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboAnlage4.FormattingEnabled = True
Me.cboAnlage4.Location = New System.Drawing.Point(423, 954)
Me.cboAnlage4.Location = New System.Drawing.Point(280, 954)
Me.cboAnlage4.MaxLength = 35
Me.cboAnlage4.Name = "cboAnlage4"
Me.cboAnlage4.Size = New System.Drawing.Size(398, 21)
Me.cboAnlage4.Size = New System.Drawing.Size(266, 21)
Me.cboAnlage4.TabIndex = 31
'
'txtErfassungsnummer
@@ -2291,7 +2318,7 @@ Partial Class usrCntlFaktAbrechnung
Me.txtRechnungAnName2._WaehrungZeichen = True
Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black
Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56)
Me.txtRechnungAnName2.MaxLength = 35
Me.txtRechnungAnName2.MaxLength = 40
Me.txtRechnungAnName2.MaxLineLength = -1
Me.txtRechnungAnName2.MaxLines_Warning = ""
Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing
@@ -2479,7 +2506,7 @@ Partial Class usrCntlFaktAbrechnung
Me.txtRechnungAnOrt._WaehrungZeichen = True
Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black
Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94)
Me.txtRechnungAnOrt.MaxLength = 35
Me.txtRechnungAnOrt.MaxLength = 52
Me.txtRechnungAnOrt.MaxLineLength = -1
Me.txtRechnungAnOrt.MaxLines_Warning = ""
Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing
@@ -2502,7 +2529,7 @@ Partial Class usrCntlFaktAbrechnung
Me.txtRechnungAnStrasse._WaehrungZeichen = True
Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black
Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75)
Me.txtRechnungAnStrasse.MaxLength = 35
Me.txtRechnungAnStrasse.MaxLength = 40
Me.txtRechnungAnStrasse.MaxLineLength = -1
Me.txtRechnungAnStrasse.MaxLines_Warning = ""
Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing
@@ -3478,4 +3505,6 @@ Partial Class usrCntlFaktAbrechnung
Friend WithEvents cbxOriginalPrint As CheckBox
Friend WithEvents Button13 As Button
Friend WithEvents Button1 As Button
Friend WithEvents Label52 As Label
Friend WithEvents rtbHandling As VERAG_PROG_ALLGEMEIN.MyRichTextBox
End Class

90
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -8,7 +8,7 @@ Public Class usrCntlFaktAbrechnung
Dim FUNC As New cProgramFunctions
Dim FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public SAVED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde
@@ -277,6 +277,8 @@ Public Class usrCntlFaktAbrechnung
cboAnlage5.Text = If(RECHNUNG.Anlage_5, "")
cboAnlage6.Text = If(RECHNUNG.Anlage_6, "")
rtbHandling.Text = If(RECHNUNG.Handling, "")
If RECHNUNG.Vorkasse Then
lblVorauskasse.Text = "JA"
Else
@@ -1368,6 +1370,16 @@ Public Class usrCntlFaktAbrechnung
'RECHNUNG.EMailRechnungstext = SPEDBUCH.XXXXXXXX
RECHNUNG.AvisoID = SPEDBUCH.AvisoID
If SPEDBUCH.SendungID IsNot Nothing AndAlso IsNumeric(SPEDBUCH.SendungID) AndAlso SPEDBUCH.SendungID > 0 Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID)
SND.LOAD_HANDLING()
RECHNUNG.Handling = ""
If SND.HANDLING IsNot Nothing Then
For Each s In SND.HANDLING
RECHNUNG.Handling &= If(RECHNUNG.Handling = "", "", vbNewLine) & s.sndhdg_nr
Next
End If
End If
cboRechnungAn.Focus()
@@ -1618,6 +1630,9 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Anlage_5 = cProgramFunctions.isLeerNothing(cboAnlage5.Text) '!!!!
RECHNUNG.Anlage_6 = cProgramFunctions.isLeerNothing(cboAnlage6.Text) '!!!!
RECHNUNG.Handling = cProgramFunctions.isLeerNothing(rtbHandling.Text)
'RECHNUNG.SteuerpflichtigerGesamtbetrag = cProgramFunctions.isLeerNothing(steuer.text)
'RECHNUNG.SteuerfreierGesamtbetrag = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
@@ -1727,19 +1742,20 @@ Public Class usrCntlFaktAbrechnung
Next
Call przSVSRVS() ' SVS/RVS errechnen
Call przSVSRVS(RECHNUNG) ' SVS/RVS errechnen
' Call przSKR() ' SKR errechnen
Call przVL() ' Vorlageprovision errechnen
Call przKapitalbereitstellung() 'Kapitalbereitstellung errechnen
'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
Call przVL(RECHNUNG) ' Vorlageprovision errechnen
Call przKapitalbereitstellung(RECHNUNG) 'Kapitalbereitstellung errechnen
' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen
Call przKA() ' Kreditaufwendungen errechnen
Call przFixeTaxe() ' Fixe Taxe errechnen
Call przPP() ' Porto/Papiere errechnen
Call przKA(RECHNUNG) ' Kreditaufwendungen errechnen
RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrungUmrechnung._value)
Call przFixeTaxe(RECHNUNG) ' Fixe Taxe errechnen
Call przPP(RECHNUNG) ' Porto/Papiere errechnen
Call przBS415() ' Bankspesen errechnen
Call przBS415(RECHNUNG) ' Bankspesen errechnen
'Me![SteuerpflichtigerGesamtbetrag] = 0.0#
'Me![SteuerfreierGesamtbetrag] = 0.0#
@@ -1762,13 +1778,13 @@ Public Class usrCntlFaktAbrechnung
End Sub
Private Sub przVL()
Shared Sub przVL(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Vorlageprovision errechnen
Dim curVLPreis As Double
Dim Vorlageprovision_Berechnungbetrag As Double = 0
If Not leistungExistsInPos(700, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 700, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If If(RECHNUNG.Vorlageprovision_Proz, 0) = 0 Then Exit Sub 'keine Vorlageprovision
If RECHNUNG.[Vorkasse] Then Exit Sub 'Vorkasse
@@ -1805,13 +1821,13 @@ Public Class usrCntlFaktAbrechnung
End Sub
Private Sub przKapitalbereitstellung()
Shared Sub przKapitalbereitstellung(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Vorlageprovision % WIRD VERWENDET!!
Dim curVLPreis As Double
Dim Vorlageprovision_Berechnungbetrag As Double = 0
If Not leistungExistsInPos(751, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 751, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If If(RECHNUNG.Vorlageprovision_Proz, 0) = 0 Then Exit Sub 'keine Vorlageprovision
If RECHNUNG.[Vorkasse] Then Exit Sub 'Vorkasse
@@ -2140,10 +2156,9 @@ Public Class usrCntlFaktAbrechnung
End Try
End Sub
Private Sub przBS415()
' Banküberweisung/Bankspesen berechnen
Shared Sub przBS415(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Banküberweisung/Bankspesen berechnen
Dim BS415 As Double = 0.0
' Dim Bankspesen_DT As DataTable = SQL.loadDgvBySql("SELECT isnull(Kunden.[Bankspesen %],0) as BankspesenProz, Kunden.[Bankspesen Mindestbetrag] FROM Kunden WHERE KundenNr=" & RECHNUNG.RechnungsKundenNr & "", "FMZOLL")
@@ -2170,7 +2185,7 @@ Public Class usrCntlFaktAbrechnung
End If
If BS415 = 0 Then Exit Sub
If Not leistungExistsInPos(415, 1) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 415, 1) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
'Sucht, ob BS415 schon vorhanden ist,...
@@ -2183,18 +2198,18 @@ Public Class usrCntlFaktAbrechnung
BS415POS.LeistungsBez = "Überweisung/Bankspesen"
'RECHNUNG.POSITIONEN.Add(BS415POS)
BS415POS.Anzahl = 1
BS415POS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * BS415
BS415POS.Preis = getVorzeichen(RECHNUNG) * BS415
initSteuerbetraege(RECHNUNG, BS415POS)
End If
'...und der Wert gesetzt.
End Sub
Private Sub przFixeTaxe()
Shared Sub przFixeTaxe(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
Dim FixeTaxe_Berechnungbetrag As Double = 0
' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet.
Dim FixeTaxe As Double = 0.0
If Not leistungExistsInPos(440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
For Each POS In RECHNUNG.POSITIONEN
@@ -2204,7 +2219,6 @@ Public Class usrCntlFaktAbrechnung
Next
If FixeTaxe_Berechnungbetrag <> 0 Then
RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrungUmrechnung._value)
If FixeTaxe_Berechnungbetrag < 0 Then
FixeTaxe_Berechnungbetrag *= -1
End If
@@ -2258,24 +2272,25 @@ Public Class usrCntlFaktAbrechnung
' RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
'...und der Wert gesetzt.
FixeTaxePOS.Anzahl = 1
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * FixeTaxe
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxe
initSteuerbetraege(RECHNUNG, FixeTaxePOS)
End If
End Sub
Function getVorzeichen(Vorzeichen) As Integer
Shared Function getVorzeichen(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Integer
Return 1
Return If(RECHNUNG.Vorzeichen = "-", -1, 1)
End Function
Private Sub przKA()
Shared Sub przKA(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet.
Dim Kreditaufwendungen As Double = 0.0
If Not leistungExistsInPos(750, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 750, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
' Dim Bankspesen_DT As DataTable = SQL.loadDgvBySql("SELECT isnull(Kunden.[Bankspesen %],0) as BankspesenProz, Kunden.[Bankspesen Mindestbetrag] FROM Kunden WHERE KundenNr=" & RECHNUNG.RechnungsKundenNr & "", "FMZOLL")
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr)
@@ -2318,13 +2333,13 @@ Public Class usrCntlFaktAbrechnung
'...und der Wert gesetzt.
KreditaufwendungenPOS.Anzahl = 1
KreditaufwendungenPOS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * Kreditaufwendungen
KreditaufwendungenPOS.Preis = getVorzeichen(RECHNUNG) * Kreditaufwendungen
initSteuerbetraege(RECHNUNG, KreditaufwendungenPOS)
End If
End Sub
Sub initSteuerbetraege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef POS As VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
Shared Sub initSteuerbetraege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef POS As VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
POS.Steuerpflichtig = 0
POS.SteuerfreierBetrag = 0
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
@@ -2341,7 +2356,7 @@ Public Class usrCntlFaktAbrechnung
POS.SteuerfreierBetrag *= vorzeichen
End Sub
Private Sub przPP()
Shared Sub przPP(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Berechnung Porto/Papiere
Dim PapirePorti_Berechnungbetrag As Double = 0
@@ -2352,7 +2367,7 @@ Public Class usrCntlFaktAbrechnung
Exit Sub
End If
If Not leistungExistsInPos(440) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 440) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
For Each POS In RECHNUNG.POSITIONEN
If POS.LeistungsNr <> 440 Then
@@ -2386,7 +2401,7 @@ Public Class usrCntlFaktAbrechnung
End Sub
Private Sub przSKR()
Shared Sub przSKR(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
@@ -2428,7 +2443,7 @@ Public Class usrCntlFaktAbrechnung
End Sub
Function leistungExistsInPos(LeistungsNr, Optional BerechnungsartNr = Nothing)
Shared Function leistungExistsInPos(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsNr As Integer, Optional BerechnungsartNr As Object = Nothing)
Return True
For Each POS In RECHNUNG.POSITIONEN
@@ -2439,7 +2454,7 @@ Public Class usrCntlFaktAbrechnung
Return False
End Function
Private Sub przSVSRVS()
Shared Sub przSVSRVS(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr)
@@ -2448,7 +2463,7 @@ Public Class usrCntlFaktAbrechnung
Dim SVSRVS_Berechnungbetrag As Double = 0
Dim SVSRVS As Double = 0
If Not leistungExistsInPos(260) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 260) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
'For Each POS In RECHNUNG.POSITIONEN
' If POS.LeistungsNr <> 260 Then
@@ -3350,14 +3365,15 @@ Nächste_Textzeile_lesen:
'inkludierte Pos ermitteln
Dim BerechnungsartPosInkludiert = 0
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If r.Cells("BerechnungsartNr").Value = 1 AndAlso r.Cells("BerechnungsartPosInkludiert").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value) Then
BerechnungsartPosInkludiert = If(IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value), r.Cells("BerechnungsartPosInkludiert").Value, 0)
If r.Cells("BerechnungsartNr").Value = 1 AndAlso r.Cells("BerechnungsartPosInkludiert").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value) AndAlso CInt(r.Cells("BerechnungsartPosInkludiert").Value) > 0 Then
BerechnungsartPosInkludiert = CInt(r.Cells("BerechnungsartPosInkludiert").Value)
Exit For
End If
Next
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If r.Cells("BerechnungsartNr").Value = 10 Then
'MsgBox(PosAnzahl - BerechnungsartPosInkludiert)
r.Cells("Anzahl").Value = PosAnzahl - BerechnungsartPosInkludiert
If r.Cells("Anzahl").Value < 0 Then r.Cells("Anzahl").Value = 0
End If
@@ -3369,4 +3385,8 @@ Nächste_Textzeile_lesen:
loadZOLL()
loadBerechnungsArt_jePosition()
End Sub
Private Sub cboAnlage1_MouseWheel(sender As Object, e As MouseEventArgs) Handles cboAnlage6.MouseWheel, cboAnlage5.MouseWheel, cboAnlage4.MouseWheel, cboAnlage3.MouseWheel, cboAnlage2.MouseWheel, cboAnlage1.MouseWheel
End Sub
End Class

4
SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb generated
View File

@@ -218,8 +218,8 @@ Partial Public Class rptDispoHaftListe
Me.txtAnmerkung.Height = 0.1669291!
Me.txtAnmerkung.Left = 1.588977!
Me.txtAnmerkung.Name = "txtAnmerkung"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: normal; text-align: left; vertic" &
"al-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Text = Nothing
Me.txtAnmerkung.Top = 0.1874016!
Me.txtAnmerkung.Width = 3.561024!

22
SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb generated
View File

@@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -109,6 +110,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -203,7 +205,7 @@ Partial Public Class rptLaufzettelZollDE
'
'txtPosNr
'
Me.txtPosNr.Height = 0.1669292!
Me.txtPosNr.Height = 0.3858268!
Me.txtPosNr.Left = 0.6149607!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
@@ -296,7 +298,7 @@ Partial Public Class rptLaufzettelZollDE
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -649,6 +651,18 @@ Partial Public Class rptLaufzettelZollDE
Me.txtDW.Top = 1.210236!
Me.txtDW.Width = 2.468111!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775603!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3})
@@ -663,7 +677,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox3.Left = 0.4314961!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessane Frist von mehr als 8 Ta" &
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" &
"gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!"
Me.TextBox3.Top = 0.08700788!
Me.TextBox3.Width = 7.18504!
@@ -727,6 +741,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
@@ -783,4 +798,5 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

20
SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb generated
View File

@@ -51,6 +51,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeVerpfl = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Shape16 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape9 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -98,6 +99,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -253,7 +255,7 @@ Partial Public Class rptVerpflichtungserklaerung
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 5.05!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -471,6 +473,18 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox7.Top = 3.827!
Me.TextBox7.Width = 6.99291!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775591!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape16, Me.Shape9, Me.TextBox10, Me.Shape10, Me.TextBox11, Me.Shape11, Me.TextBox12, Me.Shape12, Me.TextBox13, Me.Shape13, Me.TextBox14, Me.Shape14, Me.TextBox15, Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.Shape15, Me.TextBox18, Me.txtFraechter, Me.txtLKWKennz, Me.txtFahrername, Me.txtPassnummer, Me.txtWohnort, Me.txtMobilTel, Me.txtAvisoId, Me.txtDatumOrt})
@@ -668,7 +682,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox18.Left = 0.4456677!
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox18.Text = "VERAG LKW-Id:"
Me.TextBox18.Text = "LKW-Id:"
Me.TextBox18.Top = 3.384251!
Me.TextBox18.Width = 7.034646!
'
@@ -793,6 +807,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
@@ -873,4 +888,5 @@ Partial Public Class rptVerpflichtungserklaerung
Private WithEvents Shape6 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

46
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb generated
View File

@@ -20,22 +20,24 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
@@ -75,16 +77,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.txtColli.Top = 0.05196851!
Me.txtColli.Width = 0.4437006!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.Height = 0.1669292!
@@ -116,6 +108,28 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.TextBox3.Top = 0.05196851!
Me.TextBox3.Width = 0.406693!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition"
Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.lblSieheFremdspedition.Text = "siehe Fremdspedition"
Me.lblSieheFremdspedition.Top = 0.2188977!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'subRptLaufzettelZollDE_ATA
'
Me.MasterReport = False
@@ -137,6 +151,7 @@ Partial Public Class subRptLaufzettelZollDE_ATA
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -145,7 +160,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Private WithEvents picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

53
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb
View File

@@ -4,42 +4,53 @@ Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATA
Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
Dim Fremdspedition As Boolean
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
picBarcodeATAMRN.Visible = False
txtATAMRN.Text = ""
If Fremdspedition Then
lblSieheFremdspedition.Visible = True
TextBox3.Visible = False
TextBox1.Visible = False
txtColli.Visible = False
txtGewicht.Visible = False
End If
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = Me.Fields.Item("Colli").Value & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = Me.Fields.Item("Gewicht").Value & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb
View File

@@ -22,9 +22,7 @@
End Sub
Private Sub Label38_Click(sender As Object, e As EventArgs) Handles Label38.Click, Label2.Click, Label1.Click
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)

49
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb generated
View File

@@ -47,6 +47,9 @@ Partial Class frmFormulare
Me.btnPrint = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.pnlBottom.SuspendLayout()
@@ -210,6 +213,9 @@ Partial Class frmFormulare
'pnlBottom
'
Me.pnlBottom.BackColor = System.Drawing.Color.White
Me.pnlBottom.Controls.Add(Me.Label8)
Me.pnlBottom.Controls.Add(Me.txtEmail)
Me.pnlBottom.Controls.Add(Me.Label7)
Me.pnlBottom.Controls.Add(Me.Label6)
Me.pnlBottom.Controls.Add(Me.cboTextKonserveSprache)
Me.pnlBottom.Controls.Add(Me.Label5)
@@ -344,6 +350,46 @@ Partial Class frmFormulare
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(943, 7)
Me.txtEmail.MaxLength = 200
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(191, 20)
Me.txtEmail.TabIndex = 30
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(889, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 29
Me.Label7.Text = "E-Mail:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(889, 31)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(48, 13)
Me.Label8.TabIndex = 31
Me.Label8.Text = "Drucker:"
'
'frmFormulare
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -388,4 +434,7 @@ Partial Class frmFormulare
Friend WithEvents cboTextKonserveSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents cboTextkonserve As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
End Class

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

@@ -714,6 +714,9 @@ Public Class frmFormulare
End If
Next
Next
If name = "txtEmail" Then
Me.txtEmail.Text = value
End If
End Sub
Sub KDNR_CHANGED(kdnr)
@@ -936,7 +939,7 @@ Public Class frmFormulare
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
'End If
@@ -1506,6 +1509,7 @@ Public Class FormularManagerNEU
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
' rpt.txtPosNr.Text &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
If anmerkung <> "" Then
rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
rpt.txtAnmerkung.Text = Regex.Replace(rpt.txtAnmerkung.Text, "\r\n$", String.Empty)
@@ -1543,10 +1547,12 @@ Public Class FormularManagerNEU
rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim
Dim NCTS_VZAdr = ""
NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
NCTS_VZAdr &= vbNewLine
If SND.tblSnd_NCTSaufDISPO Then
NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
NCTS_VZAdr &= vbNewLine
End If
If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " "
' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")
@@ -1638,14 +1644,11 @@ Public Class FormularManagerNEU
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = ""
Try
Dim rpt As New rptLaufzettelZollDE
rpt.txtLKW.Text = AVISO.LKW_Nr
rpt.txtLKWId.Text = AVISO.AvisoID
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
Else
@@ -1679,6 +1682,15 @@ Public Class FormularManagerNEU
rpt.txtFraechter.Text = AVISO.Auftraggeber
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
Case "FRONTOFFICE"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmeninfo_rontoffice.Visible = True
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SBG" : ort = "Bad Reichenhall"
@@ -1725,141 +1737,142 @@ Public Class FormularManagerNEU
'MsgBox(tb.Rows.Count)
rpt.DataSource = tb
Dim fiskal_bool = False
Dim fiskal_bool = False
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
If SND.tblSnd_Fremdspedition Then
rpt.txtAbfertigungsart.Text = "FREMD"
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
If SND.tblSnd_Fremdspedition Then
rpt.txtAbfertigungsart.Text = "FREMD"
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
rpt.txtPosNr.Text &= vbnewline & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
If SND.tblSnd_Abfertigungsart_ID > 0 Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung"
Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr."
Case 26, 28
rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
fiskal_bool = True
Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
End Select
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
If SND.tblSnd_Abfertigungsart_ID > 0 Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung"
Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr."
Case 26, 28
rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
fiskal_bool = True
Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
End Select
Else
rpt.txtAbfertigungsart.Text = "-"
End If
rpt.txtAbfertigungsart.Text = "-"
End If
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
End Select
rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim
rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim
Dim NCTS_VZAdr = ""
NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
NCTS_VZAdr &= vbNewLine
If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " "
' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")
Dim NCTS_VZAdr = ""
NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
NCTS_VZAdr &= vbNewLine
If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " "
' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")
rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim ATAMRN = ""
SND.LOAD_HANDLING()
Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim ATAMRN = ""
SND.LOAD_HANDLING()
If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then
If SND.HANDLING.Count > 0 Then
ATAMRN_List = SND.HANDLING
If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then
If SND.HANDLING.Count > 0 Then
ATAMRN_List = SND.HANDLING
' Else
' ATAMRN = SND.tblSnd_ATANr
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
' End If
'Else
' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
End If
' Else
' ATAMRN = SND.tblSnd_ATANr
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
' End If
'Else
' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
End If
End If
If ATAMRN_List.Count = 0 Then
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
If ATAMRN_List.Count = 0 Then
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
End If
ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
End If
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List)
rpt.SubReport.Report = SubRpt
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition)
rpt.SubReport.Report = SubRpt
rpt.txtAnmerkung.Visible = False
rpt.txtAnmerkung.Visible = False
'If ATAMRN_List.Count = 0 Then
'If ATAMRN_List.Count = 0 Then
' rpt.txtAnmerkung.Text = ""
' Dim colliGewicht = ""
' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
' rpt.txtAnmerkung.Visible = True
'Else
' rpt.txtAnmerkung.Visible = False
'End If
' rpt.txtAnmerkung.Text = ""
' Dim colliGewicht = ""
' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
' rpt.txtAnmerkung.Visible = True
'Else
' rpt.txtAnmerkung.Visible = False
'End If
End Sub
End Sub
AddHandler rpt.Detail.BeforePrint, Sub()
rpt.Shape8.Height = rpt.Detail.Height
rpt.Shape10.Height = rpt.Detail.Height
rpt.Shape11.Height = rpt.Detail.Height
End Sub
AddHandler rpt.Detail.BeforePrint, Sub()
rpt.Shape8.Height = rpt.Detail.Height
rpt.Shape10.Height = rpt.Detail.Height
rpt.Shape11.Height = rpt.Detail.Height
End Sub
If printReportElsePDF Then 'NUR DRUCK!!
rpt.Run(False)
If printReportElsePDF Then 'NUR DRUCK!!
rpt.Run(False)
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Print((printername = ""), False)
rpt.Dispose()
Else
rpt.Document.Print((printername = ""), False)
rpt.Dispose()
Else
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
rpt.Dispose()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return tmpPath
End Function
@@ -2076,6 +2089,10 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
rpt.picVERAG.Image = My.Resources.Atilla
Case "FRONTOFFICE"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmeninfo_rontoffice.Visible = True
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SBG" : ort = "Bad Reichenhall"
@@ -2574,6 +2591,10 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
If usrCntl.cbxLKWWartet.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
End If
@@ -2584,21 +2605,45 @@ Public Class FormularManagerNEU
'End If
End If
Dim destPath = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Case "IMEX", "UNISPED"
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Case Else
Select Case usrCntl.cboFirma._value
Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
Case "CS" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
End Select
End Select
Try
If destPath <> "" Then
If usrCntl.SENDUNG IsNot Nothing AndAlso usrCntl.AVISO IsNot Nothing Then
If vbYes = MsgBox("Soll das Vorauskasse-PDF zu den Sendungs-Anhängen hinzugefügt werden?", vbYesNo) Then
saveToDS(usrCntl.AVISO.AvisoID, "Vorauskasse.pdf", destPath, "Vorauskasse", "PDF", ,, , usrCntl.SENDUNG.tblSnd_SendungID)
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
Return destPath
End Function
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id
destPath = DS.GET_TOP1_PATH
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
anhId = ANH.anh_id
Return True
End Function
@@ -3577,10 +3622,19 @@ Public Class FormularManagerNEU
Public Shared Function getUO2() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2(FilialenNr As String) As String
If FilialenNr = "" Then Return getUO2()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)
Case Else : Return ""
End Select
End Function
Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
Try
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(usrCntl.KdNR, Now)

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

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -160,6 +160,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property android_add_contact() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("android-add-contact", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -679,11 +689,12 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ghjj56fghfgfgh5fh() As String
Friend ReadOnly Property FrontOfficeSUB_Horizontal() As System.Drawing.Bitmap
Get
Return ResourceManager.GetString("ghjj56fghfgfgh5fh", resourceCulture)
Dim obj As Object = ResourceManager.GetObject("FrontOfficeSUB_Horizontal", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
@@ -1103,6 +1114,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property person_add() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("person_add", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -2031,7 +2052,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.6 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.9 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

126
SDL/My Project/Resources.resx
View File

@@ -136,6 +136,9 @@
<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="plose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose.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>
@@ -160,9 +163,6 @@
<data name="axxes" 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="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="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>
@@ -175,6 +175,9 @@
<data name="statistik2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -283,6 +286,9 @@
<data name="woelfl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\woelfl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FrontOfficeSUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -325,6 +331,12 @@
<data name="seal2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_GMBH_Logo_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -343,6 +355,9 @@
<data name="pfeil_links" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_links.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>
</data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -370,8 +385,8 @@
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot.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="LKW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -391,24 +406,42 @@
<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="VERAG_AEO_MailSig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="printer21" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="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="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>
</data>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.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="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="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="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>
<data name="sdl_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sdl_ico.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_simple1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -481,6 +514,9 @@
<data name="beleg_rot_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -514,6 +550,9 @@
<data name="statistik_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
@@ -526,18 +565,24 @@
<data name="ids_bg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ids_bg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.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="sicherheit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit.png;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>
<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>
</data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxZoomIn_Enter" 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>
@@ -568,6 +613,9 @@
<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="Version" xml:space="preserve">
<value>1.1.2.9</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>
@@ -604,6 +652,9 @@
<data name="print_rg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="road" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -634,8 +685,8 @@
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="printer21" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -691,61 +742,16 @@
<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>
<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="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="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 name="person_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_AEO_MailSig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG_AEO_MailSig.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>
<data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_GMBH_Logo_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.2.6</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>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.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="plose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose.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>
<data name="ambar_simple1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;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>
</data>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FrontOfficeSUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ghjj56fghfgfgh5fh" xml:space="preserve">
<value />
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/Logo_blue_globe_Horizontal.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 45 KiB

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/CZ.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/HUGO.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/SI.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG.dotx
View File

Binary file not shown.

BIN
SDL/Resources/android-add-contact1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.9 KiB

BIN
SDL/Resources/person_add.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

18
SDL/SDL.vbproj
View File

@@ -1200,6 +1200,12 @@
<Compile Include="kunden\frmKundenChangeMail.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenDatenblatt.Designer.vb">
<DependentUpon>frmKundenDatenblatt.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmKundenDatenblatt.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenKontakteDetails.Designer.vb">
<DependentUpon>frmKundenKontakteDetails.vb</DependentUpon>
</Compile>
@@ -1320,10 +1326,10 @@
<Compile Include="mdm\Bestellung\frmSDLBestellungEintrag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\frmMDMDatenverarbetiung.Designer.vb">
<Compile Include="mdm\frmMDMDatenverarbetiung.Designer.vb">
<DependentUpon>frmMDMDatenverarbetiung.vb</DependentUpon>
</Compile>
<Compile Include="mdm\PLOSE\frmMDMDatenverarbetiung.vb">
<Compile Include="mdm\frmMDMDatenverarbetiung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.Designer.vb">
@@ -2727,6 +2733,9 @@
<EmbeddedResource Include="kunden\frmKundenChangeMail.resx">
<DependentUpon>frmKundenChangeMail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenDatenblatt.resx">
<DependentUpon>frmKundenDatenblatt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenKontakteDetails.resx">
<DependentUpon>frmKundenKontakteDetails.vb</DependentUpon>
</EmbeddedResource>
@@ -2787,7 +2796,7 @@
<EmbeddedResource Include="mdm\Bestellung\frmSDLBestellungEintrag.resx">
<DependentUpon>frmSDLBestellungEintrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\frmMDMDatenverarbetiung.resx">
<EmbeddedResource Include="mdm\frmMDMDatenverarbetiung.resx">
<DependentUpon>frmMDMDatenverarbetiung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.resx">
@@ -3620,6 +3629,8 @@
<ItemGroup>
<Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" />
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
<None Include="Resources\person_add.jpg" />
<None Include="Resources\plose_cz.png" />
<None Include="Resources\plose_it.png" />
<None Include="Resources\Unisped_logo.jpg" />
@@ -3744,6 +3755,7 @@
<None Include="Resources\chimes2.wav" />
<None Include="Resources\ambar_simple1.png" />
<None Include="Resources\FrontOfficeSUB.jpg" />
<None Include="Resources\android-add-contact1.png" />
<Content Include="Resources\GS\gsdll32.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

21
SDL/SMS/frmSendSMS.vb
View File

@@ -54,14 +54,13 @@ Public Class frmSendSMS
End If
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "UNISPED"
Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End If
End Select
cboLandVorwahl.Items.Clear()
@@ -136,7 +135,7 @@ Public Class frmSendSMS
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONT-OFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
@@ -198,11 +197,13 @@ Public Class frmSendSMS
Sub fillTXT(s)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
Else
txtNachricht.Text = s
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

15
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -63,6 +63,7 @@ Public Class frmNacherfassungNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' "
Case "UNISPED" : sbWhere = " AND Mandant = 'UNAT' "
Case Else
'If AVISO IsNot Nothing Then
' Select Case AVISO.Grenzstelle
@@ -562,13 +563,15 @@ Public Class frmNacherfassungNEU
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} : where = " AND mit_firma IN ('IMEX','BEIDE') "
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : where = " AND mit_firma IN ('UNISPED','BEIDE') "
Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') "
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
Case Else : where = " AND mit_firma <> 'IMEX' "
Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') "
End Select
' cboQuickStopMa.fillWithSQL("SELECT ID,cast(ID as nvarchar(3)) +' ' + Name as Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True)
cboQuickStopMa.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & where & " order by name", False, "ADMIN", True)
" FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & where & " order by name", False, "ADMIN", True)
'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL")
@@ -584,6 +587,12 @@ Public Class frmNacherfassungNEU
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE"
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.changeItem("D")
Case "IMEX"
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
@@ -596,7 +605,7 @@ Public Class frmNacherfassungNEU
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.SelectedIndex = 0
End Select
cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EMPF"))
cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Endempfänger", "ENDEMPF"))

4
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -354,7 +354,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True)
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE}
cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
cboFiliale.Enabled = False
@@ -374,7 +374,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboBestLand.fillWithSQL("SELECT LandKz, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", True, "FMZOLL", True)
MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", , "FMZOLL")
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' ORDER BY FilialenNr ", , "FMZOLL")
Else
lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL")

6
SDL/cProgramFunctions.vb
View File

@@ -177,7 +177,8 @@ Public Class cProgramFunctions
If Filiale = 4801 Then
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
Else
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat109] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat101] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat84] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
@@ -317,7 +318,8 @@ Public Class cProgramFunctions
Try
Dim srch = KundenNr & "%"
Dim docid As String = ""
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat128] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat205] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat128] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat114] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat99] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat88] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")

19
SDL/cSqlDb.vb
View File

@@ -1782,6 +1782,25 @@ Public Class kundenSQL
Return False
End Function
Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
cmd.ExecuteNonQuery()
Return True
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return False
End Function
Public Function setPartnerKdNrFromFMZOLL(ByVal columnName As String, ByVal value As Object, ByVal AdressenNr As String) As Boolean
Dim sql = "UPDATE Adressen " &
" SET [" & columnName & "]=@value " &

2
SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb
View File

@@ -843,7 +843,7 @@ Public Class frmKassenbuchSuche
Dim sqlStr = ""
sqlStr &= " SELECT Benutzer,Name, Konto, Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo "
sqlStr &= " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer "
sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & If(Now.Month = 1, Now.Year - 1, Now.Year) & "' and konto=KassenbuchNr "
sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ(Now) & "' and konto=KassenbuchNr "
If MyComboBox1._value <> "" Then sqlStr &= " AND rksv_id=" & MyComboBox1._value & " "
If MyComboBox2._value <> "" Then sqlStr &= " AND tblKassenbuch.Niederlassung ='" & MyComboBox2._value & "'"
sqlStr &= " group by Benutzer,Name, Konto order by Name"

1
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -325,6 +325,7 @@ Public Class frmBelegNeu
If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1"
If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1"
If PERSONAL.Niederlassung = "IME" Then where = "Preislisten_visibleIMEX = 1"
If PERSONAL.Mandant = "FO" Then where = "Preislisten_visibleFRONTOFFICE = 1"
If PERSONAL.isLeihgeldkasse Then

20
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -2,7 +2,7 @@
Public Class frmKassenbuch
Dim SQL As New SQL
Public GESCHAEFTSJAHR As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ(Now) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Dim PERSONAL As cPersonal
Dim PERSONAL_LG As cPersonal = Nothing
' Dim PERSONAL_TMP_MASTER_KASSSE As cPersonal
@@ -52,6 +52,10 @@ Public Class frmKassenbuch
End If
End Function
Private Sub frmKassenbuch_Load(sender As Object, e As EventArgs) Handles Me.Load
GESCHAEFTSJAHR = cRKSV.getGJ(Now)
If PERSONAL.ID = 274 Then master_Kasse = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then
Button6.Visible = True
@@ -385,7 +389,7 @@ Public Class frmKassenbuch
Case Else
End Select
Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' iif (von.Month = 1, von.Year - 1, von.Year)
Dim sum = 0
rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString
rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR
@@ -409,7 +413,7 @@ Public Class frmKassenbuch
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) ''IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
' rpt.lblKonto.Text = SQL.getValueTxtBySql("SELECT CASE WHEN COUNT(distinct(konto))>1 THEN 'div.' ELSE CONVERT(VARCHAR(4),MAX(konto)) END as Konto, SUM(soll)as Soll, SUM(haben) as Haben FROM [tblKassenbuch] " &
@@ -471,7 +475,7 @@ Public Class frmKassenbuch
End If
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(Now) ' IIf(von.Month = 1, von.Year - 1, von.Year)
' rpt.DataSource = SQL.loadDgvBySql("SELECT MIN(JournalNr)as JournalNr, MAX(BelegDat)as BelegDat,MAX(Buchungsdatum)as Buchungsdatum,MAX(belegNr) as BelegNr, (SELECT top 1 t.Buchungstext FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Buchungstext,(SELECT top 1 t.konto FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Konto, SUM(Soll) as Soll,SUM(haben) as Haben " &
' "FROM [tblKassenbuch] WHERE CAST(Buchungsdatum as date) BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Benutzer=" & PERSONAL.ID & " group by BelegNr", "FMZOLL") 'cProgramFunctions.dgridViewTods(dgvBelegPos)
@@ -540,7 +544,7 @@ Public Class frmKassenbuch
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
rpt.lblKonto.Text = rpt.Fields.Item("Konto").Value()
@@ -612,7 +616,7 @@ Public Class frmKassenbuch
End If
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim where = ""
Dim benutzerTMP = ""
@@ -1138,7 +1142,7 @@ Public Class frmKassenbuch
Case Else
End Select
Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim sum = 0
rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString
rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR
@@ -1164,7 +1168,7 @@ Public Class frmKassenbuch
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuText.Text = rpt.Fields.Item("Buchungstext").Value()

2
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -565,7 +565,7 @@ Public Class frmNacherfassungLeihgeld
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing)
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing)
' rpt.Document.CacheToDisk = True
'rpt.Document.CacheToDiskLocation = "C:\\Temp"
' rpt.Run()

3
SDL/kassenbuch/frmSecureLoginKassenbuch.vb
View File

@@ -95,6 +95,7 @@ Public Class frmSecureLoginKassenbuch
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : where = " AND Niederlassung = 'SUA' "
Case "IMEX" : where = " AND Mandant = 'IMEX' "
Case "FRONTOFFICE" : where = " AND Mandant = 'FO' "
Case Else
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_LOGIN", Me) Then
where = " AND Niederlassung <> 'SUA' "
@@ -146,7 +147,7 @@ Public Class frmSecureLoginKassenbuch
Dim sqlstr = "SELECT Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo " &
" FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " &
" WHERE tblKassenbuch.Mandant='" & PERSONAL_tmp.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL_tmp.Niederlassung & "' " &
" And tblKassenbuch.Benutzer=" & PERSONAL_tmp.ID & " AND tblKassenbuch.Geschäftsjahr=" & IIf(Now.Month = 1, Now.Year - 1, Now.Year) & " AND tblKassenbuch.Konto=" & PERSONAL_tmp.KassenbuchNr & ""
" And tblKassenbuch.Benutzer=" & PERSONAL_tmp.ID & " AND tblKassenbuch.Geschäftsjahr=" & cRKSV.getGJ(Now) & " AND tblKassenbuch.Konto=" & PERSONAL_tmp.KassenbuchNr & ""
Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
Label6.Text = CDbl(If(dt.Rows.Count > 0, cSqlDb.checkNullReturnValue(dt.Rows(0)("Saldo"), 0), 0)).ToString("C")

19
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -35,6 +35,12 @@
where = " AND FilialenNr IN (5501) "
Case "ATILLA"
where = " AND FilialenNr IN (4801) "
Case "UNISPED"
where = " AND FilialenNr IN (5601) "
Case "AMBAR"
where = " AND FilialenNr IN (5701) "
Case "FRONTOFFICE"
where = " AND FilialenNr IN (5801) "
Case Else
where = " AND FilialenNr NOT IN (5501) "
End Select
@@ -47,12 +53,21 @@
Case "ATILLA"
cboFiliale._allowedValuesFreiText = {"4801"}
cboFiliale.changeItem("4801")
Case "UNISPED"
cboFiliale._allowedValuesFreiText = {"5601"}
cboFiliale.changeItem("5601")
Case "AMBAR"
cboFiliale._allowedValuesFreiText = {"5701"}
cboFiliale.changeItem("5701")
Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801")
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
btnMonat.PerformClick()
btnSuche.PerformClick()

372
SDL/kunden/frmKundenDatenblatt.Designer.vb generated Normal file
View File

@@ -0,0 +1,372 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmKundenDatenblatt
Inherits System.Windows.Forms.Form
'Das Formular ü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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenDatenblatt))
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtSonstiges = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAnzahlMA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAnzahlLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAvisierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGrenzen = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGueter = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGrolsskunden = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtBestimmungslandEU = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtBrggeber = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtRoute = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl.Location = New System.Drawing.Point(13, 13)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(61, 17)
Me.lbl.TabIndex = 0
Me.lbl.Text = "KUNDE"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 109)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 26)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Route:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Straße, Fähre, Bahn)"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(13, 154)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(93, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Bürgschaftsgeber:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(13, 199)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(119, 13)
Me.Label3.TabIndex = 9
Me.Label3.Text = "Bestimmungsländer EU:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(13, 244)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(115, 26)
Me.Label4.TabIndex = 11
Me.Label4.Text = "Großkunden:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Absender, Empfänger)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(13, 289)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(36, 13)
Me.Label5.TabIndex = 13
Me.Label5.Text = "Güter:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(13, 334)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 15
Me.Label6.Text = "Grenzen:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(13, 379)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(122, 39)
Me.Label7.TabIndex = 17
Me.Label7.Text = "Verhalten Avisierung:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Unterlagen, Sortierung, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "sonstige Probleme ...)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(13, 47)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(72, 13)
Me.Label8.TabIndex = 1
Me.Label8.Text = "Anzahl LKW::"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(13, 73)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(94, 13)
Me.Label9.TabIndex = 3
Me.Label9.Text = "Anzahl Mitarbeiter:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(13, 446)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(56, 13)
Me.Label10.TabIndex = 19
Me.Label10.Text = "Sonstiges:"
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(603, 576)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(116, 43)
Me.btn.TabIndex = 21
Me.btn.Text = "Abbrechen"
Me.btn.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(725, 576)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(158, 43)
Me.Button1.TabIndex = 22
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'txtSonstiges
'
Me.txtSonstiges.Location = New System.Drawing.Point(138, 443)
Me.txtSonstiges.MaxLength = 5000
Me.txtSonstiges.MaxLineLength = -1
Me.txtSonstiges.MaxLines_Warning = ""
Me.txtSonstiges.MaxLines_Warning_Label = Nothing
Me.txtSonstiges.Name = "txtSonstiges"
Me.txtSonstiges.Size = New System.Drawing.Size(745, 127)
Me.txtSonstiges.TabIndex = 20
Me.txtSonstiges.Text = ""
'
'txtAnzahlMA
'
Me.txtAnzahlMA._DateTimeOnly = False
Me.txtAnzahlMA._numbersOnly = True
Me.txtAnzahlMA._numbersOnlyKommastellen = "0"
Me.txtAnzahlMA._Prozent = False
Me.txtAnzahlMA._ShortDateNew = False
Me.txtAnzahlMA._ShortDateOnly = False
Me.txtAnzahlMA._TimeOnly = False
Me.txtAnzahlMA._value = ""
Me.txtAnzahlMA._Waehrung = False
Me.txtAnzahlMA._WaehrungZeichen = True
Me.txtAnzahlMA.ForeColor = System.Drawing.Color.Black
Me.txtAnzahlMA.Location = New System.Drawing.Point(138, 70)
Me.txtAnzahlMA.MaxLength = 10
Me.txtAnzahlMA.MaxLineLength = -1
Me.txtAnzahlMA.MaxLines_Warning = ""
Me.txtAnzahlMA.MaxLines_Warning_Label = Nothing
Me.txtAnzahlMA.Name = "txtAnzahlMA"
Me.txtAnzahlMA.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahlMA.TabIndex = 4
'
'txtAnzahlLKW
'
Me.txtAnzahlLKW._DateTimeOnly = False
Me.txtAnzahlLKW._numbersOnly = True
Me.txtAnzahlLKW._numbersOnlyKommastellen = "0"
Me.txtAnzahlLKW._Prozent = False
Me.txtAnzahlLKW._ShortDateNew = False
Me.txtAnzahlLKW._ShortDateOnly = False
Me.txtAnzahlLKW._TimeOnly = False
Me.txtAnzahlLKW._value = ""
Me.txtAnzahlLKW._Waehrung = False
Me.txtAnzahlLKW._WaehrungZeichen = True
Me.txtAnzahlLKW.ForeColor = System.Drawing.Color.Black
Me.txtAnzahlLKW.Location = New System.Drawing.Point(138, 44)
Me.txtAnzahlLKW.MaxLength = 10
Me.txtAnzahlLKW.MaxLineLength = -1
Me.txtAnzahlLKW.MaxLines_Warning = ""
Me.txtAnzahlLKW.MaxLines_Warning_Label = Nothing
Me.txtAnzahlLKW.Name = "txtAnzahlLKW"
Me.txtAnzahlLKW.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahlLKW.TabIndex = 2
'
'txtAvisierung
'
Me.txtAvisierung.Location = New System.Drawing.Point(138, 376)
Me.txtAvisierung.MaxLength = 500
Me.txtAvisierung.MaxLineLength = -1
Me.txtAvisierung.MaxLines_Warning = ""
Me.txtAvisierung.MaxLines_Warning_Label = Nothing
Me.txtAvisierung.Name = "txtAvisierung"
Me.txtAvisierung.Size = New System.Drawing.Size(745, 61)
Me.txtAvisierung.TabIndex = 18
Me.txtAvisierung.Text = ""
'
'txtGrenzen
'
Me.txtGrenzen.Location = New System.Drawing.Point(138, 331)
Me.txtGrenzen.MaxLength = 500
Me.txtGrenzen.MaxLineLength = -1
Me.txtGrenzen.MaxLines_Warning = ""
Me.txtGrenzen.MaxLines_Warning_Label = Nothing
Me.txtGrenzen.Name = "txtGrenzen"
Me.txtGrenzen.Size = New System.Drawing.Size(745, 39)
Me.txtGrenzen.TabIndex = 16
Me.txtGrenzen.Text = ""
'
'txtGueter
'
Me.txtGueter.Location = New System.Drawing.Point(138, 286)
Me.txtGueter.MaxLength = 500
Me.txtGueter.MaxLineLength = -1
Me.txtGueter.MaxLines_Warning = ""
Me.txtGueter.MaxLines_Warning_Label = Nothing
Me.txtGueter.Name = "txtGueter"
Me.txtGueter.Size = New System.Drawing.Size(745, 39)
Me.txtGueter.TabIndex = 14
Me.txtGueter.Text = ""
'
'txtGrolsskunden
'
Me.txtGrolsskunden.Location = New System.Drawing.Point(138, 241)
Me.txtGrolsskunden.MaxLength = 500
Me.txtGrolsskunden.MaxLineLength = -1
Me.txtGrolsskunden.MaxLines_Warning = ""
Me.txtGrolsskunden.MaxLines_Warning_Label = Nothing
Me.txtGrolsskunden.Name = "txtGrolsskunden"
Me.txtGrolsskunden.Size = New System.Drawing.Size(745, 39)
Me.txtGrolsskunden.TabIndex = 12
Me.txtGrolsskunden.Text = ""
'
'txtBestimmungslandEU
'
Me.txtBestimmungslandEU.Location = New System.Drawing.Point(138, 196)
Me.txtBestimmungslandEU.MaxLength = 500
Me.txtBestimmungslandEU.MaxLineLength = -1
Me.txtBestimmungslandEU.MaxLines_Warning = ""
Me.txtBestimmungslandEU.MaxLines_Warning_Label = Nothing
Me.txtBestimmungslandEU.Name = "txtBestimmungslandEU"
Me.txtBestimmungslandEU.Size = New System.Drawing.Size(745, 39)
Me.txtBestimmungslandEU.TabIndex = 10
Me.txtBestimmungslandEU.Text = ""
'
'txtBrggeber
'
Me.txtBrggeber.Location = New System.Drawing.Point(138, 151)
Me.txtBrggeber.MaxLength = 500
Me.txtBrggeber.MaxLineLength = -1
Me.txtBrggeber.MaxLines_Warning = ""
Me.txtBrggeber.MaxLines_Warning_Label = Nothing
Me.txtBrggeber.Name = "txtBrggeber"
Me.txtBrggeber.Size = New System.Drawing.Size(745, 39)
Me.txtBrggeber.TabIndex = 8
Me.txtBrggeber.Text = ""
'
'txtRoute
'
Me.txtRoute.Location = New System.Drawing.Point(138, 106)
Me.txtRoute.MaxLength = 500
Me.txtRoute.MaxLineLength = -1
Me.txtRoute.MaxLines_Warning = ""
Me.txtRoute.MaxLines_Warning_Label = Nothing
Me.txtRoute.Name = "txtRoute"
Me.txtRoute.Size = New System.Drawing.Size(745, 39)
Me.txtRoute.TabIndex = 6
Me.txtRoute.Text = ""
'
'frmKundenDatenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(895, 633)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtSonstiges)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txtAnzahlMA)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtAnzahlLKW)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtAvisierung)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtGrenzen)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtGueter)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtGrolsskunden)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtBestimmungslandEU)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtBrggeber)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtRoute)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenDatenblatt"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Kundendatenblatt Zusatz"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtRoute As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents txtBrggeber As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtBestimmungslandEU As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtGrolsskunden As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label4 As Label
Friend WithEvents txtGueter As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label5 As Label
Friend WithEvents txtGrenzen As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label6 As Label
Friend WithEvents txtAvisierung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents txtAnzahlLKW As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAnzahlMA As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As Label
Friend WithEvents txtSonstiges As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label10 As Label
Friend WithEvents btn As Button
Friend WithEvents Button1 As Button
End Class

0
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx → SDL/kunden/frmKundenDatenblatt.resx
View File

60
SDL/kunden/frmKundenDatenblatt.vb Normal file
View File

@@ -0,0 +1,60 @@
Public Class frmKundenDatenblatt
Dim KundenNr As Integer
Dim KD_DB As VERAG_PROG_ALLGEMEIN.cKundenDatenblatt
Sub New(KundenNr)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.KundenNr = KundenNr
End Sub
Sub getValues()
KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
KD_DB.kdb_KundenNr = KundenNr
KD_DB.kdb_route = txtRoute.Text
KD_DB.kdb_buergschaftsgeber = txtBrggeber.Text
KD_DB.kdb_anzahlLKW = txtAnzahlLKW.Text
KD_DB.kdb_anzahlMA = txtAnzahlMA.Text
KD_DB.kdb_bestimmungslandEU = txtBestimmungslandEU.Text
KD_DB.kdb_grosskunden = txtGrolsskunden.Text
KD_DB.kdb_gueter = txtGueter.Text
KD_DB.kdb_grenzen = txtGrenzen.Text
KD_DB.kdb_verhaltenAvisierung = txtAvisierung.Text
KD_DB.kdb_sonstiges = txtSonstiges.Text
End Sub
Sub setValues()
txtRoute.Text = If(KD_DB.kdb_route, "")
txtBrggeber.Text = If(KD_DB.kdb_buergschaftsgeber, "")
txtAnzahlLKW.Text = If(KD_DB.kdb_anzahlLKW, "")
txtAnzahlMA.Text = If(KD_DB.kdb_anzahlMA, "")
txtBestimmungslandEU.Text = If(KD_DB.kdb_bestimmungslandEU, "")
txtGrolsskunden.Text = If(KD_DB.kdb_grosskunden, "")
txtGueter.Text = If(KD_DB.kdb_gueter, "")
txtGrenzen.Text = If(KD_DB.kdb_grenzen, "")
txtAvisierung.Text = If(KD_DB.kdb_verhaltenAvisierung, "")
txtSonstiges.Text = If(KD_DB.kdb_sonstiges, "")
End Sub
Private Sub frmKundenDatenblatt_Load(sender As Object, e As EventArgs) Handles Me.Load
KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
lbl.Text = AD.Ordnungsbegriff
setValues()
End Sub
Sub saveME()
getValues()
If KD_DB.SAVE() Then Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
saveME()
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.Close()
End Sub
End Class

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

@@ -42,6 +42,7 @@ Partial Class frmKundenUebersichtZOLL
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbStatistik = New System.Windows.Forms.TabPage()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnUbersicht = New System.Windows.Forms.Button()
Me.Label27 = New System.Windows.Forms.Label()
Me.dgvFilialen = New System.Windows.Forms.DataGridView()
@@ -137,6 +138,7 @@ 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.cbx = New System.Windows.Forms.CheckBox()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -272,6 +274,7 @@ Partial Class frmKundenUebersichtZOLL
'tbStatistik
'
Me.tbStatistik.BackColor = System.Drawing.Color.White
Me.tbStatistik.Controls.Add(Me.Button1)
Me.tbStatistik.Controls.Add(Me.btnUbersicht)
Me.tbStatistik.Controls.Add(Me.Label27)
Me.tbStatistik.Controls.Add(Me.dgvFilialen)
@@ -304,14 +307,26 @@ Partial Class frmKundenUebersichtZOLL
Me.tbStatistik.TabIndex = 3
Me.tbStatistik.Text = "Statikstik"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.SDL.My.Resources.Resources.list
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(237, 287)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(225, 44)
Me.Button1.TabIndex = 170
Me.Button1.Text = "Zusatzblatt"
Me.Button1.UseVisualStyleBackColor = True
'
'btnUbersicht
'
Me.btnUbersicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUbersicht.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.btnUbersicht.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUbersicht.Location = New System.Drawing.Point(9, 287)
Me.btnUbersicht.Location = New System.Drawing.Point(6, 287)
Me.btnUbersicht.Name = "btnUbersicht"
Me.btnUbersicht.Size = New System.Drawing.Size(221, 44)
Me.btnUbersicht.Size = New System.Drawing.Size(224, 44)
Me.btnUbersicht.TabIndex = 169
Me.btnUbersicht.Text = "Kundenblatt"
Me.btnUbersicht.UseVisualStyleBackColor = True
@@ -1186,10 +1201,11 @@ Partial Class frmKundenUebersichtZOLL
'
'pnlTop
'
Me.pnlTop.Controls.Add(Me.cbx)
Me.pnlTop.Controls.Add(Me.lblAbfertigungsverbot)
Me.pnlTop.Controls.Add(Me.lblTESTSystem)
Me.pnlTop.Controls.Add(Me.pic)
Me.pnlTop.Controls.Add(Me.KdSearchBox1)
Me.pnlTop.Controls.Add(Me.lblAbfertigungsverbot)
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(114, 0)
Me.pnlTop.Name = "pnlTop"
@@ -1201,7 +1217,7 @@ Partial Class frmKundenUebersichtZOLL
Me.lblTESTSystem.AutoSize = True
Me.lblTESTSystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTESTSystem.ForeColor = System.Drawing.Color.Red
Me.lblTESTSystem.Location = New System.Drawing.Point(484, 8)
Me.lblTESTSystem.Location = New System.Drawing.Point(395, 8)
Me.lblTESTSystem.Name = "lblTESTSystem"
Me.lblTESTSystem.Size = New System.Drawing.Size(128, 17)
Me.lblTESTSystem.TabIndex = 189
@@ -1243,7 +1259,7 @@ Partial Class frmKundenUebersichtZOLL
Me.KdSearchBox1.Name = "KdSearchBox1"
Me.KdSearchBox1.nurAktive = False
Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(608, 30)
Me.KdSearchBox1.Size = New System.Drawing.Size(504, 30)
Me.KdSearchBox1.TabIndex = 211
Me.KdSearchBox1.usrcntl = Nothing
'
@@ -1253,7 +1269,7 @@ Partial Class frmKundenUebersichtZOLL
Me.lblAbfertigungsverbot.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAbfertigungsverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfertigungsverbot.ForeColor = System.Drawing.Color.White
Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(636, 1)
Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(638, 1)
Me.lblAbfertigungsverbot.Name = "lblAbfertigungsverbot"
Me.lblAbfertigungsverbot.Size = New System.Drawing.Size(188, 29)
Me.lblAbfertigungsverbot.TabIndex = 209
@@ -1330,6 +1346,16 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'cbx
'
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(541, 8)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(77, 17)
Me.cbx.TabIndex = 213
Me.cbx.Text = "Alle Firmen"
Me.cbx.UseVisualStyleBackColor = True
'
'frmKundenUebersichtZOLL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1485,4 +1511,6 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents lblTESTSystem As Label
Public WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents usrcntlKundenuebersicht As usrCntlKundenuebersicht
Friend WithEvents Button1 As Button
Friend WithEvents cbx As CheckBox
End Class

16
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -1,13 +1,5 @@
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Reflection
Imports System.Globalization
Imports SDL.EU_Uid_Pruefung
'Imports UID.cMeineFunktionen
'Imports UID.cDbFunctions
Imports SDL.at.gv.bmf.finanzonline
Imports SDL.EORI.validation
Imports SDL.EORI
'Imports Gemeinsames
@@ -1226,5 +1218,13 @@ Public Class frmKundenUebersichtZOLL
End If
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim f As New frmKundenDatenblatt(kdNr)
f.Show()
End Sub
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged
KdSearchBox1._AlleFirmenCLUSTER = cbx.Checked
KdSearchBox1.RESARCH()
End Sub
End Class

34
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb generated
View File

@@ -34,9 +34,11 @@ Partial Class frmKundenZOLLVollmachten
Me.Button1 = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
@@ -52,7 +54,7 @@ Partial Class frmKundenZOLLVollmachten
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(273, 71)
Me.pnl.Size = New System.Drawing.Size(279, 136)
Me.pnl.TabIndex = 1
'
'txtDat
@@ -91,19 +93,20 @@ Partial Class frmKundenZOLLVollmachten
'
'Panel1
'
Me.Panel1.Controls.Add(Me.picPDF)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Location = New System.Drawing.Point(180, 3)
Me.Panel1.Location = New System.Drawing.Point(3, 64)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(40, 33)
Me.Panel1.Size = New System.Drawing.Size(267, 70)
Me.Panel1.TabIndex = 17
Me.Panel1.Visible = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(5, 10)
Me.Button2.Location = New System.Drawing.Point(11, 10)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(134, 25)
Me.Button2.TabIndex = 12
@@ -112,8 +115,8 @@ Partial Class frmKundenZOLLVollmachten
'
'pic
'
Me.pic.Image = Global.SDL.My.Resources.del
Me.pic.Location = New System.Drawing.Point(5, 38)
Me.pic.Image = Global.SDL.My.Resources.Resources.del
Me.pic.Location = New System.Drawing.Point(11, 38)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(20, 20)
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -123,7 +126,7 @@ Partial Class frmKundenZOLLVollmachten
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(-1, 38)
Me.Label2.Location = New System.Drawing.Point(5, 38)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(140, 13)
Me.Label2.TabIndex = 13
@@ -151,7 +154,7 @@ Partial Class frmKundenZOLLVollmachten
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(231, 0)
Me.Button1.Location = New System.Drawing.Point(237, 0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(42, 23)
Me.Button1.TabIndex = 9
@@ -179,11 +182,22 @@ Partial Class frmKundenZOLLVollmachten
Me.lbl.Text = "VOLLMACHT"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'picPDF
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
Me.picPDF.Location = New System.Drawing.Point(210, 10)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(44, 48)
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picPDF.TabIndex = 17
Me.picPDF.TabStop = False
Me.picPDF.Visible = False
'
'frmKundenZOLLVollmachten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(273, 71)
Me.ClientSize = New System.Drawing.Size(279, 136)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -194,6 +208,7 @@ Partial Class frmKundenZOLLVollmachten
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -208,4 +223,5 @@ Partial Class frmKundenZOLLVollmachten
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lbl As Label
Friend WithEvents picPDF As PictureBox
End Class

33
SDL/kunden/frmKundenZOLLVollmachten.vb
View File

@@ -4,6 +4,7 @@
Public erhalten As Boolean = False
Dim id As Integer = -1
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim ksql As New kundenSQL
Sub New(kdnr, vollmachtId, erhalten, datum, id)
Me.InitializeComponent()
@@ -19,8 +20,17 @@
Me.MyComboBox1._value = vollmachtId
Me.cbxErhaltenAm.Checked = erhalten
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX", "FRONTOFFICE"
Panel1.Visible = True
Case Else
Me.Height = Me.Height - Panel1.Height
End Select
If id > 0 Then
pic.Visible = True
picPDF.Image = My.Resources.pdf
Label2.Text = "PDF vorhanden."
Label2.Cursor = Cursors.Hand
End If
@@ -33,7 +43,7 @@
Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
If path <> "" Then
id = DS.da_id 'cDATENSERVER.getLAST_ID(path)
MsgBox(id)
Label2.Text = "PDF vorhanden."
Label2.Cursor = Cursors.Hand
End If
@@ -41,18 +51,25 @@
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
DS.DELETE_COMPLETE()
End If
id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden."
Label2.Cursor = Cursors.WaitCursor
If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
If vbYes = MsgBox("Möchten Sie die Vollamcht wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
DS.DELETE_COMPLETE()
If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then
id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray
End If
End If
End If
Label2.Cursor = Cursors.Default
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Dim ksql As New kundenSQL
If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
Dim datVM As Object = Nothing
If cbxErhaltenAm.Checked Then

2
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
View File

@@ -182,7 +182,7 @@
End Sub
Private Sub usrCntlKundenAvisoMailBenachrichtigung_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then
cbxFreigabe_Steuerbescheid.Visible = False
cboFreigabe_SteuerbescheidBedingung.Visible = False
End If

77
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -138,6 +138,7 @@ Partial Class usrCntlKundenuebersicht
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label38 = New System.Windows.Forms.Label()
Me.txtDebitorennr = New System.Windows.Forms.TextBox()
Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel()
@@ -149,6 +150,7 @@ Partial Class usrCntlKundenuebersicht
Me.lblFirmenname2 = New System.Windows.Forms.TextBox()
Me.lblTESTSystem = New System.Windows.Forms.Label()
Me.grpSonstiges = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
@@ -167,6 +169,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.Label43 = New System.Windows.Forms.Label()
Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox()
@@ -207,9 +210,7 @@ Partial Class usrCntlKundenuebersicht
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.Button2 = New System.Windows.Forms.Button()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.lblFirma = New System.Windows.Forms.Label()
Me.cntxtAddSdl.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.TabPage4.SuspendLayout()
@@ -289,7 +290,7 @@ Partial Class usrCntlKundenuebersicht
Me.lblInaktiv.AutoSize = True
Me.lblInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblInaktiv.ForeColor = System.Drawing.Color.Red
Me.lblInaktiv.Location = New System.Drawing.Point(128, 0)
Me.lblInaktiv.Location = New System.Drawing.Point(219, 0)
Me.lblInaktiv.Name = "lblInaktiv"
Me.lblInaktiv.Size = New System.Drawing.Size(143, 17)
Me.lblInaktiv.TabIndex = 220
@@ -1808,6 +1809,14 @@ Partial Class usrCntlKundenuebersicht
Me.TabPage11.Text = "Spezifisch"
Me.TabPage11.UseVisualStyleBackColor = True
'
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
Me.ucKundenKontakte.TabIndex = 0
'
'Label38
'
Me.Label38.AutoSize = True
@@ -1946,6 +1955,18 @@ Partial Class usrCntlKundenuebersicht
Me.grpSonstiges.TabIndex = 217
Me.grpSonstiges.TabStop = False
'
'Button2
'
Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatAppearance.BorderSize = 0
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(395, 39)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(25, 20)
Me.Button2.TabIndex = 213
Me.Button2.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
@@ -2206,6 +2227,15 @@ Partial Class usrCntlKundenuebersicht
Me.TabPage6.Text = "Aviso E-Mails"
Me.TabPage6.UseVisualStyleBackColor = True
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
'
'TabPage7
'
Me.TabPage7.Controls.Add(Me.Label43)
@@ -2631,40 +2661,24 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem2.Text = "Kopieren"
'
'Button2
'lblFirma
'
Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatAppearance.BorderSize = 0
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(395, 39)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(25, 20)
Me.Button2.TabIndex = 213
Me.Button2.UseVisualStyleBackColor = True
'
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
Me.ucKundenKontakte.TabIndex = 0
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
Me.lblFirma.AutoSize = True
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFirma.ForeColor = System.Drawing.Color.Red
Me.lblFirma.Location = New System.Drawing.Point(6, 0)
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Size = New System.Drawing.Size(61, 17)
Me.lblFirma.TabIndex = 222
Me.lblFirma.Text = "VERAG"
Me.lblFirma.Visible = False
'
'usrCntlKundenuebersicht
'
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.lblFirma)
Me.Controls.Add(Me.btnExcel)
Me.Controls.Add(Me.lblInaktiv)
Me.Controls.Add(Me.Label30)
@@ -2910,4 +2924,5 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents Button10 As Button
Friend WithEvents Button2 As Button
Friend WithEvents lblFirma As Label
End Class

98
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -110,8 +110,8 @@ Public Class usrCntlKundenuebersicht
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
Select Case BER_STUFE
Case 99 : Me.FindForm.Close() : Exit Sub
End Select
Case 99 : Me.FindForm.Close() : Exit Sub
End Select
End If
@@ -255,6 +255,7 @@ Public Class usrCntlKundenuebersicht
initDGVOffertenSperrliste()
initSperre()
RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
tbKontakt_TabIndexChanged(tbKontakt, New EventArgs)
@@ -310,6 +311,12 @@ Public Class usrCntlKundenuebersicht
' Me.dataAdapterFirma.Fill(Me.dataFirma)
conn.Close()
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
Else
lblFirma.Visible = False
End If
' Me.dataFirma.AcceptChanges()
' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
@@ -605,7 +612,10 @@ Public Class usrCntlKundenuebersicht
End If
'Alles andere gesperrt
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Case "VERAG"
where &= " AND Firma_ID <> 7"
Case "ATILLA"
@@ -658,16 +668,17 @@ Public Class usrCntlKundenuebersicht
Sub initDGVVollmachten()
With dgvVollmachten
.Columns.Clear()
Dim where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
' Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
'End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
End If
.DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where &
" ORDER BY art.kdvma_id", "FMZOLL")
' .RowTemplate.Height = 30
.Columns("kdvm_Id").Visible = False
.Columns("kdvma_Id").Visible = False
@@ -685,6 +696,7 @@ Public Class usrCntlKundenuebersicht
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
If True Then
Dim c As New DataGridViewImageColumn
@@ -707,7 +719,8 @@ Public Class usrCntlKundenuebersicht
End If
If False Then
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
@@ -717,6 +730,18 @@ Public Class usrCntlKundenuebersicht
.Columns.Add(c)
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX"
.Columns("clmnTherefore").Visible = False
.Columns("clmnPDF").Visible = True
Case "FRONTOFFICE"
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case Else
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = False
End Select
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
r.DefaultCellStyle.ForeColor = Color.Gray
@@ -726,12 +751,12 @@ Public Class usrCntlKundenuebersicht
r.DefaultCellStyle.ForeColor = Color.Red
End If
If False Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
If True Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
End If
End If
Next
Next
End With
End Sub
@@ -740,12 +765,6 @@ Public Class usrCntlKundenuebersicht
With dgvGestGarantie
.Columns.Clear()
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
End Select
.DataSource = VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.LOAD_LIST(kdNr)
If .Columns.Count = 0 Then Exit Sub
@@ -992,7 +1011,7 @@ Public Class usrCntlKundenuebersicht
Sub initDGVOffenePosten()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Case "IMEX" : initDGVOffenePostenIMEX()
Case Else : initDGVOffenePostenVERAG()
End Select
@@ -1282,31 +1301,30 @@ Public Class usrCntlKundenuebersicht
Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
Dim tmprowindex As Integer = e.RowIndex
If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnPDF" Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
DS.OPEN_SINGLE(True)
End If
Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_VM_bearbeiten", "SDL") Then
If tmprowindex < 0 Then Exit Sub
Dim frmGrayOut = cProgramFunctions.grayoutForm(Me)
Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
If tmprowindex < 0 Then Exit Sub
Dim frmGrayOut = cProgramFunctions.grayoutForm(Me)
Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
End If
frmGrayOut.Close()
End If
frmGrayOut.Close()
End If
Exit Sub
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
DS.OPEN_SINGLE(True)
End If
End Sub

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

@@ -3833,6 +3833,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxFiBu
'
Me.cbxFiBu.AutoSize = True
Me.cbxFiBu.Enabled = False
Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiBu.Location = New System.Drawing.Point(400, 503)
Me.cbxFiBu.Name = "cbxFiBu"
@@ -3844,6 +3845,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxFiBuLG
'
Me.cbxFiBuLG.AutoSize = True
Me.cbxFiBuLG.Enabled = False
Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524)
Me.cbxFiBuLG.Name = "cbxFiBuLG"

2
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1075,6 +1075,8 @@ Public Class usrcntlKundeBearbeitenFull
Dim selCheck = True
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
cbxFiBu.Enabled = cboFiliale._value <> ""
cbxFiBuLG.Enabled = cboFiliale._value <> ""
If selCheck Then
cbxFiBu.Checked = (cboFirma._value <> "")
End If

712
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated
View File

@@ -24,11 +24,17 @@ Partial Public Class rptPLOSE_Anhang
Me.txtBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
@@ -41,52 +47,52 @@ Partial Public Class rptPLOSE_Anhang
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTGEsSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,34 +105,28 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -198,6 +198,61 @@ Partial Public Class rptPLOSE_Anhang
Me.txtMWST.Top = 0!
Me.txtMWST.Width = 0.9169284!
'
'txtLand
'
Me.txtLand.Height = 0.1212599!
Me.txtLand.HyperLink = Nothing
Me.txtLand.Left = 0.01023622!
Me.txtLand.Name = "txtLand"
Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLand.Text = "IT"
Me.txtLand.Top = 0!
Me.txtLand.Width = 0.1980315!
'
'txtDatum
'
Me.txtDatum.Height = 0.1212599!
Me.txtDatum.HyperLink = Nothing
Me.txtDatum.Left = 0.2082677!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtDatum.Text = "01.01.2019"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.5102363!
'
'txtKartennummer
'
Me.txtKartennummer.Height = 0.1212599!
Me.txtKartennummer.HyperLink = Nothing
Me.txtKartennummer.Left = 1.781496!
Me.txtKartennummer.Name = "txtKartennummer"
Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKartennummer.Text = "Kartennummer"
Me.txtKartennummer.Top = 1.862645E-9!
Me.txtKartennummer.Width = 0.9913387!
'
'txtEingang
'
Me.txtEingang.Height = 0.1212599!
Me.txtEingang.HyperLink = Nothing
Me.txtEingang.Left = 2.771654!
Me.txtEingang.Name = "txtEingang"
Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEingang.Text = "Eingang"
Me.txtEingang.Top = 0!
Me.txtEingang.Width = 1.062992!
'
'txtAusgang
'
Me.txtAusgang.Height = 0.1212599!
Me.txtAusgang.HyperLink = Nothing
Me.txtAusgang.Left = 3.834646!
Me.txtAusgang.Name = "txtAusgang"
Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtAusgang.Text = "Ausgang"
Me.txtAusgang.Top = 0!
Me.txtAusgang.Width = 1.062992!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2})
@@ -233,17 +288,29 @@ Partial Public Class rptPLOSE_Anhang
Me.ReportHeader1.Height = 1.065354!
Me.ReportHeader1.Name = "ReportHeader1"
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 4.897638!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.7110237!
Me.lblRgDatum.Width = 2.572441!
'
'txtKunde
'
Me.txtKunde.Height = 0.1574803!
Me.txtKunde.HyperLink = Nothing
Me.txtKunde.Left = 4.855512!
Me.txtKunde.Left = 4.896063!
Me.txtKunde.Name = "txtKunde"
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKunde.Text = "1000000 TEST"
Me.txtKunde.Top = 0.868504!
Me.txtKunde.Width = 2.614567!
Me.txtKunde.Width = 2.574016!
'
'Label16
'
@@ -389,18 +456,6 @@ Partial Public Class rptPLOSE_Anhang
Me.Label18.Top = 0.7110237!
Me.Label18.Width = 1.165748!
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 5.511811!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.7110237!
Me.lblRgDatum.Width = 1.958268!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.txtMWSTGEsSum, Me.lblGessumme, Me.Line7, Me.Line8})
@@ -408,6 +463,77 @@ Partial Public Class rptPLOSE_Anhang
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtBruttoGesSum
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
'
'txtNettoGesSum
'
Me.txtNettoGesSum.Height = 0.1417323!
Me.txtNettoGesSum.HyperLink = Nothing
Me.txtNettoGesSum.Left = 4.729524!
Me.txtNettoGesSum.Name = "txtNettoGesSum"
Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoGesSum.Text = "Betrag"
Me.txtNettoGesSum.Top = 0.1098426!
Me.txtNettoGesSum.Width = 0.9169284!
'
'txtMWSTGEsSum
'
Me.txtMWSTGEsSum.Height = 0.1417323!
Me.txtMWSTGEsSum.HyperLink = Nothing
Me.txtMWSTGEsSum.Left = 5.646452!
Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum"
Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTGEsSum.Text = "Betrag"
Me.txtMWSTGEsSum.Top = 0.1098426!
Me.txtMWSTGEsSum.Width = 0.9169284!
'
'lblGessumme
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475196!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475196!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDatum, Me.lblLand, Me.lblBrutto, Me.lblMWST, Me.Line16, Me.lblProdukt, Me.lblNetto, Me.lblKartennummer, Me.lblService})
@@ -415,6 +541,30 @@ Partial Public Class rptPLOSE_Anhang
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'lblDatum
'
Me.lblDatum.Height = 0.1425197!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 0.2082677!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblDatum.Text = "Datum"
Me.lblDatum.Top = 0.008661418!
Me.lblDatum.Width = 0.5102363!
'
'lblLand
'
Me.lblLand.Height = 0.1425197!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0.008661417!
Me.lblLand.Width = 0.3228347!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1425197!
@@ -476,6 +626,30 @@ Partial Public Class rptPLOSE_Anhang
Me.lblNetto.Top = 0.008661418!
Me.lblNetto.Width = 0.7503939!
'
'lblKartennummer
'
Me.lblKartennummer.Height = 0.1425197!
Me.lblKartennummer.HyperLink = Nothing
Me.lblKartennummer.Left = 1.781496!
Me.lblKartennummer.Name = "lblKartennummer"
Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblKartennummer.Text = "Kartennummer"
Me.lblKartennummer.Top = 0.008661418!
Me.lblKartennummer.Width = 0.9901576!
'
'lblService
'
Me.lblService.Height = 0.1425197!
Me.lblService.HyperLink = Nothing
Me.lblService.Left = 2.771654!
Me.lblService.Name = "lblService"
Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblService.Text = "Service"
Me.lblService.Top = 0.008661418!
Me.lblService.Width = 2.125984!
'
'GroupFooter4
'
Me.GroupFooter4.Height = 0!
@@ -492,203 +666,6 @@ Partial Public Class rptPLOSE_Anhang
Me.GroupFooterKat.Height = 0.375!
Me.GroupFooterKat.Name = "GroupFooterKat"
'
'GroupHeaderKz
'
Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen})
Me.GroupHeaderKz.Name = "GroupHeaderKz"
'
'GroupFooterKz
'
Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen})
Me.GroupFooterKz.Name = "GroupFooterKz"
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1425197!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.01417327!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblKennzeichen.Text = "LKW-Kennzeichen:"
Me.lblKennzeichen.Top = 0.05354331!
Me.lblKennzeichen.Width = 1.34252!
'
'txtKennzeichen
'
Me.txtKennzeichen.Height = 0.1425197!
Me.txtKennzeichen.HyperLink = Nothing
Me.txtKennzeichen.Left = 1.356693!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 0.05354331!
Me.txtKennzeichen.Width = 1.34252!
'
'txtLand
'
Me.txtLand.Height = 0.1212599!
Me.txtLand.HyperLink = Nothing
Me.txtLand.Left = 0.01023622!
Me.txtLand.Name = "txtLand"
Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLand.Text = "IT"
Me.txtLand.Top = 0!
Me.txtLand.Width = 0.1980315!
'
'txtDatum
'
Me.txtDatum.Height = 0.1212599!
Me.txtDatum.HyperLink = Nothing
Me.txtDatum.Left = 0.2082677!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtDatum.Text = "01.01.2019"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.5102363!
'
'lblLand
'
Me.lblLand.Height = 0.1425197!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0.008661417!
Me.lblLand.Width = 0.3228347!
'
'lblDatum
'
Me.lblDatum.Height = 0.1425197!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 0.2082677!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblDatum.Text = "Datum"
Me.lblDatum.Top = 0.008661418!
Me.lblDatum.Width = 0.5102363!
'
'lblKartennummer
'
Me.lblKartennummer.Height = 0.1425197!
Me.lblKartennummer.HyperLink = Nothing
Me.lblKartennummer.Left = 1.781496!
Me.lblKartennummer.Name = "lblKartennummer"
Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblKartennummer.Text = "Kartennummer"
Me.lblKartennummer.Top = 0.008661418!
Me.lblKartennummer.Width = 0.9901576!
'
'txtKartennummer
'
Me.txtKartennummer.Height = 0.1212599!
Me.txtKartennummer.HyperLink = Nothing
Me.txtKartennummer.Left = 1.781496!
Me.txtKartennummer.Name = "txtKartennummer"
Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKartennummer.Text = "Kartennummer"
Me.txtKartennummer.Top = 1.862645E-9!
Me.txtKartennummer.Width = 0.9913387!
'
'lblService
'
Me.lblService.Height = 0.1425197!
Me.lblService.HyperLink = Nothing
Me.lblService.Left = 2.771654!
Me.lblService.Name = "lblService"
Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblService.Text = "Service"
Me.lblService.Top = 0.008661418!
Me.lblService.Width = 2.125984!
'
'txtEingang
'
Me.txtEingang.Height = 0.1212599!
Me.txtEingang.HyperLink = Nothing
Me.txtEingang.Left = 2.771654!
Me.txtEingang.Name = "txtEingang"
Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEingang.Text = "Eingang"
Me.txtEingang.Top = 0!
Me.txtEingang.Width = 1.062992!
'
'txtAusgang
'
Me.txtAusgang.Height = 0.1212599!
Me.txtAusgang.HyperLink = Nothing
Me.txtAusgang.Left = 3.834646!
Me.txtAusgang.Name = "txtAusgang"
Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtAusgang.Text = "Ausgang"
Me.txtAusgang.Top = 0!
Me.txtAusgang.Width = 1.062992!
'
'txtBruttoKzSum
'
Me.txtBruttoKzSum.Height = 0.1417323!
Me.txtBruttoKzSum.HyperLink = Nothing
Me.txtBruttoKzSum.Left = 6.56339!
Me.txtBruttoKzSum.Name = "txtBruttoKzSum"
Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKzSum.Text = "Betrag"
Me.txtBruttoKzSum.Top = 0.01968504!
Me.txtBruttoKzSum.Width = 0.9169284!
'
'txtNettoKzSum
'
Me.txtNettoKzSum.Height = 0.1417323!
Me.txtNettoKzSum.HyperLink = Nothing
Me.txtNettoKzSum.Left = 4.729528!
Me.txtNettoKzSum.Name = "txtNettoKzSum"
Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKzSum.Text = "Betrag"
Me.txtNettoKzSum.Top = 0.01968504!
Me.txtNettoKzSum.Width = 0.9169284!
'
'txtMWSTKzSum
'
Me.txtMWSTKzSum.Height = 0.1417323!
Me.txtMWSTKzSum.HyperLink = Nothing
Me.txtMWSTKzSum.Left = 5.646457!
Me.txtMWSTKzSum.Name = "txtMWSTKzSum"
Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKzSum.Text = "Betrag"
Me.txtMWSTKzSum.Top = 0.01968504!
Me.txtMWSTKzSum.Width = 0.9169284!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755906!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0.002755906!
Me.Line4.X2 = 7.477951!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'lblSummeKennzeichen
'
Me.lblSummeKennzeichen.Height = 0.1417323!
Me.lblSummeKennzeichen.HyperLink = Nothing
Me.lblSummeKennzeichen.Left = 3.244882!
Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen"
Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblSummeKennzeichen.Text = "Summe Kennzeichen"
Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645!
'
'txtBruttoKatSum
'
Me.txtBruttoKatSum.Height = 0.1417323!
@@ -747,76 +724,99 @@ Partial Public Class rptPLOSE_Anhang
Me.Line5.Y1 = 0.06102363!
Me.Line5.Y2 = 0.06102363!
'
'txtBruttoGesSum
'GroupHeaderKz
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen})
Me.GroupHeaderKz.Name = "GroupHeaderKz"
'
'txtNettoGesSum
'lblKennzeichen
'
Me.txtNettoGesSum.Height = 0.1417323!
Me.txtNettoGesSum.HyperLink = Nothing
Me.txtNettoGesSum.Left = 4.729524!
Me.txtNettoGesSum.Name = "txtNettoGesSum"
Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoGesSum.Text = "Betrag"
Me.txtNettoGesSum.Top = 0.1098426!
Me.txtNettoGesSum.Width = 0.9169284!
Me.lblKennzeichen.Height = 0.1425197!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.01417327!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblKennzeichen.Text = "LKW-Kennzeichen:"
Me.lblKennzeichen.Top = 0.05354331!
Me.lblKennzeichen.Width = 1.34252!
'
'txtMWSTGEsSum
'txtKennzeichen
'
Me.txtMWSTGEsSum.Height = 0.1417323!
Me.txtMWSTGEsSum.HyperLink = Nothing
Me.txtMWSTGEsSum.Left = 5.646452!
Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum"
Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTGEsSum.Text = "Betrag"
Me.txtMWSTGEsSum.Top = 0.1098426!
Me.txtMWSTGEsSum.Width = 0.9169284!
Me.txtKennzeichen.Height = 0.1425197!
Me.txtKennzeichen.HyperLink = Nothing
Me.txtKennzeichen.Left = 1.356693!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 0.05354331!
Me.txtKennzeichen.Width = 1.34252!
'
'lblGessumme
'GroupFooterKz
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen})
Me.GroupFooterKz.Name = "GroupFooterKz"
'
'txtBruttoKzSum
'
Me.txtBruttoKzSum.Height = 0.1417323!
Me.txtBruttoKzSum.HyperLink = Nothing
Me.txtBruttoKzSum.Left = 6.56339!
Me.txtBruttoKzSum.Name = "txtBruttoKzSum"
Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKzSum.Text = "Betrag"
Me.txtBruttoKzSum.Top = 0.01968504!
Me.txtBruttoKzSum.Width = 0.9169284!
'
'txtNettoKzSum
'
Me.txtNettoKzSum.Height = 0.1417323!
Me.txtNettoKzSum.HyperLink = Nothing
Me.txtNettoKzSum.Left = 4.729528!
Me.txtNettoKzSum.Name = "txtNettoKzSum"
Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKzSum.Text = "Betrag"
Me.txtNettoKzSum.Top = 0.01968504!
Me.txtNettoKzSum.Width = 0.9169284!
'
'txtMWSTKzSum
'
Me.txtMWSTKzSum.Height = 0.1417323!
Me.txtMWSTKzSum.HyperLink = Nothing
Me.txtMWSTKzSum.Left = 5.646457!
Me.txtMWSTKzSum.Name = "txtMWSTKzSum"
Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKzSum.Text = "Betrag"
Me.txtMWSTKzSum.Top = 0.01968504!
Me.txtMWSTKzSum.Width = 0.9169284!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755906!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0.002755906!
Me.Line4.X2 = 7.477951!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'lblSummeKennzeichen
'
Me.lblSummeKennzeichen.Height = 0.1417323!
Me.lblSummeKennzeichen.HyperLink = Nothing
Me.lblSummeKennzeichen.Left = 3.244882!
Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen"
Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475195!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475195!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
Me.lblSummeKennzeichen.Text = "Summe Kennzeichen"
Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645!
'
'rptPLOSE_Anhang
'
@@ -850,7 +850,13 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -863,34 +869,28 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -904,7 +904,7 @@ Partial Public Class rptPLOSE_Anhang
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture

6
SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb
View File

@@ -236,9 +236,9 @@ Public Class frmSDLAbholungEintrag
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" WHEN '214' THEN 'PLOSE' " &
" WHEN '215' THEN 'PLOSE IT' " &
" WHEN '216' THEN 'PLOSE CZ' " &
" WHEN '214' THEN 'ROADMASTER' " &
" WHEN '215' THEN 'IT' " &
" WHEN '216' THEN 'CZ' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '209' THEN 'PL' " &
" WHEN '500' THEN 'ABGASPLAKETTE' " &

2
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
View File

@@ -105,7 +105,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
' txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
txtTelepassNr.Text = SDL.TELEPASS_Nr
txtVIACard.Text = SDL.VIACARD

135
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb → SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -35,6 +35,9 @@ Partial Class frmMDMDatenverarbetiung
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnKunde = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label43 = New System.Windows.Forms.Label()
@@ -45,7 +48,7 @@ Partial Class frmMDMDatenverarbetiung
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPrüfsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button3 = New System.Windows.Forms.Button()
@@ -72,22 +75,24 @@ Partial Class frmMDMDatenverarbetiung
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(1054, 100)
Me.pnl.Size = New System.Drawing.Size(1163, 100)
Me.pnl.TabIndex = 1
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.FlowLayoutPanel.Controls.Add(Me.btn)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(731, 31)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(840, 31)
Me.FlowLayoutPanel.TabIndex = 27
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.Wheat
Me.btn.BackColor = System.Drawing.Color.FloralWhite
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(3, 3)
Me.btn.Name = "btn"
@@ -98,8 +103,9 @@ Partial Class frmMDMDatenverarbetiung
'
'btnDatenLaden
'
Me.btnDatenLaden.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatenLaden.Location = New System.Drawing.Point(876, 37)
Me.btnDatenLaden.Location = New System.Drawing.Point(985, 37)
Me.btnDatenLaden.Name = "btnDatenLaden"
Me.btnDatenLaden.Size = New System.Drawing.Size(166, 57)
Me.btnDatenLaden.TabIndex = 1
@@ -161,10 +167,13 @@ Partial Class frmMDMDatenverarbetiung
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnKunde)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.txtPruefsummeBrutto)
Me.Panel1.Controls.Add(Me.cbx)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.txtPrüfsumme)
Me.Panel1.Controls.Add(Me.txtPruefsummeNetto)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtAnzahl)
Me.Panel1.Controls.Add(Me.Button3)
@@ -172,9 +181,57 @@ Partial Class frmMDMDatenverarbetiung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 677)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1054, 114)
Me.Panel1.Size = New System.Drawing.Size(1163, 114)
Me.Panel1.TabIndex = 2
'
'btnKunde
'
Me.btnKunde.Enabled = False
Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunde.Location = New System.Drawing.Point(461, 16)
Me.btnKunde.Name = "btnKunde"
Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.btnKunde.Size = New System.Drawing.Size(136, 32)
Me.btnKunde.TabIndex = 45
Me.btnKunde.Text = "zum Kundenblatt"
Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunde.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(953, 72)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(92, 13)
Me.Label4.TabIndex = 44
Me.Label4.Text = "Prüfsumme brutto:"
'
'txtPruefsummeBrutto
'
Me.txtPruefsummeBrutto._DateTimeOnly = False
Me.txtPruefsummeBrutto._numbersOnly = False
Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
Me.txtPruefsummeBrutto._Prozent = False
Me.txtPruefsummeBrutto._ShortDateNew = False
Me.txtPruefsummeBrutto._ShortDateOnly = False
Me.txtPruefsummeBrutto._TimeOnly = False
Me.txtPruefsummeBrutto._value = ""
Me.txtPruefsummeBrutto._Waehrung = False
Me.txtPruefsummeBrutto._WaehrungZeichen = True
Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 69)
Me.txtPruefsummeBrutto.MaxLineLength = -1
Me.txtPruefsummeBrutto.MaxLines_Warning = ""
Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeBrutto.TabIndex = 43
Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbx
'
Me.cbx.AutoSize = True
@@ -263,38 +320,42 @@ Partial Class frmMDMDatenverarbetiung
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(855, 46)
Me.Label3.Location = New System.Drawing.Point(953, 46)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(62, 13)
Me.Label3.Size = New System.Drawing.Size(89, 13)
Me.Label3.TabIndex = 38
Me.Label3.Text = "Prüfsumme:"
Me.Label3.Text = "Prüfsumme netto:"
'
'txtPrüfsumme
'txtPruefsummeNetto
'
Me.txtPrüfsumme._DateTimeOnly = False
Me.txtPrüfsumme._numbersOnly = False
Me.txtPrüfsumme._numbersOnlyKommastellen = ""
Me.txtPrüfsumme._Prozent = False
Me.txtPrüfsumme._ShortDateNew = False
Me.txtPrüfsumme._ShortDateOnly = False
Me.txtPrüfsumme._TimeOnly = False
Me.txtPrüfsumme._value = ""
Me.txtPrüfsumme._Waehrung = False
Me.txtPrüfsumme._WaehrungZeichen = True
Me.txtPrüfsumme.ForeColor = System.Drawing.Color.Black
Me.txtPrüfsumme.Location = New System.Drawing.Point(942, 43)
Me.txtPrüfsumme.MaxLineLength = -1
Me.txtPrüfsumme.MaxLines_Warning = ""
Me.txtPrüfsumme.MaxLines_Warning_Label = Nothing
Me.txtPrüfsumme.Name = "txtPrüfsumme"
Me.txtPrüfsumme.Size = New System.Drawing.Size(100, 20)
Me.txtPrüfsumme.TabIndex = 37
Me.txtPruefsummeNetto._DateTimeOnly = False
Me.txtPruefsummeNetto._numbersOnly = False
Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
Me.txtPruefsummeNetto._Prozent = False
Me.txtPruefsummeNetto._ShortDateNew = False
Me.txtPruefsummeNetto._ShortDateOnly = False
Me.txtPruefsummeNetto._TimeOnly = False
Me.txtPruefsummeNetto._value = ""
Me.txtPruefsummeNetto._Waehrung = False
Me.txtPruefsummeNetto._WaehrungZeichen = True
Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 43)
Me.txtPruefsummeNetto.MaxLineLength = -1
Me.txtPruefsummeNetto.MaxLines_Warning = ""
Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeNetto.TabIndex = 37
Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(855, 19)
Me.Label2.Location = New System.Drawing.Point(953, 19)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(42, 13)
Me.Label2.TabIndex = 36
@@ -312,14 +373,16 @@ Partial Class frmMDMDatenverarbetiung
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtAnzahl.Location = New System.Drawing.Point(942, 16)
Me.txtAnzahl.Location = New System.Drawing.Point(1051, 16)
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahl.TabIndex = 35
Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Button3
'
@@ -353,7 +416,8 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 100)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.Size = New System.Drawing.Size(1054, 577)
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
Me.MyDatagridview1.TabIndex = 0
'
'frmMDMDatenverarbetiung
@@ -361,7 +425,7 @@ Partial Class frmMDMDatenverarbetiung
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1054, 791)
Me.ClientSize = New System.Drawing.Size(1163, 791)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
@@ -402,10 +466,13 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
Friend WithEvents Label44 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtPrüfsumme As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPruefsummeNetto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents datPloseAnhang As DateTimePicker
Friend WithEvents Label43 As Label
Friend WithEvents cbx As CheckBox
Friend WithEvents Panel2 As Panel
Friend WithEvents Label4 As Label
Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnKunde As Button
End Class

980
SDL/mdm/frmMDMDatenverarbetiung.resx Normal file
View File

@@ -0,0 +1,980 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

305
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb → SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4,7 +4,8 @@
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Height = My.Computer.Screen.WorkingArea.Height
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
@@ -22,6 +23,9 @@
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
MyDatagridview1.ClearSelection()
Button3.BackColor = Color.White
Button3.ForeColor = Color.Black
@@ -48,7 +52,7 @@
Sub init()
txtAnzahl.Text = ""
txtPrüfsumme.Text = ""
txtPruefsummeNetto.Text = ""
Select Case LIEFERANT
Case "PLOSE" : initDgv_PLOSE()
@@ -167,49 +171,72 @@
group by plose_POLSEKundennummer,plose_ProduktCode
order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL")
.LOAD()
If .Columns.Count > 0 Then
.Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr"
.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
.Columns("plose_Menge").HeaderText = "Menge"
.Columns("plose_Preis").HeaderText = "Preis"
.Columns("plose_NettobetragTransaktion").HeaderText = "Netto"
.Columns("plose_MWSTBetrag").HeaderText = "MWST"
.Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto"
.Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr"
.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
.Columns("plose_Produktbeschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("plose_Menge").HeaderText = "Menge"
.Columns("plose_Preis").HeaderText = "Preis"
.Columns("plose_NettobetragTransaktion").HeaderText = "Netto"
.Columns("plose_MWSTBetrag").HeaderText = "MWST"
.Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto"
'.Columns("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False
'.Columns("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False
'For Each r As DataGridViewColumn In .Columns
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
' r.ReadOnly = False
' Else
' r.ReadOnly = True
' End If
'Next
'For Each r As DataGridViewColumn In .Columns
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
' r.ReadOnly = False
' Else
' r.ReadOnly = True
' End If
'Next
Dim c2 As New DataGridViewTextBoxColumn
c2.Name = "VERAGKdNr"
c2.HeaderText = "VERAG KdNr"
c2.MinimumWidth = 115
.Columns.Insert(1, c2)
Dim c As New DataGridViewTextBoxColumn
c.Name = "VERAGKdNr"
c.HeaderText = "VERAG KdNr"
c.Width = 100
.Columns.Insert(1, c)
Dim c As New DataGridViewTextBoxColumn
c.Name = "VERAGLeistungsNr"
c.HeaderText = "VERAG LeistungsNr."
c.MinimumWidth = 115
.Columns.Insert(5, c)
c = New DataGridViewTextBoxColumn
c.Name = "VERAGLeistungsNr"
c.HeaderText = "VERAG/PLOSE LeistungsNr."
c.Width = 100
.Columns.Insert(2, c)
c = New DataGridViewTextBoxColumn
c.Name = "KundeOffertenNr"
c.HeaderText = "Kunde OffertenNr."
c.Width = 100
.Columns.Insert(3, c)
c = New DataGridViewTextBoxColumn
c.Name = "KundeLeistungsNr"
c.HeaderText = "Kunde LeistungsNr."
c.Width = 100
.Columns.Insert(4, c)
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
Dim sum As Double = 0
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End If
Dim sumBto As Double = 0
Dim sumNto As Double = 0
For Each r As DataGridViewRow In .Rows
sum += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0)
sumBto += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0)
sumNto += If(IsNumeric(r.Cells("plose_NettobetragTransaktion").Value), CDbl(r.Cells("plose_NettobetragTransaktion").Value), 0)
Next
txtAnzahl.Text = .Rows.Count
txtPrüfsumme.Text = sum.ToString("N2")
txtPruefsummeNetto.Text = sumNto.ToString("C2")
txtPruefsummeBrutto.Text = sumBto.ToString("CS2")
.ClearSelection()
End With
End Sub
@@ -236,7 +263,7 @@
Sub genRGAtt_PLOSE()
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL")
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
@@ -251,10 +278,9 @@
For Each R_PLOSE In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH)
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("plose_POLSEKundennummer"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value)
genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH)
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value)
genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
@@ -265,9 +291,21 @@
My.Application.DoEvents()
End If
cnt += 1
Next
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren:
Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\"
If IO.Directory.Exists(dirAnhang) Then 'IO.Directory.Delete(dirAnhang, True)
For Each f In IO.Directory.GetFiles(dirAnhang)
IO.File.Delete(f)
Next
End If
If Not IO.Directory.Exists(dirAnhang) Then IO.Directory.CreateDirectory(dirAnhang)
For Each f In IO.Directory.GetFiles(dir)
IO.File.Copy(f, dirAnhang & (New IO.FileInfo(f)).Name)
Next
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
@@ -276,17 +314,17 @@
End Sub
Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String)
Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String)
Try
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT * "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
sqlstr &= " SELECT AdressenNr,tblPLOSE_Details.*,tblPLOSE_Produktbeschreibung.* "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_FakturiertDatum is null "
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
sqlstr &= " AND AdressenNr = '" & KdNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
' sqlstr &= " group by plose_ProduktCode"
@@ -298,6 +336,7 @@
rpt.DataSource = dt
rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung
@@ -402,7 +441,7 @@
Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf"
Dim tmpPath = dir & "\" & KdNr & "_PLOSE.pdf"
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
@@ -419,7 +458,7 @@
End Function
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
Try
'Dim displayFilter = False
@@ -440,7 +479,7 @@
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Dim OffertenNr = 8
Dim OffertenNr = 80
Dim Abfertigungsart = 10
SPEDBUCH.FilialenNr = 4824
@@ -450,7 +489,7 @@
SPEDBUCH.Vermittler = AD.Ordnungsbegriff
SPEDBUCH.VermittlerKundenNr = KdNr
SPEDBUCH.VermittlerOffertenNr = OffertenNr
SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value
SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value.ToShortDateString
SPEDBUCH.Abfertigungsart = Abfertigungsart
SPEDBUCH.Bar = 0
@@ -458,6 +497,11 @@
SPEDBUCH.AnzahlSonstiges = 1
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.AvisUhrzeit = Nothing
SPEDBUCH.Umrechnungskurs = Nothing
SPEDBUCH.veoerz_basbtg = Nothing
SPEDBUCH.Sicherheitsbetrag = Nothing
SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -470,14 +514,15 @@
End Function
Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, PLOSEKundenNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
Try
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
Dim OffertenNr = 8
Dim OffertenNr = 80
Dim Abfertigungsart = 10
RG.FilialenNr = SPEDBUCH.FilialenNr
@@ -485,7 +530,7 @@
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
RG.UnterNr = RG.getMaxRGUnterNr()
RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
RG.Sammelrechnung = 6 'MAUT/DIESEL
@@ -538,53 +583,73 @@
RG.Firma_ID = 15
RG.Nettozahlungsziel = KD.Zahlungsziel
RG.SteuerpflichtigerGesamtbetrag = ""
RG.SteuerfreierGesamtbetrag = ""
RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0
RG.Status = 0
RG.[Vorkosten] = 0
RG.[Erlös] = 0
RG.[Buchungsjahr] = 0
RG.[Währungscode] = "EUR"
RG.ReErfZeitstempel = Now
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum)
Dim sqlstr As String = ""
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragTransaktion]) as plose_NettobetragTransaktion,sum([plose_MWSTBetrag]) as [plose_MWSTBetrag],sum([plose_BruttobetragTransaktion]) as [plose_BruttobetragTransaktion] "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_FakturiertDatum is null "
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
sqlstr &= " group by plose_POLSEKundennummer,[plp_LeistungsNr]"
sqlstr &= " order by plose_POLSEKundennummer"
sqlstr &= " group by [plp_LeistungsNr]"
sqlstr &= " order by plp_LeistungsNr"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
For Each r In dt.Rows
Dim BLNr = r("plp_LeistungsNr")
Dim BProz = r("plose_BruttobetragTransaktion")
'Dim BProz = r("plose_BruttobetragTransaktion")
Dim Betrag As Double = r("") '""""""!!!!!!!!!!!!!!!!
Dim LeistungsNr As Integer = r("") '""""""!!!!!!!!!!!!!!!!
Dim NettoBetrag As Double = r("plose_NettobetragTransaktion")
Dim BruttoBetrag As Double = r("plose_BruttobetragTransaktion")
Dim LeistungsNr As Integer = r("plp_LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, 8, True)
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
allPlosePos(RG, OFFERTE, LeistungsNr, Betrag)
allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
Next
RG.Steuersatz_Proz = cFakturierung.przRechnungstext(RG)
Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
RG.Steuersatz_Proz = dtSt.Rows(0)(0)
End If
cFakturierung.setGesamtBetraege(RG)
RG.Text = cFakturierung.przRechnungstext(RG)
Return SPEDBUCH.SAVE
' Call usrCntlFaktAbrechnung.przSVSRVS(RG) ' SVS/RVS errechnen
' Call przSKR() ' SKR errechnen
'Call usrCntlFaktAbrechnung.przVL(RG) ' Vorlageprovision errechnen
'Call usrCntlFaktAbrechnung.przKapitalbereitstellung(RG) 'Kapitalbereitstellung errechnen
' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen
' Call usrCntlFaktAbrechnung.przKA(RG) ' Kreditaufwendungen errechnen
Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen
Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen
Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen
Return RG.SAVE
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -593,36 +658,41 @@
End Function
Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double)
Try
For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = LeistungsNr Then
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Preis = Betrag
POS.Preis = BruttoBetrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
POS.BGebBgl = NettoBetrag
If POS.Steuerpflichtig Then
POS.Steuerpflichtig = Betrag
POS.SteuerpflichtigerBetrag = BruttoBetrag
Else
POS.SteuerpflichtigerBetrag = Betrag
POS.SteuerfreierBetrag = BruttoBetrag
End If
POS.BGebLeistungsNr = o.BGebLeistungsNr
POS.BGebProzent = o.BGebProzent
POS.BGebMinBetrag = o.BGebMinBetrag
'POS.BGebBgl = o.bgebbgl ????????????????
RG.POSITIONEN.Add(POS)
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) Then
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, (Betrag * POS.BGebProzent))
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) AndAlso (If(POS.BGebBgl, 0) > 0) Then
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, POS.BGebBgl, POS.BGebProzent)
End If
Return True
@@ -634,26 +704,35 @@
Return False
End Function
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, BGebLeistungsNr As Integer, BGebBgl As Double, BGebProzent As Double)
Try
Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = LeistungsNr Then
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
If o.LeistungsNr = BGebLeistungsNr Then
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Preis = Betrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
'Falls schon vorhanden...
Dim POS = RG.POSITIONEN.Find(Function(x) x.BGebLeistungsNr = BGebLeistungsNr And x.BerechnungsartNr = 9)
If POS Is Nothing Then
POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
POS.SteuerpflichtigerBetrag = 0
POS.SteuerfreierBetrag = 0
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
If POS.Steuerpflichtig Then
POS.Steuerpflichtig = Betrag
Else
POS.SteuerpflichtigerBetrag = Betrag
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Anzahl = 1
End If
POS.Preis += Betrag
If POS.Steuerpflichtig Then
POS.SteuerpflichtigerBetrag += Betrag
Else
POS.SteuerfreierBetrag += Betrag
End If
RG.POSITIONEN.Add(POS)
Return True
@@ -689,13 +768,38 @@
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
End If
Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [VERAG].[dbo].[tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma='PU'", "FMZOLL")
Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma IN ('PSS','PU') ", "FMZOLL")
If VERAGLeistungsNr <> "" Then
r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Dim OffertenNr = SQL.getValueTxtBySql("SELECT TOP 1 OffertenNr FROM [Offerten] where KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80 ", "FMZOLL")
If OffertenNr <> "" Then
r.Cells("KundeOffertenNr").Value = OffertenNr
r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
End If
If VERAGLeistungsNr <> "" Then
Dim KundeLeistungsNr = SQL.getValueTxtBySql("SELECT TOP 1 [LeistungsNr] FROM [Offertenpositionen] where LeistungsNr='" & VERAGLeistungsNr & "' and KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80", "FMZOLL")
If KundeLeistungsNr <> "" Then
r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Next
@@ -704,4 +808,27 @@
pruefData_PLOSE = False
End Try
End Function
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then
If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then
btnKunde.Enabled = True
Else
btnKunde.Enabled = False
End If
End If
End If
End Sub
Private Sub btnKunde_Click(sender As Object, e As EventArgs) Handles btnKunde.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then
If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then
cProgramFunctions.openKundenblatt(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value, Me.FindForm)
End If
End If
End If
End Sub
End Class

4
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -146,6 +146,8 @@ Public Class usrCntlZOLLAuswertungen
cboBrgEZollTC.Items.Clear()
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
cboBrgEZollTC.SelectedIndex = 0
datEZOLL_TC_Von.Value = Now ' d.AddMonths(-3)
@@ -360,7 +362,7 @@ Public Class usrCntlZOLLAuswertungen
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as Gestellungsdatum,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef"

66
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -892,6 +892,15 @@ Public Class cAviso
Property LKW_Nationalitaet As Object = Nothing
Property DakosyRef As Object = Nothing
Property TeamId As Object = Nothing
Property Cluster As Object = Nothing
Property Freigabe_Info As String = ""
Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso
Dim AVISODAL As New cAvisoDAL
Return AVISODAL.LesenAviso(hID, hSQL)
End Function
Sub UPDATE_FahrerHandy(FahrerHandy As String)
@@ -902,6 +911,15 @@ Public Class cAviso
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO")
End Sub
Sub UPDATE_FreigabeInfo(Freigabe_Info As String)
If AvisoID <= 0 Then Exit Sub
Me.Freigabe_Info = Freigabe_Info
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("UPDATE AVISO SET Freigabe_Info='" & Freigabe_Info & "' WHERE AvisoId=" & AvisoID, "AVISO")
End Sub
End Class
Public Class cDruckAviso
@@ -928,7 +946,12 @@ Public Class cAvisoDAL
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
Dim sql As String
If hID > 0 Then
sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID)
sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID)
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "" Then
' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID)
'Else
' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID)
'End If
Else
sql = hSQL
End If
@@ -981,7 +1004,8 @@ Public Class cAvisoDAL
daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet"))
daten.DakosyRef = VarToStr(dr.Item("DakosyRef"))
daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId"))
daten.Cluster = If(dr.Item("Cluster") Is DBNull.Value, Nothing, dr.Item("Cluster"))
daten.Freigabe_Info = VarToStr(dr.Item("Freigabe_Info"))
End If
@@ -1017,7 +1041,19 @@ Public Class cAvisoDAL
Public Function Suche_LKWStatus(LKW_Nr As String) As String
'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
Suche_LKWStatus = ""
Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If firma = "" Then firma = "VERAG"
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
Else
firma = " AND FIRMA='" & firma & "' "
End If
Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) " & firma & " ORDER BY Datum DESC"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1235,17 +1271,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId) VALUES (" &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId); SELECT CAST(scope_identity() AS int);"
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info " &
" WHERE AvisoID = @AvisoID")
End If
@@ -1307,7 +1343,8 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet))
cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef))
cmd.Parameters.AddWithValue("@TeamId", If(d.TeamId Is Nothing, DBNull.Value, d.TeamId))
cmd.Parameters.AddWithValue("@Cluster", If(d.Cluster Is Nothing, DBNull.Value, d.Cluster))
cmd.Parameters.AddWithValue("@Freigabe_Info", d.Freigabe_Info)
Try
@@ -1936,6 +1973,21 @@ Public Class cVermerkeDAL
conn.Close()
End Sub
Public 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()
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
Dim x As String = ""

70
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -31,6 +31,7 @@ Public Class KdSearchBox
Public Property kdNrField As Control = Nothing
Public Property dgvpos As String = "LEFT"
Public Property _autoSizeGross As Boolean = False
Public Property _AlleFirmenCLUSTER As Boolean = False
Public usrcntlWIDTH = 600
Public usrcntlHEIGHT = 380
@@ -65,6 +66,10 @@ Public Class KdSearchBox
End Try
End Sub
Public Sub RESARCH()
KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space))
End Sub
Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
Try
'Console.WriteLine(String.Format("TEEST 01"))
@@ -272,19 +277,38 @@ Public Class KdSearchBox
If _displayAVISO_Email Then
AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] "
End If
Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,[LandKz] + ' ' + [PLZ] + ' - ' + [Ort] + ' ' + [Straße] as Adresse " & AvisoEmail & " FROM [Adressen] "
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
SQLstr &= " WHERE 1=1 "
SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) "
If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) "
If srch2 <> "" Then SQLstr &= " AND ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' ) "
SQLstr &= " AND [Auswahl]='A' "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' "
'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
'Else
' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'End If
If _AlleFirmenCLUSTER Then
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
Else
'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' "
SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') "
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine
' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') "
'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' "
'Else
' 'SQLstr &= " AND isnull(Kunden.[FilialenNr],0)<>'5501' "
' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') "
'End If
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
SQLstr &= " order by Ordnungsbegriff "
@@ -314,19 +338,36 @@ Public Class KdSearchBox
End If
If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden *
Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,[LandKz] + ' ' + [PLZ] + ' - ' + [Ort] + ' ' + [Straße] as Adresse FROM [Adressen] "
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
SQLstr &= " WHERE 1=1 "
SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) "
If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) "
If srch2 <> "" Then SQLstr &= " AND ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' ) "
SQLstr &= " AND [Auswahl]='I' "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' "
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine
' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') "
'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' "
'Else
' 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' "
' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') "
'End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
'Else
' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'End If
If _AlleFirmenCLUSTER Then
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
Else
'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' "
SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') "
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
End If
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
SQLstr &= " order by Ordnungsbegriff "
@@ -360,6 +401,7 @@ Public Class KdSearchBox
If .Columns("Firma") IsNot Nothing AndAlso .Columns("Firma") IsNot DBNull.Value Then .Columns("Firma").Width = 250
If .Columns("Adresse") IsNot Nothing AndAlso .Columns("Adresse") IsNot DBNull.Value Then .Columns("Adresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
If .Columns("E-Mail") IsNot Nothing AndAlso .Columns("E-Mail") IsNot DBNull.Value Then .Columns("E-Mail").Width = 50 : .Columns("E-Mail").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
If .Columns("Firma_Intern") IsNot Nothing AndAlso .Columns("Firma_Intern") IsNot DBNull.Value Then .Columns("Firma_Intern").Width = 60 : .Columns("Firma_Intern").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter : .Columns("Firma_Intern").HeaderText = ""
.ClearSelection()
End With

Some files were not shown because too many files have changed in this diff Show More