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

Compare commits

base: edv:ea4a4d963b0363d64e4a566519bb2a9ddf62904f
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
...
compare: edv:7b280b8ff12823997acdbcba88f911c87a2aa6ae
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

3 Commits
ea4a4d963b ... 7b280b8ff1

Author SHA1 Message Date
d.breimaier
7b280b8ff1 cRKSV, Automailversand, cFakt. etc. 2026-04-03 16:17:19 +02:00
d.breimaier
1d81c245e0 Sicherheiten 2026-04-02 17:12:12 +02:00
d.breimaier
aac9ca7c9a Friskalkunden, Kundenuebersicht Umrechnung 2026-04-02 14:46:48 +02:00
12 changed files with 1707 additions and 1541 deletions
Expand all files Collapse all files

6
SDL/Classes/cRKSV.vb
View File

@@ -2446,11 +2446,13 @@ Public Class cRKSV
End If End If
'################ '################
' DIREKTVERBUCHUNG SYSKA ' DIREKTVERBUCHUNG SYSKA -> ev. Fehleranfällig, weil hier direkt in eine Fremddatenbank geschrieben wird ohne Plausibilitätsprüfen bzw. Kenntnisse der internen Prüfungsstrukturen!!!!!
'################ '################
If BelegSofortInFIBUverbuchten AndAlso (BELEG.Beleg_TYP = "L" Or BELEG.Beleg_TYP = "K") Then If BelegSofortInFIBUverbuchten AndAlso (BELEG.Beleg_TYP = "L" Or BELEG.Beleg_TYP = "K") Then
CreateSyskaBuchung(RKSV_id, BELEG, KBEntry_List, KBEntryGB_List, KBEntryST_List, IIf(BELEG.Beleg_TYP = "L", "AUSZAHLUNG", "EINZAHLUNG"), BelegNrFIBU) CreateSyskaBuchung(RKSV_id, BELEG, KBEntry_List, KBEntryGB_List, KBEntryST_List, IIf(BELEG.Beleg_TYP = "L", "AUSZAHLUNG", "EINZAHLUNG"), BelegNrFIBU)
Else
End If End If
BELEG.gebucht = True BELEG.gebucht = True
@@ -2792,10 +2794,8 @@ Public Class cRKSV
createOPVorgang_new(mandant, typ, CDbl(betrag), jahr, rel_periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, buchungstext, beleg.KundenNr, CDbl(opvorgangsbetrag), i_beleg_refid, Now.ToString(), kassenkonto, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 5) createOPVorgang_new(mandant, typ, CDbl(betrag), jahr, rel_periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, buchungstext, beleg.KundenNr, CDbl(opvorgangsbetrag), i_beleg_refid, Now.ToString(), kassenkonto, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 5)
End If End If
' 11) single check if gebucht
Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext) Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
If gebucht Then If gebucht Then
' logging instead of MsgBox in production
MsgBox("FIBU - GEBUCHT!") MsgBox("FIBU - GEBUCHT!")
Else Else
MsgBox("FIBU - NICHT GEBUCHT!") MsgBox("FIBU - NICHT GEBUCHT!")

13
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -155,18 +155,17 @@ Public Class cAutomailversand
End Try End Try
End Sub End Sub
Sub sendMailEinzelrechnung(Rechnungsdatum As Date, RechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
End Sub
Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String) Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String)
Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr) Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
Dim Mailtext As String Dim Mailtext As String
'NICHT MEHR BENÖTIGT!
'If row.Item("Steuer") = 0 Then
' Mailtext &= vbNewLine & vbNewLine
' Mailtext &= (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & row.Item("RechnungsLandKz") & "'", "FMZOLL")
'End If
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID) Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)

4
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1965,12 +1965,12 @@ Public Class cFakturierung
Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
If printStbVdb AndAlso Rechnung.Firma_ID <> 1 Then If printStbVdb AndAlso Not (Rechnung.Firma_ID = 1) Then
If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then
printSpedBuchAnhaenge(Rechnung, True, True) printSpedBuchAnhaenge(Rechnung, True, True)
End If End If
End If End If
If Rechnung.ANHAENGE.Count > 0 AndAlso Rechnung.Firma_ID <> 1 Then If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then
If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
printRGAnhaenge(Rechnung) printRGAnhaenge(Rechnung)
End If End If

