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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-09-03 14:22:06 +02:00
parent 9513240844 1eccc1c634
commit ef62a1dc86
22 changed files with 2268 additions and 1369 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

@@ -102,7 +102,7 @@ Public Class usrcntlCreditsafe
If cs.authenticate() = "200" Then
Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "")
Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "", -1)
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
initDGV(dataTable)
Cursor = Cursors.Default

52
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1644,7 +1644,6 @@ Public Class cFakturierung
ElseIf rpt.txtLeistung.Text.Contains("00") Then
rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, ""))
End If
End If
@@ -2164,14 +2163,16 @@ Public Class cFakturierung
'Summe aller Rechnungspositions-Nettobeträge der Rechnung
Dim lineTotalAmont = sumNetto
'Der Gesamtbetrag der Umsatzsteuer für die Rechnung,
'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0)
Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100) * steuerProzenFaktor, 2), 0)
'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) ??????????????????
Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0)
' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0
Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0)
Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 - taxTotalAmount)
'Der Gesamtbetrag der Rechnung mit Umsatzsteuer
Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount)
'Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount)
Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag)
'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag
Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount)
'Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount)
Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag)
desc.SetTotals(
lineTotalAmount:=Convert.ToDecimal(lineTotalAmont),
@@ -2469,9 +2470,11 @@ Public Class cFakturierung
Dim taxBasisAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + 0 - 0)
'Der Gesamtbetrag der Rechnung mit Umsatzsteuer
Dim grandTotalAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + taxTotalAmount)
'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag
Dim duePayableAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + taxTotalAmount)
desc.SetTotals(
lineTotalAmount:=Convert.ToDecimal(lineTotalAmont),
chargeTotalAmount:=0, 'Summe aller in der Rechnung enthaltenen Zuschläge der Dokumentenebene
@@ -2657,7 +2660,36 @@ Public Class cFakturierung
Dim list As New List(Of String)
If RG.ANHAENGE IsNot Nothing AndAlso RG.ANHAENGE.Count > 0 Then
For Each ANH In RG.ANHAENGE
If ANH.dsId > 0 Then list.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId))
Dim path As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
If RG IsNot Nothing AndAlso RG.Firma_ID = 19 Then
If path.Contains("POS_LISTE") Or path.Contains("POS-LISTE") Then
Dim PATH_Org = path
Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For page As Integer = 1 To pdfReader.NumberOfPages
If page = 1 Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page))
End If
Next
pdfReader.Close()
path = fm.fillPDFVorhandenesLokalesPDF_Path(PATH_Org, listTowrite, , ,, False)
End If
End If
If ANH.dsId > 0 Then list.Add(path)
Next
End If
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_Anhänge_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
@@ -3193,9 +3225,9 @@ Public Class cFakturierung
RK_found = True
End If
Next
MsgBox(RU_found)
MsgBox(RK_found)
MsgBox(RU_found And RK_found)
'MsgBox(RU_found)
'MsgBox(RK_found)
'MsgBox(RU_found And RK_found)
If RU_found And RK_found Then Return True
If Not RU_found And Not RK_found Then Return True

7
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -1074,7 +1074,12 @@ Public Class frmFaktEmail
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For page As Integer = 1 To pdfReader.NumberOfPages
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
If page = 1 Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page))
End If
Next
pdfReader.Close()

11
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb
View File

@@ -1,4 +1,6 @@
Public Class usrcntlCreditreformBoniAuskunft
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlCreditreformBoniAuskunft
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -9,6 +11,7 @@
Public Event LOADED()
Public KdNR As Integer = -1
Public SAVED As Boolean = False
Dim creditsafe_newView As Boolean = False
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
@@ -86,6 +89,10 @@
cboCRArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Wien", "Wien"))
cboCRArt.SelectedIndex = 0
If KdNR > 0 Then initKdNR(KdNR)
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
RaiseEvent LOADED()
End Sub
@@ -138,6 +145,8 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frmBonitätsverlauf As New frmBonitätsverlauf(KdNR, Me)
frmBonitätsverlauf.newView = creditsafe_newView
frmBonitätsverlauf.Show()
End Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.4.6")>
<Assembly: AssemblyFileVersion("1.4.4.6")>
<Assembly: AssemblyVersion("1.4.4.8")>
<Assembly: AssemblyFileVersion("1.4.4.8")>

