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

Friskalkunden, Kundenuebersicht Umrechnung

Browse Source
This commit is contained in:
d.breimaier
2026-04-02 14:46:48 +02:00
parent ea4a4d963b
commit aac9ca7c9a
4 changed files with 1389 additions and 1323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/kunden/Berichte/rptFiskalkunde.vb
View File

@@ -41,9 +41,17 @@ Public Class rptFiskalkunde
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr) Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
Dim FK As New VERAG_PROG_ALLGEMEIN.cFiskalkunden(FiskalId) Dim FK As New VERAG_PROG_ALLGEMEIN.cFiskalkunden(FiskalId)
lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
If FK.FK_Art = "DE" Then
lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Land
Select Case FK.FK_Art
Case "IN" : lblUeberschrift.Text &= " INDIREKTE - KUNDEN"
Case Else : lblUeberschrift.Text &= " FISKAL - KUNDEN"
End Select
If FK.FK_Land = "DE" Then
picVeragAG.Visible = True picVeragAG.Visible = True
Else Else
picVeragCS.Visible = True picVeragCS.Visible = True

2642
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

30
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -209,21 +209,6 @@
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII= ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>832, 17</value>
</metadata>
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>989, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1146, 17</value>
</metadata>
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1303, 17</value>
</metadata>
<metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>153, 56</value>
</metadata>
<metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@@ -245,6 +230,21 @@
<metadata name="BIN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="BIN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>832, 17</value>
</metadata>
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>989, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1146, 17</value>
</metadata>
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1303, 17</value>
</metadata>
<metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>153, 56</value>
</metadata>
<metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>

28
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -451,7 +451,6 @@ Public Class usrCntlKundenuebersicht
txtUIDVeranlagt.Text = "" txtUIDVeranlagt.Text = ""
Dim SQLUIDVeranlagt = "SELECT STUFF(( Dim SQLUIDVeranlagt = "SELECT STUFF((
SELECT ', ' + UstIdKz + '-' + UstIdNr + SELECT ', ' + UstIdKz + '-' + UstIdNr +
CASE CASE
@@ -555,8 +554,8 @@ Public Class usrCntlKundenuebersicht
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : 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 End Select
Dim ungeb As Double = getBetragUngebuchteBelege(kdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
txtUngebuchteRechungen.Text = ungeb.ToString("C2")
If KUNDE.Vorkasse Then If KUNDE.Vorkasse Then
txtVorauskasse.Text = "JA" txtVorauskasse.Text = "JA"
@@ -1334,10 +1333,11 @@ Public Class usrCntlKundenuebersicht
txtKdSicherheiten.Text = CDbl(VERAG_PROG_ALLGEMEIN.cKundenSicherheiten.GetSummeSicherheitenAktuell(kdNr)).ToString("C2") txtKdSicherheiten.Text = CDbl(VERAG_PROG_ALLGEMEIN.cKundenSicherheiten.GetSummeSicherheitenAktuell(kdNr)).ToString("C2")
Dim Kreditlimit As Double = If(IsNumeric(lblKreditlimit.Text), CDbl(lblKreditlimit.Text), 0) Dim Kreditlimit As Double = If(IsNumeric(lblKreditlimit.Text), CDbl(lblKreditlimit.Text), 0)
Dim Proforma As Double = If(IsNumeric(txtProforma.Text), CDbl(txtProforma.Text), 0) Dim Proforma As Double = If(IsNumeric(txtProforma.Text), CDbl(txtProforma.Text), 0)
Dim ungebuchteBelege As Double = If(IsNumeric(txtUngebuchteRechungen.Text), CDbl(txtUngebuchteRechungen.Text), 0)
Dim OVK As Double = If(IsNumeric(txtOVK.Text), CDbl(txtOVK.Text), 0) Dim OVK As Double = If(IsNumeric(txtOVK.Text), CDbl(txtOVK.Text), 0)
Dim Sicherheiten As Double = If(IsNumeric(txtKdSicherheiten.Text), CDbl(txtKdSicherheiten.Text), 0) Dim Sicherheiten As Double = If(IsNumeric(txtKdSicherheiten.Text), CDbl(txtKdSicherheiten.Text), 0)
Dim OP As Double = If(IsNumeric(txtOffenePosten2.Text), CDbl(txtOffenePosten2.Text), 0) Dim OP As Double = If(IsNumeric(txtOffenePosten2.Text), CDbl(txtOffenePosten2.Text), 0)
Dim Risiko = Kreditlimit + Sicherheiten - Proforma - OVK - OP Dim Risiko = Kreditlimit + Sicherheiten - Proforma - OVK - OP - ungebuchteBelege
txtRisiko.Text = Risiko.ToString("N2") txtRisiko.Text = Risiko.ToString("N2")
If Risiko = 0 Then If Risiko = 0 Then
@@ -1404,7 +1404,6 @@ Public Class usrCntlKundenuebersicht
Dim sumVK As Double Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale) sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
End If End If
Dim sumGes As Double = 0 Dim sumGes As Double = 0
@@ -1518,6 +1517,19 @@ Public Class usrCntlKundenuebersicht
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()) 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") 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 End Function
Function getBetragUngebuchteBelege(KundenNrZentrale As Integer, FirmaID As Integer)
Select Case FirmaID
Case 26 : Return 0 'keine FIBU
Case Else
Return SQL.getValueTxtBySql("select isnull(sum(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag), 0) as Betrag from Rechnungsausgang where Trdin = 0 and Firma_ID = " & FirmaID & " and RechnungsNr is not null and KundenNrZentrale = '" & KundenNrZentrale & "'", "FMZOLL")
End Select
End Function
Sub initDGVOffenePostenVERAG() Sub initDGVOffenePostenVERAG()
@@ -1526,11 +1538,11 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = "" Dim where = ""
If cboFirmaFMZOLL._value <> "" Then If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value where = " And Firma_ID=" & cboFirmaFMZOLL._value
Else Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " And Firma_ID In(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If End If
.DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " & .DataSource = SQL.loadDgvBySql("Select [Kontonummer] As KdNr,[Belegdatum] As Datum,[Belegnummer] As Nummer,[Bruttobetrag] As Betrag,[Gesamtausstand] As [OP-Saldo],[Waehrung] As 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " & " FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL") " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")