4
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
View File

@@ -153,7 +153,9 @@ Public Class usrcntlVerzollungsunterlagen
txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "") txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
txtTel.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 77 11 / 27 77 DW 55") Dim telString = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "")
telString &= "DW " & If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "")
txtTel.Text = If(telString, "+43 77 11 / 27 77 DW 55")
txtEmail.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "verrechnung@verag.ag") txtEmail.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "verrechnung@verag.ag")

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>

39
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1,9 +1,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports org.BouncyCastle.Asn1.Ocsp
Imports SDL.EORI Imports SDL.EORI
Imports sun.util.resources.cldr.aa
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlKundenuebersicht Public Class usrCntlKundenuebersicht
@@ -451,7 +449,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 +552,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)
txtUngebuchteRechungen.Text = ungeb.ToString("C2")
If KUNDE.Vorkasse Then If KUNDE.Vorkasse Then
txtVorauskasse.Text = "JA" txtVorauskasse.Text = "JA"
@@ -1334,10 +1331,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 +1402,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 +1515,28 @@ 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)
Dim FirmaID_temp As String = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : FirmaID_temp = "'1', '11'" 'CS
Case "UNISPED" : FirmaID_temp = "'21', '22', '23'" 'CS
Case Else
FirmaID_temp = "'" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID & "'"
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID
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 in (" & FirmaID_temp & ") and RechnungsNr is not null and KundenNrZentrale = '" & KundenNrZentrale & "'", "FMZOLL")
End Select
End Function
Sub initDGVOffenePostenVERAG() Sub initDGVOffenePostenVERAG()
@@ -1526,11 +1545,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")

45
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb generated
View File