17
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -141,6 +141,7 @@ Partial Class frmMDM_USTVAntrag
Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.pbMail = New System.Windows.Forms.PictureBox()
Me.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -165,12 +166,14 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1.SuspendLayout()
Me.cns_vorauszahlen.SuspendLayout()
Me.ncs_Belege.SuspendLayout()
CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlBottom
'
Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlBottom.Controls.Add(Me.pbMail)
Me.pnlBottom.Controls.Add(Me.pb_Beleg)
Me.pnlBottom.Controls.Add(Me.Button5)
Me.pnlBottom.Controls.Add(Me.txtSumme)
@@ -1721,7 +1724,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem, Me.FakturiertZurücksetzenToolStripMenuItem})
Me.cns_vorauszahlen.Name = "cns_vorauszahlen"
Me.cns_vorauszahlen.Size = New System.Drawing.Size(212, 70)
Me.cns_vorauszahlen.Size = New System.Drawing.Size(212, 48)
'
'VorauszahlungToolStripMenuItem
'
@@ -1796,6 +1799,16 @@ Partial Class frmMDM_USTVAntrag
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'pbMail
'
Me.pbMail.Image = Global.SDL.My.Resources.Resources.email_big1
Me.pbMail.Location = New System.Drawing.Point(1110, 17)
Me.pbMail.Name = "pbMail"
Me.pbMail.Size = New System.Drawing.Size(35, 35)
Me.pbMail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pbMail.TabIndex = 52
Me.pbMail.TabStop = False
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1840,6 +1853,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1.ResumeLayout(False)
Me.cns_vorauszahlen.ResumeLayout(False)
Me.ncs_Belege.ResumeLayout(False)
CType(Me.pbMail, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -1959,4 +1973,5 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents cbxSicherheit As CheckBox
Friend WithEvents FakturiertToolStripMenuItem As ToolStripMenuItem
Friend WithEvents FakturiertZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents pbMail As PictureBox
End Class

216
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO
Imports System.Reflection
Imports System.Windows.Documents
Imports GrapeCity.SpreadBuilder
Imports itextsharp.text.pdf
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -2015,11 +2016,17 @@ Public Class frmMDM_USTVAntrag
If Not cns_neAntraege.Items.ContainsKey("mail") Then
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
Dim mail = New ToolStripMenuItem() With {.Text = "Email (POS-Liste) generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mail.Click, AddressOf mnuItem_Clicked
cns_neAntraege.Items.Add(mail)
End If
If Not cns_neAntraege.Items.ContainsKey("mailPDF") Then
Dim mailPDF = New ToolStripMenuItem() With {.Text = "Email (PDF-RE) generieren", .Name = "mailPDF", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mailPDF.Click, AddressOf mnuItem_Clicked
cns_neAntraege.Items.Add(mailPDF)
End If
If Not cns_neAntraege.Items.ContainsKey("offeneAntraege") Then
Dim oa = New ToolStripMenuItem() With {.Text = "nicht eingearbeitet USTV-Anträge", .Name = "offeneAntraege", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler oa.Click, AddressOf mnuItem_Clicked
@@ -2046,7 +2053,10 @@ Public Class frmMDM_USTVAntrag
excelAuswertung()
ElseIf item.Name = "mail" Then
mailmitExcelauswertung()
mailmitExcelauswertung(False)
ElseIf item.Name = "mailPDF" Then
mailmitExcelauswertung(True)
ElseIf item.Name = "zuwenig" Then
zuwenigMail()
@@ -2193,7 +2203,7 @@ Public Class frmMDM_USTVAntrag
End Function
Private Sub mailmitExcelauswertung()
Private Sub mailmitExcelauswertung(Optional withPDF As Boolean = False)
Try
Dim outl As New Outlook.Application
@@ -2208,6 +2218,8 @@ Public Class frmMDM_USTVAntrag
End If
If withPDF Then Mail.Attachments.Add(PDFInvoicesPath(""), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Dim subject As String = ""
subject &= IIf(USTV_ANTRAG.UStVAn_Name <> "", USTV_ANTRAG.UStVAn_Name & "_", "")
subject &= IIf(Antrag_LandKz <> "", Antrag_LandKz & "_", "")
@@ -2903,11 +2915,10 @@ Public Class frmMDM_USTVAntrag
If frmNacherfassung.txtErfassungsnummer.Text = "" OrElse frmNacherfassung.txtErfassungsnummer.Text <> USTV_ANTRAG.UStVAn_ID Then
MsgBox("Antrags-ID: " & USTV_ANTRAG.UStVAn_ID & " wurde falsch gesetzt!")
End If
Exit Sub
End If
End If
If DiffernezbetragEUR = 0 Then
If DiffernezbetragEUR = 0 Then
If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub
End If
@@ -2924,20 +2935,17 @@ Public Class frmMDM_USTVAntrag
If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then
Select Case kunde_erw.kde_Fakturierung_Sprache
Case "EN" : BezAntrag = "Excise duty "
Case "EN", "TR" : BezAntrag = "Excise duty "
Case "RO" : BezAntrag = "Rambursare acciza "
End Select
Else
Select Case kunde_erw.kde_Fakturierung_Sprache
Case "EN" : BezAntrag = "VAT refund "
Case "EN", "TR" : BezAntrag = "VAT refund "
Case "RO" : BezAntrag = "Rambursare TVA "
End Select
End If
@@ -3434,7 +3442,7 @@ Public Class frmMDM_USTVAntrag
End If
End If
End Sub
@@ -3623,6 +3631,88 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub pbMail_Click(sender As Object, e As EventArgs) Handles pbMail.Click
If dgvUSTVPositionen.SelectedRows.Count = 0 Then Exit Sub
Try
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(7, "", 19)
Dim mailText As String = ""
Dim spracheRechnung As String = "EN" 'Defaultsprache
Dim Attachmens_Bez As String = ""
Dim Attachmens_Bez_POS As String = ""
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim posID As String = ""
Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" Then spracheRechnung = KUNDE_ERW.kde_Fakturierung_Sprache
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
If r IsNot Nothing Then
Mail.Subject = r.txt_betreff
Mail.Subject = Mail.Subject.Replace("%KdNr%", USTV_ANTRAG.UStVAn_KuNr)
Mail.Subject = Mail.Subject.Replace("%KdName%", USTV_ANTRAG.UStVAn_Name)
mailText = r.txt_text
End If
End If
Select Case spracheRechnung
Case "DE" : Attachmens_Bez = "Lief.-Rechn" : Attachmens_Bez_POS = "POS-Liste"
Case "EN", "TR" : Attachmens_Bez = "Supplier Invoice(s)" : Attachmens_Bez_POS = "Item List"
Case "RO" : Attachmens_Bez = "Factura furnizorului" : Attachmens_Bez_POS = "Lista articolelor"
End Select
Dim path As String = PDFInvoicesPath(posID)
Dim fileInfo As New FileInfo(path)
If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
If Not spedBuch.ErfassungsNr = "" Then
Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
If pathPosList <> "" Then
Dim fileInfoPos As New FileInfo(pathPosList)
If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
End If
End If
End If
Dim TextHTML = ""
If mailText <> "" Then
TextHTML = "<div style=""font-family:Calibri, Arial"">" & mailText.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, 19,,,,,, ) & "</div>"
Mail.HTMLBody = TextHTML
End If
Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
Mail.Display()
Me.Cursor = Cursors.Default
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
End Sub
Private Function checkSpedbuchEintrag(ByRef Fehlertext As String)
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
@@ -3648,5 +3738,107 @@ Public Class frmMDM_USTVAntrag
End Function
Private Function generatePOSListe(SPEDBUCH As cSpeditionsbuch, pos_id As String, onlyVZ As Boolean) As String
Dim func As New cMDMFunctionsAllgemein()
Dim dtPOSList As New DataTable
Dim prt As String = func.generatePosList(USTV_ANTRAG, pos_id, "", "", False, "prt", dtPOSList, onlyVZ, -1)
If prt <> "" Then
Try
Dim rpt As New rptMWSTListe
rpt.DataSource = dtPOSList
rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung
If rpt.DataSource.rows.count > 0 Then
Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
Dim sum As Double = 0
rpt.lblVatNo.Text = USTV_ANTRAG.UStVAn_Steuernummer
rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2
rpt.lblDat.Text = Now.ToShortDateString
AddHandler rpt.Detail.Format, Sub()
rpt.lblNumber.Text = rpt.Fields.Item("Number").Value()
rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value()
rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value()
rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString
rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value()
sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblSumme.Text = sum.ToString("N2")
rpt.lblWahrung.Text = USTV_ANTRAG.UStVAn_Währungscode
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV_ANTRAG.UStVAn_KuNr, False)
If DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True) Then Return tmpPath
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
Return ""
End Function
Private Function PDFInvoicesPath(ByRef posId As String) As String
Dim list As New List(Of String)
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
Dim nummerierung As Boolean = False
Dim counter = 0
For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
posId &= "'" & row.Cells("UStVPo_ID").Value & "'"
counter = counter + 1
If (dgvUSTVPositionen.SelectedRows.Count <> 1 And counter <> dgvUSTVPositionen.SelectedRows.Count) Then posId &= ","
Dim pdf As String = ""
pdf = func.getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), True, Antrag_LandKz, USTV_ANTRAG, New cFakturierung, False)
If pdf <> "" Then list.Add(pdf)
Next
End If
If list.Count = 0 Then Me.Cursor = Cursors.Default : Return ""
If list.Count > 1 Then
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
Return pathPDF
End If
Else
Dim PDFFile As String = ""
PDFFile = list(0)
Return PDFFile
End If
End Function
End Class

