fix IDS, etc.
This commit is contained in:
@@ -192,7 +192,7 @@ Public Class usrCntlUSTV
|
||||
WHERE Kunden.KundenNr = " & KdSearchBox1.KdNr, "FMZOLL")
|
||||
|
||||
|
||||
OPSaldo = CInt((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
|
||||
OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
|
||||
|
||||
calcRisiko = True
|
||||
If dt.Rows.Count = 1 Then
|
||||
|
||||
@@ -643,7 +643,7 @@ Public Class frmKundenblatt
|
||||
Sub initStat()
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK
|
||||
|
||||
Dim dt = SQL.loadDgvBySql("SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR
|
||||
Dim dt = SQL.loadDgvBySql("SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR
|
||||
FROM Kunden
|
||||
WHERE Kunden.KundenNr = " & kdNr, "FMZOLL")
|
||||
|
||||
@@ -661,11 +661,15 @@ Public Class frmKundenblatt
|
||||
OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & kdNr, "FMZOLL"))
|
||||
|
||||
If dt.Rows.Count = 1 Then
|
||||
GesamtUSteuer = dt.Rows(0).Item("UStV_SummeUmsatzsteuerbetragEUR")
|
||||
GesamtErstattung = dt.Rows(0).Item("UStV_SummeErstattungsbetragEUR")
|
||||
Gesamt3470 = dt.Rows(0).Item("UStV_Summe3470BetragEUR")
|
||||
GesamtVZBetrag = dt.Rows(0).Item("UStV_SummeVZBetragEUR")
|
||||
VorschaubetrGes = dt.Rows(0).Item("UStV_SummeVorschaubetragEUR")
|
||||
End If
|
||||
|
||||
Differnezbetrag = GesamtUSteuer - GesamtErstattung
|
||||
|
||||
Risiko = OPSaldo - Differnezbetrag - Gesamt3470 + GesamtVZBetrag - VorschaubetrGes
|
||||
|
||||
txt3470Betrag.Text = Gesamt3470.ToString("C2")
|
||||
@@ -673,23 +677,23 @@ Public Class frmKundenblatt
|
||||
|
||||
'lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
|
||||
|
||||
'With dgvLeistungen
|
||||
' .DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen
|
||||
' WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1
|
||||
' AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr group by SDLBez order by Count(SDL.SDLNr) desc ")
|
||||
' .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
With dgvLeistungen
|
||||
.DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen
|
||||
WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1
|
||||
AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr group by SDLBez order by Count(SDL.SDLNr) desc ")
|
||||
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
' .RowTemplate.Height = 20
|
||||
' .AllowUserToAddRows = False
|
||||
' .AllowUserToDeleteRows = False
|
||||
' .AllowUserToOrderColumns = False
|
||||
' .AllowUserToResizeColumns = False
|
||||
' .AllowUserToResizeRows = False
|
||||
' .RowTemplate.ReadOnly = True
|
||||
' .RowHeadersVisible = False
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
|
||||
|
||||
'End With
|
||||
End With
|
||||
|
||||
|
||||
'Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
|
||||
|
||||
@@ -1,6 +1,4 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmKundenlogin
|
||||
Public Class frmKundenlogin
|
||||
|
||||
Dim kdNr As Integer
|
||||
Dim Lieferant As String
|
||||
@@ -26,7 +24,7 @@ Public Class frmKundenlogin
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IDS", "Q8-TRUCK"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MSE", "MSTSTTOLLS"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEPASS", "HUB4TRUCKS"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA", "EDENRED-CONNECT"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA", "UTA PORTAL"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLOSE", "PLOSE APR"))
|
||||
cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA-INTERN", "UTA-INTERN"))
|
||||
|
||||
@@ -117,7 +115,7 @@ Public Class frmKundenlogin
|
||||
|
||||
Select Case txtPortal.Text
|
||||
Case "Q8-TRUCK" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "EDENRED-CONNECT" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "UTA PORTAL" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "PLOSE APR" : link.AccessibleDescription = "https://www.apr.plose.it/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "MSTSTTOLLS" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
|
||||
Case "HUB4TRUCKS" : link.AccessibleDescription = "https://truck.telepass.com/api/uaa/login" : link.Text = cboLieferant.Text & "-Link"
|
||||
|
||||
@@ -186,8 +186,8 @@ Public Class usrCntlKundenlogin
|
||||
|
||||
Select Case Portal
|
||||
Case "Q8-TRUCK" : link = "https://iaccount.q8.com/"
|
||||
Case "EDENRED-CONNECT" : link = "https://meinedenred.at/login"
|
||||
Case "PLOSE" : link = "https://www.apr.plose.it/login"
|
||||
Case "UTA PORTAL" : link = "https://meinedenred.at/login"
|
||||
Case "PLOSE ARP" : link = "https://www.apr.plose.it/login"
|
||||
Case "MSTSTTOLLS" : link = "https://iaccount.q8.com/"
|
||||
Case "HUB4TRUCKS" : link = "https://truck.telepass.com/api/uaa/login"
|
||||
End Select
|
||||
|
||||
@@ -1449,7 +1449,7 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,cast(case when InvToCustomer is not null then 1 else 0 end as bit) as OrigRE ,[Country] as Land
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,cast(isnull(InvToCustomer, 0) as bit) as OrigRE ,[Country] as Land
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp)
|
||||
|
||||
If setDatatable Then
|
||||
|
||||
Reference in New Issue
Block a user