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

bugfix

Browse Source
This commit is contained in:
d.breimaier
2025-12-19 13:51:31 +01:00
parent 55624819fc
commit ca608ec141
2 changed files with 22 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/Fakturierung/cFakturierung.vb
View File

@@ -618,11 +618,8 @@ Public Class cFakturierung
End If
'MsgBox("Firma:" & RECHNUNG.Firma_ID & " - Land:" & "" & RECHNUNG.RechnungsLandKz & " - OffertenNr:" & RECHNUNG.OffertenNr & " - TXT: " & strText)
Return strText
@@ -2116,20 +2113,21 @@ Public Class cFakturierung
rpt.lblRgDatumUeberschrift.Text = "Data nota credit:"
End Select
Case "TR" 'Todo: bekomme noch die Übersetzungen dazu: 2025-12-18
Case "TR"
Select Case RECHNUNG.BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = "INVOICE"
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
rpt.lblUeberschriftRG_GS.Text = "FATURA"
rpt.lblSummeUeberschrift.Text = "Fatura tutari:"
rpt.lblRgNrUeberschrift.Text = " Fatura nr.:"
rpt.lblRgDatumUeberschrift.Text = "Fatura thrihi:"
Case "AG"
rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE"
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
rpt.lblUeberschriftRG_GS.Text = "KREDI"
rpt.lblSummeUeberschrift.Text = "Kredi tutari:"
rpt.lblRgNrUeberschrift.Text = "Kredi nr.:"
rpt.lblRgDatumUeberschrift.Text = "Kredi thrihi:"
End Select
Case Else
Select Case RECHNUNG.BelegartenKz
Case "AR"

24
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -993,20 +993,20 @@ Public Class SQL
Else
cmd.ExecuteNonQuery()
'If id <= 0 Then
' Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn)
' id = CInt(newcmd.ExecuteScalar)
' If id = 0 Then
' Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn)
' id = CInt(newcmd2.ExecuteScalar)
' End If
'End If
If id <= 0 Then
Using newcmd2 As New SqlCommand("SELECT CONVERT(int, ISNULL(SCOPE_IDENTITY(),0))", conn)
id = CInt(newcmd2.ExecuteScalar())
End Using
Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn)
id = CInt(newcmd.ExecuteScalar)
If id = 0 Then
Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn)
id = CInt(newcmd2.ExecuteScalar)
End If
End If
'If id <= 0 Then
' Using newcmd2 As New SqlCommand("SELECT CONVERT(int, ISNULL(SCOPE_IDENTITY(),0))", conn)
' id = CInt(newcmd2.ExecuteScalar())
' End Using
'End If
End If
'Return True