4
SDL/USTV/usrCntlUSTV.vb
View File

@@ -305,14 +305,14 @@ Public Class usrCntlUSTV
init()
cboJahr.Items.Clear()
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10
For i = 0 To Now().Year - 2005
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next
cboJahr.changeItem(Now.Year - 1)
cboJahrBis.Items.Clear()
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10
For i = 0 To Now().Year - 2005
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next
cboJahrBis.changeItem(Now.Year)

68
SDL/kunden/frmBonitätsverlauf.vb
View File

@@ -1,6 +1,10 @@
Public Class frmBonitätsverlauf
Imports GrapeCity.DataVisualization.Chart
Imports VERAG_PROG_ALLGEMEIN
Public Class frmBonitätsverlauf
Public kdnr = -1
Public newView As Boolean = False
Sub New(kdnr)
InitializeComponent()
Me.kdnr = kdnr
@@ -39,7 +43,50 @@
If KdSearchBox1.KdNr_value > 0 Then
With MyDatagridview1
Dim sqlstr As String = ""
sqlstr &= "SELECT * FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
Dim KD_ERW As New cKundenErweitert(KdSearchBox1.KdNr_value)
If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" AndAlso newView Then
Dim sqlIndex As String = ""
If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then
sqlIndex = "ba_CreditSaveBonitaetsScore"
Else
sqlIndex = "ba_CreditSaveBonitaetsIndex"
End If
sqlstr &= "SELECT *
FROM (
SELECT ba_Datum," & sqlIndex & " ,ba_GruendundsDatum,ba_Umsatz,ba_Mitarbeiter,ba_Hoechstkredit,ba_Sachbearbeiter,ba_Zahlungsweise,ba_GFName,ba_Risikostufe,ba_CreditSaveRisikoklasse,ba_Pruefungstool,ba_GSName,ba_Geschaeftszweck,ba_datenarchivId
FROM tblBonitaetsauskunft
WHERE ba_KundenNr = " & KdSearchBox1.KdNr_value & "
UNION ALL
SELECT
CAST(e.eventDate AS DATE) AS ba_Datum,MAX(e.crValue) AS " & sqlIndex & ",NULL AS ba_GruendundsDatum,NULL AS ba_Umsatz,NULL AS ba_Mitarbeiter,MAX(e.clValue) AS ba_Hoechstkredit,MAX(e.sachbearbeiter) AS ba_Sachbearbeiter,NULL AS ba_Zahlungsweise,NULL AS ba_GFName,NULL AS ba_Risikostufe,NULL AS ba_CreditSaveRisikoklasse,Source AS ba_Pruefungstool,NULL AS ba_GSName,NULL AS ba_Geschaeftszweck,NULL AS ba_datenarchivId
FROM (
SELECT
e.companyId,
e.portfolioId,
e.eventDate,
e.sachbearbeiter,
CASE WHEN e.localEventCode = 'CR' OR e.globalEventCode = 'CR' THEN e.newValueCR ELSE 0 END AS crValue,
CASE WHEN e.localEventCode = 'CL' OR e.globalEventCode = 'CL' THEN e.newValueCL ELSE 0 END AS clValue,
'creditsafe API' AS Source
FROM [VERAG].[dbo].[tblCreditsafeEvents] e
INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b
ON e.bonId = b.ba_id
WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
AND b.ba_Pruefungstool = 'creditsafe API'
AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR'))
) e
GROUP BY e.companyId, e.portfolioId, CAST(e.eventDate AS DATE), Source
) AS Temp
ORDER BY Temp.ba_Datum DESC;"
End If
.SET_SQL(sqlstr, "FMZOLL")
.LOAD()
@@ -49,24 +96,9 @@
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Columns("ba_id").Visible = False
.Columns("ba_KundenNr").Visible = False
.Columns("ba_MaId").Visible = False
.Columns("ba_CRArt").Visible = False
.Columns("ba_CRAnsprechpartnerHerrFrau").Visible = False
.Columns("ba_CRAnsprechpartner").Visible = False
.Columns("ba_Firma").Visible = False
.Columns("ba_Adresse1").Visible = False
.Columns("ba_Adresse2").Visible = False
.Columns("ba_LetztesBearbeitungsDatum").Visible = False
.Columns("ba_Bankverbindung").Visible = False
.Columns("ba_Sonstiges").Visible = False
.Columns("ba_datenarchivId").Visible = False
.Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
.Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
.Columns("ba_datenarchivId").Visible = False
Dim c As New DataGridViewImageColumn
c.Name = "PDF" : c.HeaderText = "Bericht"

