tradeInvoice, Kundenubersicht, fakt, etc.
This commit is contained in:
@@ -827,11 +827,11 @@ Public Class usrCntlBH
|
||||
op_debitor.c_urbelegid AS BelegNr,
|
||||
op_debitor.i_personenkonto AS KundenNr,
|
||||
op_debitor.d_rechnung AS Belegdatum,
|
||||
ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum,
|
||||
--ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum,
|
||||
op_debitor.eur_bruttobetrag AS Bruttobetrag,
|
||||
op_debitor.eur_zahlung AS Zahlungsbetrag,
|
||||
op_debitor.d_netto AS Nettodatum,
|
||||
op_debitor.c_bemerkung AS buchungstext,
|
||||
op_debitor.c_bemerkung AS Buchungstext,
|
||||
op_debitor.d_zahlung AS Zahlungsdatum,
|
||||
ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP,
|
||||
isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
|
||||
@@ -842,7 +842,7 @@ Public Class usrCntlBH
|
||||
|
||||
case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
|
||||
|
||||
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
|
||||
Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2)
|
||||
|
||||
else 0 end as Zinsbetrag,
|
||||
|
||||
@@ -858,9 +858,11 @@ Public Class usrCntlBH
|
||||
AND (op_debitor.eur_bruttobetrag + op_debitor.eur_zahlung >= (-1))
|
||||
AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis
|
||||
AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis
|
||||
AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
|
||||
AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
|
||||
AND Left(op_debitor.c_bemerkung,2) <> 'AR'
|
||||
AND op_debitor.c_bemerkung not like '%nicht verzinsen%'
|
||||
|
||||
ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
|
||||
ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
|
||||
@@ -886,7 +888,7 @@ Public Class usrCntlBH
|
||||
|
||||
Else
|
||||
|
||||
zins.buchungstext = r.Item("buchungstext")
|
||||
zins.buchungstext = r.Item("Buchungstext")
|
||||
zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
|
||||
zins.zinssatz = r.Item("Zinssatz_Kunde")
|
||||
zins.belegZahlungsziel = r.Item("ZZinTage")
|
||||
@@ -915,7 +917,7 @@ Public Class usrCntlBH
|
||||
|
||||
dtTemp = dt.Select("Zinsbetrag > 0").CopyToDataTable
|
||||
If dtTemp.Rows.Count > 0 Then
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)})
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1)})
|
||||
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
|
||||
End If
|
||||
|
||||
@@ -1074,8 +1076,6 @@ Public Class usrCntlBH
|
||||
|
||||
Dim dt As New DataTable
|
||||
cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr)
|
||||
'Dim zahlungsperiodeStart
|
||||
'Dim zahlungsperiodeEnde
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
@@ -1094,13 +1094,12 @@ Public Class usrCntlBH
|
||||
Dim LeistungsNr As Integer = 950
|
||||
Dim LeistungsBezAdd As String = ""
|
||||
If r("buchungstext") <> "" Then
|
||||
LeistungsBezAdd &= r("buchungstext")
|
||||
LeistungsBezAdd &= id.ToString("D5") & "-" & r("buchungstext")
|
||||
If LeistungsBezAdd.Length > 30 Then
|
||||
LeistungsBezAdd = LeistungsBezAdd.ToString.Substring(0, 30)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id)
|
||||
|
||||
Next
|
||||
@@ -1114,9 +1113,6 @@ Public Class usrCntlBH
|
||||
|
||||
RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
|
||||
|
||||
'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString
|
||||
'SPEDBUCH.SAVE()
|
||||
|
||||
If RG.SAVE Then
|
||||
RK_ID = RG.RK_ID
|
||||
Return True
|
||||
@@ -1159,7 +1155,7 @@ Public Class usrCntlBH
|
||||
POS.SteuerfreierBetrag = BruttoBetrag
|
||||
POS.Preis = BruttoBetrag
|
||||
End If
|
||||
POS.NachzahlungsID = nachzahlungsID
|
||||
'POS.NachzahlungsID = nachzahlungsID 'nix gut
|
||||
POS.BGebLeistungsNr = o.BGebLeistungsNr
|
||||
POS.BGebProzent = o.BGebProzent
|
||||
POS.BGebMinBetrag = o.BGebMinBetrag
|
||||
@@ -1219,7 +1215,7 @@ Public Class usrCntlBH
|
||||
|
||||
Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
|
||||
If dtfehlendeOfferten.Rows.Count > 0 Then
|
||||
If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then
|
||||
If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then
|
||||
cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -1236,10 +1232,14 @@ Public Class usrCntlBH
|
||||
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
|
||||
|
||||
Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
|
||||
Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
|
||||
Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
|
||||
Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
|
||||
Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
|
||||
Dim Fußtext As String = ""
|
||||
|
||||
'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & "
|
||||
' Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
|
||||
' Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
|
||||
' Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
|
||||
|
||||
|
||||
|
||||
Dim verarbOK As Boolean = True
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
|
||||
Reference in New Issue
Block a user