@@ -55,6 +55,7 @@ Partial Public Class rptIDS_Anhang
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -84,7 +85,6 @@ Partial Public Class rptIDS_Anhang
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLiter, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtLiter, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -117,6 +117,7 @@ Partial Public Class rptIDS_Anhang
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -134,7 +135,6 @@ Partial Public Class rptIDS_Anhang
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -206,7 +206,7 @@ Partial Public Class rptIDS_Anhang
Me.txtProduktBeschreibung.DataField = "" Me.txtProduktBeschreibung.DataField = ""
Me.txtProduktBeschreibung.Height = 0.1212599! Me.txtProduktBeschreibung.Height = 0.1212599!
Me.txtProduktBeschreibung.HyperLink = Nothing Me.txtProduktBeschreibung.HyperLink = Nothing
Me.txtProduktBeschreibung.Left = 0.01023622! Me.txtProduktBeschreibung.Left = 0!
Me.txtProduktBeschreibung.Name = "txtProduktBeschreibung" Me.txtProduktBeschreibung.Name = "txtProduktBeschreibung"
Me.txtProduktBeschreibung.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & Me.txtProduktBeschreibung.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1" ": 1"
@@ -219,7 +219,7 @@ Partial Public Class rptIDS_Anhang
Me.lblRabatt.DataField = "" Me.lblRabatt.DataField = ""
Me.lblRabatt.Height = 0.1212599! Me.lblRabatt.Height = 0.1212599!
Me.lblRabatt.HyperLink = Nothing Me.lblRabatt.HyperLink = Nothing
Me.lblRabatt.Left = 0.01417323! Me.lblRabatt.Left = 0!
Me.lblRabatt.Name = "lblRabatt" Me.lblRabatt.Name = "lblRabatt"
Me.lblRabatt.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & Me.lblRabatt.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1" ": 1"
@@ -258,7 +258,7 @@ Partial Public Class rptIDS_Anhang
Me.lblMWST.DataField = "" Me.lblMWST.DataField = ""
Me.lblMWST.Height = 0.1212599! Me.lblMWST.Height = 0.1212599!
Me.lblMWST.HyperLink = Nothing Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 0.01417323! Me.lblMWST.Left = 0!
Me.lblMWST.Name = "lblMWST" Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & Me.lblMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1" ": 1"
@@ -328,7 +328,7 @@ Partial Public Class rptIDS_Anhang
Me.txtGesamtbetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & Me.txtGesamtbetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" &
"t: 1" "t: 1"
Me.txtGesamtbetrag.Text = "Betrag" Me.txtGesamtbetrag.Text = "Betrag"
Me.txtGesamtbetrag.Top = 0.6472442! Me.txtGesamtbetrag.Top = 0.6822835!
Me.txtGesamtbetrag.Width = 0.9169284! Me.txtGesamtbetrag.Width = 0.9169284!
' '
'PageFooter 'PageFooter
@@ -394,7 +394,7 @@ Partial Public Class rptIDS_Anhang
' '
Me.Label16.Height = 0.1574803! Me.Label16.Height = 0.1574803!
Me.Label16.HyperLink = Nothing Me.Label16.HyperLink = Nothing
Me.Label16.Left = 4.304331! Me.Label16.Left = 4.09567!
Me.Label16.Name = "Label16" Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
@@ -549,7 +549,7 @@ Partial Public Class rptIDS_Anhang
' '
Me.Label2.Height = 0.1574803! Me.Label2.Height = 0.1574803!
Me.Label2.HyperLink = Nothing Me.Label2.HyperLink = Nothing
Me.Label2.Left = 4.304331! Me.Label2.Left = 4.09567!
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
@@ -581,6 +581,19 @@ Partial Public Class rptIDS_Anhang
Me.Label4.Top = 0.8291339! Me.Label4.Top = 0.8291339!
Me.Label4.Width = 0.7960634! Me.Label4.Width = 0.7960634!
' '
'lblIDSKdNr
'
Me.lblIDSKdNr.DataField = ""
Me.lblIDSKdNr.Height = 0.1574803!
Me.lblIDSKdNr.HyperLink = Nothing
Me.lblIDSKdNr.Left = 5.115748!
Me.lblIDSKdNr.Name = "lblIDSKdNr"
Me.lblIDSKdNr.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.lblIDSKdNr.Text = "0"
Me.lblIDSKdNr.Top = 0.8291339!
Me.lblIDSKdNr.Width = 0.7531495!
'
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.lblGessumme, Me.Line7, Me.Line8}) Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.lblGessumme, Me.Line7, Me.Line8})
@@ -889,21 +902,9 @@ Partial Public Class rptIDS_Anhang
Me.lblSummeKennzeichen.Top = 0.01968504! Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645! Me.lblSummeKennzeichen.Width = 1.484645!
' '
'lblIDSKdNr
'
Me.lblIDSKdNr.DataField = ""
Me.lblIDSKdNr.Height = 0.1574803!
Me.lblIDSKdNr.HyperLink = Nothing
Me.lblIDSKdNr.Left = 5.32441!
Me.lblIDSKdNr.Name = "lblIDSKdNr"
Me.lblIDSKdNr.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.lblIDSKdNr.Text = "0"
Me.lblIDSKdNr.Top = 0.8291339!
Me.lblIDSKdNr.Width = 0.6590552!
'
'rptIDS_Anhang 'rptIDS_Anhang
' '
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008! Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008! Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008! Me.PageSettings.Margins.Right = 0.3937008!
@@ -960,6 +961,7 @@ Partial Public Class rptIDS_Anhang
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit()
@@ -977,7 +979,6 @@ Partial Public Class rptIDS_Anhang
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub

13
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3142,7 +3142,18 @@ Public Class frmMDMDatenverarbetiung
rpt.txtRabattBetrag.Text = curRabattbetrag rpt.txtRabattBetrag.Text = curRabattbetrag
rpt.lblMWST.Text = "zuzüglich MWST " rpt.lblMWST.Text = "zuzüglich MWST "
rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
'SPANIEM : für alle Produkte gilt eine Reduzierung der MwSt. auf 10 %, mit Ausnahme von AdBlue (bleibt bei 21 % MwSt.) -> Regelung der MWST-Anzeige erfolgt über IDS-Länder, allerdings wird auf Datenbasis hier kein Unterschied zw. ProductCode gemacht, daher hardcodiert -> weil es nur um Anzeige geht!
If SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
rpt.lblMWST.Text &= "10 %"
Else
rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
End If
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "") rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")