154
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -53,6 +53,7 @@ Partial Class frmKundenblatt
Me.txtInfotext = New System.Windows.Forms.Label()
Me.tbFirmendaten = New System.Windows.Forms.TabPage()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
@@ -148,8 +149,10 @@ Partial Class frmKundenblatt
Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
Me.tbSDLKarten = New System.Windows.Forms.TabPage()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.tbLKW = New System.Windows.Forms.TabPage()
Me.pnlLKWRight = New System.Windows.Forms.Panel()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.pnlLKW = New System.Windows.Forms.Panel()
Me.dgvLKW = New System.Windows.Forms.DataGridView()
Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -181,6 +184,7 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbUSTV = New System.Windows.Forms.TabPage()
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -191,6 +195,7 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.tbFIBU = New System.Windows.Forms.TabPage()
Me.Label12 = New System.Windows.Forms.Label()
Me.rtbGespreachsbericht = New System.Windows.Forms.RichTextBox()
@@ -232,11 +237,6 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -337,6 +337,16 @@ Partial Class frmKundenblatt
Me.Panel4.Size = New System.Drawing.Size(1638, 1435)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1435)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
'
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -395,7 +405,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1458)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1441)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -476,7 +486,7 @@ Partial Class frmKundenblatt
Me.TabControl1.Location = New System.Drawing.Point(8, 582)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(718, 870)
Me.TabControl1.Size = New System.Drawing.Size(718, 853)
Me.TabControl1.TabIndex = 186
'
'TabPage1
@@ -488,7 +498,7 @@ Partial Class frmKundenblatt
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(710, 844)
Me.TabPage1.Size = New System.Drawing.Size(710, 827)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Offene Posten"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -547,7 +557,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 809)
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 792)
Me.dgvOffenePosten.TabIndex = 175
'
'Label10
@@ -625,7 +635,7 @@ Partial Class frmKundenblatt
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUmsaetze.RowHeadersVisible = False
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 819)
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 836)
Me.dgvUmsaetze.TabIndex = 182
'
'Label13
@@ -729,7 +739,7 @@ Partial Class frmKundenblatt
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 821)
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 838)
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
'
'lblAdressenzusatz
@@ -1090,7 +1100,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1414)
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1397)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -1737,11 +1747,21 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1409)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
Me.usrcntlKarten.TabIndex = 0
'
'tbLKW
'
Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1749,7 +1769,7 @@ Partial Class frmKundenblatt
Me.tbLKW.Location = New System.Drawing.Point(4, 22)
Me.tbLKW.Name = "tbLKW"
Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
Me.tbLKW.Size = New System.Drawing.Size(1630, 1409)
Me.tbLKW.Size = New System.Drawing.Size(178, 39)
Me.tbLKW.TabIndex = 4
Me.tbLKW.Text = "LKWs"
Me.tbLKW.UseVisualStyleBackColor = True
@@ -1761,9 +1781,22 @@ Partial Class frmKundenblatt
Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
Me.pnlLKWRight.Name = "pnlLKWRight"
Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1403)
Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
Me.pnlLKWRight.TabIndex = 2
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
Me.UsrCntlLKW1.TabIndex = 0
'
'pnlLKW
'
Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1772,7 +1805,7 @@ Partial Class frmKundenblatt
Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
Me.pnlLKW.Name = "pnlLKW"
Me.pnlLKW.Size = New System.Drawing.Size(306, 1403)
Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
Me.pnlLKW.TabIndex = 3
'
'dgvLKW
@@ -1813,7 +1846,7 @@ Partial Class frmKundenblatt
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25
Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 1229)
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
Me.dgvLKW.TabIndex = 2
'
'pnlLKWBottom
@@ -1825,7 +1858,7 @@ Partial Class frmKundenblatt
Me.pnlLKWBottom.Controls.Add(Me.Button13)
Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 1291)
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
Me.pnlLKWBottom.Name = "pnlLKWBottom"
Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
Me.pnlLKWBottom.TabIndex = 3
@@ -1966,7 +1999,7 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
Me.tbVERAGCard.Name = "tbVERAGCard"
Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1409)
Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
Me.tbVERAGCard.TabIndex = 6
Me.tbVERAGCard.Text = "VERAG Card"
Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1978,7 +2011,7 @@ Partial Class frmKundenblatt
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1624, 1403)
Me.Panel3.Size = New System.Drawing.Size(172, 33)
Me.Panel3.TabIndex = 0
'
'tbDokumente
@@ -1996,7 +2029,7 @@ Partial Class frmKundenblatt
Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbDokumente.Name = "tbDokumente"
Me.tbDokumente.Size = New System.Drawing.Size(1630, 1409)
Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
Me.tbDokumente.TabIndex = 8
Me.tbDokumente.Text = "Dokumente"
Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2196,7 +2229,7 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1409)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2205,7 +2238,7 @@ Partial Class frmKundenblatt
'
Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1409)
Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
Me.tbFremdrechnungen.TabIndex = 10
Me.tbFremdrechnungen.Text = "Fremdrechnungen"
Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2221,6 +2254,16 @@ Partial Class frmKundenblatt
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1441)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
'
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
@@ -2354,11 +2397,19 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1415)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'tbFIBU
'
Me.tbFIBU.Controls.Add(Me.Label12)
@@ -2395,7 +2446,7 @@ Partial Class frmKundenblatt
'
Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1543, 18)
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(91, 18)
Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
Me.btnFirmendatenFormularSpeichern.TabIndex = 17
@@ -2673,7 +2724,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
@@ -2835,57 +2886,6 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1435)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1403)
Me.usrcntlKarten.TabIndex = 0
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.TabIndex = 0
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1441)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 1409)
Me.UsrCntlUSTV.TabIndex = 0
'
'frmKundenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

6
SDL/kunden/frmKundenblatt.vb
View File

@@ -45,6 +45,7 @@ Public Class frmKundenblatt
Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10}
Dim isVerag360 As Boolean = False
Dim creditsafe_newView As Boolean = False
Sub New()
@@ -122,6 +123,10 @@ Public Class frmKundenblatt
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
End If
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
Me.KeyPreview = True
pnlInfo.Height = 0
@@ -2188,6 +2193,7 @@ Public Class frmKundenblatt
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
KdSearchBox1.KdNr = kdNr

