creditsafeAPI Monitoring, Kundenuebersicht, Zugferd, etc.
This commit is contained in:
@@ -2163,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),
|
||||
@@ -2468,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
|
||||
|
||||
19
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
19
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
@@ -262,6 +262,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.btnOP = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
|
||||
Me.cntxtAddVM.SuspendLayout()
|
||||
Me.tbWeitereKundenDetails.SuspendLayout()
|
||||
Me.tbOfferten.SuspendLayout()
|
||||
@@ -314,6 +315,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.ContextMenuStrip2.SuspendLayout()
|
||||
Me.ContextMenuStrip4.SuspendLayout()
|
||||
Me.ContextMenuStrip5.SuspendLayout()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'cntxtAddVM
|
||||
@@ -1402,6 +1404,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel4.Controls.Add(Me.PictureBox7)
|
||||
Me.Panel4.Controls.Add(Me.PictureBox6)
|
||||
Me.Panel4.Controls.Add(Me.FlatButton2)
|
||||
Me.Panel4.Controls.Add(Me.btnCreditsafe)
|
||||
@@ -1425,7 +1428,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(639, 4)
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(308, 2)
|
||||
Me.PictureBox6.Name = "PictureBox6"
|
||||
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
|
||||
Me.PictureBox6.TabIndex = 132
|
||||
@@ -3427,6 +3430,18 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(150, 30)
|
||||
Me.ToolStripMenuItem12.Text = "Schnelldruck"
|
||||
'
|
||||
'PictureBox7
|
||||
'
|
||||
Me.PictureBox7.BackgroundImage = Global.SDL.My.Resources.Resources.warning2
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox7.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(638, 3)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(18, 19)
|
||||
Me.PictureBox7.TabIndex = 133
|
||||
Me.PictureBox7.TabStop = False
|
||||
Me.PictureBox7.Visible = False
|
||||
'
|
||||
'usrCntlKundenuebersicht
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -3516,6 +3531,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.ContextMenuStrip2.ResumeLayout(False)
|
||||
Me.ContextMenuStrip4.ResumeLayout(False)
|
||||
Me.ContextMenuStrip5.ResumeLayout(False)
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -3747,4 +3763,5 @@ Partial Class usrCntlKundenuebersicht
|
||||
Friend WithEvents EORI As DataGridViewTextBoxColumn
|
||||
Friend WithEvents NL As DataGridViewTextBoxColumn
|
||||
Friend WithEvents BIN As DataGridViewTextBoxColumn
|
||||
Friend WithEvents PictureBox7 As PictureBox
|
||||
End Class
|
||||
|
||||
@@ -671,6 +671,9 @@ Public Class usrCntlKundenuebersicht
|
||||
Button3.BackgroundImage = My.Resources.fragezeichen
|
||||
' Button4.Visible = False
|
||||
' Button5.Visible = False
|
||||
|
||||
PictureBox7.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False)
|
||||
|
||||
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
|
||||
@@ -3104,6 +3107,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 +3262,57 @@ 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 PictureBox7.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
|
||||
|
||||
Private Sub Label39_Click(sender As Object, e As EventArgs) Handles Label39.Click
|
||||
Dim cs = New cCreditSafeAPI("creditsafe")
|
||||
|
||||
If cs.authenticate() = "200" Then
|
||||
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
|
||||
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
|
||||
Dim dt As New DataTable()
|
||||
cs.getCompanyEvents(company, dt)
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim frm As New Form
|
||||
Dim dgv As New DataGridView()
|
||||
|
||||
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
|
||||
|
||||
If dgv.Columns.Contains("newValue") Then dgv.Columns("newValue").HeaderText = "Nachher"
|
||||
If dgv.Columns.Contains("oldValue") Then dgv.Columns("oldValue").HeaderText = "Vorher"
|
||||
If dgv.Columns.Contains("eventDate") Then dgv.Columns("eventDate").HeaderText = "Geändert am"
|
||||
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user