Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024
This commit is contained in:
@@ -45,7 +45,7 @@
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-6.0.3.0" newVersion="6.0.3.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="MESCIUS.Data.VBFunctionLib" publicKeyToken="0b5e1563d2869208" culture="neutral" />
|
||||
|
||||
@@ -2446,11 +2446,13 @@ Public Class cRKSV
|
||||
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
|
||||
CreateSyskaBuchung(RKSV_id, BELEG, KBEntry_List, KBEntryGB_List, KBEntryST_List, IIf(BELEG.Beleg_TYP = "L", "AUSZAHLUNG", "EINZAHLUNG"), BelegNrFIBU)
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
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)
|
||||
End If
|
||||
|
||||
' 11) single check if gebucht
|
||||
Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
|
||||
If gebucht Then
|
||||
' logging instead of MsgBox in production
|
||||
MsgBox("FIBU - GEBUCHT!")
|
||||
Else
|
||||
MsgBox("FIBU - NICHT GEBUCHT!")
|
||||
|
||||
@@ -155,18 +155,17 @@ Public Class cAutomailversand
|
||||
End Try
|
||||
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)
|
||||
|
||||
Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
|
||||
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 listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)
|
||||
|
||||
|
||||
@@ -3,7 +3,6 @@ Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports GrapeCity.ActiveReports.Export.Pdf
|
||||
Imports iText.Kernel.Pdf
|
||||
Imports itextsharp.text.pdf
|
||||
Imports Microsoft.Office.Interop
|
||||
@@ -1966,12 +1965,12 @@ Public Class cFakturierung
|
||||
|
||||
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
|
||||
printSpedBuchAnhaenge(Rechnung, True, True)
|
||||
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
|
||||
printRGAnhaenge(Rechnung)
|
||||
End If
|
||||
|
||||
@@ -3684,6 +3684,24 @@ Public Class usrCntlFaktAbrechnung
|
||||
saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge)
|
||||
getValues()
|
||||
|
||||
'If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID > 0 Then
|
||||
' Select Case RECHNUNG.Firma_ID
|
||||
' Case 19
|
||||
' Dim rpt As New rptRechnungDruck_MDM
|
||||
' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Case Else
|
||||
|
||||
' Dim rpt As New rptRechnungDruck
|
||||
' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' End Select
|
||||
|
||||
|
||||
'End If
|
||||
|
||||
cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent)
|
||||
End Sub
|
||||
@@ -5412,6 +5430,7 @@ mwst:
|
||||
|
||||
If RECHNUNG Is Nothing Then Exit Sub
|
||||
If SPEDBUCH Is Nothing Then Exit Sub
|
||||
If FIRMA Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
If RECHNUNG.DruckDatumZeit Is Nothing Then
|
||||
|
||||
@@ -153,7 +153,9 @@ Public Class usrcntlVerzollungsunterlagen
|
||||
txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
|
||||
|
||||
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")
|
||||
|
||||
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.5.4.1")>
|
||||
<Assembly: AssemblyFileVersion("1.5.4.1")>
|
||||
<Assembly: AssemblyVersion("1.5.4.5")>
|
||||
<Assembly: AssemblyFileVersion("1.5.4.5")>
|
||||
|
||||
@@ -492,8 +492,8 @@
|
||||
<Private>True</Private>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
<HintPath>..\..\..\Aviso\AVISO\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
|
||||
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
<HintPath>..\..\..\Aviso\AVISO\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
|
||||
|
||||
@@ -41,9 +41,17 @@ Public Class rptFiskalkunde
|
||||
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
|
||||
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
|
||||
Else
|
||||
picVeragCS.Visible = True
|
||||
|
||||
2642
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
2642
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -209,21 +209,6 @@
|
||||
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</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">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
@@ -245,6 +230,21 @@
|
||||
<metadata name="BIN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</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">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
|
||||
@@ -1,9 +1,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports org.BouncyCastle.Asn1.Ocsp
|
||||
Imports SDL.EORI
|
||||
Imports sun.util.resources.cldr.aa
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlKundenuebersicht
|
||||
@@ -451,7 +449,6 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
txtUIDVeranlagt.Text = ""
|
||||
|
||||
|
||||
Dim SQLUIDVeranlagt = "SELECT STUFF((
|
||||
SELECT ', ' + UstIdKz + '-' + UstIdNr +
|
||||
CASE
|
||||
@@ -555,8 +552,8 @@ Public Class usrCntlKundenuebersicht
|
||||
Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
Dim ungeb As Double = getBetragUngebuchteBelege(kdNr)
|
||||
txtUngebuchteRechungen.Text = ungeb.ToString("C2")
|
||||
|
||||
If KUNDE.Vorkasse Then
|
||||
txtVorauskasse.Text = "JA"
|
||||
@@ -1334,10 +1331,11 @@ Public Class usrCntlKundenuebersicht
|
||||
txtKdSicherheiten.Text = CDbl(VERAG_PROG_ALLGEMEIN.cKundenSicherheiten.GetSummeSicherheitenAktuell(kdNr)).ToString("C2")
|
||||
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 ungebuchteBelege As Double = If(IsNumeric(txtUngebuchteRechungen.Text), CDbl(txtUngebuchteRechungen.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 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")
|
||||
If Risiko = 0 Then
|
||||
@@ -1404,7 +1402,6 @@ Public Class usrCntlKundenuebersicht
|
||||
Dim sumVK As Double
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
|
||||
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
|
||||
|
||||
End If
|
||||
|
||||
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())
|
||||
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
|
||||
|
||||
|
||||
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()
|
||||
|
||||
|
||||
@@ -1526,11 +1545,11 @@ Public Class usrCntlKundenuebersicht
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
|
||||
Dim where = ""
|
||||
If cboFirmaFMZOLL._value <> "" Then
|
||||
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
|
||||
where = " And Firma_ID=" & cboFirmaFMZOLL._value
|
||||
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
|
||||
.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] " &
|
||||
" WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")
|
||||
|
||||
|
||||
45
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb
generated
45
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb
generated
@@ -55,6 +55,7 @@ Partial Public Class rptIDS_Anhang
|
||||
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label3 = 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.txtBruttoGesSum = 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.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtBetrag, 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.Label3, 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.txtNettoGesSum, 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.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
@@ -206,7 +206,7 @@ Partial Public Class rptIDS_Anhang
|
||||
Me.txtProduktBeschreibung.DataField = ""
|
||||
Me.txtProduktBeschreibung.Height = 0.1212599!
|
||||
Me.txtProduktBeschreibung.HyperLink = Nothing
|
||||
Me.txtProduktBeschreibung.Left = 0.01023622!
|
||||
Me.txtProduktBeschreibung.Left = 0!
|
||||
Me.txtProduktBeschreibung.Name = "txtProduktBeschreibung"
|
||||
Me.txtProduktBeschreibung.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
|
||||
": 1"
|
||||
@@ -219,7 +219,7 @@ Partial Public Class rptIDS_Anhang
|
||||
Me.lblRabatt.DataField = ""
|
||||
Me.lblRabatt.Height = 0.1212599!
|
||||
Me.lblRabatt.HyperLink = Nothing
|
||||
Me.lblRabatt.Left = 0.01417323!
|
||||
Me.lblRabatt.Left = 0!
|
||||
Me.lblRabatt.Name = "lblRabatt"
|
||||
Me.lblRabatt.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
|
||||
": 1"
|
||||
@@ -258,7 +258,7 @@ Partial Public Class rptIDS_Anhang
|
||||
Me.lblMWST.DataField = ""
|
||||
Me.lblMWST.Height = 0.1212599!
|
||||
Me.lblMWST.HyperLink = Nothing
|
||||
Me.lblMWST.Left = 0.01417323!
|
||||
Me.lblMWST.Left = 0!
|
||||
Me.lblMWST.Name = "lblMWST"
|
||||
Me.lblMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" &
|
||||
": 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" &
|
||||
"t: 1"
|
||||
Me.txtGesamtbetrag.Text = "Betrag"
|
||||
Me.txtGesamtbetrag.Top = 0.6472442!
|
||||
Me.txtGesamtbetrag.Top = 0.6822835!
|
||||
Me.txtGesamtbetrag.Width = 0.9169284!
|
||||
'
|
||||
'PageFooter
|
||||
@@ -394,7 +394,7 @@ Partial Public Class rptIDS_Anhang
|
||||
'
|
||||
Me.Label16.Height = 0.1574803!
|
||||
Me.Label16.HyperLink = Nothing
|
||||
Me.Label16.Left = 4.304331!
|
||||
Me.Label16.Left = 4.09567!
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
|
||||
"o-char-set: 1"
|
||||
@@ -549,7 +549,7 @@ Partial Public Class rptIDS_Anhang
|
||||
'
|
||||
Me.Label2.Height = 0.1574803!
|
||||
Me.Label2.HyperLink = Nothing
|
||||
Me.Label2.Left = 4.304331!
|
||||
Me.Label2.Left = 4.09567!
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
|
||||
"o-char-set: 1"
|
||||
@@ -581,6 +581,19 @@ Partial Public Class rptIDS_Anhang
|
||||
Me.Label4.Top = 0.8291339!
|
||||
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
|
||||
'
|
||||
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.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
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.Margins.Bottom = 0.3937008!
|
||||
Me.PageSettings.Margins.Left = 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.Label3, 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.txtNettoGesSum, 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.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -3142,7 +3142,23 @@ Public Class frmMDMDatenverarbetiung
|
||||
rpt.txtRabattBetrag.Text = curRabattbetrag
|
||||
|
||||
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 & " %", "")
|
||||
|
||||
|
||||
|
||||
'SPANIEN : 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!
|
||||
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!----------------------------------------
|
||||
'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
|
||||
|
||||
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!----------------------------------------
|
||||
|
||||
|
||||
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")
|
||||
|
||||
|
||||
96
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
96
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
@@ -23,9 +23,9 @@ Partial Class usrcntlFremdrechnungen
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.PDFHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btnSDL_Alle = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_FREJUS = New System.Windows.Forms.Button()
|
||||
@@ -38,7 +38,11 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.btnSDL_RMC = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.RechnungsanhangHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.RechnungsanhangloeschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lblCountMissingInvoices = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
@@ -68,8 +72,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblCountMissingInvoices = New System.Windows.Forms.Label()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -83,12 +85,12 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DetailsAnzeigenToolStripMenuItem
|
||||
'PDFHochladenToolStripMenuItem
|
||||
'
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem"
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Text = "PDF hochladen"
|
||||
Me.PDFHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.PDFHochladenToolStripMenuItem.Name = "PDFHochladenToolStripMenuItem"
|
||||
Me.PDFHochladenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
|
||||
Me.PDFHochladenToolStripMenuItem.Text = "PDF hochladen"
|
||||
'
|
||||
'FlowLayoutPanel
|
||||
'
|
||||
@@ -268,17 +270,31 @@ Partial Class usrcntlFremdrechnungen
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFHochladenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem, Me.RechnungsanhangHochladenToolStripMenuItem, Me.RechnungsanhangloeschenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48)
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(194, 92)
|
||||
'
|
||||
'PDFLöschenToolStripMenuItem
|
||||
'
|
||||
Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
|
||||
Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
|
||||
Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
|
||||
'
|
||||
'RechnungsanhangHochladenToolStripMenuItem
|
||||
'
|
||||
Me.RechnungsanhangHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.RechnungsanhangHochladenToolStripMenuItem.Name = "RechnungsanhangHochladenToolStripMenuItem"
|
||||
Me.RechnungsanhangHochladenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
|
||||
Me.RechnungsanhangHochladenToolStripMenuItem.Text = "RE-Anhang hochladen"
|
||||
'
|
||||
'RechnungsanhangloeschenToolStripMenuItem
|
||||
'
|
||||
Me.RechnungsanhangloeschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.RechnungsanhangloeschenToolStripMenuItem.Name = "RechnungsanhangloeschenToolStripMenuItem"
|
||||
Me.RechnungsanhangloeschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
|
||||
Me.RechnungsanhangloeschenToolStripMenuItem.Text = "RE-Anhang löschen"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
@@ -316,6 +332,27 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel1.Size = New System.Drawing.Size(260, 907)
|
||||
Me.Panel1.TabIndex = 23
|
||||
'
|
||||
'lblCountMissingInvoices
|
||||
'
|
||||
Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White
|
||||
Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66)
|
||||
Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices"
|
||||
Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13)
|
||||
Me.lblCountMissingInvoices.TabIndex = 67
|
||||
Me.lblCountMissingInvoices.Text = "0"
|
||||
Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 66)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label1.TabIndex = 66
|
||||
Me.Label1.Text = "fehlende Rechnungen:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
@@ -637,8 +674,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvLFRechnung.AllowUserToDeleteRows = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeColumns = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
|
||||
@@ -655,8 +692,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvDetails.AllowUserToDeleteRows = False
|
||||
Me.dgvDetails.AllowUserToResizeColumns = False
|
||||
Me.dgvDetails.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
|
||||
@@ -675,27 +712,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel4.Size = New System.Drawing.Size(1356, 108)
|
||||
Me.Panel4.TabIndex = 11
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 66)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label1.TabIndex = 66
|
||||
Me.Label1.Text = "fehlende Rechnungen:"
|
||||
'
|
||||
'lblCountMissingInvoices
|
||||
'
|
||||
Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White
|
||||
Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66)
|
||||
Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices"
|
||||
Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13)
|
||||
Me.lblCountMissingInvoices.TabIndex = 67
|
||||
Me.lblCountMissingInvoices.Text = "0"
|
||||
Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'usrcntlFremdrechnungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -720,7 +736,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DetailsAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents PDFHochladenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents FlowLayoutPanel As System.Windows.Forms.FlowLayoutPanel
|
||||
Friend WithEvents btnSDL_Alle As System.Windows.Forms.Button
|
||||
Friend WithEvents btnSDL_IDS As System.Windows.Forms.Button
|
||||
@@ -765,4 +781,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Friend WithEvents dat_Sum_Bis As DateTimePicker
|
||||
Friend WithEvents lblCountMissingInvoices As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents RechnungsanhangHochladenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents RechnungsanhangloeschenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -1,6 +1,8 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports com.sun.tools.corba.se.idl
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports DocumentFormat.OpenXml.VariantTypes
|
||||
Imports MDM_Worker
|
||||
Imports Microsoft.Office.Interop
|
||||
@@ -150,7 +152,6 @@ Public Class usrcntlFremdrechnungen
|
||||
.AllowUserToResizeRows = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.ReadOnly = True
|
||||
|
||||
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
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"
|
||||
'RMC
|
||||
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 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, "") &
|
||||
"
|
||||
@@ -326,49 +327,9 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
End Select
|
||||
|
||||
newBinding(SDLNrTmp, SQL_STR)
|
||||
newBinding_DT(SDLNrTmp, SQL_STR)
|
||||
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()
|
||||
@@ -377,10 +338,7 @@ Public Class usrcntlFremdrechnungen
|
||||
dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
'dgvLFRechnung.Rows(0).Frozen = True
|
||||
|
||||
|
||||
initDGVWidth() 'vor Filter, damit richtige Größe
|
||||
|
||||
setPDFImages()
|
||||
End Sub
|
||||
|
||||
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
|
||||
' bindingSDL = Nothing
|
||||
dgvLFRechnung.Columns.Clear()
|
||||
dgvLFRechnung.VirtualMode = 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"
|
||||
If dgvLFRechnung.RowCount >= 200 Then lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge " & IIf(cbxMax1000Eintrage.Checked, "(Anzeige auf 1000 beschränkt)", "")
|
||||
For Each col As DataColumn In dt.Columns
|
||||
|
||||
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
|
||||
dgvInitWait = False
|
||||
dgvLFRechnung.ClearSelection()
|
||||
|
||||
If dgvLFRechnung.RowCount > 0 Then
|
||||
dgvLFRechnung.Rows(0).Cells(0).Selected = True
|
||||
Else
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
If SplitContainer1.Panel2Collapsed Then
|
||||
SplitContainer1.Panel2Collapsed = False
|
||||
@@ -1379,21 +1483,10 @@ Public Class usrcntlFremdrechnungen
|
||||
Try
|
||||
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
|
||||
|
||||
Select Case aktLieferant
|
||||
Case "VERAG"
|
||||
Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
|
||||
Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
|
||||
If e.ColumnIndex <> 18 Then
|
||||
|
||||
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
|
||||
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")
|
||||
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
|
||||
End If
|
||||
|
||||
Case "ALLE"
|
||||
Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value
|
||||
|
||||
If Lieferant = "VERAG" Then
|
||||
Select Case aktLieferant
|
||||
Case "VERAG"
|
||||
Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
|
||||
Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
|
||||
|
||||
@@ -1403,27 +1496,57 @@ Public Class usrcntlFremdrechnungen
|
||||
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
|
||||
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 daId > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
|
||||
Case Else
|
||||
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
|
||||
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")
|
||||
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
|
||||
End If
|
||||
|
||||
|
||||
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 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
|
||||
@@ -1462,82 +1585,8 @@ Public Class usrcntlFremdrechnungen
|
||||
End If
|
||||
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()
|
||||
|
||||
|
||||
' MsgBox(dgvInitWait)
|
||||
If Not dgvInitWait Then
|
||||
Try
|
||||
If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then
|
||||
@@ -1699,13 +1748,9 @@ Public Class usrcntlFremdrechnungen
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs)
|
||||
Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFHochladenToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click
|
||||
|
||||
If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
|
||||
If (dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value)) Then
|
||||
|
||||
|
||||
|
||||
@@ -1757,20 +1802,131 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
|
||||
|
||||
DetailsAnzeigenToolStripMenuItem.Visible = True
|
||||
PDFHochladenToolStripMenuItem.Visible = True
|
||||
PDFLöschenToolStripMenuItem.Visible = False
|
||||
Else
|
||||
|
||||
DetailsAnzeigenToolStripMenuItem.Visible = False
|
||||
PDFHochladenToolStripMenuItem.Visible = False
|
||||
PDFLöschenToolStripMenuItem.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
If aktLieferant = "RMC" Then
|
||||
If dgvLFRechnung.Columns.Contains("RE_Anhang") Then
|
||||
If Not dgvLFRechnung.CurrentRow.Cells("RE_Anhang").Value Then
|
||||
RechnungsanhangHochladenToolStripMenuItem.Visible = True
|
||||
RechnungsanhangloeschenToolStripMenuItem.Visible = False
|
||||
Else
|
||||
RechnungsanhangHochladenToolStripMenuItem.Visible = False
|
||||
RechnungsanhangloeschenToolStripMenuItem.Visible = True
|
||||
End If
|
||||
Else
|
||||
RechnungsanhangHochladenToolStripMenuItem.Visible = False
|
||||
RechnungsanhangloeschenToolStripMenuItem.Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
RechnungsanhangHochladenToolStripMenuItem.Visible = False
|
||||
RechnungsanhangloeschenToolStripMenuItem.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub RechnungsanhangHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungsanhangHochladenToolStripMenuItem.Click, RechnungsanhangloeschenToolStripMenuItem.Click
|
||||
|
||||
|
||||
|
||||
Dim ReNr As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsnummer").Value
|
||||
Dim ReDat As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsdatum").Value
|
||||
Dim interneKundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value
|
||||
Dim KundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("Kundennummer").Value
|
||||
Dim LieferlandISO2 As String = dgvLFRechnung.SelectedRows(0).Cells("Land").Value
|
||||
|
||||
If LieferlandISO2 = "" Then MsgBox("Land kann nicht ermittelt werden") : Exit Sub
|
||||
If KundenNr = "" OrElse Not IsNumeric(KundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
|
||||
If ReDat = "" OrElse Not IsDate(ReDat) Then MsgBox("Rechnungsdatum kann nicht ermittelt werden") : Exit Sub
|
||||
If interneKundenNr = "" OrElse Not IsNumeric(interneKundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
|
||||
|
||||
Select Case sender.Name
|
||||
Case "RechnungsanhangHochladenToolStripMenuItem"
|
||||
|
||||
|
||||
Select Case aktLieferant
|
||||
|
||||
Case "RMC"
|
||||
|
||||
Dim RMC As New cRMC(KundenNr, ReNr, ReDat)
|
||||
If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt Is Nothing Then
|
||||
|
||||
Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC_ATT", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2)
|
||||
|
||||
If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
|
||||
RMC.rmc_daId_InvAtt = DS_Import.da_id
|
||||
RMC.SAVE()
|
||||
MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString)
|
||||
SET_SDL(aktLieferant)
|
||||
End If
|
||||
|
||||
Else
|
||||
If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub
|
||||
If RMC.rmc_daId_InvAtt IsNot Nothing Then MsgBox("Eintrag besitzt bereits einen Rechnungsanhang!") : Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
MsgBox("Funktion nicht implementiert!")
|
||||
|
||||
End Select
|
||||
|
||||
Case "RechnungsanhangloeschenToolStripMenuItem"
|
||||
|
||||
Select Case aktLieferant
|
||||
|
||||
Case "RMC"
|
||||
|
||||
Dim RMC As New cRMC(KundenNr, ReNr, ReDat)
|
||||
If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt IsNot Nothing Then
|
||||
|
||||
If RMC.UStVAn_ID IsNot Nothing Then
|
||||
MsgBox("RE-Anhang kann nicht gelöscht werden, da diese Rechnung bereits in den Antrag " & RMC.UStVAn_ID & " eingearbeitet wurde!")
|
||||
Else
|
||||
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 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
|
||||
|
||||
|
||||
Else
|
||||
If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub
|
||||
If RMC.rmc_daId_InvAtt Is Nothing Then MsgBox("Eintrag besitzt keinen Rechnungsanhang!") : Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
MsgBox("Funktion nicht implementiert!")
|
||||
|
||||
End Select
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -68,7 +68,7 @@
|
||||
<package id="System.Linq.Async" version="4.0.0" targetFramework="net48" />
|
||||
<package id="System.Net.Http" version="4.3.4" targetFramework="net48" />
|
||||
<package id="System.Runtime" version="4.3.0" targetFramework="net48" />
|
||||
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
|
||||
<package id="System.Runtime.CompilerServices.Unsafe" version="6.1.2" targetFramework="net48" />
|
||||
<package id="System.Security.Cryptography.Algorithms" version="4.3.0" targetFramework="net48" />
|
||||
<package id="System.Security.Cryptography.Encoding" version="4.3.0" targetFramework="net48" />
|
||||
<package id="System.Security.Cryptography.Primitives" version="4.3.0" targetFramework="net48" />
|
||||
|
||||
@@ -33,7 +33,7 @@ Public Class cFremdwaehrungskurse
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_id", fw_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_id", fw_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso2", fw_iso2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso3", fw_iso3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_land", fw_land))
|
||||
|
||||
@@ -1833,7 +1833,7 @@ Public Class cMSEInvoices
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMSEInvoices WHERE invoice_date=@invoice_date AND invoice_id = @invoice_id", conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMSEInvoices WHERE name=@name AND invoice_id = @invoice_id", conn)
|
||||
cmd.Parameters.AddWithValue("@name", name)
|
||||
cmd.Parameters.AddWithValue("@invoice_id", invoice_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
|
||||
@@ -87,6 +87,9 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>F:\PROGRAMMIERUNG\dll\OpenXML\DocumentFormat.OpenXml.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DS.Documents.Imaging">
|
||||
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\DS.Documents.Imaging.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Dynamsoft.Forms.Viewer, Version=8.3.3.726, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>F:\PROGRAMMIERUNG\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
|
||||
@@ -123,6 +126,14 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>F:\PROGRAMMIERUNG\dll\McDull.Windows.Forms.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="MESCIUS.ActiveReports">
|
||||
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\MESCIUS.ActiveReports.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
|
||||
@@ -1,13 +1,17 @@
|
||||
Imports System.Drawing
|
||||
Imports System.IO
|
||||
Imports System.IO.Pipes
|
||||
Imports System.Net.Mail
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Windows.Forms
|
||||
Imports ClosedXML.Excel
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Core.Document.Drawing.Gc
|
||||
Imports GrapeCity.ActiveReports.SectionReportModel
|
||||
Imports GrapeCity.Documents.Imaging
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports System.IO.Pipes
|
||||
Imports ThoughtWorks.QRCode.Codec
|
||||
|
||||
Public Class cProgramFunctions
|
||||
@@ -71,6 +75,135 @@ Public Class cProgramFunctions
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function CheckAllReportImages() As List(Of String)
|
||||
|
||||
Dim errors As New List(Of String)
|
||||
|
||||
For Each report As GrapeCity.ActiveReports.SectionReport In FindAllReports()
|
||||
|
||||
For Each section As GrapeCity.ActiveReports.SectionReportModel.Section In report.Sections
|
||||
CheckImagesInControls(section.Controls, errors, report.GetType().Name, section.Name)
|
||||
Next
|
||||
|
||||
Next
|
||||
|
||||
Return errors
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function CheckReportImages(report As SectionReport) As List(Of String)
|
||||
|
||||
Dim errors As New List(Of String)
|
||||
|
||||
For Each section As GrapeCity.ActiveReports.SectionReportModel.Section In report.Sections
|
||||
CheckImagesInControls(section.Controls, errors, report.GetType().Name, section.Name)
|
||||
Next
|
||||
|
||||
|
||||
Return errors
|
||||
|
||||
End Function
|
||||
|
||||
Private Shared Sub CheckImagesInControls(ctrls As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, errors As List(Of String), reportName As String, sectionName As String)
|
||||
|
||||
For Each ctrl As GrapeCity.ActiveReports.SectionReportModel.ARControl In ctrls
|
||||
|
||||
If TypeOf ctrl Is GrapeCity.ActiveReports.SectionReportModel.Picture Then
|
||||
|
||||
Dim pic = CType(ctrl, GrapeCity.ActiveReports.SectionReportModel.Picture)
|
||||
|
||||
If Not String.IsNullOrEmpty(pic.ImageBase64String) Then
|
||||
|
||||
If Not IsBase64(pic.ImageBase64String) Then
|
||||
errors.Add($"{reportName} | {sectionName} | {ctrl.Name} → Ungültiger Base64")
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function IsBase64(value As String) As Boolean
|
||||
If String.IsNullOrWhiteSpace(value) Then Return False
|
||||
|
||||
Try
|
||||
' Data-URL entfernen
|
||||
If value.Contains(",") Then
|
||||
value = value.Substring(value.IndexOf(",") + 1)
|
||||
End If
|
||||
|
||||
' Base64 dekodieren
|
||||
Dim bytes() As Byte = Convert.FromBase64String(value)
|
||||
|
||||
Using ms As New MemoryStream(bytes)
|
||||
' Instanz von GcBitmap erstellen
|
||||
Dim bmp As GcBitmap = Nothing
|
||||
Try
|
||||
bmp = New GcBitmap(ms)
|
||||
' Zugriff erzwingen
|
||||
Dim w As Integer = bmp.Width
|
||||
Dim h As Integer = bmp.Height
|
||||
|
||||
If w <= 0 OrElse h <= 0 Then Return False
|
||||
|
||||
Finally
|
||||
If bmp IsNot Nothing Then
|
||||
bmp.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Using
|
||||
|
||||
Return True
|
||||
|
||||
Catch ex As TypeInitializationException
|
||||
' Speziell Typeninitialisierer-Fehler abfangen
|
||||
' z. B. "PerTypeValues`1 hat eine Ausnahme verursacht"
|
||||
Return False
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
' Alle anderen Fehler ebenfalls als ungültig behandeln
|
||||
Return False
|
||||
|
||||
Catch
|
||||
Return False
|
||||
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function FindAllReports() As List(Of SectionReport)
|
||||
Dim list As New List(Of SectionReport)
|
||||
|
||||
' Alle geladenen Assemblies durchsuchen
|
||||
For Each asm In AppDomain.CurrentDomain.GetAssemblies()
|
||||
Try
|
||||
For Each t In asm.GetTypes()
|
||||
' Nur konkrete Klassen, die von SectionReport erben
|
||||
If GetType(SectionReport).IsAssignableFrom(t) AndAlso t.IsClass AndAlso Not t.IsAbstract Then
|
||||
Try
|
||||
' Parameterloser Konstruktor
|
||||
Dim instance As SectionReport = CType(Activator.CreateInstance(t), SectionReport)
|
||||
list.Add(instance)
|
||||
Catch ex As Exception
|
||||
' Ignoriere Klassen ohne parameterlosen Konstruktor
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
' Manche Assemblies lassen sich nicht durchsuchen
|
||||
End Try
|
||||
Next
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Dim r As SectionReport
|
||||
|
||||
|
||||
Public Shared Sub tryGetFilialeAbf_ByLRN(ByVal LRN As String, ByRef FilialenNr As Object, ByRef AbfertigungsNr As Object)
|
||||
|
||||
@@ -486,7 +619,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
|
||||
wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter
|
||||
|
||||
If rangeAsWaehrung IsNot Nothing Then
|
||||
For Each r In rangeAsWaehrung
|
||||
For Each r As String In rangeAsWaehrung
|
||||
Try
|
||||
wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen)
|
||||
Catch ex As Exception
|
||||
@@ -1121,7 +1254,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
|
||||
End Function
|
||||
Private Const SW_SHOWNOACTIVATE As Integer = 4
|
||||
Private Const SW_RESTORE As Integer = 9
|
||||
Shared Sub bringToFront(processId)
|
||||
Shared Sub bringToFront(processId)
|
||||
' Prozess finden und in den Vordergrund bringen
|
||||
Try
|
||||
Dim process = System.Diagnostics.Process.GetProcessById(processId)
|
||||
|
||||
@@ -439,4 +439,21 @@ Public Class cSicherheiten
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user