13
SDL/kunden/frmOffertenBearbeiten.vb
View File

@@ -32,7 +32,7 @@ Public Class frmOffertenBearbeiten
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen ORDER BY Filialen.FilialenNr", False, "FMZOLL")
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
Dim where = ""
@@ -42,20 +42,27 @@ Public Class frmOffertenBearbeiten
cboSprache.Enabled = False
cboSprache.changeItem("DE")
where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) "
If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0
Case "VERAG"
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" AndAlso KUNDE.FilialenNr = 8001 AndAlso (KUNDE.KundenNrZentrale <> 140000 And KUNDE.KundenNrZentrale <> 150000 And KUNDE.KundenNrZentrale <> 180000) Then
cboSprache.changeItem(KUNDE_ERW.kde_Fakturierung_Sprache)
cboSprache.Enabled = True
Else
cboSprache.changeItem("DE")
cboSprache.Enabled = False
End If
If cboFiliale.Items.Count > 4 Then cboFiliale.SelectedIndex = 3 Else
Case Else
cboSprache.changeItem("DE")
cboSprache.Enabled = False
If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0
End Select
If cboFiliale.Items.Count = 0 Then cboFiliale.changeItem("")
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where KundenNr=" & kdnr & " and [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " & where & " order by OffertenNr"
@@ -86,7 +93,7 @@ Public Class frmOffertenBearbeiten
If c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.MyCheckBoxValue) Then
' MsgBox(c._value)
If c.enabled And c.checked Then
Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, cboFiliale._value, False)
Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, IIf(cboFiliale._value <> "", cboFiliale._value, Nothing), False)
o.Art = "Neuanlage"
o.SAVE() 'speichern
o.LOAD_POSITIONEN() 'positionen Laden

2179
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

6
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -242,10 +242,10 @@
<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="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</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>
</root>

