Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL
This commit is contained in:
@@ -714,15 +714,20 @@ Public Class usrcntlVorauskasse
|
||||
Sub setDefault()
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR"
|
||||
txtVerzollungskosten._value = 112
|
||||
txtATLAS._value = 10
|
||||
' txtClearing._value = 40
|
||||
txtClearing._value = 0
|
||||
txtAviso._value = 20
|
||||
txtSonstigeKosten._value = 40
|
||||
txtSonstigeKostenText.Text = "Sonstige Kosten"
|
||||
txtPapierePorti._value = 10
|
||||
|
||||
offertenvonKundenladen(True)
|
||||
|
||||
'txtVerzollungskosten._value = 112
|
||||
'txtATLAS._value = 10
|
||||
'' txtClearing._value = 40
|
||||
'txtClearing._value = 0
|
||||
'txtAviso._value = 20
|
||||
'txtSonstigeKosten._value = 40
|
||||
'txtSonstigeKostenText.Text = "Sonstige Kosten"
|
||||
'txtPapierePorti._value = 10
|
||||
Case "VERAG", "IMEX"
|
||||
|
||||
offertenvonKundenladen(True)
|
||||
'txtVerzollungskosten._value = 93
|
||||
'txtATLAS._value = 8
|
||||
'txtClearing._value = 40
|
||||
@@ -779,19 +784,27 @@ Public Class usrcntlVorauskasse
|
||||
|
||||
Private Sub btnOffertladen_Click(sender As Object, e As EventArgs) Handles btnOffertladen.Click
|
||||
|
||||
offertenvonKundenladen(False)
|
||||
|
||||
'For Each row As DataRow In dt.Select("BerechnungsartNr = '8'")
|
||||
|
||||
' If row("LeistungsNr") = 60 Then txtVerzollungskosten.Text = row("Preis")
|
||||
' If row("LeistungsNr") = 20 Then txtZoll._value = row("Preis")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub offertenvonKundenladen(warnungunterduecken As Boolean)
|
||||
|
||||
'Dim SQL As New SQL
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr='1' and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
|
||||
Dim dt As DataTable
|
||||
If SENDUNG Is Nothing Then
|
||||
MsgBox("keine Sendung hinterlegt, Offert kann nicht geladen werden!")
|
||||
If Not warnungunterduecken Then MsgBox("Es ist keine Sendung hinterlegt, daher kann keine Abfertigungsart geladen werden und kein passendes Offert!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
|
||||
|
||||
If dt.Rows.Count = 0 Then
|
||||
MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!")
|
||||
If Not warnungunterduecken Then MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -823,16 +836,9 @@ Public Class usrcntlVorauskasse
|
||||
If row("LeistungsNr") = 340 Then txtVerzollungskosten._value = row("Preis")
|
||||
If row("LeistungsNr") = 324 Then txtATLAS._value = row("Preis")
|
||||
If row("LeistungsNr") = 440 Then txtPapierePorti._value = row("Preis")
|
||||
|
||||
Next
|
||||
|
||||
initBerechnung()
|
||||
|
||||
'For Each row As DataRow In dt.Select("BerechnungsartNr = '8'")
|
||||
|
||||
' If row("LeistungsNr") = 60 Then txtVerzollungskosten.Text = row("Preis")
|
||||
' If row("LeistungsNr") = 20 Then txtZoll._value = row("Preis")
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -1,7 +1,9 @@
|
||||
Imports System.Reflection
|
||||
Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
|
||||
Imports System.Reflection
|
||||
'Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmMDM_USTVAntrag
|
||||
|
||||
@@ -281,6 +283,62 @@ Public Class frmMDM_USTVAntrag
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function loadUSTVFrom_RMC(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
|
||||
Try
|
||||
Dim bytSchnittstellenNr = 7 'glaube noch frei?
|
||||
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
Dim dt As New DataTable
|
||||
Dim GET_Antraege = cRMC.GET_Antraege_RMC(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien)
|
||||
|
||||
If GET_Antraege Then
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
|
||||
USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
|
||||
USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
|
||||
USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum")
|
||||
USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr")
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
|
||||
USTV_POS.UStVPo_Leistender = "RMC Service GmbH"
|
||||
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
|
||||
' Berechnungen
|
||||
Dim umrechKurs = 1
|
||||
If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then
|
||||
umrechKurs = CDbl(r.Item("rmc_betragBrutto") / r.Item("rmc_euroBrutto"))
|
||||
End If
|
||||
|
||||
If CDbl(r.Item("rmc_betragMWST")) > 0 Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = CDbl(r.Item("rmc_betragMWST") * umrechKurs)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
|
||||
End If
|
||||
|
||||
USTV_POS.INSERT()
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
cRMC.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
|
||||
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
getValue(USTV_ANTRAG)
|
||||
|
||||
44
SDL/USTV/usrCntlUSTV.Designer.vb
generated
44
SDL/USTV/usrCntlUSTV.Designer.vb
generated
@@ -28,6 +28,7 @@ Partial Class usrCntlUSTV
|
||||
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbxEingereicht = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxTopMax = New System.Windows.Forms.CheckBox()
|
||||
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboJahrBis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
@@ -45,7 +46,7 @@ Partial Class usrCntlUSTV
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.cbxEingereicht = New System.Windows.Forms.CheckBox()
|
||||
Me.btnRMCalle = New System.Windows.Forms.Button()
|
||||
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -109,6 +110,19 @@ Partial Class usrCntlUSTV
|
||||
Me.Panel1.Size = New System.Drawing.Size(1072, 84)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'cbxEingereicht
|
||||
'
|
||||
Me.cbxEingereicht.AutoSize = True
|
||||
Me.cbxEingereicht.Checked = True
|
||||
Me.cbxEingereicht.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||
Me.cbxEingereicht.Location = New System.Drawing.Point(367, 35)
|
||||
Me.cbxEingereicht.Name = "cbxEingereicht"
|
||||
Me.cbxEingereicht.Size = New System.Drawing.Size(118, 17)
|
||||
Me.cbxEingereicht.TabIndex = 46
|
||||
Me.cbxEingereicht.Text = "Anträge eingereicht"
|
||||
Me.cbxEingereicht.ThreeState = True
|
||||
Me.cbxEingereicht.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxTopMax
|
||||
'
|
||||
Me.cbxTopMax.AutoSize = True
|
||||
@@ -274,6 +288,7 @@ Partial Class usrCntlUSTV
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.AutoSize = True
|
||||
Me.Panel3.Controls.Add(Me.btnRMCalle)
|
||||
Me.Panel3.Controls.Add(Me.btnMail)
|
||||
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
|
||||
Me.Panel3.Controls.Add(Me.Button5)
|
||||
@@ -292,7 +307,7 @@ Partial Class usrCntlUSTV
|
||||
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMail.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnMail.Location = New System.Drawing.Point(545, 10)
|
||||
Me.btnMail.Location = New System.Drawing.Point(750, 5)
|
||||
Me.btnMail.Name = "btnMail"
|
||||
Me.btnMail.Size = New System.Drawing.Size(75, 39)
|
||||
Me.btnMail.TabIndex = 25
|
||||
@@ -347,18 +362,20 @@ Partial Class usrCntlUSTV
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'cbxEingereicht
|
||||
'btnRMCalle
|
||||
'
|
||||
Me.cbxEingereicht.AutoSize = True
|
||||
Me.cbxEingereicht.Checked = True
|
||||
Me.cbxEingereicht.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||
Me.cbxEingereicht.Location = New System.Drawing.Point(367, 35)
|
||||
Me.cbxEingereicht.Name = "cbxEingereicht"
|
||||
Me.cbxEingereicht.Size = New System.Drawing.Size(118, 17)
|
||||
Me.cbxEingereicht.TabIndex = 46
|
||||
Me.cbxEingereicht.Text = "Anträge eingereicht"
|
||||
Me.cbxEingereicht.ThreeState = True
|
||||
Me.cbxEingereicht.UseVisualStyleBackColor = True
|
||||
Me.btnRMCalle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRMCalle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRMCalle.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnRMCalle.Image = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btnRMCalle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnRMCalle.Location = New System.Drawing.Point(545, 6)
|
||||
Me.btnRMCalle.Name = "btnRMCalle"
|
||||
Me.btnRMCalle.Size = New System.Drawing.Size(172, 40)
|
||||
Me.btnRMCalle.TabIndex = 26
|
||||
Me.btnRMCalle.Text = "RMC für offene " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anträge übernehmen"
|
||||
Me.btnRMCalle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnRMCalle.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlUSTV
|
||||
'
|
||||
@@ -400,4 +417,5 @@ Partial Class usrCntlUSTV
|
||||
Friend WithEvents cbxTopMax As CheckBox
|
||||
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbxEingereicht As CheckBox
|
||||
Friend WithEvents btnRMCalle As Button
|
||||
End Class
|
||||
|
||||
@@ -24,6 +24,7 @@ Public Class usrCntlUSTV
|
||||
End If
|
||||
|
||||
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
|
||||
btnRMCalle.Enabled = KdSearchBox1.KdNr > 0
|
||||
|
||||
With dgvUSTV
|
||||
.ClearSelection()
|
||||
@@ -163,9 +164,16 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
|
||||
'FlatButton1.Enabled = False
|
||||
'FlatButton1.Enabled = False#
|
||||
|
||||
FlatButton2.Enabled = False
|
||||
Button14.Enabled = False
|
||||
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
FlatButton2.Enabled = True
|
||||
Button14.Enabled = True
|
||||
End If
|
||||
End If
|
||||
' Panel3.Height = Me.Height / 2 + 300
|
||||
End Sub
|
||||
@@ -228,7 +236,7 @@ Public Class usrCntlUSTV
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click
|
||||
Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click, btnRMCalle.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If KdSearchBox1.KdNr <= 0 Then Exit Sub
|
||||
@@ -238,16 +246,37 @@ Public Class usrCntlUSTV
|
||||
Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [tblUStVAntrag] where UStVAn_AntragEingereichtAm is null AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'", "FMZOLL")
|
||||
If cnt = 0 Then MsgBox("Keine einreichbaren Anträge gefunden!") : Exit Sub
|
||||
|
||||
If vbYes = MsgBox("Es werden PLOSE Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
|
||||
For Each r As DataGridViewRow In dgvUSTV.Rows
|
||||
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
|
||||
'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
|
||||
frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
|
||||
Select Case sender.name
|
||||
Case "btnPLOSEAlle"
|
||||
If vbYes = MsgBox("Es werden PLOSE Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
|
||||
For Each r As DataGridViewRow In dgvUSTV.Rows
|
||||
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
|
||||
'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
|
||||
frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
init()
|
||||
MsgBox("Fertig!")
|
||||
init()
|
||||
MsgBox("Fertig!")
|
||||
|
||||
Case "btnRMCalle"
|
||||
|
||||
If vbYes = MsgBox("Es werden RMC Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
|
||||
For Each r As DataGridViewRow In dgvUSTV.Rows
|
||||
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
|
||||
frmMDM_USTVAntrag.loadUSTVFrom_RMC(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Case Else
|
||||
MsgBox("Funktion nicht definiert")
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
@@ -383,4 +412,6 @@ Public Class usrCntlUSTV
|
||||
Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged
|
||||
init()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -55,6 +55,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Dim da_id = -1
|
||||
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
|
||||
Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
|
||||
Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
||||
|
||||
End Select
|
||||
scanSonstiges.INIT_daId(da_id)
|
||||
|
||||
@@ -886,9 +886,10 @@ Public Class frmMain
|
||||
' MsgBox(newMsg)
|
||||
Label20.Text = newMsg
|
||||
Label20.Visible = (newMsg > 0)
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN
|
||||
If newMsg Then
|
||||
' Me.Icon = My.Resources.avisoNewMsg
|
||||
'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN warum hier ????????????
|
||||
If newMsg > 0 Then
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
|
||||
'Me.Icon = My.Resources.avisoNewMsg
|
||||
|
||||
Dim isshown = False
|
||||
For Each openForm In Application.OpenForms()
|
||||
@@ -914,7 +915,7 @@ Public Class frmMain
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
41
SDL/kunden/frmKundenblatt.Designer.vb
generated
41
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -263,7 +263,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbFirmendaten.Name = "tbFirmendaten"
|
||||
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbFirmendaten.TabIndex = 3
|
||||
Me.tbFirmendaten.Text = "Firmendaten"
|
||||
'
|
||||
@@ -273,7 +273,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel4.Location = New System.Drawing.Point(3, 3)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.Panel4.Size = New System.Drawing.Size(1624, 772)
|
||||
Me.Panel4.TabIndex = 0
|
||||
'
|
||||
'UsrcntlKundeBearbeitenFull1
|
||||
@@ -283,7 +283,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 772)
|
||||
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
|
||||
'
|
||||
'tbcntrMain
|
||||
@@ -301,7 +301,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrMain.Name = "tbcntrMain"
|
||||
Me.tbcntrMain.SelectedIndex = 0
|
||||
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 790)
|
||||
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 807)
|
||||
Me.tbcntrMain.TabIndex = 3
|
||||
'
|
||||
'tbAllgemein
|
||||
@@ -334,7 +334,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbAllgemein.Name = "tbAllgemein"
|
||||
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbAllgemein.TabIndex = 0
|
||||
Me.tbAllgemein.Text = "Allgemein"
|
||||
'
|
||||
@@ -669,7 +669,7 @@ Partial Class frmKundenblatt
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(835, 651)
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(835, 668)
|
||||
Me.dgvSperrliste.TabIndex = 23
|
||||
'
|
||||
'PictureBox2
|
||||
@@ -723,7 +723,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbZoll.Name = "tbZoll"
|
||||
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbZoll.TabIndex = 9
|
||||
Me.tbZoll.Text = "ZOLL"
|
||||
Me.tbZoll.UseVisualStyleBackColor = True
|
||||
@@ -735,7 +735,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
|
||||
Me.tbcntrZOLL.Name = "tbcntrZOLL"
|
||||
Me.tbcntrZOLL.SelectedIndex = 0
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 772)
|
||||
Me.tbcntrZOLL.TabIndex = 0
|
||||
'
|
||||
'tabZoll_Artikel
|
||||
@@ -743,7 +743,7 @@ Partial Class frmKundenblatt
|
||||
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
|
||||
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 729)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 746)
|
||||
Me.tabZoll_Artikel.TabIndex = 1
|
||||
Me.tabZoll_Artikel.Text = "Artikel"
|
||||
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
|
||||
@@ -754,7 +754,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbMdm.Name = "tbMdm"
|
||||
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbMdm.TabIndex = 10
|
||||
Me.tbMdm.Text = "MDM"
|
||||
Me.tbMdm.UseVisualStyleBackColor = True
|
||||
@@ -772,7 +772,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrMDM.Name = "tbcntrMDM"
|
||||
Me.tbcntrMDM.SelectedIndex = 0
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 772)
|
||||
Me.tbcntrMDM.TabIndex = 0
|
||||
'
|
||||
'tbSDL
|
||||
@@ -784,7 +784,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbSDL.Name = "tbSDL"
|
||||
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1616, 729)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1616, 746)
|
||||
Me.tbSDL.TabIndex = 5
|
||||
Me.tbSDL.Text = "SDL-Leistungen"
|
||||
Me.tbSDL.UseVisualStyleBackColor = True
|
||||
@@ -826,7 +826,7 @@ Partial Class frmKundenblatt
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
|
||||
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 533)
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 550)
|
||||
Me.dgvSDLLeistungenFull.TabIndex = 5
|
||||
'
|
||||
'Panel6
|
||||
@@ -930,7 +930,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
|
||||
Me.Panel5.Controls.Add(Me.rtbVermerke)
|
||||
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 583)
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 600)
|
||||
Me.Panel5.Name = "Panel5"
|
||||
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
|
||||
Me.Panel5.TabIndex = 177
|
||||
@@ -1794,7 +1794,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.tbOfferte.Name = "tbOfferte"
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbOfferte.TabIndex = 11
|
||||
Me.tbOfferte.Text = "Offerte"
|
||||
Me.tbOfferte.UseVisualStyleBackColor = True
|
||||
@@ -1806,7 +1806,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.UsrCntlOfferte1.TabIndex = 0
|
||||
'
|
||||
'tbUSTV
|
||||
@@ -1814,7 +1814,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
|
||||
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbUSTV.Name = "tbUSTV"
|
||||
Me.tbUSTV.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbUSTV.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbUSTV.TabIndex = 12
|
||||
Me.tbUSTV.Text = "USTV"
|
||||
Me.tbUSTV.UseVisualStyleBackColor = True
|
||||
@@ -1828,7 +1828,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrUSTV.Name = "tbcntrUSTV"
|
||||
Me.tbcntrUSTV.SelectedIndex = 0
|
||||
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 778)
|
||||
Me.tbcntrUSTV.TabIndex = 1
|
||||
'
|
||||
'tbUSTVDokumente
|
||||
@@ -1841,7 +1841,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
|
||||
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
|
||||
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 735)
|
||||
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 752)
|
||||
Me.tbUSTVDokumente.TabIndex = 8
|
||||
Me.tbUSTVDokumente.Text = "Dokumente"
|
||||
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
|
||||
@@ -2094,7 +2094,6 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
|
||||
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
|
||||
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
|
||||
Me.cntxtCntxtMDM.Text = "cntxtMDM"
|
||||
'
|
||||
@@ -2234,7 +2233,7 @@ Partial Class frmKundenblatt
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoScroll = True
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(1180, 919)
|
||||
Me.ClientSize = New System.Drawing.Size(1180, 936)
|
||||
Me.Controls.Add(Me.lblAbfVerb)
|
||||
Me.Controls.Add(Me.btnAbfVerb)
|
||||
Me.Controls.Add(Me.tbcntrMain)
|
||||
|
||||
@@ -58,6 +58,9 @@ Public Class cAdressen
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(UIDNr As String, woellKdNr As Integer)
|
||||
LOADUIDNr(UIDNr, woellKdNr)
|
||||
End Sub
|
||||
Public Function FullName() As String
|
||||
Return (If(Name_1, "") & " " & If(Name_2, "")).ToString.Replace(" ", " ")
|
||||
End Function
|
||||
@@ -297,6 +300,42 @@ Public Class cAdressen
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub LOADUIDNr(UIDNr As String, woelflKdNr As Integer)
|
||||
|
||||
Dim test = ""
|
||||
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE UstIdKz + UstIdNr='" & UIDNr & "' AND WölflKundenNr = " & woelflKdNr, conn)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
|
||||
' Try
|
||||
test = li.Text
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
Me.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
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -350,7 +389,7 @@ Public Class cAdressen
|
||||
End Function
|
||||
|
||||
Public Shared Function getNewAdressenNr752000() As Integer
|
||||
Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL")
|
||||
Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
|
||||
@@ -55,7 +55,7 @@ Public Class cERS
|
||||
Return ERS.SAVE()
|
||||
|
||||
Catch ex As Exception
|
||||
'was soll hier noch helfen??
|
||||
'was soll hier noch helfen?? :)))
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
@@ -23,8 +23,8 @@ Public Class cRMC
|
||||
Property rmc_version As Object = Nothing
|
||||
Property rmc_pdfFileName As Object = Nothing
|
||||
Property rmc_daId As Object = Nothing
|
||||
Property rmc_archiviertDatum As Boolean = False
|
||||
Property rmc_archiv As Object = Nothing
|
||||
Property rmc_archiviertDatum As Object
|
||||
Property rmc_archiv As Boolean = False
|
||||
Property rmc_fibuNr As Boolean = False
|
||||
Property rmc_sammelReNr As Object = Nothing
|
||||
|
||||
@@ -36,13 +36,14 @@ Public Class cRMC
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(rmc_id)
|
||||
Me.rmc_id = rmc_id
|
||||
Sub New(rmc_kdNr, rmc_reNr)
|
||||
Me.rmc_kdNr = rmc_kdNr
|
||||
Me.rmc_reNr = rmc_reNr
|
||||
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("rmc_id", rmc_id,, True))
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_id", rmc_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdName", rmc_kdName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_UID", rmc_UID))
|
||||
@@ -75,7 +76,7 @@ Public Class cRMC
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRMCImport WHERE rmc_id=@rmc_id) " &
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRMCImport WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr and rmc_archiv is null ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
@@ -88,8 +89,9 @@ Public Class cRMC
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblRMCImport WHERE rmc_id=@rmc_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@rmc_id", rmc_id)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblRMCImport WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr", conn)
|
||||
cmd.Parameters.AddWithValue("@rmc_kdNr", rmc_kdNr)
|
||||
cmd.Parameters.AddWithValue("@rmc_reNr", rmc_reNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
@@ -125,7 +127,7 @@ Public Class cRMC
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblRMCImport SET " & str & " WHERE rmc_id=@rmc_id ")
|
||||
Return (" UPDATE tblRMCImport SET " & str & " WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -155,6 +157,67 @@ Public Class cRMC
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GET_Antraege_RMC(ByRef dt As DataTable, von As Date, bis As Date, KundenNr As Integer, LandKZ As String, Optional Archiv As Object = Nothing) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
Using cmd As New SqlCommand(" SELECT rmc_reDatum,[rmc_reNr],sum([rmc_betragNetto])[rmc_betragNetto],sum([rmc_betragMWST])[rmc_betragMWST] ,sum([rmc_betragBrutto] )[rmc_betragBrutto], [rmc_waehrung], sum([rmc_euroBrutto])[rmc_euroBrutto] FROM [tblRMCImport]
|
||||
INNER JOIN Adressen as adr on rmc_kdNr=adr.[WölflKundenNr]
|
||||
where cast(rmc_reDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
AND rmc_landKZ ='" & LandKZ & "'" & If(Archiv, " And rmc_archiv =@Archiv ", "") & "
|
||||
group by rmc_reDatum,[rmc_reNr],[rmc_waehrung]
|
||||
having sum([rmc_betragMWST])>0
|
||||
order by rmc_reDatum", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@von", von)
|
||||
cmd.Parameters.AddWithValue("@bis", bis)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
|
||||
If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
dt.Load(dr)
|
||||
'While dr.Read
|
||||
' dt.Load(dr)
|
||||
'End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("von", von))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bis", bis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
|
||||
|
||||
Return SQL.doSQLVarList("
|
||||
|
||||
UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE()
|
||||
WHERE cast(rmc_reDatum as date) between @von and @bis and rmc_kdNr=@KundenNr
|
||||
", "FMZOLL",, list)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public VERARBEITUNG_PFAD
|
||||
Public ARCHIV_PFAD
|
||||
Public ERROR_PFAD
|
||||
@@ -171,9 +234,7 @@ Public Class cRMC
|
||||
ERROR_PFAD = cRMC.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
ARCHIV_PFAD = cRMC.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
VERARBEITUNG_PFAD = cRMC.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
FTP_PFAD = cRMC.Paramter.GET_PARAM_ByName("SERVER_Path_In", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
ZIEL_PFAD = cRMC.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
|
||||
If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
|
||||
|
||||
Return Paramter.getFTPConenction(API_STRING, API, programName)
|
||||
@@ -189,7 +250,7 @@ Public Class cRMC
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='RMC' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
|
||||
End Function
|
||||
|
||||
Shared Function getFTPConenction(API_String As String, API As DataTable, program As String) As Boolean
|
||||
Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean
|
||||
|
||||
API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
|
||||
If API.Rows.Count = 0 Then
|
||||
|
||||
174
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
generated
174
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
generated
@@ -24,17 +24,17 @@ Partial Class frmMessenger
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle55 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()
|
||||
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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
@@ -189,40 +189,40 @@ Partial Class frmMessenger
|
||||
Me.dgvChats.AllowUserToResizeColumns = False
|
||||
Me.dgvChats.AllowUserToResizeRows = False
|
||||
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle45.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle45.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle45.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle45.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle45.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle45
|
||||
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.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvChats.ColumnHeadersVisible = False
|
||||
DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle46
|
||||
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.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvChats.Name = "dgvChats"
|
||||
Me.dgvChats.ReadOnly = True
|
||||
DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle47
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.dgvChats.RowHeadersVisible = False
|
||||
Me.dgvChats.RowHeadersWidth = 62
|
||||
DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle48
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvChats.RowTemplate.Height = 30
|
||||
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
|
||||
@@ -280,40 +280,40 @@ Partial Class frmMessenger
|
||||
Me.DGVSonstige.AllowUserToResizeColumns = False
|
||||
Me.DGVSonstige.AllowUserToResizeRows = False
|
||||
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DGVSonstige.ColumnHeadersVisible = False
|
||||
DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle50
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
|
||||
Me.DGVSonstige.Name = "DGVSonstige"
|
||||
Me.DGVSonstige.ReadOnly = True
|
||||
DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle51.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle51
|
||||
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
|
||||
Me.DGVSonstige.RowHeadersVisible = False
|
||||
Me.DGVSonstige.RowHeadersWidth = 62
|
||||
DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle52
|
||||
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
Me.DGVSonstige.RowTemplate.Height = 30
|
||||
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
|
||||
@@ -748,36 +748,36 @@ Partial Class frmMessenger
|
||||
Me.dgvChatMembers.AllowUserToResizeColumns = False
|
||||
Me.dgvChatMembers.AllowUserToResizeRows = False
|
||||
Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle53
|
||||
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.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma, Me.clmnStatus})
|
||||
DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle54.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle54
|
||||
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.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle10
|
||||
Me.dgvChatMembers.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvChatMembers.Location = New System.Drawing.Point(0, 23)
|
||||
Me.dgvChatMembers.Name = "dgvChatMembers"
|
||||
Me.dgvChatMembers.ReadOnly = True
|
||||
DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle55
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
|
||||
Me.dgvChatMembers.RowHeadersVisible = False
|
||||
Me.dgvChatMembers.RowHeadersWidth = 62
|
||||
Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
Reference in New Issue
Block a user