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

EORI-Pruefung, USTV

Browse Source
This commit is contained in:
d.breimaier
2024-10-18 09:58:58 +02:00
parent 3d705731f7
commit 7b2b1f5303
3 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4395,7 +4395,7 @@ Public Class FormularManagerNEU
' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
End If
Dim destPath = ""
Dim destPath = ""
If usrCntl.cboFirma._value = "26" Then 'VERAG-UNISPED LTD
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG-UNISPED", "", "Importaviso_VK", listTowrite)
Else

7
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class usrCntlUSTV
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
@@ -82,8 +82,8 @@ Partial Class usrCntlUSTV
Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUSTV.AllowUserToAddRows = False
Me.dgvUSTV.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUSTV.Location = New System.Drawing.Point(0, 84)
@@ -619,6 +619,7 @@ Partial Class usrCntlUSTV
'
'btnKundendatenaktualisieren
'
Me.btnKundendatenaktualisieren.Enabled = False
Me.btnKundendatenaktualisieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKundendatenaktualisieren.ForeColor = System.Drawing.Color.Black
Me.btnKundendatenaktualisieren.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft

18
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1,5 +1,6 @@
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports GrapeCity.DataVisualization.Options
Imports MDM_Worker
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -578,8 +579,19 @@ Public Class usrCntlUSTV
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnKundendatenaktualisieren.Click
If VERAG_PROG_ALLGEMEIN.cMDMFunctions.Update_UStVASummenNeuBerechnen(kdNr) Then
ok = VERAG_PROG_ALLGEMEIN.cMDMFunctions.UStVAKunden_SummenNeuBerechnen(kdNr)
End If
Dim ok As Boolean = False
Me.Cursor = Cursors.WaitCursor
Try
If VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(kdNr) Then
ok = VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(kdNr)
End If
Catch ex As Exception
Me.Cursor = Cursors.Default
End Try
If ok Then MsgBox("Kundendaten wurden aktualisiert!")
Me.Cursor = Cursors.Default
End Sub
End Class