194
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -55,6 +55,7 @@ Public Class usrCntlKundenuebersicht
Dim PDF_Attach_TMP_VERTRAEGE = ""
Property BER_STUFE = 99
Private datenarchivId = -1
Dim creditsafe_newView As Boolean = False
Public Sub New()
Try
@@ -233,6 +234,9 @@ Public Class usrCntlKundenuebersicht
End Select
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Button1.Visible = True
@@ -671,6 +675,9 @@ Public Class usrCntlKundenuebersicht
Button3.BackgroundImage = My.Resources.fragezeichen
' Button4.Visible = False
' Button5.Visible = False
pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso creditsafe_newView
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
End Try
@@ -1587,16 +1594,16 @@ Public Class usrCntlKundenuebersicht
dgvAufschub.Rows.Clear()
If AUFSCHUB IsNot Nothing Then
For Each AB In AUFSCHUB
Dim art = ""
Select Case AB.kdAkto_art
Case "10" : art = "10 - ZOLL/EUST"
Case "15" : art = "15 - ZOLL"
Case "20" : art = "20 - EUST"
End Select
dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin)
Next
End If
For Each AB In AUFSCHUB
Dim art = ""
Select Case AB.kdAkto_art
Case "10" : art = "10 - ZOLL/EUST"
Case "15" : art = "15 - ZOLL"
Case "20" : art = "20 - EUST"
End Select
dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin)
Next
End If
dgvAufschub.ClearSelection()
@@ -2170,7 +2177,11 @@ Public Class usrCntlKundenuebersicht
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
setKD(kdNr)
@@ -2831,31 +2842,37 @@ Public Class usrCntlKundenuebersicht
Else
land = ADRESSE.LandKz
End If
Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", kdNr)
If lblBonitaetsdatum._value <> Nothing Then
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
If lastChecked = Today Then
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
Exit Sub
End If
End If
If Not KUNDE_ERW.kde_CSPortfolioAdded Then
Dim AddCompValue As String = cs.AddCompanyToPortfolio(company)
If AddCompValue = "Conflict" Or AddCompValue = "OK" Or AddCompValue Is Nothing Then SQL.doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveId = '" & KUNDE_ERW.kde_CreditSaveId & "'", "FMZOLL")
End If
If lastChecked = Today Then
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
Exit Sub
End If
End If
End If
If cs.checkDateOfLastRequest(company) < lastChecked Then
If cs.checkDateOfLastRequest(company) < lastChecked Then
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
If a = vbYes Then
@@ -2871,11 +2888,11 @@ Public Class usrCntlKundenuebersicht
setCreditsafereportEntry(cs, company)
End If
End If
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If
@@ -2925,7 +2942,7 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_CSmax = csmax
cBonitaetsauskunft.ba_CScountry = cscountry
' Öster. Unternemen -> Creditscore, sonst Index
' Öster. Unternehmen -> Creditscore, sonst Index
If (IsNumeric(company.csIndex)) Then
company.csIndex = company.csIndex.Replace(".", ",")
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
@@ -2974,6 +2991,8 @@ Public Class usrCntlKundenuebersicht
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
company.csBonID = cBonitaetsauskunft.ba_id
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
@@ -2981,6 +3000,70 @@ Public Class usrCntlKundenuebersicht
KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
KDERW.SAVE()
updateDatenarchivId()
'--------------------- weitere Kunden derselben CS-ID mitupdaten!
Dim DTweitereKundenMitCreditsaveId As DataTable = SQL.loadDgvBySql("select kde_KundenNr from [tblKundenErweitert] where kde_KundenNr <> " & kdNr & " and kde_CreditSaveId = '" & company.creditSafeId & "'", "FMZOLL")
If DTweitereKundenMitCreditsaveId.Rows.Count > 0 Then
For Each row As DataRow In DTweitereKundenMitCreditsaveId.Rows
If IsNumeric(row.Item("kde_KundenNr")) AndAlso row.Item("kde_KundenNr") > 0 Then
Dim cBonTemp = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
cBonTemp.ba_datenarchivId = cBonitaetsauskunft.ba_datenarchivId
cBonTemp.ba_BonitaetsIndex = cBonitaetsauskunft.ba_BonitaetsIndex
cBonTemp.ba_Risikostufe = cBonitaetsauskunft.ba_Risikostufe
cBonTemp.ba_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
cBonTemp.ba_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
cBonTemp.ba_CreditSaveRisikoklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
cBonTemp.ba_forcedRequest = cBonitaetsauskunft.ba_forcedRequest
cBonTemp.ba_KundenNr = (row.Item("kde_KundenNr"))
cBonTemp.ba_Datum = Now()
cBonTemp.ba_Pruefungstool = cBonitaetsauskunft.ba_Pruefungstool
cBonTemp.ba_CScounterBeforeRequest = cBonitaetsauskunft.ba_CScounterBeforeRequest
cBonTemp.ba_CScounterAfterRequest = cBonitaetsauskunft.ba_CScounterAfterRequest
cBonTemp.ba_CSmax = cBonitaetsauskunft.ba_CSmax
cBonTemp.ba_CScountry = cBonitaetsauskunft.ba_CScountry
cBonTemp.ba_Bankverbindung = cBonitaetsauskunft.ba_Bankverbindung
cBonTemp.ba_Zahlungsweise = cBonitaetsauskunft.ba_Zahlungsweise
cBonTemp.ba_Sonstiges = cBonitaetsauskunft.ba_Sonstiges
cBonTemp.ba_GSName = cBonitaetsauskunft.ba_GSName
cBonTemp.ba_UID = cBonitaetsauskunft.ba_UID
cBonTemp.ba_GruendundsDatum = cBonitaetsauskunft.ba_GruendundsDatum
cBonTemp.ba_Umsatz = cBonitaetsauskunft.ba_Umsatz
cBonTemp.ba_Geschaeftszweck = cBonitaetsauskunft.ba_Geschaeftszweck
cBonTemp.ba_Sachbearbeiter = cBonitaetsauskunft.ba_Sachbearbeiter
cBonTemp.ba_MaId = cBonitaetsauskunft.ba_MaId
cBonTemp.ba_LetztesBearbeitungsDatum = cBonitaetsauskunft.ba_LetztesBearbeitungsDatum
cBonTemp.ba_Firma = cBonitaetsauskunft.ba_Firma
cBonTemp.ba_Adresse1 = cBonitaetsauskunft.ba_Adresse1
cBonTemp.ba_Adresse2 = cBonitaetsauskunft.ba_Adresse2
cBonTemp.ba_Mitarbeiter = cBonitaetsauskunft.ba_Mitarbeiter
cBonTemp.ba_Hoechstkredit = cBonitaetsauskunft.ba_Hoechstkredit
cBonTemp.ba_GFName = cBonitaetsauskunft.ba_GFName
If cBonTemp.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonTemp.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonTemp.ba_Datum & "', Höchstkredit=" & If(cBonTemp.ba_Hoechstkredit Is Nothing, "null", "'" & cBonTemp.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonTemp.ba_KundenNr & "'", "FMZOLL")
Dim KDERW_TEMP As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(row.Item("kde_KundenNr"))
KDERW_TEMP.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW_TEMP.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
KDERW_TEMP.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
KDERW_TEMP.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
KDERW_TEMP.SAVE()
End If
End If
Next
End If
End If
End Sub
@@ -3104,6 +3187,8 @@ Public Class usrCntlKundenuebersicht
pdfObject = cs.getPDF(company, failureDesc)
'cs.AddCompanyToPortfolio(company)
cs.getSubscriptionCountries(dt)
If dt.Rows.Count > 0 AndAlso dt.AsEnumerable.Any(Function(c) company.country = c.Item("countryIso2").ToString) Then
@@ -3257,15 +3342,60 @@ Public Class usrCntlKundenuebersicht
End If
End Sub
Private Sub lblBonitaet_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaet.TextChanged
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles pbCreditsafeChanges.Click
Private Sub lblBonitaetRisikostufe_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaetRisikostufe.TextChanged
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
End Sub
Dim cs = New cCreditSafeAPI("creditsafe")
Dim checklastDate As Boolean = True
Private Sub Label39_Click(sender As Object, e As EventArgs) Handles Label39.Click
If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
If currentBonID > 0 Then company.csBonID = currentBonID
Dim dt As New DataTable()
cs.getCompanyEvents(company, dt, checklastDate)
If dt.Rows.Count > 0 Then
Dim frm As New Form
Dim dgv As New DataGridView()
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN", "AVISO") Then
If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
End If
dgv.DataSource = dt
If dgv IsNot Nothing Then
frm.Size = New Size(750, 500)
dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
dgv.Dock = DockStyle.Fill
dgv.Anchor = AnchorStyles.Left
dgv.Anchor = AnchorStyles.Top
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
End If
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If
End If
End Sub
End Class

