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

VK Kundenübersicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-22 15:07:01 +02:00
parent 69332f2303
commit df1239705a
5 changed files with 195 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -748,13 +748,12 @@ Public Class usrCntlKundenuebersicht
'Alles andere gesperrt
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Case "VERAG"
where &= " AND Firma_ID <> 7"
Case "ATILLA"
where &= " AND Firma_ID = 7"
End Select
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
' Case "VERAG"
' where &= " AND Firma_ID <> 7"
' Case "ATILLA"
' where &= " AND Firma_ID = 7"
'End Select
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
@@ -826,10 +825,6 @@ Public Class usrCntlKundenuebersicht
'End Select
.DataSource = SQL.loadDgvBySql("SELECT * FROM (SELECT abf.kdvm_Id, art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.[kdvm_gueltig_bis], abf.kdvm_datenarchivId, abf.kdvm_Info, abf.[kdvm_vermerk], abf.[kdvm_archiviert],ROW_NUMBER() OVER(PARTITION BY art.kdvma_Id ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc) RowNumber" &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 " & where &
" ) A WHERE RowNumber = 1", "FMZOLL")
@@ -1331,7 +1326,7 @@ Public Class usrCntlKundenuebersicht
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
sumGes += sumVK
' sumGes += sumVK
'Dim OP_tmp As Double = 0
@@ -1415,7 +1410,8 @@ Public Class usrCntlKundenuebersicht
Function getOffeneVK(KundenNrZentrale)
Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE())", "FMZOLL")
Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE())
and vk_storno=0 and (SELECT count(*) FROM Rechnungsausgang RG WHERE RG.FilialenNr = vk_FilialeNr and RG.AbfertigungsNr= vk_AbfertigungsNr and vk_KdNr=rg.RechnungsKundenNr) =0", "FMZOLL")
End Function
Sub initDGVOffenePostenVERAG()
@@ -1486,7 +1482,7 @@ Public Class usrCntlKundenuebersicht
Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
OP_tmp += sumVK
' OP_tmp += sumVK
End If
@@ -2693,17 +2689,7 @@ Public Class usrCntlKundenuebersicht
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
Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles btnVMhinzufuegen.Click
Dim where = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -3140,8 +3126,12 @@ Public Class usrCntlKundenuebersicht
Dim f As New frmVorauskasse
f.KundenNr = kdNr
f.GeldEingang = False
f.Storno = False
f.Abgerechnet = False
f.Show(Me)
End Sub
End Class