neu
This commit is contained in:
@@ -722,7 +722,7 @@ Public Class frmKundenblatt
|
||||
Try
|
||||
Dim connectionString As String = cSqlDb.GetSDLConnectionString
|
||||
|
||||
Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter FROM LKW WHERE KundenNr=" & kdNr & " "
|
||||
Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter,Baujahr,[KzFinanzierungBank],[KzLeasing],[KzMiete] FROM LKW WHERE KundenNr=" & kdNr & " "
|
||||
If TextBox11.Text <> "" Then sqlstr &= " AND KfzKennzeichen LIKE '" & TextBox11.Text & "%'" 'Suchparam
|
||||
' MsgBox(sqlstr)
|
||||
Me.dataAdapterLKW = New SqlDataAdapter(sqlstr, connectionString)
|
||||
@@ -762,6 +762,11 @@ Public Class frmKundenblatt
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("Baujahr").Visible = False
|
||||
.Columns("KzFinanzierungBank").Visible = False
|
||||
.Columns("KzLeasing").Visible = False
|
||||
.Columns("KzMiete").Visible = False
|
||||
|
||||
|
||||
.Columns("KfzKennzeichen").MinimumWidth = 100
|
||||
.Columns("KfzKennzeichen").HeaderText = "KFZ-Kennzeichen"
|
||||
@@ -1137,9 +1142,9 @@ Public Class frmKundenblatt
|
||||
|
||||
Private Sub dgvSDLLeistungenFull_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDLLeistungenFull.CellClick
|
||||
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
|
||||
If Not dgvSDLLeistungenFull.CurrentRow.Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(9).Value
|
||||
If Not dgvSDLLeistungenFull.CurrentRow.Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(10).Value
|
||||
If Not dgvSDLLeistungenFull.CurrentRow.Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(11).Value
|
||||
If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value
|
||||
If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value
|
||||
If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1147,8 +1152,8 @@ Public Class frmKundenblatt
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", "SDL") Then Exit Sub
|
||||
|
||||
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
|
||||
If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.CurrentRow.Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.CurrentRow.Cells("SDLBez").Value, vbYesNo) Then
|
||||
kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.CurrentRow.Cells(0).Value)
|
||||
If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLBez").Value, vbYesNo) Then
|
||||
kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value)
|
||||
End If
|
||||
|
||||
dgvSDLLeistungenFull.Columns.Clear()
|
||||
@@ -1171,7 +1176,7 @@ Public Class frmKundenblatt
|
||||
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
|
||||
Panel2.Visible = True
|
||||
'Scan-Elemente initialisieren:
|
||||
Dim tmpSDLNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
|
||||
Dim tmpSDLNr = dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value
|
||||
scanErstbestellung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
|
||||
scanJaraVereinbarung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
|
||||
scanMWSTAgreement.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
|
||||
@@ -1217,7 +1222,7 @@ Public Class frmKundenblatt
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click
|
||||
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
|
||||
Dim sdlNrTmp = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
|
||||
Dim sdlNrTmp = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value
|
||||
Select Case sdlNrTmp
|
||||
Case 100 : kundenSQL.setPartnerKdNrFromFMZOLL_IDS(kdNr, txtPartnerKdNr.Text) 'IDS :
|
||||
'gibt keine Einträge
|
||||
@@ -1331,10 +1336,10 @@ Public Class frmKundenblatt
|
||||
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
If dgvSDLLeistungenFull.SelectedCells.Count > 0 Then
|
||||
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
|
||||
Dim frmSDLDetails As New frmSDLDetails
|
||||
frmSDLDetails.KdNr = kdNr
|
||||
frmSDLDetails.sdlNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
|
||||
frmSDLDetails.sdlNr = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value
|
||||
Me.Enabled = False
|
||||
If frmSDLDetails.ShowDialog(Me) = vbOK Then
|
||||
initTABSDL_Leistungen()
|
||||
@@ -1534,10 +1539,89 @@ Public Class frmKundenblatt
|
||||
|
||||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True)
|
||||
'cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True)
|
||||
Dim Path = ""
|
||||
genLKWListeExcel(cProgramFunctions.dgridViewTods(dgvLKW), Path)
|
||||
If Path <> "" Then Process.Start(Path)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Function genLKWListeExcel(dt As DataTable, ByRef Path As String) As Boolean
|
||||
Try
|
||||
|
||||
If dt IsNot Nothing And dt.Rows.Count > 0 Then
|
||||
|
||||
|
||||
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\LKWListe\" ' My.Computer.FileSystem.GetTempFileName
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
|
||||
My.Computer.FileSystem.CreateDirectory(sPath)
|
||||
End If
|
||||
|
||||
|
||||
Dim exclApp As Object 'as Application
|
||||
Dim Datei As Object 'as WorkBook
|
||||
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
|
||||
exclApp = CreateObject("Excel.Application")
|
||||
|
||||
With exclApp
|
||||
.Visible = False
|
||||
|
||||
Try
|
||||
Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & ".xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.LKW_Liste, False)
|
||||
Catch ex As System.Exception
|
||||
' MsgBox(ex.Message)
|
||||
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(Path) 'Anpassen
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
Blatt.Range("L1").Value = Now.ToShortDateString
|
||||
Dim cnt = 4
|
||||
For Each r In dt.Rows
|
||||
If cnt = 4 Then
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(r("KundenNr"))
|
||||
Blatt.Range("D1").Value = r("KundenNr")
|
||||
Blatt.Range("E1").Value = (AD.Name_1 & " " & If(AD.Name_2, "")).trim
|
||||
End If
|
||||
|
||||
Blatt.Range("A" & cnt).Value = r("KundenNr")
|
||||
Blatt.Range("B" & cnt).Value = r("KfzKennzeichen")
|
||||
Blatt.Range("C" & cnt).Value = r("Nationalität")
|
||||
Blatt.Range("D" & cnt).Value = VERAG_PROG_ALLGEMEIN.SQL.checkNullDateReturnValue(r("Baujahr"), "") 'If(r("Abgemeldet") IsNot DBNull.Value, CDate(r("Baujahr")).ToShortDateString, "")
|
||||
Blatt.Range("E" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Abgemeldet")), "x", "")
|
||||
' Blatt.Range("F" & cnt).Value = r("Kennzeichen")
|
||||
Blatt.Range("G" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzMiete")), "x", "")
|
||||
Blatt.Range("H" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzLeasing")), "x", "")
|
||||
Blatt.Range("I" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzFinanzierungBank")), "x", "")
|
||||
Blatt.Range("J" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Verkauft")), "x", "")
|
||||
Blatt.Range("K" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KZAenderung")), "x", "")
|
||||
Blatt.Range("L" & cnt).Value = r("Vermerk")
|
||||
|
||||
cnt += 1
|
||||
Next
|
||||
Datei.Save
|
||||
Datei.Close()
|
||||
Datei = Nothing
|
||||
exclApp = Nothing
|
||||
|
||||
End With
|
||||
|
||||
Return True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
Private Sub frmKundenblatt_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
If showEdit Then changeTab(1, ToolStripMenuItem2)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user