226
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -56,6 +56,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button10 = New System.Windows.Forms.Button()
Me.btnRechenwertesetzen = New System.Windows.Forms.Button()
Me.lblTTRSum = New System.Windows.Forms.Label()
Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblProzPruef = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
@@ -63,6 +64,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button1 = New System.Windows.Forms.Button()
Me.btnKunde = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxKopie = New System.Windows.Forms.CheckBox()
@@ -74,15 +76,14 @@ Partial Class frmMDMDatenverarbetiung
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel5.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -100,6 +101,7 @@ Partial Class frmMDMDatenverarbetiung
'
'pnl
'
Me.pnl.Controls.Add(Me.cbxIDSmitVerag)
Me.pnl.Controls.Add(Me.Panel5)
Me.pnl.Controls.Add(Me.PictureBox5)
Me.pnl.Controls.Add(Me.cbxBelegeerstellt)
@@ -159,7 +161,7 @@ Partial Class frmMDMDatenverarbetiung
Me.cbxBelegeerstellt.AutoSize = True
Me.cbxBelegeerstellt.Checked = True
Me.cbxBelegeerstellt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBelegeerstellt.Location = New System.Drawing.Point(654, 75)
Me.cbxBelegeerstellt.Location = New System.Drawing.Point(663, 75)
Me.cbxBelegeerstellt.Name = "cbxBelegeerstellt"
Me.cbxBelegeerstellt.Size = New System.Drawing.Size(86, 17)
Me.cbxBelegeerstellt.TabIndex = 53
@@ -172,7 +174,7 @@ Partial Class frmMDMDatenverarbetiung
Me.cbxASFINAGAbgerechnet.AutoSize = True
Me.cbxASFINAGAbgerechnet.Checked = True
Me.cbxASFINAGAbgerechnet.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(746, 75)
Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(755, 75)
Me.cbxASFINAGAbgerechnet.Name = "cbxASFINAGAbgerechnet"
Me.cbxASFINAGAbgerechnet.Size = New System.Drawing.Size(144, 17)
Me.cbxASFINAGAbgerechnet.TabIndex = 52
@@ -456,6 +458,32 @@ Partial Class frmMDMDatenverarbetiung
Me.lblTTRSum.Text = "Prüfsumme TTR:"
Me.lblTTRSum.Visible = False
'
'txtTTRSum
'
Me.txtTTRSum._DateTimeOnly = False
Me.txtTTRSum._numbersOnly = False
Me.txtTTRSum._numbersOnlyKommastellen = ""
Me.txtTTRSum._numbersOnlyTrennzeichen = True
Me.txtTTRSum._Prozent = False
Me.txtTTRSum._ShortDateNew = False
Me.txtTTRSum._ShortDateOnly = False
Me.txtTTRSum._TimeOnly = False
Me.txtTTRSum._TimeOnly_Seconds = False
Me.txtTTRSum._value = ""
Me.txtTTRSum._Waehrung = False
Me.txtTTRSum._WaehrungZeichen = True
Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtTTRSum.ForeColor = System.Drawing.Color.Black
Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124)
Me.txtTTRSum.MaxLineLength = -1
Me.txtTTRSum.MaxLines_Warning = ""
Me.txtTTRSum.MaxLines_Warning_Label = Nothing
Me.txtTTRSum.Name = "txtTTRSum"
Me.txtTTRSum.Size = New System.Drawing.Size(100, 20)
Me.txtTTRSum.TabIndex = 51
Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtTTRSum.Visible = False
'
'lblProzPruef
'
Me.lblProzPruef.Location = New System.Drawing.Point(63, 97)
@@ -532,6 +560,31 @@ Partial Class frmMDMDatenverarbetiung
Me.Label4.TabIndex = 44
Me.Label4.Text = "Prüfsumme brutto:"
'
'txtPruefsummeBrutto
'
Me.txtPruefsummeBrutto._DateTimeOnly = False
Me.txtPruefsummeBrutto._numbersOnly = False
Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
Me.txtPruefsummeBrutto._Prozent = False
Me.txtPruefsummeBrutto._ShortDateNew = False
Me.txtPruefsummeBrutto._ShortDateOnly = False
Me.txtPruefsummeBrutto._TimeOnly = False
Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
Me.txtPruefsummeBrutto._value = ""
Me.txtPruefsummeBrutto._Waehrung = False
Me.txtPruefsummeBrutto._WaehrungZeichen = True
Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101)
Me.txtPruefsummeBrutto.MaxLineLength = -1
Me.txtPruefsummeBrutto.MaxLines_Warning = ""
Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeBrutto.TabIndex = 43
Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbx
'
Me.cbx.AutoSize = True
@@ -642,6 +695,31 @@ Partial Class frmMDMDatenverarbetiung
Me.Label3.TabIndex = 38
Me.Label3.Text = "Prüfsumme netto:"
'
'txtPruefsummeNetto
'
Me.txtPruefsummeNetto._DateTimeOnly = False
Me.txtPruefsummeNetto._numbersOnly = False
Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
Me.txtPruefsummeNetto._Prozent = False
Me.txtPruefsummeNetto._ShortDateNew = False
Me.txtPruefsummeNetto._ShortDateOnly = False
Me.txtPruefsummeNetto._TimeOnly = False
Me.txtPruefsummeNetto._TimeOnly_Seconds = False
Me.txtPruefsummeNetto._value = ""
Me.txtPruefsummeNetto._Waehrung = False
Me.txtPruefsummeNetto._WaehrungZeichen = True
Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75)
Me.txtPruefsummeNetto.MaxLineLength = -1
Me.txtPruefsummeNetto.MaxLines_Warning = ""
Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeNetto.TabIndex = 37
Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -652,6 +730,31 @@ Partial Class frmMDMDatenverarbetiung
Me.Label2.TabIndex = 36
Me.Label2.Text = "Anzahl:"
'
'txtAnzahl
'
Me.txtAnzahl._DateTimeOnly = False
Me.txtAnzahl._numbersOnly = False
Me.txtAnzahl._numbersOnlyKommastellen = ""
Me.txtAnzahl._numbersOnlyTrennzeichen = True
Me.txtAnzahl._Prozent = False
Me.txtAnzahl._ShortDateNew = False
Me.txtAnzahl._ShortDateOnly = False
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._TimeOnly_Seconds = False
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48)
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahl.TabIndex = 35
Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -694,106 +797,18 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547)
Me.MyDatagridview1.TabIndex = 0
'
'txtTTRSum
'cbxIDSmitVerag
'
Me.txtTTRSum._DateTimeOnly = False
Me.txtTTRSum._numbersOnly = False
Me.txtTTRSum._numbersOnlyKommastellen = ""
Me.txtTTRSum._numbersOnlyTrennzeichen = True
Me.txtTTRSum._Prozent = False
Me.txtTTRSum._ShortDateNew = False
Me.txtTTRSum._ShortDateOnly = False
Me.txtTTRSum._TimeOnly = False
Me.txtTTRSum._TimeOnly_Seconds = False
Me.txtTTRSum._value = ""
Me.txtTTRSum._Waehrung = False
Me.txtTTRSum._WaehrungZeichen = True
Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtTTRSum.ForeColor = System.Drawing.Color.Black
Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124)
Me.txtTTRSum.MaxLineLength = -1
Me.txtTTRSum.MaxLines_Warning = ""
Me.txtTTRSum.MaxLines_Warning_Label = Nothing
Me.txtTTRSum.Name = "txtTTRSum"
Me.txtTTRSum.Size = New System.Drawing.Size(100, 20)
Me.txtTTRSum.TabIndex = 51
Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtTTRSum.Visible = False
'
'txtPruefsummeBrutto
'
Me.txtPruefsummeBrutto._DateTimeOnly = False
Me.txtPruefsummeBrutto._numbersOnly = False
Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
Me.txtPruefsummeBrutto._Prozent = False
Me.txtPruefsummeBrutto._ShortDateNew = False
Me.txtPruefsummeBrutto._ShortDateOnly = False
Me.txtPruefsummeBrutto._TimeOnly = False
Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
Me.txtPruefsummeBrutto._value = ""
Me.txtPruefsummeBrutto._Waehrung = False
Me.txtPruefsummeBrutto._WaehrungZeichen = True
Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101)
Me.txtPruefsummeBrutto.MaxLineLength = -1
Me.txtPruefsummeBrutto.MaxLines_Warning = ""
Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeBrutto.TabIndex = 43
Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtPruefsummeNetto
'
Me.txtPruefsummeNetto._DateTimeOnly = False
Me.txtPruefsummeNetto._numbersOnly = False
Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
Me.txtPruefsummeNetto._Prozent = False
Me.txtPruefsummeNetto._ShortDateNew = False
Me.txtPruefsummeNetto._ShortDateOnly = False
Me.txtPruefsummeNetto._TimeOnly = False
Me.txtPruefsummeNetto._TimeOnly_Seconds = False
Me.txtPruefsummeNetto._value = ""
Me.txtPruefsummeNetto._Waehrung = False
Me.txtPruefsummeNetto._WaehrungZeichen = True
Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75)
Me.txtPruefsummeNetto.MaxLineLength = -1
Me.txtPruefsummeNetto.MaxLines_Warning = ""
Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeNetto.TabIndex = 37
Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtAnzahl
'
Me.txtAnzahl._DateTimeOnly = False
Me.txtAnzahl._numbersOnly = False
Me.txtAnzahl._numbersOnlyKommastellen = ""
Me.txtAnzahl._numbersOnlyTrennzeichen = True
Me.txtAnzahl._Prozent = False
Me.txtAnzahl._ShortDateNew = False
Me.txtAnzahl._ShortDateOnly = False
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._TimeOnly_Seconds = False
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48)
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahl.TabIndex = 35
Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.cbxIDSmitVerag.AutoSize = True
Me.cbxIDSmitVerag.Checked = True
Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74)
Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag"
Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17)
Me.cbxIDSmitVerag.TabIndex = 131
Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360"
Me.cbxIDSmitVerag.UseVisualStyleBackColor = True
Me.cbxIDSmitVerag.Visible = False
'
'frmMDMDatenverarbetiung
'
@@ -889,4 +904,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents Button10 As Button
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents cbxKopie As CheckBox
Friend WithEvents cbxIDSmitVerag As CheckBox
End Class

