Gesamtsicherheiten - Excelexport.
This commit is contained in:
@@ -187,6 +187,9 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim Firma As New VERAG_PROG_ALLGEMEIN.cFirmen(firmaId)
|
||||
|
||||
|
||||
Dim gsnr As String
|
||||
Dim counter = 0
|
||||
For Each n In list
|
||||
@@ -198,51 +201,68 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Next
|
||||
|
||||
Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'ATB Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',
|
||||
[gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
|
||||
from [tblGesamtsicherheit]
|
||||
inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
|
||||
where [gs_gsnr] IN (" & gsnr & ")
|
||||
order by gs_gsId"
|
||||
'Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'ATB Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',
|
||||
' [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
|
||||
' from [tblGesamtsicherheit]
|
||||
' inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
|
||||
' where [gs_gsnr] IN (" & gsnr & ")
|
||||
' order by gs_gsId"
|
||||
|
||||
|
||||
Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'ATB Verwahrlager " & Firma.Firma_Bez & "','Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'
|
||||
From [tblGesamtsicherheit]
|
||||
Where [gs_gsnr] In (" & gsnr & ")
|
||||
|
||||
UNION
|
||||
Select gsp_gsnr, [gsp_ATCNr],'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag]*-1, [gsp_freitext],[gsp_art],[gsp_ust]
|
||||
From [tblGesamtsicherheitsPositionen]
|
||||
|
||||
where [gsp_gsnr] In (" & gsnr & ")
|
||||
order by Datum, Uhrzeit"
|
||||
|
||||
|
||||
|
||||
dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
|
||||
|
||||
|
||||
dtSicherheiten.Columns.Add("SSaldo")
|
||||
dtSicherheiten.Columns.Add("Saldo")
|
||||
|
||||
Dim drFirst = dtSicherheiten.NewRow
|
||||
drFirst.Item("ATB Verwahrlager") = "Uebertrag vom " & datumVon
|
||||
drFirst.Item("SSaldo") = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
|
||||
drFirst.Item("Nr") = 0
|
||||
drFirst.Item("Typ") = "Uebertrag vom"
|
||||
drFirst.Item("Datum") = CDate(datumVon).ToShortDateString
|
||||
drFirst.Item("Saldo") = SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_datum='" & CDate(datumVon).ToShortDateString & "' order by gs_datum asc", "AVISO",,, 500000) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
|
||||
|
||||
dtSicherheiten.Rows.InsertAt(drFirst, 0)
|
||||
|
||||
|
||||
Dim sicherheitsbetragATBs As Double
|
||||
Dim sicherheitsbetragATCs As Double
|
||||
Dim sicherheitsbetrag As Double
|
||||
Dim saldo As Double
|
||||
Dim c1 As Double
|
||||
Dim saldoStart As Double
|
||||
|
||||
For i As Integer = 1 To dtSicherheiten.Rows.Count - 1
|
||||
|
||||
saldoStart = CDbl(dtSicherheiten.Rows(0).Item("SSaldo"))
|
||||
saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("SSaldo"))
|
||||
sicherheitsbetragATCs = CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag"))
|
||||
sicherheitsbetragATBs = CDbl(dtSicherheiten.Rows(i).Item("Sicherheitsbetrag2"))
|
||||
saldoStart = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
|
||||
saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("Saldo"))
|
||||
|
||||
c1 = saldo - sicherheitsbetragATCs + sicherheitsbetragATBs
|
||||
sicherheitsbetrag = IIf(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc") IsNot Nothing, CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc")), 0)
|
||||
|
||||
dtSicherheiten.Rows(i)("SSaldo") = c1
|
||||
c1 = saldo + sicherheitsbetrag
|
||||
|
||||
dtSicherheiten.Rows(i)("Saldo") = c1
|
||||
Next
|
||||
|
||||
Dim drLast = dtSicherheiten.NewRow
|
||||
drLast.Item("ATB Verwahrlager") = "Saldo zum " & datumBis
|
||||
drLast.Item("SSaldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("SSaldo"))
|
||||
|
||||
drLast.Item("Nr") = 0
|
||||
drLast.Item("Typ") = "Saldo zum"
|
||||
drLast.Item("Saldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo"))
|
||||
|
||||
dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
|
||||
|
||||
dtSicherheiten.Columns.Remove("Saldo")
|
||||
|
||||
'dtSicherheiten.Columns.Remove("Sicherheitbetrag_Calc")
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
|
||||
Reference in New Issue
Block a user