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

Mahnlauf, Mahnungen, Kundenblatt, CMR, Datenverarbeitung

Browse Source
This commit is contained in:
d.breimaier
2024-08-27 17:24:39 +02:00
parent 8f2a8d15bf
commit 94fc588c11
18 changed files with 603 additions and 484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_divers.vb
View File

@@ -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