423
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -1,6 +1,8 @@
Imports System.IO Imports System.IO
Imports System.Reflection Imports System.Reflection
Imports com.sun.tools.corba.se.idl Imports com.sun.tools.corba.se.idl
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DocumentFormat.OpenXml.VariantTypes Imports DocumentFormat.OpenXml.VariantTypes
Imports MDM_Worker Imports MDM_Worker
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
@@ -150,7 +152,6 @@ Public Class usrcntlFremdrechnungen
.AllowUserToResizeRows = False .AllowUserToResizeRows = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect .SelectionMode = DataGridViewSelectionMode.FullRowSelect
.ReadOnly = True .ReadOnly = True
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End With End With
@@ -283,7 +284,7 @@ Public Class usrcntlFremdrechnungen
" Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer"
'RMC 'RMC
Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
"Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE, cast(isnull(rmc_daId_InvAtt,0) as bit) as RE_Anhang FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr" "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE, cast(isnull(rmc_daId_InvAtt,0) as bit) as RE_Anhang, isnull(rmc_daId_InvAtt,0) as RE_Anhang_daid FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr"
Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
" "
@@ -326,49 +327,9 @@ Public Class usrcntlFremdrechnungen
End Select End Select
newBinding(SDLNrTmp, SQL_STR) newBinding_DT(SDLNrTmp, SQL_STR)
initBtnClick(getSDLNrButton(SDLNrTmp)) initBtnClick(getSDLNrButton(SDLNrTmp))
Dim sumBtto As Double = 0
With dgvLFRechnung
Dim c As New DataGridViewImageColumn
c.Name = "PDF" : c.HeaderText = "PDF"
c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40
c.DefaultCellStyle.Padding = New Padding(2)
c.DefaultCellStyle.BackColor = Color.White
c.Image = My.Resources.pdf_gray
If Not .Columns.Contains("PDF") Then .Columns.Add(c)
If .Columns.Count > 0 Then
If .Columns.Contains("daId") Then
If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
End If
If .Columns.Contains("invoice_id") Then
.Columns("invoice_id").Visible = False
End If
End If
For Each r As DataGridViewRow In .Rows
sumBtto += If(IsNumeric(r.Cells("Bruttobetrag").Value), CDbl(r.Cells("Bruttobetrag").Value), 0)
Next
lblSumBto.Text = CDbl(sumBtto).ToString("C2")
End With
initAllg() initAllg()
@@ -377,10 +338,7 @@ Public Class usrcntlFremdrechnungen
dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
'dgvLFRechnung.Rows(0).Frozen = True 'dgvLFRechnung.Rows(0).Frozen = True
initDGVWidth() 'vor Filter, damit richtige Größe initDGVWidth() 'vor Filter, damit richtige Größe
setPDFImages()
End Sub End Sub
Private Function setSQLWhere(aktLieferant As String, land As String) As String Private Function setSQLWhere(aktLieferant As String, land As String) As String
@@ -896,40 +854,186 @@ Public Class usrcntlFremdrechnungen
'Sub newBinding(aktLieferant As String, ByVal sql As String)
' dgvInitWait = True
' ' bindingSDL = Nothing
' dgvLFRechnung.Columns.Clear()
' dgvLFRechnung.VirtualMode = True
' txtchanged = True
' dgvInitWait = True
Sub newBinding(aktLieferant As String, ByVal sql As String) ' dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
' dgvLFRechnung.SET_SQL(sql, "FMZOLL")
' dgvLFRechnung.LOAD()
' lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge"
' If dgvLFRechnung.RowCount >= 200 Then lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge " & IIf(cbxMax1000Eintrage.Checked, "(Anzeige auf 1000 beschränkt)", "")
' dgvInitWait = False
' txtchanged = False
' dgvInitWait = False
' dgvLFRechnung.ClearSelection()
' If dgvLFRechnung.RowCount > 0 Then
' dgvLFRechnung.Rows(0).Cells(0).Selected = True
' Else
' End If
'End Sub
Sub newBinding_DT(aktLieferant As String, ByVal sql As String)
dgvInitWait = True dgvInitWait = True
' bindingSDL = Nothing
dgvLFRechnung.Columns.Clear()
dgvLFRechnung.VirtualMode = True
txtchanged = True txtchanged = True
dgvInitWait = True
Dim dt As New DataTable
dt = (New SQL).loadDgvBySql(sql, "FMZOLL")
dt.Columns.Add("PDF_Image", GetType(Image))
If aktLieferant = "RMC" Then
dt.Columns.Add("Anhang_Image", GetType(Image))
End If
Dim imgGray = My.Resources.pdf_gray
Dim imgRed = My.Resources.pdf
For Each row As DataRow In dt.Rows
If Convert.ToBoolean(row("pdfVorhanden")) Then
row("PDF_Image") = imgRed
Else
row("PDF_Image") = imgGray
End If
If aktLieferant = "RMC" Then
If Convert.ToBoolean(row("RE_Anhang")) Then
row("Anhang_Image") = imgRed
Else
row("Anhang_Image") = imgGray
End If
End If
Next
dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells dgvLFRechnung.SuspendLayout()
dgvLFRechnung.Columns.Clear()
dgvLFRechnung.AutoGenerateColumns = False
dgvLFRechnung.SET_SQL(sql, "FMZOLL")
dgvLFRechnung.LOAD()
lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge" For Each col As DataColumn In dt.Columns
If dgvLFRechnung.RowCount >= 200 Then lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge " & IIf(cbxMax1000Eintrage.Checked, "(Anzeige auf 1000 beschränkt)", "")
If col.ColumnName = "PDF_Image" OrElse col.ColumnName = "Anhang_Image" Then
Continue For
End If
If col.DataType Is GetType(Boolean) Then
dgvLFRechnung.Columns.Add(New DataGridViewCheckBoxColumn With {
.DataPropertyName = col.ColumnName,
.HeaderText = col.ColumnName,
.Name = col.ColumnName
})
Else
dgvLFRechnung.Columns.Add(New DataGridViewTextBoxColumn With {
.DataPropertyName = col.ColumnName,
.HeaderText = col.ColumnName,
.Name = col.ColumnName
})
End If
Next
' --- PDF Spalte ---
Dim c As New DataGridViewImageColumn With {
.Name = "PDF",
.HeaderText = "PDF",
.DataPropertyName = "PDF_Image",
.ImageLayout = DataGridViewImageCellLayout.Zoom,
.Width = 40
}
dgvLFRechnung.Columns.Add(c)
' --- Anhang Spalte ---
If aktLieferant = "RMC" Then
Dim cAnhang As New DataGridViewImageColumn With {
.Name = "Anhang_PDF",
.HeaderText = "Anhang",
.DataPropertyName = "Anhang_Image",
.ImageLayout = DataGridViewImageCellLayout.Zoom,
.Width = 40
}
dgvLFRechnung.Columns.Add(cAnhang)
End If
'For Each col As DataColumn In dt.Columns
' If col.DataType Is GetType(Boolean) Then
' dgvLFRechnung.Columns.Add(New DataGridViewCheckBoxColumn With {.DataPropertyName = col.ColumnName, .HeaderText = col.ColumnName, .Name = col.ColumnName})
' End If
'Next
dgvLFRechnung.DataSource = dt
dgvLFRechnung.ResumeLayout()
lblEinträge.Text = dt.Rows.Count & " Einträge"
If dt.Rows.Count >= 200 Then
lblEinträge.Text &= If(cbxMax1000Eintrage.Checked, " (Anzeige auf 1000 beschränkt)", "")
End If
dgvLFRechnung.ClearSelection()
If dt.Rows.Count > 0 Then
dgvLFRechnung.Rows(0).Cells(0).Selected = True
End If
If dgvLFRechnung.Columns.Count > 0 Then
If dgvLFRechnung.Columns.Contains("daId") Then
If dgvLFRechnung.Columns("daId") IsNot Nothing Then dgvLFRechnung.Columns("daId").Visible = False
End If
If dgvLFRechnung.Columns.Contains("RE_Anhang_daid") Then
If dgvLFRechnung.Columns("RE_Anhang_daid") IsNot Nothing Then dgvLFRechnung.Columns("RE_Anhang_daid").Visible = False
End If
If dgvLFRechnung.Columns.Contains("invoice_id") Then
dgvLFRechnung.Columns("invoice_id").Visible = False
End If
If dgvLFRechnung.Columns.Contains("PDFvorhanden") Then
dgvLFRechnung.Columns("PDFvorhanden").Visible = False
End If
If dgvLFRechnung.Columns.Contains("RE_Anhang") Then
dgvLFRechnung.Columns("RE_Anhang").Visible = False
End If
End If
Dim sumBtto = dt.AsEnumerable().Where(Function(r) Not IsDBNull(r("Bruttobetrag"))).Sum(Function(r) CDbl(r("Bruttobetrag")))
lblSumBto.Text = sumBtto.ToString("C2")
dgvInitWait = False
txtchanged = False txtchanged = False
dgvInitWait = False dgvInitWait = False
dgvLFRechnung.ClearSelection()
If dgvLFRechnung.RowCount > 0 Then
dgvLFRechnung.Rows(0).Cells(0).Selected = True
Else
End If
End Sub End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If SplitContainer1.Panel2Collapsed Then If SplitContainer1.Panel2Collapsed Then
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
@@ -1379,21 +1483,10 @@ Public Class usrcntlFremdrechnungen
Try Try
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
Select Case aktLieferant If e.ColumnIndex <> 18 Then
Case "VERAG"
Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
If ReDat IsNot Nothing AndAlso ReNr > 0 Then Select Case aktLieferant
Me.Cursor = Cursors.WaitCursor Case "VERAG"
Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
End If
Case "ALLE"
Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value
If Lieferant = "VERAG" Then
Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
@@ -1403,27 +1496,57 @@ Public Class usrcntlFremdrechnungen
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
End If End If
Case "ALLE"
Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value
End If If Lieferant = "VERAG" Then
Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value If ReDat IsNot Nothing AndAlso ReNr > 0 Then
If daId > 0 Then Me.Cursor = Cursors.WaitCursor
Me.Cursor = Cursors.WaitCursor Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
DS.OPEN_SINGLE() End If
End If
Case Else
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value End If
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
DS.OPEN_SINGLE()
End If
End Select Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
DS.OPEN_SINGLE()
End If
Case Else
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
DS.OPEN_SINGLE()
End If
End Select
ElseIf e.ColumnIndex = 18 Then
Select Case aktLieferant
Case "RMC"
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("RE_Anhang_daid").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
DS.OPEN_SINGLE()
End If
End Select
End If
End If End If
@@ -1462,82 +1585,8 @@ Public Class usrcntlFremdrechnungen
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
With dgvLFRechnung
Dim c As New DataGridViewImageColumn
c.Name = "PDF" : c.HeaderText = "PDF"
c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
If Not .Columns.Contains("PDF") Then .Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If IsDBNull(r.Cells("daId").Value) OrElse r.Cells("daId").Value = 0 Then
DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf_gray
End If
Next
If .Columns.Count > 0 Then
If .Columns.Contains("daId") Then
If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
End If
End If
End With
End Sub
Private Sub setPDFImages()
Exit Sub 'langsam!!!!
With dgvLFRechnung
If Not .Columns.Contains("PDF") Then Exit Sub
For Each r As DataGridViewRow In .Rows
If r.Cells("pdfVorhanden").Value Then
Try
'DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = Nothing
DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
Next
End With
End Sub
Sub ReloadRechnungsdetails() Sub ReloadRechnungsdetails()
' MsgBox(dgvInitWait)
If Not dgvInitWait Then If Not dgvInitWait Then
Try Try
If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then
@@ -1763,16 +1812,25 @@ Public Class usrcntlFremdrechnungen
End If End If
If aktLieferant = "RMC" Then
If aktLieferant = "RMC" AndAlso dgvLFRechnung.Columns.Contains("RE_Anhang") Then If dgvLFRechnung.Columns.Contains("RE_Anhang") Then
If Not dgvLFRechnung.CurrentRow.Cells("RE_Anhang").Value Then If Not dgvLFRechnung.CurrentRow.Cells("RE_Anhang").Value Then
RechnungsanhangHochladenToolStripMenuItem.Visible = True RechnungsanhangHochladenToolStripMenuItem.Visible = True
RechnungsanhangloeschenToolStripMenuItem.Visible = False RechnungsanhangloeschenToolStripMenuItem.Visible = False
Else
RechnungsanhangHochladenToolStripMenuItem.Visible = False
RechnungsanhangloeschenToolStripMenuItem.Visible = True
End If
Else Else
RechnungsanhangHochladenToolStripMenuItem.Visible = False RechnungsanhangHochladenToolStripMenuItem.Visible = False
RechnungsanhangloeschenToolStripMenuItem.Visible = True RechnungsanhangloeschenToolStripMenuItem.Visible = False
End If End If
Else
RechnungsanhangHochladenToolStripMenuItem.Visible = False
RechnungsanhangloeschenToolStripMenuItem.Visible = False
End If End If
@@ -1839,13 +1897,18 @@ Public Class usrcntlFremdrechnungen
Dim RMC As New cRMC(KundenNr, ReNr, ReDat) Dim RMC As New cRMC(KundenNr, ReNr, ReDat)
If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt IsNot Nothing Then If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt IsNot Nothing Then
If vbYes = MsgBox("Möchten Sie den Rechnungsanhang von Kunde " & KundenNr & " und ReNr " & ReNr & " löschen? ", vbYesNoCancel) Then
Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(RMC.rmc_daId_InvAtt) If RMC.UStVAn_ID IsNot Nothing Then
If DS_Import.DELETE_COMPLETE() Then MsgBox("RE-Anhang kann nicht gelöscht werden, da diese Rechnung bereits in den Antrag " & RMC.UStVAn_ID & " eingearbeitet wurde!")
RMC.rmc_daId_InvAtt = Nothing Else
RMC.SAVE() If vbYes = MsgBox("Möchten Sie den Rechnungsanhang von Kunde " & KundenNr & " und ReNr " & ReNr & " löschen? ", vbYesNoCancel) Then
MsgBox("Dokument gelöscht! -> " & ReNr & " " & CDate(ReDat).ToShortDateString) Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(RMC.rmc_daId_InvAtt)
SET_SDL(aktLieferant) If DS_Import.DELETE_COMPLETE() Then
RMC.rmc_daId_InvAtt = Nothing
RMC.SAVE()
MsgBox("Dokument gelöscht! -> " & ReNr & " " & CDate(ReDat).ToShortDateString)
SET_SDL(aktLieferant)
End If
End If End If
End If End If

17
VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
View File

@@ -439,4 +439,21 @@ Public Class cSicherheiten
End Function End Function
Public Shared Function getDifferenz(gs_gsnr As Integer) As Double
Dim SQL_Query = "SELECT CASE WHEN MAX(CASE WHEN gs.gs_isRundungsdiff = 1 THEN 1 ELSE 0 END) = 1
THEN 0
ELSE SUM(gs.gs_sicherheitsbetrag) - SUM(gsp.gsp_sicherheitsbetrag)
END AS Differenzbetrag
FROM tblGesamtsicherheit gs INNER JOIN tblGesamtsicherheitsPositionen gsp ON gs.gs_gsId = gsp.gsp_gsId WHERE
gs.gs_gsnr = " & gs_gsnr & " AND gs.gs_dakoyimport = 1 AND gsp.gsp_freitext NOT IN ('DAKOSY-WAITING') GROUP BY gs.gs_gsnr"
If gs_gsnr > 0 Then
Return CDbl((New SQL).getValueTxtBySql(SQL_Query, "AVISO",,, 0))
Else
Return 0
End If
End Function
End Class End Class