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

ustva, fremdrechnungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-15 09:45:02 +02:00
parent 3a35037e84
commit 1933cb843e
6 changed files with 232 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SDL/Creditsafe/usrcntlVAT_ATEZ.vb
View File

@@ -135,27 +135,13 @@
IIf(IsDBNull(row.Cells("seller_address_postcode").Value), "", row.Cells("seller_address_postcode").Value),
IIf(IsDBNull(row.Cells("seller_address_street").Value), "", row.Cells("seller_address_street").Value),
IIf(IsDBNull(row.Cells("seller_name").Value), "", row.Cells("seller_name").Value),
IIf(IsDBNull(row.Cells("invoice_date").Value), "", row.Cells("invoice_date").Value),
IIf(IsDBNull(row.Cells("total_VAT_amount").Value), "", row.Cells("total_VAT_amount").Value),
IIf(IsDBNull(row.Cells("total_VAT_amount").Value), "", row.Cells("total_VAT_amount").Value),
IIf(IsDBNull(row.Cells("invoice_date").Value) Or Not IsDate(row.Cells("invoice_date").Value), Nothing, CDate(row.Cells("invoice_date").Value)),
IIf(IsDBNull(row.Cells("status").Value), "", row.Cells("status").Value))
Next
If va.invoice_id Is Nothing Or va.invoice_id = "" Then
If Not createCostumer Then
lblWarning.Text = "Daten von Creditsafe sind unvollständig, es kann kein Creditreport erstellt werden!"
o.DialogResult = DialogResult.None
Else
Dim a As MsgBoxResult = MsgBox("Die Daten des Unternehmens " & va.seller_VAT_id & " sind unvollständig " & vbNewLine & "Trotzdem fortfahren?", vbYesNo)
If a = vbYes Then
o.DialogResult = DialogResult.OK
Exit Sub
Else
o.DialogResult = DialogResult.None
End If
End If
ElseIf va.status.ToLower <> "active" Then
Dim a As MsgBoxResult = MsgBox("Das Unternehmen " & va.status & " besitzt den Status: " & va.status & vbNewLine & "Trotzdem fortfahren?", vbYesNo)
If va.status.ToLower <> "success" Then
Dim a As MsgBoxResult = MsgBox("Die Rechnung " & va.invoice_id & " besitzt den Status: " & va.status & vbNewLine & "Trotzdem fortfahren?", vbYesNo)
If a = vbYes Then
o.DialogResult = DialogResult.OK
Exit Sub
@@ -173,7 +159,6 @@
End Sub
Public Class VAT
Public Property currency As String