37
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.OleDb
Imports System.IO
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports itextsharp.text.pdf
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -115,6 +116,10 @@ Public Class frmMDMDatenverarbetiung
End If
End If
Case "IDS"
If cbxIDSmitVerag.Checked Then
MsgBox("Abrechnung ohne VERAG/VERAG360 !")
Exit Sub
End If
showIDSContextMenu()
Case "MSE"
Dim mseParam As New cMSEAPI(LIEFERANT)
@@ -875,7 +880,7 @@ Public Class frmMDMDatenverarbetiung
left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0
left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode
left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode
where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null and Kunde.KdNrVERAG not in (756150, 711104) ", "FMZOLL")
where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null " & IIf(cbxIDSmitVerag.Checked, " ", "and Kunde.KdNrVERAG not in (756150, 711104) "), "FMZOLL")
.LOAD()
@@ -915,7 +920,15 @@ Public Class frmMDMDatenverarbetiung
Dim sumTr As Double = 0
For Each r As DataGridViewRow In .Rows
sumGes += If(IsNumeric(r.Cells("Gesamtbetrag").Value), CDbl(r.Cells("Gesamtbetrag").Value), 0)
sumTr += If(IsNumeric(r.Cells("Liter").Value), CDbl(r.Cells("Liter").Value), 0)
If (IsNumeric(r.Cells("Liter").Value)) Then
sumTr += CDbl(r.Cells("Liter").Value)
Else
sumTr += 0
End If
sumFee += If(IsNumeric(r.Cells("Net").Value), CDbl(r.Cells("Net").Value), 0)
Next
@@ -1013,6 +1026,7 @@ Public Class frmMDMDatenverarbetiung
Panel4.Visible = False
Panel5.Visible = False
cbxKopie.Visible = False
cbxIDSmitVerag.Visible = False
Select Case Me.LIEFERANT
@@ -1038,6 +1052,7 @@ Public Class frmMDMDatenverarbetiung
c.Dock = DockStyle.Fill
pnlIDS.Visible = True
cbxKopie.Visible = True
cbxIDSmitVerag.Visible = True
Case "MSE"
Panel5.Visible = True
@@ -3974,13 +3989,7 @@ Public Class frmMDMDatenverarbetiung
pruefData_IDS = True
Try
Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null and CustomerCode not in (60004479,60025994) ", "FMZOLL")) 'Verag360 und VeragAG
If RechnenWertNichtEingetragen > 0 Then
pruefData_IDS = False
MsgBox("Es wurden bei " & RechnenWertNichtEingetragen & " Transaktionen die Rechenwerte nicht eingetragen!" & vbNewLine & "Diese müssen nacherfasst werden (von Rechnungsdatum " & DateTimePicker2.Text & ").")
Return False
End If
Dim sqlStringfehlendeKdNr = "SELECT count(*) from tblIDSTransactionsNew as trans left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and Kunde.CustomerCode is null and trans.[CustomerCode] not in (60004479,60025994)" 'Verag360 und VeragAG
@@ -4056,6 +4065,14 @@ Public Class frmMDMDatenverarbetiung
MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
End If
Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null and CustomerCode not in (60004479,60025994) ", "FMZOLL")) 'Verag360 und VeragAG
If RechnenWertNichtEingetragen > 0 Then
pruefData_IDS = False
MsgBox("Es wurden bei " & RechnenWertNichtEingetragen & " Transaktionen die Rechenwerte nicht eingetragen!" & vbNewLine & "Diese müssen nacherfasst werden (von Rechnungsdatum " & DateTimePicker2.Text & ").")
Return False
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
pruefData_IDS = False
@@ -4826,4 +4843,8 @@ RabattBerechnen:
End Function
Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged
initDgv_IDS()
End Sub
End Class