Kundenuebersicht, etc.
This commit is contained in:
@@ -39,6 +39,7 @@ Public Class frmKundenblatt
|
||||
Dim cSqlDb As New cSqlDb
|
||||
Dim FUNC As New cProgramFunctions
|
||||
|
||||
Dim RG_MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
|
||||
' INFO:
|
||||
Private InfoDauer As Integer = 3
|
||||
Private WithEvents timShow As New Timer With {.Interval = 10}
|
||||
@@ -317,6 +318,8 @@ Public Class frmKundenblatt
|
||||
End Select
|
||||
Case "tbZoll" : initTZOLL()
|
||||
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360)
|
||||
Case "tbFIBU" : initFIBU()
|
||||
Case "tbRechnungen" : initBtns("Monat") : initRechnungen()
|
||||
|
||||
End Select
|
||||
|
||||
@@ -452,6 +455,21 @@ Public Class frmKundenblatt
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub initFIBU()
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", Me) = 0 Then
|
||||
|
||||
If kdNr > 0 Then
|
||||
rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
|
||||
txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
setInfo("info", "Sie sind für den Bereich FIBU nicht freigeschaltet.", 3)
|
||||
tbcntrMain.SelectedIndex = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initTABLKW(Optional kz As String = "")
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LKW_bearbeiten", Me) = 0 Then
|
||||
tbcntrMain.TabPages(2).Enabled = False
|
||||
@@ -1763,7 +1781,7 @@ Public Class frmKundenblatt
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
||||
changeTab(4, sender)
|
||||
changeTab(6, sender)
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2186,5 +2204,157 @@ Public Class frmKundenblatt
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
||||
changeTab(4, sender)
|
||||
End Sub
|
||||
|
||||
Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
|
||||
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
|
||||
KUNDE_ERW.SAVE()
|
||||
|
||||
KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
|
||||
KUNDE.SAVE()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
||||
changeTab(7, sender)
|
||||
End Sub
|
||||
|
||||
Private Sub dgvRg_SelectionChanged(sender As Object, e As EventArgs) Handles dgvRg.SelectionChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnRgPdf_Click(sender As Object, e As EventArgs) Handles btnRgPdf.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
For Each RK_ID In getList_RK_ID()
|
||||
Dim RG_PATH = ""
|
||||
cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
|
||||
Process.Start(RG_PATH)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Function getList_RK_ID() As List(Of Integer)
|
||||
Dim listRgNr As New List(Of Integer)
|
||||
Dim list As New List(Of Integer)
|
||||
If dgvRg.SelectedRows.Count > 0 Then
|
||||
For Each r As DataGridViewRow In dgvRg.SelectedRows
|
||||
If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
|
||||
list.Add(r.Cells("RK_ID").Value)
|
||||
listRgNr.Add(r.Cells("RechnungsNr").Value)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Sub initBtns(MonatJahr)
|
||||
Try
|
||||
'MsgBox(RG_MONAT.ToString("MMMM yy"))
|
||||
btnMonat.Text = RG_MONAT.ToString("MMMM yy")
|
||||
Select Case MonatJahr
|
||||
Case "Monat"
|
||||
Case "Jahr", "Tag"
|
||||
End Select
|
||||
initRechnungen()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initRechnungen()
|
||||
With dgvRg
|
||||
Dim sqlStr = ""
|
||||
sqlStr &= " SELECT TOP 1000 RK_ID,[RechnungsNr],[RechnungsDatum],"
|
||||
sqlStr &= " ( SELECT SUM(isnull([SteuerpflichtigerBetrag],0)+isnull([SteuerfreierBetrag],0)) FROM [RechnungsausgangPositionen] where [RechnungsausgangPositionen].RK_ID=[Rechnungsausgang].RK_ID ) as Rechnungsbetrag,"
|
||||
sqlStr &= " Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum], isnull(cast(RechnungsKundenNr as nvarchar(7)) + ' ','') + [RechnungsName 1] as [RechnungAn], "
|
||||
sqlStr &= " isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter "
|
||||
sqlStr &= " FROM [Rechnungsausgang] WHERE RechnungsKundenNr=@KundenNr AND RechnungsDatum BETWEEN @RechnungsDatum_Von AND @RechnungsDatum_Bis "
|
||||
|
||||
Dim SQL_PARAM As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", kdNr))
|
||||
SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum_Von", RG_MONAT))
|
||||
SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum_Bis", RG_MONAT.AddMonths(1).AddDays(-1)))
|
||||
.SET_SQL(sqlStr & " ORDER BY RechnungsDatum DESC", "FMZOLL", SQL_PARAM)
|
||||
.LOAD()
|
||||
|
||||
'.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
.Columns("RK_ID").Visible = False
|
||||
|
||||
.Columns("RechnungsNr").Width = 70
|
||||
.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
|
||||
.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns("RechnungsDatum").Width = 100
|
||||
.Columns("RechnungsDatum").HeaderText = "Rg-Dat."
|
||||
.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns("Sammelrechnung").Width = 45
|
||||
.Columns("Sammelrechnung").HeaderText = "SR"
|
||||
|
||||
.Columns("Rechnungsbetrag").Width = 100
|
||||
.Columns("Rechnungsbetrag").HeaderText = "Rechnungsbetrag"
|
||||
.Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C"
|
||||
.Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
.Columns("FilialenNr").Width = 45
|
||||
.Columns("FilialenNr").HeaderText = "Filiale"
|
||||
.Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("AbfertigungsNr").Width = 70
|
||||
.Columns("AbfertigungsNr").HeaderText = "Abf-Nr"
|
||||
.Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("UnterNr").Width = 45
|
||||
.Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("Abfertigungsdatum").Width = 100
|
||||
.Columns("Abfertigungsdatum").HeaderText = "Abf-Dat."
|
||||
.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns("RechnungAn").MinimumWidth = 150
|
||||
.Columns("RechnungAn").HeaderText = "Rechnung an"
|
||||
.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
'.Columns("Absender").MinimumWidth = 150
|
||||
'.Columns("Absender").HeaderText = "Absender"
|
||||
'.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("Vermittler").MinimumWidth = 150
|
||||
.Columns("Vermittler").HeaderText = "Auftraggeber"
|
||||
.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
'.Columns("Empfänger").MinimumWidth = 150
|
||||
'.Columns("Empfänger").HeaderText = "Empfänger"
|
||||
'.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("LKW Kennzeichen").Width = 120
|
||||
.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
|
||||
|
||||
.Columns("Sachbearbeiter").MinimumWidth = 100
|
||||
.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
||||
RG_MONAT = RG_MONAT.AddMonths(1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
RG_MONAT = RG_MONAT.AddMonths(-1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user