Mahnlauf, Mahnungen, Kundenblatt, CMR, Datenverarbeitung
This commit is contained in:
@@ -362,11 +362,36 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= "SELECT Kundennummer, KundenNr, [Name 1], LandKz, Ort, Lieferland, Kartennummer, Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS SummevonGesamtbetrag_Netto_in_Darstellwährung, Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS SummevonGesamtbetrag_Brutto_in_Darstellwährung from (
|
||||
SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.*
|
||||
sqlstr &= "SELECT Kundennummer,
|
||||
KundenNr,
|
||||
[Name 1],
|
||||
LandKz,
|
||||
Ort,
|
||||
Lieferland,
|
||||
Kartennummer,
|
||||
Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS SummevonGesamtbetrag_Netto_in_Darstellwährung,
|
||||
Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS SummevonGesamtbetrag_Brutto_in_Darstellwährung from (
|
||||
SELECT Adressen.AdressenNr,
|
||||
Adressen.[Name 1],
|
||||
Adressen.LandKz,
|
||||
Adressen.Ort,
|
||||
Adressen.UTAExportCSV,
|
||||
Adressen.Rechnungsdruck,
|
||||
Offertenpositionen.KundenNr,
|
||||
Offertenpositionen.OffertenNr,
|
||||
Offertenpositionen.LeistungsNr,
|
||||
Offertenpositionen.LeistungsBez,
|
||||
tblUTAFakturierwarenarten.Warenart,
|
||||
tblUTAImport.*
|
||||
FROM tblUTAFakturierwarenarten
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr)
|
||||
AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) as temp
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
|
||||
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
|
||||
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr)
|
||||
AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr)
|
||||
AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
|
||||
AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)
|
||||
as temp
|
||||
where temp.abgerechnet <> 1
|
||||
GROUP BY Kundennummer, KundenNr, [Name 1], LandKz, Ort, Lieferland, Kartennummer"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
@@ -624,22 +649,34 @@ Public Class frmMDMDatenverarbetiung
|
||||
'Exit Sub
|
||||
'MsgBox(.sql)
|
||||
|
||||
.SET_SQL(" SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort,Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.Fakturierwarenart,sum(tblUTAImport.Gesamtbetrag_Netto_in_Lieferlandwährung) as Netto ,sum(tblUTAImport.Gesamtbetrag_Brutto_in_Lieferlandwährung) as Brutto
|
||||
.SET_SQL("SELECT Kundennummer, KundenNr, [Name 1], LandKz, Ort, /*Lieferland, Kartennummer,*/ Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS Netto, Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS Brutto
|
||||
from (
|
||||
SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.*
|
||||
FROM tblUTAFakturierwarenarten
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
|
||||
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
|
||||
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
|
||||
where abgerechnet <> 1
|
||||
group by Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart,tblUTAImport.Fakturierwarenart ", "FMZOLL")
|
||||
INNER JOIN (((Adressen
|
||||
INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
|
||||
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
|
||||
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr)
|
||||
AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr)
|
||||
AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
|
||||
AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart))
|
||||
ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) as temp
|
||||
where temp.abgerechnet <> 1
|
||||
GROUP BY Kundennummer, KundenNr, [Name 1], LandKz, Ort", "FMZOLL")
|
||||
.LOAD()
|
||||
'MsgBox(.GET_SQL())
|
||||
If .Columns.Count > 0 Then
|
||||
|
||||
.Columns("AdressenNr").HeaderText = "KdNr"
|
||||
.Columns("KundenNr").HeaderText = "KdNr"
|
||||
.Columns("Name 1").HeaderText = "Kunde"
|
||||
.Columns("LandKz").Width = 75
|
||||
.Columns("LandKz").HeaderText = "Land"
|
||||
.Columns("Ort").HeaderText = "Ort"
|
||||
.Columns("Ort").Width = 100
|
||||
'.Columns("Lieferland").HeaderText = "Land"
|
||||
.Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
|
||||
'.Columns("VERAGLeistungsNr").ReadOnly = False
|
||||
'.Columns("VERAGKdNr").ReadOnly = False
|
||||
|
||||
|
||||
@@ -39,9 +39,9 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
|
||||
|
||||
Case "UTA"
|
||||
|
||||
Button6.Text = "Kundennummern"
|
||||
Button2.Text = "Fakturierwarenart"
|
||||
Button1.Text = "Offertenpositionen"
|
||||
Button6.Text = "fehlende KdNr"
|
||||
Button2.Text = "fehlende Fakt.warenart"
|
||||
Button1.Text = "fehlende Offertenpos."
|
||||
|
||||
Case "MSE"
|
||||
|
||||
@@ -302,14 +302,14 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
|
||||
|
||||
Case "KDNR"
|
||||
|
||||
sqlstr = "SELECT tblUTAImport.Kundennummer
|
||||
sqlstr = "SELECT tblUTAImport.Kundennummer as 'fehlende UTA-Kundennummer'
|
||||
FROM tblUTAImport LEFT JOIN Adressen ON tblUTAImport.Kundennummer = Adressen.UTAKundenNr
|
||||
GROUP BY tblUTAImport.Kundennummer, Adressen.UTAKundenNr
|
||||
HAVING (((Adressen.UTAKundenNr) Is Null))"
|
||||
|
||||
Case "FKWA"
|
||||
|
||||
sqlstr = "SELECT tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland
|
||||
sqlstr = "SELECT tblUTAImport.Fakturierwarenart as Fakturierwarenart, tblUTAImport.Lieferland as Lieferland
|
||||
FROM tblUTAImport LEFT JOIN tblUTALeistungen ON (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
|
||||
GROUP BY tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTALeistungen.Fakturierwarenart, tblUTALeistungen.Lieferland
|
||||
HAVING (((tblUTALeistungen.Fakturierwarenart) Is Null) AND ((tblUTALeistungen.Lieferland) Is Null))"
|
||||
@@ -334,52 +334,54 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
|
||||
End If
|
||||
|
||||
|
||||
Dim rpt As New rptPLOSE_LaenderGesamt
|
||||
rpt.DataSource = dt
|
||||
cProgramFunctions.genExcelCSVFromDT(dt, True)
|
||||
|
||||
Dim sum = 0
|
||||
' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
'Dim rpt As New rptPLOSE_LaenderGesamt
|
||||
'rpt.DataSource = dt
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
'Dim sum = 0
|
||||
'' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
|
||||
'rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
''rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
''Dim cnt As Integer = 0
|
||||
'rpt.lblDat.Text = Now.ToLongDateString
|
||||
|
||||
|
||||
'Dim sumPreis As Double = 0
|
||||
'Dim sumNetto As Double = 0
|
||||
'Dim sumMWST As Double = 0
|
||||
'Dim sumBrutto As Double = 0
|
||||
'Dim sumBruttoAlleLeistungen As Double = 0
|
||||
'Dim sumMenge As Double = 0
|
||||
''Dim sumPreis As Double = 0
|
||||
''Dim sumNetto As Double = 0
|
||||
''Dim sumMWST As Double = 0
|
||||
''Dim sumBrutto As Double = 0
|
||||
''Dim sumBruttoAlleLeistungen As Double = 0
|
||||
''Dim sumMenge As Double = 0
|
||||
|
||||
'AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
|
||||
' rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "")
|
||||
''AddHandler rpt.Detail.Format, Sub()
|
||||
'' rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
|
||||
'' rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "")
|
||||
|
||||
' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 2, "")
|
||||
' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 2, "")
|
||||
' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "")
|
||||
'' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 2, "")
|
||||
'' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 2, "")
|
||||
'' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "")
|
||||
|
||||
' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 4, 0)
|
||||
' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0)
|
||||
' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0)
|
||||
'' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 4, 0)
|
||||
'' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0)
|
||||
'' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0)
|
||||
|
||||
|
||||
|
||||
' End Sub
|
||||
'' End Sub
|
||||
|
||||
|
||||
'AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
' rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
' rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
''AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
'' rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
'' rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
'' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
' End Sub
|
||||
'' End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
'print.Viewer.LoadDocument(rpt)
|
||||
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
'print.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user