Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024
This commit is contained in:
1172
SDL/Classes/cRKSV.vb
1172
SDL/Classes/cRKSV.vb
File diff suppressed because it is too large
Load Diff
@@ -5237,9 +5237,12 @@ Public Class cFakturierung
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerpflichtigerGesamtbetrag)", "")) + CDbl(dt.Compute("SUM(SteuerfreierGesamtbetrag)", ""))
|
||||
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
|
||||
|
||||
Select Case Row("RechnungSprache")
|
||||
Case "EN"
|
||||
Select Case Row("BelegartenKz")
|
||||
Select Case BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
|
||||
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
|
||||
@@ -5252,7 +5255,7 @@ Public Class cFakturierung
|
||||
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
|
||||
End Select
|
||||
Case Else
|
||||
Select Case Row("BelegartenKz")
|
||||
Select Case BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
|
||||
Case "AG"
|
||||
|
||||
@@ -908,6 +908,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
RECHNUNG.Vorkasse = KD.Vorkasse
|
||||
RECHNUNG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
|
||||
RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision
|
||||
RECHNUNG.Vorlageprovision_Mindestbetrag = KD.Vorlageprovision_Mindestbetrag
|
||||
|
||||
If FIRMA IsNot Nothing Then
|
||||
If FIRMA.Firma_ID = 11 Then ' Bei VERAG Customs Service GmbH --> kein Bankeinzug
|
||||
@@ -2351,6 +2352,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
End If
|
||||
RECHNUNG.Kunden_SVS = kdFirmaRechnungAn.KdData_KUNDE.SVS
|
||||
RECHNUNG.Vorlageprovision_Proz = kdFirmaRechnungAn.KdData_KUNDE.Vorlageprovision '!!!!%
|
||||
RECHNUNG.Vorlageprovision_Mindestbetrag = kdFirmaRechnungAn.KdData_KUNDE.Vorlageprovision_Mindestbetrag '!!!!%
|
||||
RECHNUNG.Kreditaufwendungen_Proz = kdFirmaRechnungAn.KdData_KUNDE.Kreditaufwendungen '!!!!%
|
||||
RECHNUNG.Besonderheiten = kdFirmaRechnungAn.KdData_KUNDE.Besonderheiten
|
||||
|
||||
@@ -2594,8 +2596,21 @@ Public Class usrCntlFaktAbrechnung
|
||||
If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Vorlageprovision"
|
||||
'RECHNUNG.POSITIONEN.Add(FindPOS)
|
||||
FindPOS.Anzahl = 1
|
||||
FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
|
||||
'...und der Wert gesetzt.
|
||||
|
||||
Dim Vorlageprov As Double = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2)
|
||||
|
||||
'If Vorlageprov < 0 Then Vorlageprov *= -1
|
||||
|
||||
If Not IsDBNull(RECHNUNG.Vorlageprovision_Mindestbetrag) AndAlso IsNumeric(RECHNUNG.Vorlageprovision_Mindestbetrag) AndAlso CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag) <> 0.00 AndAlso Vorlageprov < CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag) Then
|
||||
FindPOS.Preis = CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag)
|
||||
Else
|
||||
FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2)
|
||||
End If
|
||||
|
||||
'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
|
||||
|
||||
|
||||
|
||||
|
||||
initSteuerbetraege(RECHNUNG, FindPOS)
|
||||
End If
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.4.9.1")>
|
||||
<Assembly: AssemblyFileVersion("1.4.9.1")>
|
||||
<Assembly: AssemblyVersion("1.4.9.7")>
|
||||
<Assembly: AssemblyFileVersion("1.4.9.7")>
|
||||
|
||||
@@ -889,6 +889,12 @@
|
||||
<Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="kunden\frmKundenlogin.Designer.vb">
|
||||
<DependentUpon>frmKundenlogin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="kunden\frmKundenlogin.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="kunden\frmKundenLinkedGruppe.Designer.vb">
|
||||
<DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -955,6 +961,12 @@
|
||||
<Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="kunden\usrCntlKundenlogin.Designer.vb">
|
||||
<DependentUpon>usrCntlKundenlogin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="kunden\usrCntlKundenlogin.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="kunden\usrCntlKundenZollVollmachten.Designer.vb">
|
||||
<DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3518,6 +3530,9 @@
|
||||
<EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
|
||||
<DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\frmKundenlogin.resx">
|
||||
<DependentUpon>frmKundenlogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\frmKundenLinkedGruppe.resx">
|
||||
<DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -3551,6 +3566,9 @@
|
||||
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
|
||||
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\usrCntlKundenlogin.resx">
|
||||
<DependentUpon>usrCntlKundenlogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
|
||||
<DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -192,7 +192,7 @@ Public Class usrCntlUSTV
|
||||
WHERE Kunden.KundenNr = " & KdSearchBox1.KdNr, "FMZOLL")
|
||||
|
||||
|
||||
OPSaldo = CInt((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
|
||||
OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
|
||||
|
||||
calcRisiko = True
|
||||
If dt.Rows.Count = 1 Then
|
||||
|
||||
74
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
74
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
@@ -62,6 +62,8 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblBetreuer = New System.Windows.Forms.Label()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -71,6 +73,8 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.lblBetreuer)
|
||||
Me.Panel1.Controls.Add(Me.cboBetreuer)
|
||||
Me.Panel1.Controls.Add(Me.cbxKontotyp)
|
||||
Me.Panel1.Controls.Add(Me.txtZahlEingaenge)
|
||||
Me.Panel1.Controls.Add(Me.cbxZahlungseingaenge)
|
||||
@@ -88,7 +92,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1427, 127)
|
||||
Me.Panel1.Size = New System.Drawing.Size(1514, 132)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'cbxKontotyp
|
||||
@@ -98,7 +102,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.cbxKontotyp._value = ""
|
||||
Me.cbxKontotyp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cbxKontotyp.FormattingEnabled = True
|
||||
Me.cbxKontotyp.Location = New System.Drawing.Point(529, 96)
|
||||
Me.cbxKontotyp.Location = New System.Drawing.Point(544, 96)
|
||||
Me.cbxKontotyp.Name = "cbxKontotyp"
|
||||
Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
|
||||
Me.cbxKontotyp.TabIndex = 48
|
||||
@@ -120,7 +124,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.txtZahlEingaenge._WaehrungZeichen = False
|
||||
Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtZahlEingaenge.Location = New System.Drawing.Point(675, 78)
|
||||
Me.txtZahlEingaenge.Location = New System.Drawing.Point(690, 78)
|
||||
Me.txtZahlEingaenge.MaxLength = 10
|
||||
Me.txtZahlEingaenge.MaxLineLength = -1
|
||||
Me.txtZahlEingaenge.MaxLines_Warning = ""
|
||||
@@ -135,7 +139,7 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
Me.cbxZahlungseingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cbxZahlungseingaenge.AutoSize = True
|
||||
Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(529, 80)
|
||||
Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(544, 80)
|
||||
Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
|
||||
Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17)
|
||||
Me.cbxZahlungseingaenge.TabIndex = 39
|
||||
@@ -148,7 +152,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.cbxNurFaellig.AutoSize = True
|
||||
Me.cbxNurFaellig.Checked = True
|
||||
Me.cbxNurFaellig.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxNurFaellig.Location = New System.Drawing.Point(529, 56)
|
||||
Me.cbxNurFaellig.Location = New System.Drawing.Point(544, 56)
|
||||
Me.cbxNurFaellig.Name = "cbxNurFaellig"
|
||||
Me.cbxNurFaellig.Size = New System.Drawing.Size(94, 17)
|
||||
Me.cbxNurFaellig.TabIndex = 38
|
||||
@@ -219,7 +223,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(1232, 56)
|
||||
Me.btnSuche.Location = New System.Drawing.Point(1319, 56)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
|
||||
Me.btnSuche.TabIndex = 29
|
||||
@@ -287,7 +291,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1427, 48)
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1514, 48)
|
||||
Me.pnlTop.TabIndex = 4
|
||||
'
|
||||
'Label4
|
||||
@@ -305,9 +309,9 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.MyDatagridview1)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 127)
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 132)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(1427, 562)
|
||||
Me.Panel2.Size = New System.Drawing.Size(1514, 557)
|
||||
Me.Panel2.TabIndex = 1
|
||||
'
|
||||
'MyDatagridview1
|
||||
@@ -323,7 +327,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.MyDatagridview1.ReadOnly = True
|
||||
Me.MyDatagridview1.RowHeadersVisible = False
|
||||
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(1427, 562)
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(1514, 557)
|
||||
Me.MyDatagridview1.TabIndex = 0
|
||||
'
|
||||
'Panel3
|
||||
@@ -350,14 +354,14 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 689)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(1427, 166)
|
||||
Me.Panel3.Size = New System.Drawing.Size(1514, 166)
|
||||
Me.Panel3.TabIndex = 1
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(1109, 144)
|
||||
Me.Label9.Location = New System.Drawing.Point(1196, 144)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(234, 13)
|
||||
Me.Label9.TabIndex = 50
|
||||
@@ -367,7 +371,7 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
Me.cbxMahnsperre.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cbxMahnsperre.AutoSize = True
|
||||
Me.cbxMahnsperre.Location = New System.Drawing.Point(1337, 11)
|
||||
Me.cbxMahnsperre.Location = New System.Drawing.Point(1424, 11)
|
||||
Me.cbxMahnsperre.Name = "cbxMahnsperre"
|
||||
Me.cbxMahnsperre.Size = New System.Drawing.Size(86, 17)
|
||||
Me.cbxMahnsperre.TabIndex = 49
|
||||
@@ -380,7 +384,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMail_Intern.Location = New System.Drawing.Point(1353, 83)
|
||||
Me.btnMail_Intern.Location = New System.Drawing.Point(1440, 83)
|
||||
Me.btnMail_Intern.Name = "btnMail_Intern"
|
||||
Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
|
||||
Me.btnMail_Intern.TabIndex = 48
|
||||
@@ -419,7 +423,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.cbxMahnstufeErh.AutoSize = True
|
||||
Me.cbxMahnstufeErh.Checked = True
|
||||
Me.cbxMahnstufeErh.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1216, 11)
|
||||
Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1303, 11)
|
||||
Me.cbxMahnstufeErh.Name = "cbxMahnstufeErh"
|
||||
Me.cbxMahnstufeErh.Size = New System.Drawing.Size(118, 17)
|
||||
Me.cbxMahnstufeErh.TabIndex = 44
|
||||
@@ -430,7 +434,7 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(1109, 121)
|
||||
Me.Label8.Location = New System.Drawing.Point(1196, 121)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(81, 13)
|
||||
Me.Label8.TabIndex = 42
|
||||
@@ -442,7 +446,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button6.Location = New System.Drawing.Point(1112, 81)
|
||||
Me.Button6.Location = New System.Drawing.Point(1199, 81)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(222, 38)
|
||||
Me.Button6.TabIndex = 40
|
||||
@@ -455,7 +459,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnExcel.Location = New System.Drawing.Point(1353, 30)
|
||||
Me.btnExcel.Location = New System.Drawing.Point(1440, 30)
|
||||
Me.btnExcel.Name = "btnExcel"
|
||||
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
|
||||
Me.btnExcel.TabIndex = 39
|
||||
@@ -514,7 +518,7 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(628, 113)
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(715, 113)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(147, 17)
|
||||
Me.CheckBox1.TabIndex = 33
|
||||
@@ -527,7 +531,7 @@ Partial Class frmBU_Mahnlauf
|
||||
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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(1109, 14)
|
||||
Me.Label3.Location = New System.Drawing.Point(1196, 14)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(101, 13)
|
||||
Me.Label3.TabIndex = 30
|
||||
@@ -552,7 +556,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button2.Image = Global.SDL.My.Resources.Resources.mahn
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(1112, 30)
|
||||
Me.Button2.Location = New System.Drawing.Point(1199, 30)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(222, 45)
|
||||
Me.Button2.TabIndex = 31
|
||||
@@ -588,7 +592,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.MyTextBox2._WaehrungZeichen = False
|
||||
Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(1196, 118)
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(1283, 118)
|
||||
Me.MyTextBox2.MaxLength = 10
|
||||
Me.MyTextBox2.MaxLineLength = -1
|
||||
Me.MyTextBox2.MaxLines_Warning = ""
|
||||
@@ -598,12 +602,34 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.MyTextBox2.TabIndex = 39
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'cboBetreuer
|
||||
'
|
||||
Me.cboBetreuer._allowedValuesFreiText = Nothing
|
||||
Me.cboBetreuer._allowFreiText = False
|
||||
Me.cboBetreuer._value = ""
|
||||
Me.cboBetreuer.FormattingEnabled = True
|
||||
Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
|
||||
Me.cboBetreuer.Name = "cboBetreuer"
|
||||
Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
|
||||
Me.cboBetreuer.TabIndex = 49
|
||||
Me.cboBetreuer.Visible = False
|
||||
'
|
||||
'lblBetreuer
|
||||
'
|
||||
Me.lblBetreuer.AutoSize = True
|
||||
Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
|
||||
Me.lblBetreuer.Name = "lblBetreuer"
|
||||
Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
|
||||
Me.lblBetreuer.TabIndex = 50
|
||||
Me.lblBetreuer.Text = "Betreuer:"
|
||||
Me.lblBetreuer.Visible = False
|
||||
'
|
||||
'frmBU_Mahnlauf
|
||||
'
|
||||
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(1427, 855)
|
||||
Me.ClientSize = New System.Drawing.Size(1514, 855)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.Panel3)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
@@ -661,4 +687,6 @@ Partial Class frmBU_Mahnlauf
|
||||
Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbxMahnsperre As CheckBox
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents lblBetreuer As Label
|
||||
Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
End Class
|
||||
|
||||
@@ -60,16 +60,18 @@ Public Class frmBU_Mahnlauf
|
||||
when max(si_mahnstufe) >= 5 Then 'gesperrt'
|
||||
else '-'
|
||||
End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
|
||||
", tblKundenKontakt.[kkd_Email] as Email , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
|
||||
", tblKundenKontakt.[kkd_Email] as Email, isnull(kde_betreuer,'') as Betreuer , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
|
||||
"FROM op_debitor OP
|
||||
RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND KTO.i_firm_refid=OP.i_firm_refid
|
||||
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
|
||||
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on tblKundenErweitert.kde_KundenNr = Kunden.KundenNr
|
||||
left join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] on kkd_kkaId=10 and kkd_KundenNr=i_personenkonto
|
||||
WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)
|
||||
" & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
|
||||
" & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
|
||||
" & If(cboBetreuer.Text <> "", " AND kde_betreuer ='" & cboBetreuer.Text & "'", "") & "
|
||||
" & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
|
||||
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0)
|
||||
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0), isnull([tblKundenErweitert].kde_betreuer,'')
|
||||
HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
|
||||
" & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
|
||||
ORDER BY KTO.c_name"
|
||||
@@ -226,6 +228,9 @@ Public Class frmBU_Mahnlauf
|
||||
'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO"))
|
||||
cbxKontotyp.changeItem("Alle")
|
||||
|
||||
cboBetreuer.Items.Clear()
|
||||
cboBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True)
|
||||
|
||||
MyTextBox2._value = Now.ToShortDateString
|
||||
|
||||
End Sub
|
||||
@@ -1501,10 +1506,14 @@ Public Class frmBU_Mahnlauf
|
||||
Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged
|
||||
If cboFirma._value <> "" AndAlso cboFirma._value = 19 Then
|
||||
cbxZahlungseingaenge.Visible = True
|
||||
cboBetreuer.Visible = True
|
||||
lblBetreuer.Visible = True
|
||||
|
||||
Else
|
||||
cbxZahlungseingaenge.Visible = False
|
||||
cbxZahlungseingaenge.Checked = False
|
||||
cboBetreuer.Visible = False
|
||||
lblBetreuer.Visible = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
66
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
66
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
@@ -71,13 +71,13 @@ Partial Class frmBelegNeu
|
||||
Me.btnAusgabebeleg = New System.Windows.Forms.Button()
|
||||
Me.lblErrPos = New System.Windows.Forms.Label()
|
||||
Me.pnlData = New System.Windows.Forms.Panel()
|
||||
Me.lblErr_Fahrer = New System.Windows.Forms.Label()
|
||||
Me.lblErr_Pass = New System.Windows.Forms.Label()
|
||||
Me.Label28 = New System.Windows.Forms.Label()
|
||||
Me.lblZahlungsmittel = New System.Windows.Forms.Label()
|
||||
Me.txtzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.cbxSplittung = New System.Windows.Forms.CheckBox()
|
||||
Me.lblErr_Fahrer = New System.Windows.Forms.Label()
|
||||
Me.lblErr_Pass = New System.Windows.Forms.Label()
|
||||
Me.lblErr_LKW = New System.Windows.Forms.Label()
|
||||
Me.btnOfferte = New System.Windows.Forms.Button()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
@@ -144,6 +144,7 @@ Partial Class frmBelegNeu
|
||||
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.cboLeihgeldEinzahlung = New System.Windows.Forms.CheckBox()
|
||||
CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.pnlData.SuspendLayout()
|
||||
@@ -645,6 +646,7 @@ Partial Class frmBelegNeu
|
||||
'pnlData
|
||||
'
|
||||
Me.pnlData.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
|
||||
Me.pnlData.Controls.Add(Me.cboLeihgeldEinzahlung)
|
||||
Me.pnlData.Controls.Add(Me.lblErr_Fahrer)
|
||||
Me.pnlData.Controls.Add(Me.lblErr_Pass)
|
||||
Me.pnlData.Controls.Add(Me.Label28)
|
||||
@@ -690,6 +692,30 @@ Partial Class frmBelegNeu
|
||||
Me.pnlData.Size = New System.Drawing.Size(624, 208)
|
||||
Me.pnlData.TabIndex = 5
|
||||
'
|
||||
'lblErr_Fahrer
|
||||
'
|
||||
Me.lblErr_Fahrer.AutoSize = True
|
||||
Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
|
||||
Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
|
||||
Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblErr_Fahrer.TabIndex = 43
|
||||
Me.lblErr_Fahrer.Text = "Bitte angeben!"
|
||||
Me.lblErr_Fahrer.Visible = False
|
||||
'
|
||||
'lblErr_Pass
|
||||
'
|
||||
Me.lblErr_Pass.AutoSize = True
|
||||
Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
|
||||
Me.lblErr_Pass.Name = "lblErr_Pass"
|
||||
Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblErr_Pass.TabIndex = 42
|
||||
Me.lblErr_Pass.Text = "Bitte angeben!"
|
||||
Me.lblErr_Pass.Visible = False
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
Me.Label28.AutoSize = True
|
||||
@@ -758,30 +784,6 @@ Partial Class frmBelegNeu
|
||||
Me.cbxSplittung.Text = "Splittung nach Sendung"
|
||||
Me.cbxSplittung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblErr_Fahrer
|
||||
'
|
||||
Me.lblErr_Fahrer.AutoSize = True
|
||||
Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
|
||||
Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
|
||||
Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblErr_Fahrer.TabIndex = 43
|
||||
Me.lblErr_Fahrer.Text = "Bitte angeben!"
|
||||
Me.lblErr_Fahrer.Visible = False
|
||||
'
|
||||
'lblErr_Pass
|
||||
'
|
||||
Me.lblErr_Pass.AutoSize = True
|
||||
Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
|
||||
Me.lblErr_Pass.Name = "lblErr_Pass"
|
||||
Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblErr_Pass.TabIndex = 42
|
||||
Me.lblErr_Pass.Text = "Bitte angeben!"
|
||||
Me.lblErr_Pass.Visible = False
|
||||
'
|
||||
'lblErr_LKW
|
||||
'
|
||||
Me.lblErr_LKW.AutoSize = True
|
||||
@@ -989,6 +991,7 @@ Partial Class frmBelegNeu
|
||||
Me.cboFrachtf_Sgut._allowedValuesFreiText = Nothing
|
||||
Me.cboFrachtf_Sgut._allowFreiText = False
|
||||
Me.cboFrachtf_Sgut._value = ""
|
||||
Me.cboFrachtf_Sgut.DropDownWidth = 100
|
||||
Me.cboFrachtf_Sgut.FormattingEnabled = True
|
||||
Me.cboFrachtf_Sgut.Location = New System.Drawing.Point(302, 163)
|
||||
Me.cboFrachtf_Sgut.MaxLength = 1
|
||||
@@ -1747,6 +1750,16 @@ Partial Class frmBelegNeu
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'cboLeihgeldEinzahlung
|
||||
'
|
||||
Me.cboLeihgeldEinzahlung.AutoSize = True
|
||||
Me.cboLeihgeldEinzahlung.Location = New System.Drawing.Point(9, 185)
|
||||
Me.cboLeihgeldEinzahlung.Name = "cboLeihgeldEinzahlung"
|
||||
Me.cboLeihgeldEinzahlung.Size = New System.Drawing.Size(121, 17)
|
||||
Me.cboLeihgeldEinzahlung.TabIndex = 48
|
||||
Me.cboLeihgeldEinzahlung.Text = "Leihgeld Einzahlung"
|
||||
Me.cboLeihgeldEinzahlung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmBelegNeu
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||
@@ -1895,4 +1908,5 @@ Partial Class frmBelegNeu
|
||||
Friend WithEvents Label28 As Label
|
||||
Friend WithEvents lblZahlungsmittel As Label
|
||||
Friend WithEvents LinkLabel1 As LinkLabel
|
||||
Friend WithEvents cboLeihgeldEinzahlung As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -1578,8 +1578,23 @@ Public Class frmBelegNeu
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim isLeihgeldeinzahlung As Boolean = False
|
||||
|
||||
Dim summeNETTO As Double = 0
|
||||
For Each p In BELEG.POS : summeNETTO += p.Betrag : Next
|
||||
For Each p In BELEG.POS
|
||||
summeNETTO += p.Betrag
|
||||
If p.LeistungsNr = 111 AndAlso p.LeistungsBez = "Rückzahlung Leihgeld" AndAlso BELEG.POS.Count = 1 Then isLeihgeldeinzahlung = True 'nur bei 1 POS und Leihgeld-Einzahlung!
|
||||
Next
|
||||
|
||||
If isLeihgeldeinzahlung Then
|
||||
If BELEG.KundenNr > 0 Then
|
||||
Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!'
|
||||
If KundenKontoArchiv <> "" Then
|
||||
MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim summeBRUTTO = summeNETTO
|
||||
Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG.Steuerschlüssel & "' ", "FMZOLL")
|
||||
@@ -1600,7 +1615,7 @@ Public Class frmBelegNeu
|
||||
Dim JournalNr = 0
|
||||
|
||||
|
||||
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel) Then
|
||||
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
|
||||
MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
|
||||
Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
|
||||
|
||||
@@ -277,7 +277,18 @@ Public Class frmNacherfassungLeihgeld
|
||||
|
||||
|
||||
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
|
||||
|
||||
Try
|
||||
If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
|
||||
Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!'
|
||||
If KundenKontoArchiv <> "" Then
|
||||
MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If BELEG.gebucht Or BELEG.gebuchtStorno Then
|
||||
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
|
||||
cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG")
|
||||
|
||||
767
SDL/kunden/frmKundenblatt.Designer.vb
generated
767
SDL/kunden/frmKundenblatt.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -298,7 +298,7 @@ Public Class frmKundenblatt
|
||||
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
|
||||
End If
|
||||
|
||||
|
||||
UsrCntlKundenlogin1.init(kdNr)
|
||||
|
||||
scanVertragVeragKd.INIT(kdNr, "KUNDENDATEN")
|
||||
scanBankGarantie.INIT(kdNr, "KUNDENDATEN")
|
||||
@@ -643,8 +643,39 @@ Public Class frmKundenblatt
|
||||
Sub initStat()
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK
|
||||
|
||||
Dim dt = SQL.loadDgvBySql("SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR
|
||||
FROM Kunden
|
||||
WHERE Kunden.KundenNr = " & kdNr, "FMZOLL")
|
||||
|
||||
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
|
||||
|
||||
Dim GesamtUSteuer As Double = 0
|
||||
Dim GesamtErstattung As Double = 0
|
||||
Dim Differnezbetrag As Double = 0
|
||||
Dim Gesamt3470 As Double = 0
|
||||
Dim GesamtVZBetrag As Double = 0
|
||||
Dim VorschaubetrGes As Double = 0
|
||||
Dim OPSaldo As Double = 0
|
||||
Dim Risiko As Double = 0
|
||||
|
||||
|
||||
OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & kdNr, "FMZOLL"))
|
||||
|
||||
If dt.Rows.Count = 1 Then
|
||||
GesamtUSteuer = dt.Rows(0).Item("UStV_SummeUmsatzsteuerbetragEUR")
|
||||
GesamtErstattung = dt.Rows(0).Item("UStV_SummeErstattungsbetragEUR")
|
||||
Gesamt3470 = dt.Rows(0).Item("UStV_Summe3470BetragEUR")
|
||||
GesamtVZBetrag = dt.Rows(0).Item("UStV_SummeVZBetragEUR")
|
||||
VorschaubetrGes = dt.Rows(0).Item("UStV_SummeVorschaubetragEUR")
|
||||
End If
|
||||
|
||||
Differnezbetrag = GesamtUSteuer - GesamtErstattung
|
||||
|
||||
Risiko = OPSaldo - Differnezbetrag - Gesamt3470 + GesamtVZBetrag - VorschaubetrGes
|
||||
|
||||
txt3470Betrag.Text = Gesamt3470.ToString("C2")
|
||||
txtRisiko.Text = Risiko.ToString("C2")
|
||||
|
||||
'lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
|
||||
|
||||
With dgvLeistungen
|
||||
.DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen
|
||||
@@ -665,60 +696,60 @@ Public Class frmKundenblatt
|
||||
End With
|
||||
|
||||
|
||||
Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
|
||||
Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
|
||||
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
|
||||
'Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
|
||||
'Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
|
||||
'lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
|
||||
|
||||
'If dt_Diesel.Rows.Count > 0 Then
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= " ( "
|
||||
' For Each r In dt_Diesel.Rows
|
||||
' Dim Lieferant As String = ""
|
||||
' Select Case r.Item("SDLNr")
|
||||
' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
|
||||
' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
|
||||
' End Select
|
||||
''If dt_Diesel.Rows.Count > 0 Then
|
||||
'' lblStat_SdlLeistungen_Diesel.Text &= " ( "
|
||||
'' For Each r In dt_Diesel.Rows
|
||||
'' Dim Lieferant As String = ""
|
||||
'' Select Case r.Item("SDLNr")
|
||||
'' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
|
||||
'' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
|
||||
'' End Select
|
||||
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= Lieferant
|
||||
' Next
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= ")"
|
||||
'End If
|
||||
'' lblStat_SdlLeistungen_Diesel.Text &= Lieferant
|
||||
'' Next
|
||||
'' lblStat_SdlLeistungen_Diesel.Text &= ")"
|
||||
''End If
|
||||
|
||||
|
||||
|
||||
Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
|
||||
Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
|
||||
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
|
||||
'Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
|
||||
'Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
|
||||
'lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
|
||||
|
||||
|
||||
'If dt_Maut.Rows.Count > 0 Then
|
||||
' lblStat_SdlLeistungen_Maut.Text &= " ( "
|
||||
' For Each r As DataRow In dt_Maut.Rows
|
||||
' Dim Lieferant As String = ""
|
||||
' Select Case r.Item("SDLNr")
|
||||
' Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
|
||||
' Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
|
||||
' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
|
||||
' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
|
||||
' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
|
||||
' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
|
||||
' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
|
||||
' Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
|
||||
' Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
|
||||
' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
|
||||
' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
|
||||
' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
|
||||
' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
|
||||
' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
|
||||
' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
|
||||
' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
|
||||
' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
|
||||
''If dt_Maut.Rows.Count > 0 Then
|
||||
'' lblStat_SdlLeistungen_Maut.Text &= " ( "
|
||||
'' For Each r As DataRow In dt_Maut.Rows
|
||||
'' Dim Lieferant As String = ""
|
||||
'' Select Case r.Item("SDLNr")
|
||||
'' Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
|
||||
'' Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
|
||||
'' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
|
||||
'' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
|
||||
'' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
|
||||
'' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
|
||||
'' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
|
||||
'' Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
|
||||
'' Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
|
||||
'' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
|
||||
'' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
|
||||
'' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
|
||||
'' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
|
||||
'' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
|
||||
'' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
|
||||
'' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
|
||||
'' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
|
||||
|
||||
' End Select
|
||||
'' End Select
|
||||
|
||||
' lblStat_SdlLeistungen_Maut.Text &= Lieferant
|
||||
' Next
|
||||
' lblStat_SdlLeistungen_Maut.Text &= ")"
|
||||
'End If
|
||||
'' lblStat_SdlLeistungen_Maut.Text &= Lieferant
|
||||
'' Next
|
||||
'' lblStat_SdlLeistungen_Maut.Text &= ")"
|
||||
''End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -775,17 +806,43 @@ Public Class frmKundenblatt
|
||||
'Me.dataFirma.AcceptChanges()
|
||||
' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
|
||||
|
||||
|
||||
txtKundeninfo.ReadOnly = True
|
||||
|
||||
txtKundeninfo.Text = ""
|
||||
|
||||
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Name_1) <> "", checkNullStr(ADRESSE.Name_1) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Name_2) <> "", checkNullStr(ADRESSE.Name_2) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Straße) <> "", checkNullStr(ADRESSE.Straße) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(KUNDE_ERW.kde_AdressZusatz) <> "", checkNullStr(KUNDE_ERW.kde_AdressZusatz) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.LandKz) <> "", checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.PLZPF) <> "", checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) & vbNewLine, ""))
|
||||
|
||||
txtKundeninfo.AppendText(vbNewLine)
|
||||
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "") & ADRESSE.Ansprechpartner & vbNewLine, ""))
|
||||
|
||||
txtKundeninfo.AppendText(vbNewLine)
|
||||
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Telefon) <> "", "Tel.: " & ADRESSE.Telefon & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Telefax) <> "", "Fax: " & ADRESSE.Telefax & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Mobiltelefon) <> "", "Mobil: " & checkNullStr(ADRESSE.Mobiltelefon) & vbNewLine, ""))
|
||||
txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.E_Mail) <> "", "E-Mail: " & ADRESSE.E_Mail & IIf(checkNullStr(ADRESSE.E_Mail2) <> "", " " & ADRESSE.E_Mail2, "") & vbNewLine, ""))
|
||||
|
||||
lblKurzname.Text = checkNullStr(ADRESSE.Ordnungsbegriff)
|
||||
|
||||
|
||||
'----------- EV DEAKTIVIEREN------------------------
|
||||
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
|
||||
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
|
||||
lblStrasse.Text = checkNullStr(ADRESSE.Straße)
|
||||
lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
|
||||
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
|
||||
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
|
||||
txtAnsprechp.Text = ""
|
||||
txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
|
||||
|
||||
lblAnsprechp.Text = ""
|
||||
lblAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
|
||||
lblAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
|
||||
|
||||
lblTel.Text = checkNullStr(ADRESSE.Telefon)
|
||||
lblFax.Text = checkNullStr(ADRESSE.Telefax)
|
||||
@@ -793,40 +850,60 @@ Public Class frmKundenblatt
|
||||
lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
|
||||
lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
|
||||
|
||||
|
||||
Dim EmailRechnungen As String = "Rechnungen an: "
|
||||
txtEmailRE.Text = "-"
|
||||
txtEmailRE2.Text = ""
|
||||
If KUNDE_K_RE.hasEntry Then 'Rechnung an
|
||||
txtEmailRE.Text = KUNDE_K_RE.kkd_Email
|
||||
txtEmailRE2.Text &= KUNDE_K_RE.kkd_EmailCC
|
||||
EmailRechnungen &= KUNDE_K_RE.kkd_Email
|
||||
EmailRechnungen &= KUNDE_K_RE.kkd_EmailCC
|
||||
Else
|
||||
EmailRechnungen &= " - "
|
||||
End If
|
||||
|
||||
txtKundeninfo.AppendText(vbNewLine)
|
||||
txtKundeninfo.AppendText(IIf(EmailRechnungen <> "", EmailRechnungen & vbNewLine, ""))
|
||||
|
||||
Dim ansprechpartnerText As String = ""
|
||||
If KUNDE_K_GF.hasEntry Then
|
||||
If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " "
|
||||
If lblAnsprechp.Text <> "" Then lblAnsprechp.Text &= " "
|
||||
|
||||
txtAnsprechp.Text &= "(GF:"
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
|
||||
txtAnsprechp.Text &= ")"
|
||||
lblAnsprechp.Text &= "(GF:"
|
||||
lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
|
||||
lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
|
||||
lblAnsprechp.Text &= ")"
|
||||
|
||||
ansprechpartnerText = lblAnsprechp.Text
|
||||
txtKundeninfo.AppendText(IIf(ansprechpartnerText <> "", ansprechpartnerText & vbNewLine, ""))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
lblUid.Text = ""
|
||||
Dim UID As String = ""
|
||||
If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
|
||||
lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
|
||||
lblUid.Text = "UID: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
|
||||
UID = "UID: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
|
||||
If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
|
||||
lblUid.Text &= " , geprüft am: " & checkNullStr(ADRESSE.UstIdGeprüft)
|
||||
UID &= " , geprüft am: " & checkNullStr(ADRESSE.UstIdGeprüft)
|
||||
txtKundeninfo.AppendText(UID & vbNewLine)
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim SteuerNr As String = ""
|
||||
If checkNullStr(ADRESSE.Steuernummer) <> "" Then
|
||||
If lblUid.Text <> "" Then lblUid.Text &= " / "
|
||||
lblUid.Text &= "St-Nr.: " & checkNullStr(ADRESSE.Steuernummer)
|
||||
SteuerNr = "Steuer-Nr.: " & checkNullStr(ADRESSE.Steuernummer)
|
||||
txtKundeninfo.AppendText(SteuerNr & vbNewLine)
|
||||
End If
|
||||
|
||||
If checkNullStr(KUNDE_ERW.kde_betreuer) <> "" Then
|
||||
txtKundeninfo.AppendText(vbNewLine)
|
||||
txtKundeninfo.AppendText("Betreuer: " & KUNDE_ERW.kde_betreuer & vbNewLine)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -1147,14 +1224,23 @@ Public Class frmKundenblatt
|
||||
|
||||
|
||||
Sub initSDLListeRed()
|
||||
|
||||
Dim totalHeight As Integer = dgvSperrliste.ColumnHeadersHeight
|
||||
|
||||
For Each r As DataGridViewRow In dgvSperrliste.Rows
|
||||
If r.Cells("SperrNr").Value > 0 Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
Else
|
||||
r.Cells("SperrBez").Value = ""
|
||||
End If
|
||||
|
||||
totalHeight += r.Height
|
||||
|
||||
Next
|
||||
|
||||
dgvSperrliste.Height = totalHeight + 2
|
||||
|
||||
|
||||
End Sub
|
||||
'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen
|
||||
' Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
@@ -2767,8 +2853,5 @@ Public Class frmKundenblatt
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
218
SDL/kunden/frmKundenlogin.Designer.vb
generated
Normal file
218
SDL/kunden/frmKundenlogin.Designer.vb
generated
Normal file
@@ -0,0 +1,218 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmKundenlogin
|
||||
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(frmKundenlogin))
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.pnlKontakt = New System.Windows.Forms.Panel()
|
||||
Me.link = New System.Windows.Forms.LinkLabel()
|
||||
Me.lblPW = New System.Windows.Forms.TextBox()
|
||||
Me.lblUser = New System.Windows.Forms.TextBox()
|
||||
Me.pnlMain = New System.Windows.Forms.Panel()
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.txtPortal = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cboLieferant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.pnlKontakt.SuspendLayout()
|
||||
Me.pnlMain.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(268, 159)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(63, 27)
|
||||
Me.btn.TabIndex = 9
|
||||
Me.btn.Text = "OK"
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(5, 0)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(48, 13)
|
||||
Me.lbl.TabIndex = 0
|
||||
Me.lbl.Text = "Lieferant"
|
||||
'
|
||||
'pnlKontakt
|
||||
'
|
||||
Me.pnlKontakt.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.pnlKontakt.Controls.Add(Me.Label3)
|
||||
Me.pnlKontakt.Controls.Add(Me.Label2)
|
||||
Me.pnlKontakt.Controls.Add(Me.link)
|
||||
Me.pnlKontakt.Controls.Add(Me.lblPW)
|
||||
Me.pnlKontakt.Controls.Add(Me.lblUser)
|
||||
Me.pnlKontakt.Location = New System.Drawing.Point(8, 50)
|
||||
Me.pnlKontakt.Name = "pnlKontakt"
|
||||
Me.pnlKontakt.Size = New System.Drawing.Size(323, 103)
|
||||
Me.pnlKontakt.TabIndex = 10
|
||||
'
|
||||
'link
|
||||
'
|
||||
Me.link.AutoSize = True
|
||||
Me.link.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.link.Location = New System.Drawing.Point(3, 67)
|
||||
Me.link.Name = "link"
|
||||
Me.link.Size = New System.Drawing.Size(42, 20)
|
||||
Me.link.TabIndex = 255
|
||||
Me.link.TabStop = True
|
||||
Me.link.Text = "Link"
|
||||
'
|
||||
'lblPW
|
||||
'
|
||||
Me.lblPW.BackColor = System.Drawing.Color.White
|
||||
Me.lblPW.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lblPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblPW.Location = New System.Drawing.Point(66, 38)
|
||||
Me.lblPW.Name = "lblPW"
|
||||
Me.lblPW.Size = New System.Drawing.Size(254, 26)
|
||||
Me.lblPW.TabIndex = 219
|
||||
Me.lblPW.Text = "Passwort"
|
||||
'
|
||||
'lblUser
|
||||
'
|
||||
Me.lblUser.BackColor = System.Drawing.Color.White
|
||||
Me.lblUser.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lblUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblUser.Location = New System.Drawing.Point(66, 15)
|
||||
Me.lblUser.Name = "lblUser"
|
||||
Me.lblUser.Size = New System.Drawing.Size(254, 26)
|
||||
Me.lblUser.TabIndex = 218
|
||||
Me.lblUser.Text = "Username"
|
||||
'
|
||||
'pnlMain
|
||||
'
|
||||
Me.pnlMain.Controls.Add(Me.lblWarning)
|
||||
Me.pnlMain.Controls.Add(Me.txtPortal)
|
||||
Me.pnlMain.Controls.Add(Me.Label1)
|
||||
Me.pnlMain.Controls.Add(Me.lbl)
|
||||
Me.pnlMain.Controls.Add(Me.btn)
|
||||
Me.pnlMain.Controls.Add(Me.cboLieferant)
|
||||
Me.pnlMain.Controls.Add(Me.pnlKontakt)
|
||||
Me.pnlMain.Location = New System.Drawing.Point(7, 12)
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
Me.pnlMain.Size = New System.Drawing.Size(344, 189)
|
||||
Me.pnlMain.TabIndex = 12
|
||||
'
|
||||
'lblWarning
|
||||
'
|
||||
Me.lblWarning.AutoSize = True
|
||||
Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWarning.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarning.Location = New System.Drawing.Point(9, 166)
|
||||
Me.lblWarning.Name = "lblWarning"
|
||||
Me.lblWarning.Size = New System.Drawing.Size(0, 20)
|
||||
Me.lblWarning.TabIndex = 255
|
||||
'
|
||||
'txtPortal
|
||||
'
|
||||
Me.txtPortal.BackColor = System.Drawing.Color.White
|
||||
Me.txtPortal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtPortal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtPortal.Location = New System.Drawing.Point(145, 18)
|
||||
Me.txtPortal.Name = "txtPortal"
|
||||
Me.txtPortal.Size = New System.Drawing.Size(183, 26)
|
||||
Me.txtPortal.TabIndex = 254
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(142, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(34, 13)
|
||||
Me.Label1.TabIndex = 11
|
||||
Me.Label1.Text = "Portal"
|
||||
'
|
||||
'cboLieferant
|
||||
'
|
||||
Me.cboLieferant._allowedValuesFreiText = Nothing
|
||||
Me.cboLieferant._allowFreiText = False
|
||||
Me.cboLieferant._value = ""
|
||||
Me.cboLieferant.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.cboLieferant.FormattingEnabled = True
|
||||
Me.cboLieferant.Location = New System.Drawing.Point(8, 16)
|
||||
Me.cboLieferant.Name = "cboLieferant"
|
||||
Me.cboLieferant.Size = New System.Drawing.Size(106, 28)
|
||||
Me.cboLieferant.TabIndex = 1
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(1, 17)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(55, 20)
|
||||
Me.Label2.TabIndex = 256
|
||||
Me.Label2.Text = "USER"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 40)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(34, 20)
|
||||
Me.Label3.TabIndex = 257
|
||||
Me.Label3.Text = "PW"
|
||||
'
|
||||
'frmKundenlogin
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSize = True
|
||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(363, 217)
|
||||
Me.Controls.Add(Me.pnlMain)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmKundenlogin"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Login-Daten"
|
||||
Me.pnlKontakt.ResumeLayout(False)
|
||||
Me.pnlKontakt.PerformLayout()
|
||||
Me.pnlMain.ResumeLayout(False)
|
||||
Me.pnlMain.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents lbl As Label
|
||||
Friend WithEvents cboLieferant As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents pnlKontakt As Panel
|
||||
Friend WithEvents lblPW As TextBox
|
||||
Friend WithEvents lblUser As TextBox
|
||||
Friend WithEvents pnlMain As Panel
|
||||
Friend WithEvents txtPortal As TextBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents link As LinkLabel
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
End Class
|
||||
980
SDL/kunden/frmKundenlogin.resx
Normal file
980
SDL/kunden/frmKundenlogin.resx
Normal 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>
|
||||
133
SDL/kunden/frmKundenlogin.vb
Normal file
133
SDL/kunden/frmKundenlogin.vb
Normal file
@@ -0,0 +1,133 @@
|
||||
Public Class frmKundenlogin
|
||||
|
||||
Dim kdNr As Integer
|
||||
Dim Lieferant As String
|
||||
Dim Portal As String = ""
|
||||
Dim KUNDENPORTAL As VERAG_PROG_ALLGEMEIN.cKundenportal = Nothing
|
||||
|
||||
Sub New(kdNr)
|
||||
|
||||
InitializeComponent()
|
||||
Me.kdNr = kdNr
|
||||
End Sub
|
||||
|
||||
Sub New(kdNr, Portal)
|
||||
|
||||
InitializeComponent()
|
||||
Me.Portal = Portal
|
||||
Me.kdNr = kdNr
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmKundenKontakteDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IDS", "Q8-TRUCK"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MSE", "MSTSTTOLLS"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEPASS", "HUB4TRUCKS"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA", "UTA PORTAL"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLOSE", "PLOSE APR"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA-INTERN", "UTA-INTERN"))
|
||||
|
||||
|
||||
If cboLieferant.Items.Count > 0 Then cboLieferant.SelectedIndex = 0
|
||||
|
||||
If Portal <> "" Then
|
||||
KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr, Portal)
|
||||
Else
|
||||
KUNDENPORTAL = Nothing
|
||||
End If
|
||||
|
||||
setvalue()
|
||||
End Sub
|
||||
|
||||
Sub setvalue()
|
||||
|
||||
If KUNDENPORTAL Is Nothing Then
|
||||
KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr, Portal)
|
||||
|
||||
txtPortal.Text = KUNDENPORTAL.Portal
|
||||
cboLieferant.Text = KUNDENPORTAL.Lieferant
|
||||
kdNr = KUNDENPORTAL.KundenNr
|
||||
Else
|
||||
txtPortal.Text = KUNDENPORTAL.Portal
|
||||
cboLieferant.Text = KUNDENPORTAL.Lieferant
|
||||
kdNr = KUNDENPORTAL.KundenNr
|
||||
lblUser.Text = KUNDENPORTAL.Username
|
||||
lblPW.Text = KUNDENPORTAL.Password
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Function getvalue() As Boolean
|
||||
'If KUNDENPORTAL Is Nothing Then KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr)
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
If lblUser.Text = "" OrElse lblUser.Text = "Username" Then
|
||||
lblWarning.Text = "Username ausfüllen!"
|
||||
Return False
|
||||
End If
|
||||
|
||||
If lblPW.Text = "" OrElse lblPW.Text = "Passwort" Then
|
||||
lblWarning.Text = "Passwort ausfüllen!"
|
||||
Return False
|
||||
End If
|
||||
|
||||
If txtPortal.Text = "" Then
|
||||
lblWarning.Text = "Portal ausfüllen!"
|
||||
Return False
|
||||
End If
|
||||
|
||||
KUNDENPORTAL.Portal = txtPortal.Text
|
||||
KUNDENPORTAL.Lieferant = cboLieferant.Text
|
||||
KUNDENPORTAL.KundenNr = kdNr
|
||||
KUNDENPORTAL.Username = lblUser.Text
|
||||
KUNDENPORTAL.Password = lblPW.Text
|
||||
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
|
||||
If getvalue() Then
|
||||
KUNDENPORTAL.SAVE()
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboLieferant_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLieferant.SelectedIndexChanged
|
||||
txtPortal.Text = cboLieferant._value
|
||||
|
||||
If cboLieferant.Text = "UTA-INTERN" Then
|
||||
'cboLieferant.BackColor = Color.IndianRed
|
||||
txtPortal.BackColor = Color.IndianRed
|
||||
Else
|
||||
txtPortal.BackColor = SystemColors.Window
|
||||
'cboLieferant.BackColor = SystemColors.Window
|
||||
End If
|
||||
|
||||
Select Case txtPortal.Text
|
||||
Case "Q8-TRUCK" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "UTA PORTAL" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "PLOSE APR" : link.AccessibleDescription = "https://www.apr.plose.it/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "MSTSTTOLLS" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "HUB4TRUCKS" : link.AccessibleDescription = "https://truck.telepass.com/api/uaa/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case Else : link.AccessibleDescription = "" : link.Text = cboLieferant.Text & ""
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub link_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link.LinkClicked
|
||||
If link.AccessibleDescription <> "" Then Process.Start(link.AccessibleDescription)
|
||||
End Sub
|
||||
End Class
|
||||
@@ -1496,6 +1496,7 @@ Public Class usrCntlCBAM
|
||||
Dim f As New List(Of String)
|
||||
If btnCBAM_DS_DHF_VERAG_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Detail.Tag)
|
||||
If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag)
|
||||
If btnCBAM_DS_DHF_VERAG_GP.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_GP.Tag)
|
||||
|
||||
If f.Count > 0 Then
|
||||
'Zwischenablage
|
||||
@@ -1509,6 +1510,8 @@ Public Class usrCntlCBAM
|
||||
Dim f As New List(Of String)
|
||||
If btnCBAM_DS_DHF_UNISPED_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Detail.Tag)
|
||||
If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag)
|
||||
If btnCBAM_DS_DHF_UNISPED_GP.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_GP.Tag)
|
||||
|
||||
|
||||
If f.Count > 0 Then
|
||||
'Zwischenablage
|
||||
@@ -1522,6 +1525,7 @@ Public Class usrCntlCBAM
|
||||
Dim f As New List(Of String)
|
||||
If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
|
||||
If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag)
|
||||
If btnCBAM_DS_TELOTEC_GP.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_GP.Tag)
|
||||
|
||||
If f.Count > 0 Then
|
||||
'Zwischenablage
|
||||
@@ -1582,7 +1586,6 @@ Public Class usrCntlCBAM
|
||||
btnCBAM_DS_DHF_UNISPED_Detail.Enabled = True
|
||||
btnCBAM_DS_DHF_UNISPED_Copy.Enabled = True
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End If
|
||||
|
||||
|
||||
146
SDL/kunden/usrCntlKundenlogin.Designer.vb
generated
Normal file
146
SDL/kunden/usrCntlKundenlogin.Designer.vb
generated
Normal file
@@ -0,0 +1,146 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlKundenlogin
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.dgvKundenlogins = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.btnMail = New System.Windows.Forms.Button()
|
||||
Me.btnExcel = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
CType(Me.dgvKundenlogins, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(453, 0)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(20, 21)
|
||||
Me.btn.TabIndex = 213
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(116, 26)
|
||||
'
|
||||
'LöschenToolStripMenuItem
|
||||
'
|
||||
Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del_small
|
||||
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
|
||||
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(115, 22)
|
||||
Me.LöschenToolStripMenuItem.Text = "löschen"
|
||||
'
|
||||
'dgvKundenlogins
|
||||
'
|
||||
Me.dgvKundenlogins.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvKundenlogins.AllowUserToAddRows = False
|
||||
Me.dgvKundenlogins.AllowUserToDeleteRows = False
|
||||
Me.dgvKundenlogins.AllowUserToResizeColumns = False
|
||||
Me.dgvKundenlogins.AllowUserToResizeRows = False
|
||||
Me.dgvKundenlogins.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvKundenlogins.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKundenlogins.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvKundenlogins.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKundenlogins.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvKundenlogins.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvKundenlogins.Name = "dgvKundenlogins"
|
||||
Me.dgvKundenlogins.ReadOnly = True
|
||||
Me.dgvKundenlogins.RowHeadersVisible = False
|
||||
Me.dgvKundenlogins.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvKundenlogins.Size = New System.Drawing.Size(473, 129)
|
||||
Me.dgvKundenlogins.TabIndex = 212
|
||||
Me.dgvKundenlogins.TabStop = False
|
||||
'
|
||||
'btnMail
|
||||
'
|
||||
Me.btnMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnMail.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.btnMail.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMail.Location = New System.Drawing.Point(428, 133)
|
||||
Me.btnMail.Name = "btnMail"
|
||||
Me.btnMail.Size = New System.Drawing.Size(42, 29)
|
||||
Me.btnMail.TabIndex = 214
|
||||
Me.btnMail.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnExcel
|
||||
'
|
||||
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnExcel.Location = New System.Drawing.Point(380, 133)
|
||||
Me.btnExcel.Name = "btnExcel"
|
||||
Me.btnExcel.Size = New System.Drawing.Size(42, 29)
|
||||
Me.btnExcel.TabIndex = 215
|
||||
Me.btnExcel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlKundenlogin
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.btnExcel)
|
||||
Me.Controls.Add(Me.btnMail)
|
||||
Me.Controls.Add(Me.btn)
|
||||
Me.Controls.Add(Me.dgvKundenlogins)
|
||||
Me.Name = "usrCntlKundenlogin"
|
||||
Me.Size = New System.Drawing.Size(473, 165)
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
CType(Me.dgvKundenlogins, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents dgvKundenlogins As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents btnMail As Button
|
||||
Friend WithEvents btnExcel As Button
|
||||
End Class
|
||||
123
SDL/kunden/usrCntlKundenlogin.resx
Normal file
123
SDL/kunden/usrCntlKundenlogin.resx
Normal file
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
206
SDL/kunden/usrCntlKundenlogin.vb
Normal file
206
SDL/kunden/usrCntlKundenlogin.vb
Normal file
@@ -0,0 +1,206 @@
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
Public Class usrCntlKundenlogin
|
||||
|
||||
Public kdNr As Integer
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Sub New(kdNr)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.kdNr = kdNr
|
||||
End Sub
|
||||
|
||||
|
||||
Sub init(kdNr)
|
||||
'dgvKundenlogins.Rows.Clear()
|
||||
Me.kdNr = kdNr
|
||||
initDGV()
|
||||
End Sub
|
||||
|
||||
Sub initDGV()
|
||||
|
||||
If kdNr > 0 Then
|
||||
With dgvKundenlogins
|
||||
.DataSource = SQL.loadDgvBySql("SELECT KundenNr, Username, Password as Passwort, Lieferant, Portal FROM [tblKundenlogin] where [KundenNr]=" & kdNr, "FMZOLL")
|
||||
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("Username").Width = 120
|
||||
.Columns("Passwort").Width = 100
|
||||
.Columns("Portal").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("Lieferant").Width = 100
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.ClearSelection()
|
||||
End With
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvAufschub_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenlogins.CellDoubleClick, dgvKundenlogins.CellContentDoubleClick
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
||||
|
||||
If dgvKundenlogins.SelectedRows.Count > 0 Then
|
||||
Dim f As New frmKundenlogin(kdNr, IIf(Not IsDBNull(dgvKundenlogins.SelectedRows(0).Cells("Portal").Value), dgvKundenlogins.SelectedRows(0).Cells("Portal").Value, ""))
|
||||
f.ShowDialog(Me)
|
||||
initDGV()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
Dim f As New frmKundenlogin(kdNr)
|
||||
f.ShowDialog(Me)
|
||||
initDGV()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvAufschub_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvKundenlogins.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
||||
If dgvKundenlogins.SelectedRows.Count > 0 Then
|
||||
If vbYes = MsgBox("Möchten Sie den Kundenportaleintrag wirklich löschen?", vbYesNoCancel) Then
|
||||
Dim portal As New VERAG_PROG_ALLGEMEIN.cKundenportal(dgvKundenlogins.SelectedRows(0).Cells("KundenNr").Value, dgvKundenlogins.SelectedRows(0).Cells("Portal").Value)
|
||||
portal.DELETE(dgvKundenlogins.SelectedRows(0).Cells("KundenNr").Value, dgvKundenlogins.SelectedRows(0).Cells("Portal").Value)
|
||||
initDGV()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAufschub_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvKundenlogins.CellMouseClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
If dgvKundenlogins.SelectedRows.Count > 0 Then
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
||||
|
||||
Dim delKey As New KeyEventArgs(Keys.Delete)
|
||||
dgvAufschub_KeyDown(sender, delKey)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnExcel.Click, btnMail.Click
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
Select Case sender.name
|
||||
|
||||
Case "btnExcel"
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV_NEW(dgvKundenlogins, True)
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Case "btnMail"
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Dim kunednSQL As New kundenSQL
|
||||
Dim kundeMail As New cKunden()
|
||||
kundeMail = kunednSQL.getKundeByKdNr(kdNr)
|
||||
|
||||
Mail.Subject = kundeMail.Kurzname & " - CUSTOMER PORTAL LOGIN DATA"
|
||||
|
||||
Dim TextHTMLtable As String = ""
|
||||
TextHTMLtable &= "<table border=1>"
|
||||
TextHTMLtable &= "<tr><td>Supplier</td><td>Portal</td><td>Username</td><td>Password</td><td>Link</td></tr>"
|
||||
|
||||
For Each r As DataGridViewRow In dgvKundenlogins.SelectedRows
|
||||
|
||||
If r.Cells("Portal").Value <> "UTA-INTERN" Then ' überspringen!
|
||||
|
||||
TextHTMLtable &= "<tr>"
|
||||
TextHTMLtable &= "<td><b>" & r.Cells("Lieferant").Value & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & r.Cells("Portal").Value & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & r.Cells("Username").Value & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & r.Cells("Passwort").Value & "</b></td>"
|
||||
|
||||
Dim Link As String = getLink(r.Cells("Portal").Value)
|
||||
|
||||
TextHTMLtable &= "<td><b>" & Link & "</b></td>"
|
||||
|
||||
TextHTMLtable &= "</tr>"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
TextHTMLtable &= "</table>"
|
||||
|
||||
Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the customer portal login data.<br><br>"
|
||||
|
||||
Mail.HTMLBody &= TextHTMLtable
|
||||
|
||||
Mail.HTMLBody &= "<br><br>"
|
||||
Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
Mail.HTMLBody &= "<br>"
|
||||
Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True)
|
||||
|
||||
|
||||
Mail.To &= kundeMail.EMail
|
||||
Mail.CC &= kundeMail.EMail2
|
||||
|
||||
Mail.Display()
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function getLink(Portal As String) As String
|
||||
|
||||
Dim link As String = ""
|
||||
Dim hyperlink As String = ""
|
||||
|
||||
Select Case Portal
|
||||
Case "Q8-TRUCK" : link = "https://iaccount.q8.com/"
|
||||
Case "UTA PORTAL" : link = "https://meinedenred.at/login"
|
||||
Case "PLOSE ARP" : link = "https://www.apr.plose.it/login"
|
||||
Case "MSTSTTOLLS" : link = "https://iaccount.q8.com/"
|
||||
Case "HUB4TRUCKS" : link = "https://truck.telepass.com/api/uaa/login"
|
||||
End Select
|
||||
|
||||
If link <> "" Then
|
||||
|
||||
hyperlink = $"<a href=""{link}"">{Portal}</a>"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return IIf(hyperlink <> "", hyperlink, "-")
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
479
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
479
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
|
||||
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
|
||||
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
|
||||
@@ -64,7 +64,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
|
||||
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
@@ -338,6 +337,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.lblEORI = New System.Windows.Forms.Label()
|
||||
Me.Label84 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label116 = New System.Windows.Forms.Label()
|
||||
Me.cbxBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cbxkeineMWSt = New System.Windows.Forms.CheckBox()
|
||||
Me.txtGruendungsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label33 = New System.Windows.Forms.Label()
|
||||
@@ -425,6 +426,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label117 = New System.Windows.Forms.Label()
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -641,7 +644,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'TabPage4
|
||||
'
|
||||
Me.TabPage4.Controls.Add(Me.FlowLayoutPanel1)
|
||||
Me.TabPage4.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1)
|
||||
Me.TabPage4.Controls.Add(Me.rtbLKWFreigabeSenden)
|
||||
Me.TabPage4.Controls.Add(Me.Label18)
|
||||
@@ -653,13 +655,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
|
||||
Me.TabPage4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FlowLayoutPanel1
|
||||
'
|
||||
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(249, 94)
|
||||
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
|
||||
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
|
||||
Me.FlowLayoutPanel1.TabIndex = 7
|
||||
'
|
||||
'UsrCntlKundenAvisoMailBenachrichtigung1
|
||||
'
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
|
||||
@@ -1161,6 +1156,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'tbVerrechnung
|
||||
'
|
||||
Me.tbVerrechnung.Controls.Add(Me.txtAbf_Vorlageprovision_Mindestbetrag)
|
||||
Me.tbVerrechnung.Controls.Add(Me.Label117)
|
||||
Me.tbVerrechnung.Controls.Add(Me.Panel2)
|
||||
Me.tbVerrechnung.Controls.Add(Me.cbpKopfsammelrechnung)
|
||||
Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
|
||||
@@ -1540,7 +1537,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Label101
|
||||
'
|
||||
Me.Label101.AutoSize = True
|
||||
Me.Label101.Location = New System.Drawing.Point(191, 53)
|
||||
Me.Label101.Location = New System.Drawing.Point(12, 116)
|
||||
Me.Label101.Name = "Label101"
|
||||
Me.Label101.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label101.TabIndex = 42
|
||||
@@ -1694,16 +1691,16 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Label47
|
||||
'
|
||||
Me.Label47.AutoSize = True
|
||||
Me.Label47.Location = New System.Drawing.Point(12, 135)
|
||||
Me.Label47.Location = New System.Drawing.Point(191, 72)
|
||||
Me.Label47.Name = "Label47"
|
||||
Me.Label47.Size = New System.Drawing.Size(92, 13)
|
||||
Me.Label47.Size = New System.Drawing.Size(30, 13)
|
||||
Me.Label47.TabIndex = 15
|
||||
Me.Label47.Text = "Bankspesen Min.:"
|
||||
Me.Label47.Text = "Min.:"
|
||||
'
|
||||
'Label46
|
||||
'
|
||||
Me.Label46.AutoSize = True
|
||||
Me.Label46.Location = New System.Drawing.Point(12, 113)
|
||||
Me.Label46.Location = New System.Drawing.Point(12, 72)
|
||||
Me.Label46.Name = "Label46"
|
||||
Me.Label46.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label46.TabIndex = 10
|
||||
@@ -1712,7 +1709,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Label45
|
||||
'
|
||||
Me.Label45.AutoSize = True
|
||||
Me.Label45.Location = New System.Drawing.Point(12, 91)
|
||||
Me.Label45.Location = New System.Drawing.Point(12, 50)
|
||||
Me.Label45.Name = "Label45"
|
||||
Me.Label45.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label45.TabIndex = 5
|
||||
@@ -1741,7 +1738,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Label44
|
||||
'
|
||||
Me.Label44.AutoSize = True
|
||||
Me.Label44.Location = New System.Drawing.Point(12, 69)
|
||||
Me.Label44.Location = New System.Drawing.Point(12, 92)
|
||||
Me.Label44.Name = "Label44"
|
||||
Me.Label44.Size = New System.Drawing.Size(88, 13)
|
||||
Me.Label44.TabIndex = 0
|
||||
@@ -1859,7 +1856,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtAbwZZVL._Waehrung = False
|
||||
Me.txtAbwZZVL._WaehrungZeichen = True
|
||||
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66)
|
||||
Me.txtAbwZZVL.Location = New System.Drawing.Point(125, 113)
|
||||
Me.txtAbwZZVL.MaxLength = 10
|
||||
Me.txtAbwZZVL.MaxLineLength = -1
|
||||
Me.txtAbwZZVL.MaxLines_Warning = ""
|
||||
@@ -2130,13 +2127,13 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
|
||||
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
|
||||
Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(125, 132)
|
||||
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 65)
|
||||
Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
|
||||
Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
|
||||
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
|
||||
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbf_BankspesenMindestbetrag.Name = "txtAbf_BankspesenMindestbetrag"
|
||||
Me.txtAbf_BankspesenMindestbetrag.Size = New System.Drawing.Size(86, 20)
|
||||
Me.txtAbf_BankspesenMindestbetrag.Size = New System.Drawing.Size(43, 20)
|
||||
Me.txtAbf_BankspesenMindestbetrag.TabIndex = 16
|
||||
Me.txtAbf_BankspesenMindestbetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
@@ -2155,7 +2152,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtAbf_Bankspesen._Waehrung = False
|
||||
Me.txtAbf_Bankspesen._WaehrungZeichen = True
|
||||
Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 110)
|
||||
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 69)
|
||||
Me.txtAbf_Bankspesen.MaxLength = 10
|
||||
Me.txtAbf_Bankspesen.MaxLineLength = -1
|
||||
Me.txtAbf_Bankspesen.MaxLines_Warning = ""
|
||||
@@ -2181,7 +2178,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtAbf_Kreditaufwendungen._Waehrung = False
|
||||
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
|
||||
Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 88)
|
||||
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 47)
|
||||
Me.txtAbf_Kreditaufwendungen.MaxLength = 10
|
||||
Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
|
||||
Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
|
||||
@@ -2207,7 +2204,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtAbf_Vorlageprovision._Waehrung = False
|
||||
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
|
||||
Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 66)
|
||||
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 91)
|
||||
Me.txtAbf_Vorlageprovision.MaxLength = 10
|
||||
Me.txtAbf_Vorlageprovision.MaxLineLength = -1
|
||||
Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
|
||||
@@ -3234,8 +3231,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle57.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle57
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
||||
@@ -3334,8 +3331,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToOrderColumns = True
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle58.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle58
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
||||
@@ -3510,40 +3507,40 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvKreditkarten.AllowUserToDeleteRows = False
|
||||
Me.dgvKreditkarten.AllowUserToOrderColumns = True
|
||||
Me.dgvKreditkarten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle59.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle59
|
||||
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle60.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle60.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle60.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle60.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle60.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle60.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle60
|
||||
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle61.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle61
|
||||
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
||||
Me.dgvKreditkarten.MultiSelect = False
|
||||
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle62
|
||||
Me.dgvKreditkarten.RowHeadersVisible = False
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle63
|
||||
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
|
||||
@@ -3623,26 +3620,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvMWST
|
||||
'
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle64.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle64
|
||||
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle65.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle65.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle65.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle65.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle65.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle65
|
||||
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle66.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle66.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle66.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle66.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle66.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle66
|
||||
Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
|
||||
Me.dgvMWST.Name = "dgvMWST"
|
||||
Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
|
||||
@@ -3727,26 +3724,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvUstv_LaenderUndSteuernummern
|
||||
'
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle67.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle67
|
||||
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle68
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
|
||||
DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle69
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
|
||||
@@ -3997,26 +3994,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvIDS_Standard.AllowUserToAddRows = False
|
||||
Me.dgvIDS_Standard.AllowUserToDeleteRows = False
|
||||
Me.dgvIDS_Standard.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
DataGridViewCellStyle70.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle70
|
||||
Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle71.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle71.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle71.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle71.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle71.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle71
|
||||
Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16
|
||||
DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle72.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle72.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle72.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle72.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle72
|
||||
Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
|
||||
@@ -4039,26 +4036,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvIDS_Rabatte.AllowUserToAddRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle73.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle73
|
||||
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||
DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle74
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19
|
||||
DataGridViewCellStyle75.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle75.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle75.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle75.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle75.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle75
|
||||
Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
|
||||
@@ -4230,26 +4227,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
DataGridViewCellStyle76.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle76
|
||||
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||
DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle77.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle77
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22
|
||||
DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle78
|
||||
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
|
||||
Me.dgvSonst_IDSKunden.MultiSelect = False
|
||||
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
|
||||
@@ -4560,26 +4557,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
|
||||
DataGridViewCellStyle79.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle79
|
||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||
DataGridViewCellStyle80.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle80.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle80.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle80.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle80.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle80.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle80
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25
|
||||
DataGridViewCellStyle81.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle81.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle81.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle81.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle81.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle81
|
||||
Me.DataGridView1.Enabled = False
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
|
||||
Me.DataGridView1.MultiSelect = False
|
||||
@@ -4646,26 +4643,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.dgvBankverbindungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBankverbindungen.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
|
||||
DataGridViewCellStyle82.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle82
|
||||
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
|
||||
DataGridViewCellStyle83.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle83.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle83.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle83.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle83.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle83.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle83
|
||||
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28
|
||||
DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle84.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle84.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle84
|
||||
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
|
||||
Me.dgvBankverbindungen.MultiSelect = False
|
||||
Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
|
||||
@@ -4730,6 +4727,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.Label116)
|
||||
Me.GroupBox3.Controls.Add(Me.cbxBetreuer)
|
||||
Me.GroupBox3.Controls.Add(Me.cbxkeineMWSt)
|
||||
Me.GroupBox3.Controls.Add(Me.txtGruendungsDatum)
|
||||
Me.GroupBox3.Controls.Add(Me.Label33)
|
||||
@@ -4763,6 +4762,31 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Firma"
|
||||
'
|
||||
'Label116
|
||||
'
|
||||
Me.Label116.AutoSize = True
|
||||
Me.Label116.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label116.Location = New System.Drawing.Point(11, 185)
|
||||
Me.Label116.Name = "Label116"
|
||||
Me.Label116.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label116.TabIndex = 138
|
||||
Me.Label116.Text = "Betreuer:"
|
||||
'
|
||||
'cbxBetreuer
|
||||
'
|
||||
Me.cbxBetreuer._allowedValuesFreiText = Nothing
|
||||
Me.cbxBetreuer._allowFreiText = False
|
||||
Me.cbxBetreuer._value = ""
|
||||
Me.cbxBetreuer.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbxBetreuer.DropDownWidth = 150
|
||||
Me.cbxBetreuer.FlatStyle = System.Windows.Forms.FlatStyle.System
|
||||
Me.cbxBetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxBetreuer.FormattingEnabled = True
|
||||
Me.cbxBetreuer.Location = New System.Drawing.Point(110, 182)
|
||||
Me.cbxBetreuer.Name = "cbxBetreuer"
|
||||
Me.cbxBetreuer.Size = New System.Drawing.Size(120, 21)
|
||||
Me.cbxBetreuer.TabIndex = 137
|
||||
'
|
||||
'cbxkeineMWSt
|
||||
'
|
||||
Me.cbxkeineMWSt.AutoSize = True
|
||||
@@ -5794,6 +5818,40 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'Label117
|
||||
'
|
||||
Me.Label117.AutoSize = True
|
||||
Me.Label117.Location = New System.Drawing.Point(191, 94)
|
||||
Me.Label117.Name = "Label117"
|
||||
Me.Label117.Size = New System.Drawing.Size(30, 13)
|
||||
Me.Label117.TabIndex = 52
|
||||
Me.Label117.Text = "Min.:"
|
||||
'
|
||||
'txtAbf_Vorlageprovision_Mindestbetrag
|
||||
'
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._DateTimeOnly = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnly = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnlyKommastellen = ""
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._Prozent = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._ShortDateNew = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._ShortDateOnly = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._TimeOnly = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._TimeOnly_Seconds = False
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._value = ""
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 90)
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.Name = "txtAbf_Vorlageprovision_Mindestbetrag"
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.Size = New System.Drawing.Size(43, 20)
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.TabIndex = 53
|
||||
Me.txtAbf_Vorlageprovision_Mindestbetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -6189,7 +6247,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents Button13 As Button
|
||||
Friend WithEvents cbxVerzolltBeiExport As CheckBox
|
||||
Friend WithEvents cboFremdspeditionExport As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents btnDatevExport As Button
|
||||
Friend WithEvents Label98 As Label
|
||||
@@ -6276,4 +6333,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents PictureBox7 As PictureBox
|
||||
Friend WithEvents lblIDS_Rabatte As Label
|
||||
Friend WithEvents txtSonst_weitereKdNrWOELFL As TextBox
|
||||
Friend WithEvents Label116 As Label
|
||||
Friend WithEvents cbxBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtAbf_Vorlageprovision_Mindestbetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label117 As Label
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports MDM_Worker
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
@@ -6,15 +7,13 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
||||
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Dim FISKAL As cFiskal_Daten = Nothing
|
||||
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
|
||||
|
||||
Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
|
||||
Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
|
||||
Dim sql As New SQL
|
||||
Dim WunschKdNr As Integer = -1
|
||||
Public Filiale As Integer = -1
|
||||
Dim dgvKKLoaded As Boolean = False
|
||||
' Dim kdnr = -1
|
||||
|
||||
Public Event KD_SAVED(kdnr)
|
||||
Dim FUNC As New cProgramFunctions
|
||||
Dim isVerag360 As Boolean = False
|
||||
@@ -100,12 +99,14 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2.Überweisung", 2))
|
||||
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3.Bankverbindung", 3))
|
||||
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4.Auf Sicherheit", 4))
|
||||
|
||||
End If
|
||||
|
||||
bntGOBOXUmstellung.Enabled = isVerag360
|
||||
btnKKhinzufuegen.Enabled = isVerag360
|
||||
Button9.Enabled = isVerag360
|
||||
cbxkeineMWSt.Visible = isVerag360
|
||||
cbxBetreuer.Visible = isVerag360
|
||||
cbxVorauszahlung.Visible = isVerag360
|
||||
cbxAbf_Vorkasse.Visible = Not isVerag360
|
||||
|
||||
@@ -191,6 +192,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "")
|
||||
|
||||
txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "")
|
||||
txtAbf_Vorlageprovision_Mindestbetrag._value = loadValue(KUNDE.Vorlageprovision_Mindestbetrag, "")
|
||||
txtDebKdNr.Text = loadValue(KUNDE.KundenNrZentrale, KUNDE.KundenNr)
|
||||
|
||||
txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "")
|
||||
@@ -630,6 +632,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0)
|
||||
|
||||
KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0)
|
||||
KUNDE.Vorlageprovision_Mindestbetrag = If(IsNumeric(txtAbf_Vorlageprovision_Mindestbetrag._value), CDbl(txtAbf_Vorlageprovision_Mindestbetrag._value), 0)
|
||||
|
||||
KUNDE.Kreditlimit = txtVers_Kreditlimit.Text
|
||||
KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing)
|
||||
@@ -825,6 +828,8 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked
|
||||
ADRESSE.UTAExportCSV = cbxSonst_CsvUTA.Checked
|
||||
|
||||
KUNDE_ERW.kde_betreuer = isLeerNothing(cbxBetreuer.Text)
|
||||
|
||||
|
||||
KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
|
||||
|
||||
@@ -871,25 +876,31 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
Dim allowdelete = Not (KUNDE.hasEntry And ADRESSE.hasEntry) ' wenn der Eintrag bereits existiert
|
||||
|
||||
If Not checkAbfertigungsverbot() Then
|
||||
txtERROR.Text = "Grund für Abfertigungsverbot angeben!" : Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If ADRESSE.SAVE() Then
|
||||
If KUNDE.SAVE() Then
|
||||
If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
|
||||
If usrCntlAufschubkonten.SAVE() Then
|
||||
pnlNeukunde.Visible = False
|
||||
btnUIDPruef.Visible = True
|
||||
RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
|
||||
init(KUNDE.KundenNr)
|
||||
If KUNDE.SAVE() Then
|
||||
If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
|
||||
If usrCntlAufschubkonten.SAVE() Then
|
||||
pnlNeukunde.Visible = False
|
||||
btnUIDPruef.Visible = True
|
||||
RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
|
||||
init(KUNDE.KundenNr)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If allowdelete Then sql.doSQL("DELETE FROM Adressen WHERE AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
|
||||
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
|
||||
End If
|
||||
Else
|
||||
If allowdelete Then sql.doSQL("DELETE FROM Adressen WHERE AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
|
||||
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
|
||||
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
|
||||
End If
|
||||
Else
|
||||
txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
|
||||
End If
|
||||
End If
|
||||
initBesonderheitenNEU()
|
||||
initBesonderheitenNEU()
|
||||
|
||||
pnlverag360.Visible = isVerag360
|
||||
|
||||
@@ -957,7 +968,6 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cboFiliale.changeItem("4803")
|
||||
End Select
|
||||
|
||||
|
||||
cboAuswahl.Items.Clear()
|
||||
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
|
||||
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I"))
|
||||
@@ -980,6 +990,11 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 - Maut/Diesel", "6"))
|
||||
cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - LKW", "7"))
|
||||
|
||||
cbxBetreuer.Items.Clear()
|
||||
cbxBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboProvisionStaffelArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboProvisionStaffelArt.SelectedIndexChanged
|
||||
@@ -2254,7 +2269,6 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
.Columns(2).Width = 50
|
||||
.Columns(3).HeaderText = "Station"
|
||||
.Columns(4).HeaderText = "Rab-/Pr."
|
||||
.Columns(4).Width = 50
|
||||
.Columns(5).Width = 50
|
||||
.Columns(6).Width = 50
|
||||
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -2289,8 +2303,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
.Columns(2).HeaderText = "S-Nr"
|
||||
.Columns(2).Width = 50
|
||||
.Columns(3).HeaderText = "Station"
|
||||
.Columns(5).HeaderText = "Rab-/Pr."
|
||||
.Columns(5).Width = 50
|
||||
.Columns(4).HeaderText = "Rab-/Pr."
|
||||
.Columns(6).Width = 50
|
||||
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
@@ -2433,11 +2446,142 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
End If
|
||||
|
||||
If cbxkeineMWSt.Checked AndAlso Not KUNDE_ERW.kde_keineMWSt Then
|
||||
setRechnungenZuKunden(True)
|
||||
KUNDE_ERW.kde_keineMWSt = cbxkeineMWSt.Checked
|
||||
KUNDE_ERW.SAVE()
|
||||
init(KUNDE_ERW.kde_KundenNr, isVerag360)
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If Not cbxkeineMWSt.Checked AndAlso KUNDE_ERW.kde_keineMWSt Then
|
||||
setRechnungenZuKunden(False)
|
||||
KUNDE_ERW.kde_keineMWSt = cbxkeineMWSt.Checked
|
||||
KUNDE_ERW.SAVE()
|
||||
init(KUNDE_ERW.kde_KundenNr, isVerag360)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub setKundenVermerk(kunde As cKunde, kundeErw As cKundenErweitert, Kundenvermerk As String)
|
||||
|
||||
If kundeErw.kde_BesonderheitenNeu Then
|
||||
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
If SQL.doSQL("INSERT INTO tblKundenBesonderheiten (kdb_KundenNr,kdb_kategorie,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_visible,kdb_hervorheben,kdb_history) " &
|
||||
" VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & Kundenvermerk & "'," & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ",'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','" & Now() & "',1,1,0)", "FMZOLL") Then
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine
|
||||
kunde.Besonderheiten &= Kundenvermerk
|
||||
|
||||
kunde.SAVE()
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub setRechnungenZuKunden(zuriueckzumKunden As Boolean)
|
||||
|
||||
Dim Infotext As String = ""
|
||||
Dim Vermerk As String = ""
|
||||
|
||||
If zuriueckzumKunden Then
|
||||
Infotext = "Datum für Rücksendung von Orig-Rechnungen"
|
||||
Else
|
||||
Infotext = "Datum für Verw.der Orig-Rechnungen über MDM"
|
||||
End If
|
||||
|
||||
Dim f As New frmDatumsabfrage(Infotext, True)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
|
||||
|
||||
Vermerk = "Die RS der Lieferatentenrechnung wurden ab " & pruefdatum.ToShortDateString & " auf "
|
||||
|
||||
If zuriueckzumKunden Then
|
||||
Vermerk &= "ZURÜCK ZUM KUNDEN gesetzt!"
|
||||
Else
|
||||
Vermerk &= "VON MDM VERWALTET gesetzt!"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If ADRESSE IsNot Nothing Then
|
||||
|
||||
Dim allSet As Boolean = False
|
||||
|
||||
If ADRESSE.WölflKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.WölflKundenNr) Then
|
||||
Dim rmc As cRMC
|
||||
allSet = rmc.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.WölflKundenNr)
|
||||
End If
|
||||
|
||||
If ADRESSE.weitereWölflKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.weitereWölflKundenNr) Then
|
||||
Dim rmc As cRMC
|
||||
allSet = rmc.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.weitereWölflKundenNr)
|
||||
End If
|
||||
|
||||
If ADRESSE.MSEKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.MSEKundenNr) Then
|
||||
Dim MSE As cMSEAPI
|
||||
allSet = MSE.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.MSEKundenNr)
|
||||
End If
|
||||
|
||||
If ADRESSE.UTAKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.UTAKundenNr) Then
|
||||
Dim UTA As cUTA
|
||||
allSet = UTA.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.UTAKundenNr)
|
||||
End If
|
||||
|
||||
If ADRESSE.PLOSEKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.PLOSEKundenNr) Then
|
||||
Dim plose As cPLOSE_Inv_Data
|
||||
allSet = plose.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.PLOSEKundenNr)
|
||||
End If
|
||||
|
||||
If ADRESSE.IDSKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.IDSKundenNr) Then 'KundenNr über zwischentabelle
|
||||
Dim ids As cIDS
|
||||
allSet = ids.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.AdressenNr)
|
||||
End If
|
||||
|
||||
If allSet Then
|
||||
MsgBox(Vermerk)
|
||||
setKundenVermerk(KUNDE, KUNDE_ERW, Vermerk)
|
||||
Else
|
||||
If zuriueckzumKunden Then
|
||||
MsgBox("Fehler beim Zurücksetzen auf 'zurück zum Kunden senden' ab " & pruefdatum.ToShortDateString & "!")
|
||||
Else
|
||||
MsgBox("Fehler beim Zurücksetzen auf 'von MDM verwaltet' ab " & pruefdatum.ToShortDateString & "!")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Dim Vermerk_INfoNichtGesetzt As String = ""
|
||||
If zuriueckzumKunden Then
|
||||
Vermerk_INfoNichtGesetzt = "ACHTUNG! Der Info, damit die Originalrechnungen an den Kunden geschickt wurden, wurde NICHT gesetzt!"
|
||||
Else
|
||||
Vermerk_INfoNichtGesetzt = "ACHTUNG! Der Info, damit die Originalrechnungen über MDM verwaltet werden, wurde NICHT gesetzt!"
|
||||
End If
|
||||
|
||||
MsgBox(Vermerk_INfoNichtGesetzt & vbNewLine & "Das kann zu Problemen bei der autom. Rücksendung der Originalrechnungen führen!")
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Vermerk_INfoNichtGesetzt, "KundenNr: " & KUNDE.KundenNr, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxVorauszahlung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorauszahlung.CheckedChanged
|
||||
txtVorauszahlung.Enabled = cbxVorauszahlung.Checked
|
||||
If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
|
||||
@@ -2462,8 +2606,8 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End Sub
|
||||
|
||||
Private Sub btnBnkExcel_Click(sender As Object, e As EventArgs) Handles btnBnkExcel.Click
|
||||
Dim SQL As String = "SELECT [bnk_KundenNr] as KdNr,[bnk_iban] as IBAN,[bnk_bic] as BIC,[bnk_anschrift] as Name,isnull([bnk_hauptkonto],0) as HK,isnull([bnk_archiv],0) as geschlossen ,cast([bnk_Datum] as Date) as Datum
|
||||
FROM tblBankverbindungen order by bnk_KundenNr"
|
||||
Dim SQL As String = "SELECT [bnk_KundenNr] as KdNr, Adressen.[Name 1] as Kundenname ,[bnk_iban] as IBAN,[bnk_bic] as BIC,[bnk_anschrift] as Bankname,isnull([bnk_hauptkonto],0) as HK,isnull([bnk_archiv],0) as geschlossen ,cast([bnk_Datum] as Date) as Datum
|
||||
FROM tblBankverbindungen inner join Adressen on Adressen.AdressenNr = bnk_KundenNr order by bnk_KundenNr"
|
||||
|
||||
Dim dt_Bank As DataTable = (New SQL).loadDgvBySql(SQL, "FMZOLL")
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_Bank,,,,,,,, True)
|
||||
@@ -2501,4 +2645,26 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function checkAbfertigungsverbot()
|
||||
|
||||
|
||||
If cboAbfVerb_Abfertigungsverbot.Checked Then
|
||||
|
||||
If rtbAbfVerb_Grund.Text.Trim <> "" AndAlso rtbAbfVerb_Grund.TextLength < 4 Then
|
||||
Return False
|
||||
|
||||
Else
|
||||
|
||||
Return True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
159
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
159
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btnSDL_Alle = New System.Windows.Forms.Button()
|
||||
@@ -39,6 +39,10 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.lblSumBto = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
|
||||
@@ -64,11 +68,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.cbxTest = New System.Windows.Forms.CheckBox()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -282,6 +283,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.cbxTest)
|
||||
Me.Panel1.Controls.Add(Me.Label7)
|
||||
Me.Panel1.Controls.Add(Me.txtKundenNrbis)
|
||||
Me.Panel1.Controls.Add(Me.txtKundenNrvon)
|
||||
@@ -309,6 +311,70 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel1.Size = New System.Drawing.Size(260, 907)
|
||||
Me.Panel1.TabIndex = 23
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(121, 126)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label7.TabIndex = 60
|
||||
Me.Label7.Text = "-"
|
||||
'
|
||||
'txtKundenNrbis
|
||||
'
|
||||
Me.txtKundenNrbis._DateTimeOnly = False
|
||||
Me.txtKundenNrbis._numbersOnly = True
|
||||
Me.txtKundenNrbis._numbersOnlyKommastellen = ""
|
||||
Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
|
||||
Me.txtKundenNrbis._Prozent = False
|
||||
Me.txtKundenNrbis._ShortDateNew = False
|
||||
Me.txtKundenNrbis._ShortDateOnly = False
|
||||
Me.txtKundenNrbis._TimeOnly = False
|
||||
Me.txtKundenNrbis._TimeOnly_Seconds = False
|
||||
Me.txtKundenNrbis._value = ""
|
||||
Me.txtKundenNrbis._Waehrung = False
|
||||
Me.txtKundenNrbis._WaehrungZeichen = False
|
||||
Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
|
||||
Me.txtKundenNrbis.MaxLineLength = -1
|
||||
Me.txtKundenNrbis.MaxLines_Warning = ""
|
||||
Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKundenNrbis.Name = "txtKundenNrbis"
|
||||
Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
|
||||
Me.txtKundenNrbis.TabIndex = 59
|
||||
'
|
||||
'txtKundenNrvon
|
||||
'
|
||||
Me.txtKundenNrvon._DateTimeOnly = False
|
||||
Me.txtKundenNrvon._numbersOnly = True
|
||||
Me.txtKundenNrvon._numbersOnlyKommastellen = ""
|
||||
Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
|
||||
Me.txtKundenNrvon._Prozent = False
|
||||
Me.txtKundenNrvon._ShortDateNew = False
|
||||
Me.txtKundenNrvon._ShortDateOnly = False
|
||||
Me.txtKundenNrvon._TimeOnly = False
|
||||
Me.txtKundenNrvon._TimeOnly_Seconds = False
|
||||
Me.txtKundenNrvon._value = ""
|
||||
Me.txtKundenNrvon._Waehrung = False
|
||||
Me.txtKundenNrvon._WaehrungZeichen = False
|
||||
Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
|
||||
Me.txtKundenNrvon.MaxLineLength = -1
|
||||
Me.txtKundenNrvon.MaxLines_Warning = ""
|
||||
Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKundenNrvon.Name = "txtKundenNrvon"
|
||||
Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
|
||||
Me.txtKundenNrvon.TabIndex = 58
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(8, 107)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label6.TabIndex = 57
|
||||
Me.Label6.Text = "KundenNr."
|
||||
'
|
||||
'lblSumBto
|
||||
'
|
||||
Me.lblSumBto.AutoSize = True
|
||||
@@ -529,12 +595,13 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvLFRechnung.AllowUserToDeleteRows = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeColumns = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
|
||||
Me.dgvLFRechnung.Name = "dgvLFRechnung"
|
||||
Me.dgvLFRechnung.ReadOnly = True
|
||||
Me.dgvLFRechnung.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvLFRechnung.Size = New System.Drawing.Size(1354, 770)
|
||||
Me.dgvLFRechnung.TabIndex = 29
|
||||
@@ -546,8 +613,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvDetails.AllowUserToDeleteRows = False
|
||||
Me.dgvDetails.AllowUserToResizeColumns = False
|
||||
Me.dgvDetails.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
|
||||
@@ -585,74 +652,21 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(8, 107)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label6.TabIndex = 57
|
||||
Me.Label6.Text = "KundenNr."
|
||||
'
|
||||
'ContextMenuStrip2
|
||||
'
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'txtKundenNrvon
|
||||
'cbxTest
|
||||
'
|
||||
Me.txtKundenNrvon._DateTimeOnly = False
|
||||
Me.txtKundenNrvon._numbersOnly = True
|
||||
Me.txtKundenNrvon._numbersOnlyKommastellen = ""
|
||||
Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
|
||||
Me.txtKundenNrvon._Prozent = False
|
||||
Me.txtKundenNrvon._ShortDateNew = False
|
||||
Me.txtKundenNrvon._ShortDateOnly = False
|
||||
Me.txtKundenNrvon._TimeOnly = False
|
||||
Me.txtKundenNrvon._TimeOnly_Seconds = False
|
||||
Me.txtKundenNrvon._value = ""
|
||||
Me.txtKundenNrvon._Waehrung = False
|
||||
Me.txtKundenNrvon._WaehrungZeichen = False
|
||||
Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
|
||||
Me.txtKundenNrvon.MaxLineLength = -1
|
||||
Me.txtKundenNrvon.MaxLines_Warning = ""
|
||||
Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKundenNrvon.Name = "txtKundenNrvon"
|
||||
Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
|
||||
Me.txtKundenNrvon.TabIndex = 58
|
||||
'
|
||||
'txtKundenNrbis
|
||||
'
|
||||
Me.txtKundenNrbis._DateTimeOnly = False
|
||||
Me.txtKundenNrbis._numbersOnly = True
|
||||
Me.txtKundenNrbis._numbersOnlyKommastellen = ""
|
||||
Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
|
||||
Me.txtKundenNrbis._Prozent = False
|
||||
Me.txtKundenNrbis._ShortDateNew = False
|
||||
Me.txtKundenNrbis._ShortDateOnly = False
|
||||
Me.txtKundenNrbis._TimeOnly = False
|
||||
Me.txtKundenNrbis._TimeOnly_Seconds = False
|
||||
Me.txtKundenNrbis._value = ""
|
||||
Me.txtKundenNrbis._Waehrung = False
|
||||
Me.txtKundenNrbis._WaehrungZeichen = False
|
||||
Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
|
||||
Me.txtKundenNrbis.MaxLineLength = -1
|
||||
Me.txtKundenNrbis.MaxLines_Warning = ""
|
||||
Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKundenNrbis.Name = "txtKundenNrbis"
|
||||
Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
|
||||
Me.txtKundenNrbis.TabIndex = 59
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(121, 126)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label7.TabIndex = 60
|
||||
Me.Label7.Text = "-"
|
||||
Me.cbxTest.AutoSize = True
|
||||
Me.cbxTest.Location = New System.Drawing.Point(146, 214)
|
||||
Me.cbxTest.Name = "cbxTest"
|
||||
Me.cbxTest.Size = New System.Drawing.Size(61, 17)
|
||||
Me.cbxTest.TabIndex = 61
|
||||
Me.cbxTest.Text = "testmail"
|
||||
Me.cbxTest.UseVisualStyleBackColor = True
|
||||
Me.cbxTest.Visible = False
|
||||
'
|
||||
'usrcntlFremdrechnungen
|
||||
'
|
||||
@@ -723,4 +737,5 @@ Partial Class usrcntlFremdrechnungen
|
||||
Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
|
||||
Friend WithEvents cbxTest As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -53,6 +53,9 @@ Public Class usrcntlFremdrechnungen
|
||||
txtKundenNrvon.Enabled = kdNr <= 0
|
||||
txtKundenNrbis.Enabled = kdNr <= 0
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
|
||||
cbxTest.Visible = True
|
||||
End If
|
||||
|
||||
Dim kdNr_WHERE = ""
|
||||
If kdNr_filter Then
|
||||
@@ -245,60 +248,60 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
'IDS
|
||||
Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
" invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & whereKundennrKreisLieferanten & " order by [YearMonthDay] desc, [Invoicenumber]"
|
||||
" invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(1 as bit) as OrigRE FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, whereKundennrKreisLieferanten) & ") " & sqlfehlendePDF & " and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
|
||||
|
||||
'UTA
|
||||
Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
" Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv"
|
||||
" Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv,cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv, InvToCustomer "
|
||||
|
||||
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & " order by Rechnungsdatum desc"
|
||||
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv, cast(0 as bit) as OrigRE FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & " order by Rechnungsdatum desc"
|
||||
|
||||
'PLOSE
|
||||
Case "PLOSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
" Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
|
||||
" Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv, cast(isnull(plInv_InvToCustomer, 0) as bit) as OrigRE FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
|
||||
|
||||
'MSE
|
||||
Case "MSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
" partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id"
|
||||
" partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id"
|
||||
|
||||
'VERAG
|
||||
Case "VERAG" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
" Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer"
|
||||
'RMC
|
||||
Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
|
||||
"Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr"
|
||||
"Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr"
|
||||
|
||||
Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
|
||||
"
|
||||
--IDS
|
||||
'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber]
|
||||
'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(1 as bit) as OrigRE FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber]
|
||||
|
||||
UNION ALL
|
||||
|
||||
|
||||
--MSE
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & " --order by invoice_date, invoice_id
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & " --order by invoice_date, invoice_id
|
||||
|
||||
UNION ALL
|
||||
|
||||
--UTA
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & " --order by Rechnungsnummer desc
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2], InvToCustomer UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as OrigRE FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & " --order by Rechnungsnummer desc
|
||||
|
||||
UNION ALL
|
||||
--VERAG
|
||||
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden, cast(0 as bit) as OrigRE FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
|
||||
|
||||
|
||||
UNION ALL
|
||||
--PLOSE
|
||||
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(plInv_InvToCustomer, 0) as bit) as OrigRE FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
|
||||
|
||||
UNION ALL
|
||||
|
||||
--RMC
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr
|
||||
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr
|
||||
|
||||
) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & whereKundennrKreisAlle & " order by Rechnungsdatum desc"
|
||||
|
||||
@@ -371,188 +374,235 @@ Public Class usrcntlFremdrechnungen
|
||||
'das hier geht (aktuell) nur PRO KUNDE -> ALSO nicht in der Gesamtübersicht!!!!!!!!
|
||||
|
||||
Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'"
|
||||
'If aktLieferant <> "IDS" Then 'IDS Default auf True gesetzt!
|
||||
|
||||
If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
|
||||
Dim erw As New cKundenErweitert(KUNDE.KundenNr)
|
||||
If erw.kde_keineMWSt Then Return SQLWhere
|
||||
Dim invToCustomer As String = ""
|
||||
|
||||
SQLWhere &= "AND ("
|
||||
'ORIGINAL-RECHNUNG senden wenn:
|
||||
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
Select Case cbx.CheckState
|
||||
' Case CheckState.Unchecked : invToCustomer = "0" Hier alle anzeigen!!!
|
||||
Case CheckState.Checked : invToCustomer = "1"
|
||||
End Select
|
||||
|
||||
Dim landKZiso2 = ""
|
||||
If invToCustomer <> "" Then
|
||||
|
||||
If land <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
|
||||
If KUNDE.LandKz <> "" Then
|
||||
If KUNDE.LandKz.Length = 2 Then
|
||||
landKZiso2 = KUNDE.LandKz
|
||||
ElseIf KUNDE.LandKz.Length = 3 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
|
||||
ElseIf KUNDE.LandKz.Length = 1 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
|
||||
End If
|
||||
|
||||
SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
|
||||
End If
|
||||
End If
|
||||
|
||||
'2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
|
||||
Select Case aktLieferant
|
||||
Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 " 'UTA bei UTA auch EPN ausblenden!
|
||||
Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
|
||||
Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
|
||||
Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
|
||||
Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
|
||||
Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
|
||||
Case "UTA_" : SQLWhere &= " 1 <> 1"
|
||||
Case Else : SQLWhere &= " 1 <> 1"
|
||||
Select Case aktLieferant
|
||||
'Case "IDS" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "PLOSE" : SQLWhere &= " AND isnull(plInv_InvToCustomer,0) =" & invToCustomer
|
||||
Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "UTA" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "VERAG" : SQLWhere &= " AND 1 <> " & invToCustomer
|
||||
Case "_" : SQLWhere &= " AND 1 <> " & invToCustomer
|
||||
Case "UTA_" : SQLWhere &= " AND 1 <> " & invToCustomer
|
||||
|
||||
End Select
|
||||
|
||||
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
|
||||
If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
|
||||
landBez &= "'" & row.Item("Erstattungsland") & "'"
|
||||
counter = counter + 1
|
||||
If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
If aktLieferant = "ALLE" Then SQLWhere &= " OR " & land & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
|
||||
End If
|
||||
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
If dtKundeMWST IsNot Nothing Then
|
||||
If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtKundeMWST.Rows
|
||||
landBez &= "'" & row.Item("LandKz") & "'"
|
||||
counter = counter + 1
|
||||
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
End If
|
||||
End If
|
||||
|
||||
SQLWhere &= ")"
|
||||
'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
|
||||
|
||||
' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
|
||||
|
||||
'Dim erw As New cKundenErweitert(KUNDE.KundenNr)
|
||||
'If erw.kde_keineMWSt Then Return SQLWhere
|
||||
|
||||
'SQLWhere &= "AND ("
|
||||
''ORIGINAL-RECHNUNG senden wenn:
|
||||
''1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
|
||||
'Dim landKZiso2 = ""
|
||||
|
||||
'If land <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
|
||||
' If KUNDE.LandKz <> "" Then
|
||||
' If KUNDE.LandKz.Length = 2 Then
|
||||
' landKZiso2 = KUNDE.LandKz
|
||||
' ElseIf KUNDE.LandKz.Length = 3 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
|
||||
' ElseIf KUNDE.LandKz.Length = 1 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
|
||||
' End If
|
||||
|
||||
' SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
''2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
|
||||
'Select Case aktLieferant
|
||||
' Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 " 'UTA bei UTA auch EPN ausblenden!
|
||||
' Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
|
||||
' Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
|
||||
' Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
|
||||
' Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
|
||||
' Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
|
||||
' Case "UTA_" : SQLWhere &= " 1 <> 1"
|
||||
' Case Else : SQLWhere &= " 1 <> 1"
|
||||
|
||||
'End Select
|
||||
|
||||
''3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
|
||||
'If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
' Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
|
||||
' landBez &= "'" & row.Item("Erstattungsland") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
' If aktLieferant = "ALLE" Then SQLWhere &= " OR " & land & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
|
||||
'End If
|
||||
|
||||
''4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
'If dtKundeMWST IsNot Nothing Then
|
||||
' If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtKundeMWST.Rows
|
||||
' landBez &= "'" & row.Item("LandKz") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'SQLWhere &= ")"
|
||||
|
||||
|
||||
'nicht NOTWENDIG!
|
||||
'Select Case KUNDE.LandKz
|
||||
' Case "SRB", "BIH", "MK", "MNE", "TR"
|
||||
' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
|
||||
'End Select
|
||||
' 'nicht NOTWENDIG!
|
||||
' 'Select Case KUNDE.LandKz
|
||||
' ' Case "SRB", "BIH", "MK", "MNE", "TR"
|
||||
' ' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
|
||||
' 'End Select
|
||||
|
||||
|
||||
End If
|
||||
'End If
|
||||
|
||||
Return SQLWhere
|
||||
Return SQLWhere
|
||||
|
||||
End Function
|
||||
|
||||
Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As String
|
||||
Private Function setSQLDetailWhere(aktLieferant As String, land As String) As String
|
||||
|
||||
|
||||
'das hier ist nur PRO KUNDE möglich!!!
|
||||
|
||||
'Ob orig-Rechnung wird nun in der Datenbank gesetzt!!!!
|
||||
|
||||
' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
|
||||
|
||||
|
||||
Dim SQLWhere = ""
|
||||
|
||||
If (cbx.Checked AndAlso KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 OrElse cbx.Checked AndAlso KundenNr_Input > 0) Then
|
||||
Dim checkKundenNR As Integer = -1
|
||||
If KUNDE.KundenNr > 0 Then
|
||||
checkKundenNR = KUNDE.KundenNr
|
||||
ElseIf KundenNr_Input > 0 Then
|
||||
checkKundenNR = KundenNr_Input
|
||||
KUNDE = kundenSQL.getKundeByKdNr(KundenNr_Input)
|
||||
End If
|
||||
Dim invToCustomer As String = ""
|
||||
|
||||
Dim erw As New cKundenErweitert(checkKundenNR)
|
||||
If erw.kde_keineMWSt Then Return SQLWhere
|
||||
SQLWhere &= "AND ("
|
||||
'ORIGINAL-RECHNUNG senden wenn:
|
||||
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
Dim landKZiso2 = ""
|
||||
Select Case cbx.CheckState
|
||||
'Case CheckState.Unchecked : invToCustomer = "0"
|
||||
Case CheckState.Checked : invToCustomer = "1"
|
||||
End Select
|
||||
|
||||
If KUNDE.LandKz <> "" Then
|
||||
If invToCustomer <> "" Then
|
||||
SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
|
||||
If KUNDE.LandKz.Length = 2 Then
|
||||
landKZiso2 = KUNDE.LandKz
|
||||
ElseIf KUNDE.LandKz.Length = 3 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
|
||||
ElseIf KUNDE.LandKz.Length = 1 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
|
||||
End If
|
||||
|
||||
If land <> "" Then SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'2. wenn die Rechnung die Summe NULL aufweist
|
||||
Select Case aktLieferant
|
||||
Case "IDS" : If Not alle Then SQLWhere &= " OR [AmminclVAT] = 0" 'IDS
|
||||
End Select
|
||||
|
||||
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
|
||||
If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
Dim dtkeineMWST_IDS As DataTable = dtkeineMWST.Select("Lieferant = '' AND Land = '" & landKZiso2 & "'").CopyToDataTable
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtkeineMWST_IDS.Rows
|
||||
landBez &= "'" & row.Item("Erstattungsland") & "'"
|
||||
counter = counter + 1
|
||||
If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
End If
|
||||
|
||||
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
If dtKundeMWST Is Nothing Then
|
||||
|
||||
If dtKundeMWSTTemp IsNot Nothing Then
|
||||
|
||||
If land <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtKundeMWSTTemp.Rows
|
||||
landBez &= "'" & row.Item("LandKz") & "'"
|
||||
counter = counter + 1
|
||||
If (dtKundeMWSTTemp.Rows.Count <> 0 And counter <> dtKundeMWSTTemp.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
End If
|
||||
SQLWhere &= ")"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtKundeMWST.Rows
|
||||
landBez &= "'" & row.Item("LandKz") & "'"
|
||||
counter = counter + 1
|
||||
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
End If
|
||||
SQLWhere &= ")"
|
||||
End If
|
||||
End If
|
||||
|
||||
If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then
|
||||
SQLWhere &= ")"
|
||||
End If
|
||||
|
||||
|
||||
'If (cbx.Checked AndAlso KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 OrElse cbx.Checked AndAlso KundenNr_Input > 0) Then
|
||||
' Dim checkKundenNR As Integer = -1
|
||||
' If KUNDE.KundenNr > 0 Then
|
||||
' checkKundenNR = KUNDE.KundenNr
|
||||
' ElseIf KundenNr_Input > 0 Then
|
||||
' checkKundenNR = KundenNr_Input
|
||||
' KUNDE = kundenSQL.getKundeByKdNr(KundenNr_Input)
|
||||
' End If
|
||||
|
||||
' Dim erw As New cKundenErweitert(checkKundenNR)
|
||||
' If erw.kde_keineMWSt Then Return SQLWhere
|
||||
' SQLWhere &= "AND ("
|
||||
' 'ORIGINAL-RECHNUNG senden wenn:
|
||||
' '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
' Dim landKZiso2 = ""
|
||||
|
||||
' If KUNDE.LandKz <> "" Then
|
||||
|
||||
' If KUNDE.LandKz.Length = 2 Then
|
||||
' landKZiso2 = KUNDE.LandKz
|
||||
' ElseIf KUNDE.LandKz.Length = 3 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
|
||||
' ElseIf KUNDE.LandKz.Length = 1 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
|
||||
' End If
|
||||
|
||||
' If land <> "" Then SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' '2. wenn die Rechnung die Summe NULL aufweist
|
||||
' Select Case aktLieferant
|
||||
' Case "IDS" : If Not alle Then SQLWhere &= " OR [AmminclVAT] = 0" 'IDS
|
||||
' End Select
|
||||
|
||||
' '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
|
||||
' If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
' Dim dtkeineMWST_IDS As DataTable = dtkeineMWST.Select("Lieferant = '' AND Land = '" & landKZiso2 & "'").CopyToDataTable
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtkeineMWST_IDS.Rows
|
||||
' landBez &= "'" & row.Item("Erstattungsland") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
' End If
|
||||
|
||||
|
||||
' '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
' If dtKundeMWST Is Nothing Then
|
||||
|
||||
' If dtKundeMWSTTemp IsNot Nothing Then
|
||||
|
||||
' If land <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtKundeMWSTTemp.Rows
|
||||
' landBez &= "'" & row.Item("LandKz") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtKundeMWSTTemp.Rows.Count <> 0 And counter <> dtKundeMWSTTemp.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
' End If
|
||||
' SQLWhere &= ")"
|
||||
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
|
||||
' Else
|
||||
|
||||
|
||||
' If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtKundeMWST.Rows
|
||||
' landBez &= "'" & row.Item("LandKz") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
' End If
|
||||
' SQLWhere &= ")"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then
|
||||
' SQLWhere &= ")"
|
||||
'End If
|
||||
|
||||
|
||||
Return SQLWhere
|
||||
@@ -838,16 +888,14 @@ Public Class usrcntlFremdrechnungen
|
||||
For Each kvp In groups
|
||||
|
||||
Dim TextHTMLtable = ""
|
||||
|
||||
Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
|
||||
|
||||
If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then
|
||||
If pdflist.Count > 0 Then
|
||||
|
||||
Else
|
||||
createEmail(kvp.Key, TextHTMLtable, pdflist)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
@@ -860,107 +908,25 @@ Public Class usrcntlFremdrechnungen
|
||||
Private Function createEMailTable(ByRef TextHTMLtable As String, kvp As KeyValuePair(Of Object, List(Of DataGridViewRow)), onlyRelevantInvioces As Boolean) As List(Of String)
|
||||
|
||||
|
||||
' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
|
||||
|
||||
'------------------------------------------------------------
|
||||
'toDo-Logik für die Ausnahmen - START - wie in Function "setSQLWhere(aktLieferant As String, land As String) As String"
|
||||
'------------------------------------------------------------
|
||||
'Dim landKZiso2 = ""
|
||||
'Dim KUNDE_TEMP As cKunden
|
||||
'KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
|
||||
|
||||
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
|
||||
Dim landKZiso2 = ""
|
||||
Dim KUNDE_TEMP As cKunden
|
||||
KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
|
||||
|
||||
If KUNDE_TEMP.LandKz <> "" Then
|
||||
If KUNDE_TEMP.LandKz.Length = 2 Then
|
||||
landKZiso2 = KUNDE_TEMP.LandKz
|
||||
ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
|
||||
ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
|
||||
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
|
||||
|
||||
|
||||
'2. wenn die Rechnung die Summe NULL aufweist
|
||||
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
|
||||
'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
|
||||
' Dim erw As New cKundenErweitert(KUNDE.KundenNr)
|
||||
' If erw.kde_keineMWSt Then Return SQLWhere
|
||||
|
||||
' SQLWhere &= "AND ("
|
||||
' 'ORIGINAL-RECHNUNG senden wenn:
|
||||
' '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
|
||||
' Dim landKZiso2 = ""
|
||||
|
||||
' If LAND <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
|
||||
' If KUNDE.LandKz <> "" Then
|
||||
' If KUNDE.LandKz.Length = 2 Then
|
||||
' landKZiso2 = KUNDE.LandKz
|
||||
' ElseIf KUNDE.LandKz.Length = 3 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
|
||||
' ElseIf KUNDE.LandKz.Length = 1 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
|
||||
' End If
|
||||
|
||||
' SQLWhere &= " " & LAND & " in ('" & landKZiso2 & "')"
|
||||
' End If
|
||||
'If KUNDE_TEMP.LandKz <> "" Then
|
||||
' If KUNDE_TEMP.LandKz.Length = 2 Then
|
||||
' landKZiso2 = KUNDE_TEMP.LandKz
|
||||
' ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
|
||||
' ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
|
||||
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
|
||||
' End If
|
||||
|
||||
' '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
|
||||
' Select Case aktLieferant
|
||||
' Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 " 'UTA bei UTA auch EPN ausblenden!
|
||||
' Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
|
||||
' Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
|
||||
' Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
|
||||
' Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
|
||||
' Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
|
||||
' Case "UTA_" : SQLWhere &= " 1 <> 1"
|
||||
' Case Else : SQLWhere &= " 1 <> 1"
|
||||
|
||||
' End Select
|
||||
|
||||
' '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
|
||||
' If LAND <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
' Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
|
||||
' landBez &= "'" & row.Item("Erstattungsland") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
|
||||
' If aktLieferant = "ALLE" Then SQLWhere &= " OR " & LAND & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
|
||||
' End If
|
||||
|
||||
' '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
' If LAND <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
' Dim counter = 0
|
||||
' Dim landBez As String = ""
|
||||
' For Each row As DataRow In dtKundeMWST.Rows
|
||||
' landBez &= "'" & row.Item("LandKz") & "'"
|
||||
' counter = counter + 1
|
||||
' If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
|
||||
' Next
|
||||
' SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
|
||||
' End If
|
||||
' SQLWhere &= ")"
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------
|
||||
'toDo-Logik für die Ausnahmen - END
|
||||
'------------------------------------------------------------
|
||||
'End If
|
||||
|
||||
'Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
|
||||
|
||||
|
||||
TextHTMLtable &= "<table border=1>"
|
||||
@@ -981,42 +947,37 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
|
||||
Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
|
||||
|
||||
If onlyRelevantInvioces AndAlso erw.kde_keineMWSt AndAlso Lieferant <> "IDS" Then 'weil ISD wieder sonderlogik -> siehe weiter unten!
|
||||
sendÍnvoice = True 'dann immer mitschicken!
|
||||
End If
|
||||
|
||||
'ORIGINAL-RECHNUNG senden wenn:
|
||||
If onlyRelevantInvioces Then
|
||||
|
||||
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
|
||||
''1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
|
||||
'If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
|
||||
|
||||
'2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
|
||||
If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
|
||||
''2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
|
||||
'If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
|
||||
|
||||
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
|
||||
If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
|
||||
Dim dtkeineMWST_ohneContraint As New DataTable
|
||||
If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
|
||||
If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
|
||||
End If
|
||||
' '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
|
||||
' If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
|
||||
' Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
|
||||
' Dim dtkeineMWST_ohneContraint As New DataTable
|
||||
' If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
|
||||
' If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
|
||||
' End If
|
||||
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
' '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
|
||||
Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
|
||||
Dim dtKundeMWSTTemp_ohneContraint As New DataTable
|
||||
If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
|
||||
If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
|
||||
End If
|
||||
' If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
|
||||
' Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
|
||||
' Dim dtKundeMWSTTemp_ohneContraint As New DataTable
|
||||
' If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
|
||||
' If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
|
||||
' End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Lieferant = "VERAG" Then
|
||||
If Lieferant = "VERAG" Then
|
||||
|
||||
'VERAG IGNORIEREN
|
||||
'Dim ReDat = row.Cells("Rechnungsdatum").Value
|
||||
@@ -1035,7 +996,7 @@ Public Class usrcntlFremdrechnungen
|
||||
'IDS hat wieder sonderlogik
|
||||
|
||||
Dim dt As New DataTable
|
||||
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True, kvp.Key, dtKundeMWSTTemp)
|
||||
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True, kvp.Key)
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
@@ -1059,24 +1020,24 @@ Public Class usrcntlFremdrechnungen
|
||||
Next
|
||||
|
||||
Else
|
||||
If sendÍnvoice Then
|
||||
TextHTMLtable &= "<tr>"
|
||||
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
|
||||
|
||||
Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
|
||||
If daId > 0 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
pdflist.Add(DS.GET_TOP1_PATH())
|
||||
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
|
||||
Else
|
||||
TextHTMLtable &= "<td><b>-</b></td>"
|
||||
End If
|
||||
|
||||
TextHTMLtable &= "</tr>"
|
||||
TextHTMLtable &= "<tr>"
|
||||
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
|
||||
|
||||
Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
|
||||
If daId > 0 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
pdflist.Add(DS.GET_TOP1_PATH())
|
||||
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
|
||||
Else
|
||||
TextHTMLtable &= "<td><b>-</b></td>"
|
||||
End If
|
||||
|
||||
TextHTMLtable &= "</tr>"
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1145,8 +1106,6 @@ Public Class usrcntlFremdrechnungen
|
||||
Case Else
|
||||
Mail.Subject = kundeMail.Kurzname & " - Invoice No."
|
||||
|
||||
Mail.HTMLBody = TextHTMLtable
|
||||
|
||||
Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the original invoice mentioned above.<br><br>"
|
||||
|
||||
Mail.HTMLBody &= TextHTMLtable
|
||||
@@ -1169,6 +1128,12 @@ Public Class usrcntlFremdrechnungen
|
||||
Mail.To &= kundeMail.EMail
|
||||
Mail.CC &= kundeMail.EMail2
|
||||
|
||||
If cbxTest.Checked Then
|
||||
Mail.To = "d.breimaier@verag.ag"
|
||||
Mail.CC = "d.breimaier@verag.ag"
|
||||
|
||||
End If
|
||||
|
||||
If cbxMailoeffnen.Checked Then
|
||||
Try
|
||||
|
||||
@@ -1198,7 +1163,6 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
If Mail IsNot Nothing Then
|
||||
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kdNr)
|
||||
|
||||
API.api_EMail = Mail.To
|
||||
@@ -1476,20 +1440,12 @@ Public Class usrcntlFremdrechnungen
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable
|
||||
|
||||
|
||||
|
||||
If dtKundeMWSTTemp Is Nothing AndAlso KundenNr_Input > 0 Then
|
||||
dtKundeMWSTTemp = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KundenNr_Input, "FMZOLL")
|
||||
End If
|
||||
|
||||
|
||||
Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1) As DataTable
|
||||
|
||||
|
||||
Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp)
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,cast(isnull(InvToCustomer, 0) as bit) as OrigRE ,[Country] as Land
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country")
|
||||
|
||||
If setDatatable Then
|
||||
|
||||
|
||||
@@ -612,6 +612,26 @@ Public Class cIDS
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, AdressenNr As Integer) As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where cast(YearMonthDay as Date) >= '" & ab.ToShortDateString & "' AND CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG = '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, AdressenNr As String) As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG = '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "0") & " where InvToCustomer Is null " & IIf(invoiceID <> "", "AND invoice_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -84,10 +84,7 @@ Public Class cKunde
|
||||
Property Höchstkredit As Object = Nothing
|
||||
Property DakosyExport As Object = Nothing
|
||||
Property FiBuSchnittstelleNr As Object = Nothing
|
||||
|
||||
|
||||
|
||||
|
||||
Property Vorlageprovision_Mindestbetrag As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
@@ -191,6 +188,7 @@ Public Class cKunde
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_MSE", UStV_SummeVorschaubetragEUR_MSE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_UTA", UStV_SummeVorschaubetragEUR_UTA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IT", UStV_SummeVorschaubetragEUR_IT))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -100,6 +100,7 @@ Public Class cKundenErweitert
|
||||
Property kde_Provisionsverguetung_ProzentDL As Object = Nothing
|
||||
Property kde_Provisionsverguetung_GSAnKdNr As Object = Nothing
|
||||
Property kde_zinssatz As Object = Nothing
|
||||
Property kde_betreuer As Object = Nothing
|
||||
|
||||
|
||||
|
||||
@@ -207,6 +208,7 @@ Public Class cKundenErweitert
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_GSAnKdNr", kde_Provisionsverguetung_GSAnKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_zinssatz", kde_zinssatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_betreuer", kde_betreuer))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
123
VERAG_PROG_ALLGEMEIN/Classes/cKundenportal.vb
Normal file
123
VERAG_PROG_ALLGEMEIN/Classes/cKundenportal.vb
Normal file
@@ -0,0 +1,123 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenportal
|
||||
Property KundenNr As Object = Nothing
|
||||
Property Username As Object = Nothing
|
||||
Property Password As Object = Nothing
|
||||
Property Lieferant As Object = Nothing
|
||||
Property Portal As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr, Portal)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.Portal = Portal
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Username", Username))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Password", Password))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferant", Lieferant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Portal", Portal))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenlogin WHERE KundenNr=@KundenNr AND Portal=@Portal ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenlogin WHERE KundenNr=@KundenNr AND Portal=@Portal ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@Portal", Portal)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenlogin] SET " & str & " WHERE KundenNr=@KundenNr AND Portal=@Portal ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblKundenlogin (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function DELETE(KundenNr, Portal) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim sqlstr = " DELETE FROM [tblKundenlogin] WITH(updlock,serializable) WHERE KundenNr=" & KundenNr & " AND Portal ='" & Portal & "'"
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
@@ -102,6 +102,7 @@ Public Class cMitarbeiter
|
||||
Property mit_Notfall_Handy As Object = Nothing
|
||||
Property mit_Notfall_Mail As Object = Nothing
|
||||
Property mit_SchalterID As Object = Nothing
|
||||
Property mit_Funktion As Object = Nothing
|
||||
|
||||
|
||||
|
||||
@@ -221,6 +222,7 @@ Public Class cMitarbeiter
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
|
||||
|
||||
|
||||
|
||||
@@ -431,6 +433,7 @@ Public Class cMitarbeiter
|
||||
If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
|
||||
If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
|
||||
If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
|
||||
If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -1,6 +1,8 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.Web.Configuration
|
||||
Imports io.konik.zugferd
|
||||
|
||||
Public Class cRMC
|
||||
Property rmc_id As Integer
|
||||
@@ -255,6 +257,27 @@ Public Class cRMC
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNo As Integer) As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null and cast(rmc_reDatum as Date) >= '" & ab.ToShortDateString & "' AND rmc_kdNr = '" & customerNo & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND rmc_kdNr = '" & customerNo & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "0") & " where InvToCustomer Is null " & IIf(invoiceID <> "", "AND rmc_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Class Paramter
|
||||
|
||||
Shared apiSettingsloaded As Boolean = False
|
||||
@@ -262,7 +285,7 @@ Public Class cRMC
|
||||
|
||||
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='RMC' AND [Param_name]='" & tcParam_name & "' AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
|
||||
End Function
|
||||
End Function
|
||||
|
||||
Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean
|
||||
|
||||
|
||||
@@ -122,6 +122,9 @@ Public Class cRechnungsausgang
|
||||
|
||||
Property Rechnungsart As String = "RG" ' RG=Rechnung; RU=Rechnung Unvollständig; RK=RechnungKopf -> bei unvollständiger Rechnung ein Kopf benötigt (zB Staffelabrechnung)
|
||||
|
||||
Property Vorlageprovision_Mindestbetrag As Object = Nothing
|
||||
|
||||
|
||||
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
|
||||
|
||||
Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
|
||||
@@ -365,6 +368,7 @@ Public Class cRechnungsausgang
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ForceSteuerschlüssel", ForceSteuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand", Automailversand))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsart", Rechnungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -1,10 +1,7 @@
|
||||
Imports System
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports Therefore.API
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports System.Web.Configuration
|
||||
|
||||
Public Class cUTA
|
||||
|
||||
@@ -23,6 +20,27 @@ Public Class cUTA
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNo As Integer) As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where cast(Rechnungsdatum as Date) >= '" & ab.ToShortDateString & "' AND Kundennummer = '" & customerNo & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND Kundennummer = '" & customerNo & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "0") & " where InvToCustomer Is null " & IIf(invoiceID <> "", "AND [Rechnungsnummer_pro_Lieferland] = '" & invoiceID & "'", " ") & "", "FMZOLL")
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Class UTAHeader
|
||||
|
||||
Property Übertragungsnummer As Integer
|
||||
|
||||
@@ -408,14 +408,14 @@ Public Class frmUeberstundenauszahlen
|
||||
Next
|
||||
|
||||
If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt + stunden25bereitsausbezahlt) > 0 Then
|
||||
If MA.mit_firma = "ATILLA" Then GoTo sonderRegelungAtilla :
|
||||
' If MA.mit_firma = "ATILLA" Then GoTo sonderRegelungAtilla : Laut ANDREAS mit 25.11.2025 wieder deaktiviert!!!!!!!!!!!! -> VILDAN soll hier direkt mit Andreas sprechen
|
||||
picDel.Visible = True
|
||||
Button1.Enabled = False
|
||||
txtAusz.Enabled = False
|
||||
picShow.Visible = True
|
||||
Else
|
||||
sonderRegelungAtilla:
|
||||
Button1.Enabled = True
|
||||
'sonderRegelungAtilla: Laut ANDREAS mit 25.11.2025 wieder deaktiviert!!!!!!!!!!!! -> VILDAN soll hier direkt mit Andreas sprechen
|
||||
Button1.Enabled = True
|
||||
txtAusz.Enabled = True
|
||||
picShow.Visible = False
|
||||
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Net
|
||||
Imports System.Reflection
|
||||
Imports System.Web.Configuration
|
||||
Imports javax
|
||||
|
||||
Public Class cMSEAPI
|
||||
@@ -46,6 +47,29 @@ Public Class cMSEAPI
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNr As Integer) As Boolean
|
||||
|
||||
|
||||
Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where cast(invoice_date as Date) >= '" & ab.ToShortDateString & "' AND customer_number = '" & customerNr & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNr As String) As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND customer_number = '" & customerNr & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "", Optional customerNr As String = "") As Boolean
|
||||
|
||||
Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "0") & " where InvToCustomer Is null " & IIf(invoiceID <> "", "AND invoice_id = '" & invoiceID & "' AND customer_number = '" & customerNr & "'", " ") & "", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function createJWT(ByRef failureText As String) As String
|
||||
Try
|
||||
|
||||
|
||||
@@ -394,6 +394,7 @@
|
||||
<Compile Include="AuditFlow\Classes\cAuditFlow_Pruefungen.vb" />
|
||||
<Compile Include="Classes\cMDMEInarbeitung.vb" />
|
||||
<Compile Include="Classes\cMDMZinsberechnung.vb" />
|
||||
<Compile Include="Classes\cKundenportal.vb" />
|
||||
<Compile Include="frmTimasabfrage.Designer.vb">
|
||||
<DependentUpon>frmTimasabfrage.vb</DependentUpon>
|
||||
</Compile>
|
||||
|
||||
Reference in New Issue
Block a user