neu
This commit is contained in:
@@ -375,12 +375,12 @@
|
||||
If MyDatagridview1.SelectedRows.Count > 0 Then
|
||||
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
|
||||
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
|
||||
Dim VermerkIDOld = -1
|
||||
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDOld,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
|
||||
Dim VermerkIDNew = -1
|
||||
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
|
||||
|
||||
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDOld > 0 Then
|
||||
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then
|
||||
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
||||
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDOld)
|
||||
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew)
|
||||
End If
|
||||
|
||||
txtBemerkung.Text = ""
|
||||
|
||||
@@ -57,5 +57,6 @@
|
||||
|
||||
Private Sub frmKundenAufschubdatenBearbeiten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
init(KundenNr)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -1239,22 +1239,30 @@ Public Class frmKundenUebersichtZOLL
|
||||
End Sub
|
||||
|
||||
Private Sub AnDakosyÜbertragenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnDakosyÜbertragenToolStripMenuItem.Click
|
||||
If If(KUNDE.EORITIN, "") = "" Then
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
|
||||
MsgBox("Keine Berechtigung!")
|
||||
Else
|
||||
|
||||
If If(KUNDE.EORITIN, "") = "" Then
|
||||
MsgBox("Bitte EORI-Nr. eintragen!")
|
||||
Exit Sub
|
||||
End If
|
||||
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
|
||||
' init(KUNDE.KundenNr)
|
||||
MsgBox("Daten gesendet!")
|
||||
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
|
||||
' init(KUNDE.KundenNr)
|
||||
MsgBox("Daten gesendet!")
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AufschubEORIBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AufschubEORIBearbeitenToolStripMenuItem.Click
|
||||
Dim f As New frmKundenAufschubdatenBearbeiten(kdNr)
|
||||
f.ShowDialog(Me)
|
||||
setKD(kdNr)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_AufschubBearbeiten", "SDL") Then
|
||||
MsgBox("Keine Berechtigung!")
|
||||
Else
|
||||
Dim f As New frmKundenAufschubdatenBearbeiten(kdNr)
|
||||
f.ShowDialog(Me)
|
||||
setKD(kdNr)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick
|
||||
Try
|
||||
|
||||
|
||||
35
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
35
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
@@ -27,6 +27,7 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
@@ -34,11 +35,10 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
@@ -66,6 +66,7 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.txtDat._ShortDateNew = True
|
||||
Me.txtDat._ShortDateOnly = False
|
||||
Me.txtDat._TimeOnly = False
|
||||
Me.txtDat._TimeOnly_Seconds = False
|
||||
Me.txtDat._value = ""
|
||||
Me.txtDat._Waehrung = False
|
||||
Me.txtDat._WaehrungZeichen = False
|
||||
@@ -103,6 +104,17 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.Panel1.TabIndex = 17
|
||||
Me.Panel1.Visible = False
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(210, 10)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -141,9 +153,9 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.MyComboBox1.BackColor = System.Drawing.Color.White
|
||||
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(120, 3)
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(98, 8)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(59, 21)
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(127, 21)
|
||||
Me.MyComboBox1.TabIndex = 15
|
||||
Me.MyComboBox1.Visible = False
|
||||
'
|
||||
@@ -175,24 +187,13 @@ Partial Class frmKundenZOLLVollmachten
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbl.Location = New System.Drawing.Point(11, 3)
|
||||
Me.lbl.Location = New System.Drawing.Point(8, 3)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(214, 30)
|
||||
Me.lbl.TabIndex = 20
|
||||
Me.lbl.Text = "VOLLMACHT"
|
||||
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(210, 10)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'frmKundenZOLLVollmachten
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -207,8 +208,8 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Public Class frmKundenZOLLVollmachten
|
||||
Public kdnr As Integer = -1
|
||||
Public vollmachtId As String
|
||||
Public filePath As String
|
||||
Public erhalten As Boolean = False
|
||||
Dim id As Integer = -1
|
||||
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
@@ -15,13 +16,30 @@
|
||||
If id IsNot DBNull.Value Then Me.id = id
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kdnr, filePath)
|
||||
Me.InitializeComponent()
|
||||
Me.erhalten = True
|
||||
Me.kdnr = kdnr
|
||||
Me.filePath = filePath
|
||||
MyComboBox1.Visible = True
|
||||
Me.txtDat.Text = Now.ToShortDateString
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
|
||||
Me.MyComboBox1._value = vollmachtId
|
||||
Me.cbxErhaltenAm.Checked = erhalten
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "UNISPED", "IMEX", "FRONTOFFICE"
|
||||
|
||||
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
|
||||
FirmaTmp = "VERAGIMEX"
|
||||
End If
|
||||
|
||||
Select Case FirmaTmp
|
||||
Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
|
||||
Panel1.Visible = True
|
||||
Case Else
|
||||
Panel1.Visible = True
|
||||
|
||||
@@ -138,6 +138,18 @@
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - EUST", "20"))
|
||||
cboArt.changeItem("")
|
||||
txtAufschub_EORI.Text = If(USRCNTL_KDBearbFull IsNot Nothing, USRCNTL_KDBearbFull.txtEORI.Text, "")
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_AufschubBearbeiten", "SDL") Then
|
||||
btn.Visible = False
|
||||
Button2.Visible = False
|
||||
Label20.Visible = False
|
||||
cboArt.Visible = False
|
||||
txtAufschub_BIN.Visible = False
|
||||
txtAufschub_EORI.Visible = False
|
||||
txtAufschub_EORINL.Visible = False
|
||||
txtAufschub_HZA.Visible = False
|
||||
txtAufschub_Konto.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechen.LinkClicked
|
||||
|
||||
641
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
641
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -466,20 +466,24 @@ Public Class usrCntlKundenuebersicht
|
||||
' TMPText = TMPText.Replace("/", "" & vbNewLine)
|
||||
rtbAbf_Besonderheiten.Text = TMPText
|
||||
|
||||
lblKreditlimit.BackColor = Color.White
|
||||
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("N", CultureInfo.CurrentCulture)
|
||||
' lblKreditlimit.BackColor = Color.White
|
||||
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
|
||||
If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
|
||||
lblKreditlimit.BackColor = Color.Yellow
|
||||
' lblKreditlimit.BackColor = Color.Yellow
|
||||
End If
|
||||
|
||||
If KUNDE.Kreditlimit = 0 Then lblKreditlimit.Text = ""
|
||||
If KUNDE.Kreditlimit = 2600 Then lblKreditlimit.Text = ""
|
||||
|
||||
'lblAviso.Font = f_norm
|
||||
'lblNeutralisierung.Font = f_norm
|
||||
'txtVorauskasse.Font = f_norm
|
||||
lblAviso.BackColor = Color.White
|
||||
lblNeutralisierung.BackColor = Color.White
|
||||
txtNeutralisierung.BackColor = Color.White
|
||||
txtVorauskasse.BackColor = Color.White
|
||||
|
||||
|
||||
|
||||
Select Case checkNullStr(KUNDE.Avis)
|
||||
Case 0 : lblAviso.Text = "NEIN"
|
||||
Case 1 : lblAviso.Text = "Voravis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
|
||||
@@ -487,14 +491,14 @@ Public Class usrCntlKundenuebersicht
|
||||
Case 3 : lblAviso.Text = "Vor- und Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
|
||||
End Select
|
||||
Select Case checkNullStr(KUNDE.Neutralisierung)
|
||||
Case 0 : lblNeutralisierung.Text = "NEIN"
|
||||
Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 0 : txtNeutralisierung.Text = "NEIN"
|
||||
Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
End Select
|
||||
Select Case checkNullStr(KUNDE.Neutralisierung)
|
||||
Case 0 : lblNeutralisierung.Text = "NEIN"
|
||||
Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 0 : txtNeutralisierung.Text = "NEIN"
|
||||
Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
End Select
|
||||
|
||||
|
||||
@@ -508,7 +512,8 @@ Public Class usrCntlKundenuebersicht
|
||||
txtVorauskasse.BackColor = Color.White
|
||||
End If
|
||||
|
||||
|
||||
lblVorkasse.BackColor = txtVorauskasse.BackColor
|
||||
lblNeutralisierung.BackColor = txtNeutralisierung.BackColor
|
||||
|
||||
If KUNDE_ERW.kde_KundeFremdspedition Then
|
||||
txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD")
|
||||
@@ -746,7 +751,11 @@ Public Class usrCntlKundenuebersicht
|
||||
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
If .RowCount > 0 Then
|
||||
txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
||||
' txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
||||
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
||||
If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
|
||||
txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
|
||||
End If
|
||||
Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
|
||||
Else
|
||||
txtUmsatzJahr.Text = ""
|
||||
@@ -1196,6 +1205,8 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
Dim zahlungsziel = 10
|
||||
Dim sumZZ As Double = 0
|
||||
Dim sumNOTZZ As Double = 0
|
||||
Dim sumCredit As Double = 0
|
||||
Dim sumGes As Double = 0
|
||||
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
|
||||
|
||||
@@ -1204,7 +1215,12 @@ Public Class usrCntlKundenuebersicht
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
|
||||
If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
|
||||
Else
|
||||
If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)
|
||||
End If
|
||||
If CDbl(r.Cells("Betrag").Value) < 0 Then sumCredit += CDbl(r.Cells("Betrag").Value)
|
||||
|
||||
|
||||
sumGes += CDbl(r.Cells("Betrag").Value)
|
||||
Next
|
||||
|
||||
@@ -1232,6 +1248,24 @@ Public Class usrCntlKundenuebersicht
|
||||
txtOPFaellig.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
|
||||
txtOPNichtFaellig.ForeColor = Color.Black
|
||||
'If sumNOTZZ > 0 Then
|
||||
' txtOPNichtFaellig.ForeColor = Color.Red
|
||||
'Else
|
||||
' txtOPNichtFaellig.ForeColor = Color.Black
|
||||
'End If
|
||||
|
||||
txtOPCredit.Text = sumCredit.ToString("C")
|
||||
txtOPCredit.ForeColor = Color.Green
|
||||
'If sumCredit < 0 Then
|
||||
' txtOPCredit.ForeColor = Color.Red
|
||||
'Else
|
||||
' txtOPCredit.ForeColor = Color.Black
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = ""
|
||||
'If sumGes > 0 Then
|
||||
' txtOffenePosten.Text = sumGes.ToString("C")
|
||||
@@ -1321,19 +1355,25 @@ Public Class usrCntlKundenuebersicht
|
||||
' If .RowCount > 0 Then
|
||||
If OP_tmp > 0 Then
|
||||
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
|
||||
txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
|
||||
'txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
|
||||
txtOffenePosten.Text = OP_tmp.ToString("C")
|
||||
Else
|
||||
txtOffenePosten.Text = ""
|
||||
End If
|
||||
|
||||
Dim zahlungsziel = 10
|
||||
Dim sumZZ As Double = 0
|
||||
Dim sumNOTZZ As Double = 0
|
||||
Dim sumCredit As Double = 0
|
||||
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
|
||||
Try
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
|
||||
If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
|
||||
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumZZ += CDbl(r.Cells("OP-Saldo").Value)
|
||||
Else
|
||||
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("OP-Saldo").Value)
|
||||
End If
|
||||
If CDbl(r.Cells("OP-Saldo").Value) < 0 Then sumCredit += CDbl(r.Cells("OP-Saldo").Value)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -1344,6 +1384,23 @@ Public Class usrCntlKundenuebersicht
|
||||
Else
|
||||
txtOPFaellig.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
|
||||
txtOPNichtFaellig.ForeColor = Color.Black
|
||||
'If sumNOTZZ > 0 Then
|
||||
' txtOPNichtFaellig.ForeColor = Color.Red
|
||||
'Else
|
||||
' txtOPNichtFaellig.ForeColor = Color.Black
|
||||
'End If
|
||||
|
||||
txtOPCredit.Text = sumCredit.ToString("C")
|
||||
txtOPCredit.ForeColor = Color.Green
|
||||
'If sumCredit < 0 Then
|
||||
' txtOPCredit.ForeColor = Color.Red
|
||||
'Else
|
||||
' txtOPCredit.ForeColor = Color.Black
|
||||
'End If
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
@@ -2414,4 +2471,45 @@ Public Class usrCntlKundenuebersicht
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVollmachten_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellContentClick
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVollmachten_DragDrop(sender As Object, e As DragEventArgs) Handles dgvVollmachten.DragDrop
|
||||
Try
|
||||
If e.Data.GetDataPresent("FileDrop", True) = True Then
|
||||
Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei.
|
||||
If FileList.Count > 0 Then
|
||||
'If Not _MULTI_FILES And FileList.Count > 1 Then
|
||||
' MsgBox("Es können nicht mehrere Dateien hochgeladen werden!")
|
||||
' Exit Sub
|
||||
'End If
|
||||
For Each W In FileList
|
||||
If Not W.ToUpper.EndsWith(".EXE") Then
|
||||
Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
|
||||
Dim l As New frmKundenZOLLVollmachten(kdNr, W)
|
||||
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
|
||||
initDGVVollmachten()
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(" FEHLER: DragDrop!" & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub grpAbfertigung_Enter(sender As Object, e As EventArgs) Handles grpAbfertigung.Enter
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles Panel5.Paint
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
130
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
130
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
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 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 DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle30 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.lblHinweisKdNr = New System.Windows.Forms.Label()
|
||||
@@ -252,6 +252,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtUSt_UstIdNrGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.btnUIDPruef = New System.Windows.Forms.Button()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtFirmenname1 = New System.Windows.Forms.TextBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
@@ -315,7 +316,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label97 = New System.Windows.Forms.Label()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.btnUIDPruef = New System.Windows.Forms.Button()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -2485,8 +2485,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
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
||||
@@ -2584,8 +2584,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
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
||||
@@ -2743,41 +2743,41 @@ 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
|
||||
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
|
||||
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
|
||||
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.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||
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
|
||||
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.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle25
|
||||
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
||||
Me.dgvKreditkarten.MultiSelect = False
|
||||
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
||||
Me.dgvKreditkarten.ReadOnly = True
|
||||
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
|
||||
DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle26
|
||||
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
|
||||
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle27
|
||||
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)
|
||||
@@ -2916,8 +2916,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvUstv_LaenderUndSteuernummern
|
||||
'
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
|
||||
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
||||
@@ -3153,8 +3153,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'dgvSonst_IDSKunden
|
||||
'
|
||||
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
|
||||
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
|
||||
@@ -3357,8 +3357,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
|
||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Enabled = False
|
||||
@@ -3546,6 +3546,19 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Firma"
|
||||
'
|
||||
'btnUIDPruef
|
||||
'
|
||||
Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnUIDPruef.FlatAppearance.BorderSize = 0
|
||||
Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnUIDPruef.Location = New System.Drawing.Point(419, 101)
|
||||
Me.btnUIDPruef.Name = "btnUIDPruef"
|
||||
Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20)
|
||||
Me.btnUIDPruef.TabIndex = 15
|
||||
Me.btnUIDPruef.UseVisualStyleBackColor = True
|
||||
Me.btnUIDPruef.Visible = False
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
@@ -3925,6 +3938,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Button1.TabIndex = 14
|
||||
Me.Button1.Text = "Kundenstamm jetzt übertragen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
Me.Button1.Visible = False
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
@@ -3935,6 +3949,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label28.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label28.TabIndex = 9
|
||||
Me.Label28.Text = "-"
|
||||
Me.Label28.Visible = False
|
||||
'
|
||||
'Label29
|
||||
'
|
||||
@@ -3945,6 +3960,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label29.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label29.TabIndex = 8
|
||||
Me.Label29.Text = "Übertrag in DAKOSY:"
|
||||
Me.Label29.Visible = False
|
||||
'
|
||||
'tbKontakt
|
||||
'
|
||||
@@ -4213,6 +4229,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label97.Size = New System.Drawing.Size(100, 13)
|
||||
Me.Label97.TabIndex = 19
|
||||
Me.Label97.Text = "Übertrag in SYSKA:"
|
||||
Me.Label97.Visible = False
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
@@ -4223,6 +4240,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Button4.TabIndex = 21
|
||||
Me.Button4.Text = "Kundenstamm jetzt übertragen"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
Me.Button4.Visible = False
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
@@ -4236,19 +4254,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.CheckBox1.TabIndex = 22
|
||||
Me.CheckBox1.Text = "zuvor speichern"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnUIDPruef
|
||||
'
|
||||
Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnUIDPruef.FlatAppearance.BorderSize = 0
|
||||
Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnUIDPruef.Location = New System.Drawing.Point(419, 101)
|
||||
Me.btnUIDPruef.Name = "btnUIDPruef"
|
||||
Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20)
|
||||
Me.btnUIDPruef.TabIndex = 15
|
||||
Me.btnUIDPruef.UseVisualStyleBackColor = True
|
||||
Me.btnUIDPruef.Visible = False
|
||||
Me.CheckBox1.Visible = False
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
|
||||
@@ -1046,9 +1046,16 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
btnFirmendatenFormularSpeichern.Enabled = False
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
|
||||
Button1.Visible = True
|
||||
Label29.Visible = True
|
||||
Label28.Visible = True
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
|
||||
Label97.Visible = True
|
||||
Button4.Visible = True
|
||||
CheckBox1.Visible = True
|
||||
End If
|
||||
tbcntrAbf.TabPages.Remove(TabPage4)
|
||||
|
||||
@@ -1131,12 +1138,14 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If If(KUNDE.EORITIN, "") = "" Then
|
||||
MsgBox("Bitte EORI-Nr. eintragen!")
|
||||
Exit Sub
|
||||
End If
|
||||
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
|
||||
init(KUNDE.KundenNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
|
||||
If If(KUNDE.EORITIN, "") = "" Then
|
||||
MsgBox("Bitte EORI-Nr. eintragen!")
|
||||
Exit Sub
|
||||
End If
|
||||
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
|
||||
init(KUNDE.KundenNr)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user