trdinin, syska
This commit is contained in:
@@ -539,7 +539,7 @@ Class TrdInvoice_FUNCTIONS
|
||||
End If
|
||||
ElseIf TRD_INVOICE.Source = "KB" Then
|
||||
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), Buchungstext, TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ, True) Then
|
||||
SQL.doSQL("UPDATE [tblKassenbuch] SET [Trdin] = 1 WHERE tblKassenbuch.Mandant='VERA' and tblKassenbuch.Niederlassung='SUA' And Konto=5033 AND convert(date,[BelegDat] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND BelegNr = " & ROW("RK_RechnungsNr"), "FMZOLL")
|
||||
SQL.doSQL("UPDATE [tblKassenbuch] SET [Trdin] = 1 WHERE tblKassenbuch.Mandant='VERA' and tblKassenbuch.Niederlassung='SUA' And Konto=5033 AND convert(date,[BelegDat] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND rksv_BelegId = " & ROW("RK_RechnungsNr"), "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -786,27 +786,40 @@ Class TrdInvoice_FUNCTIONS
|
||||
End Function
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdInvoice_Barverkauf(Mandant As String, Niederlassung As String, Konto As Integer, Optional Buchungsjahr As Integer = -1, Optional WithOrderClause As Boolean = True) 'NUR LEIHGELD-KASE ATILLA!
|
||||
getSQLString_SELECTForTrdInvoice_Barverkauf = " select
|
||||
max(tblKassenbuch.BelegDat) as RK_RechnungsDatum,max(tblKassenbuch.rksv_BelegId) as RK_RechnungsNr,max(tblKassenbuch.BelegDat) AS RK_Abfertigungsdatum, min([tblEABelegnummer].FilialenNr) as RK_FilialenNr, min([tblEABelegnummer].AbfertigungsNr) AS RK_AbfertigungsNr, 0 AS RK_UnterNr,
|
||||
case when SUM(soll) > 0 then
|
||||
'31' --Einnahme
|
||||
else
|
||||
'30' -- Ausgabe
|
||||
end as RK_BelegartenNr,
|
||||
ISNULL(MIN(Buchungstext), '') + ' ' +ISNULL(MIN([LKW Kennzeichen]), '') + ' ' +ISNULL(MIN(Fahrer), '') AS RK_Buchungstext,
|
||||
case when SUM(soll) > 0 then
|
||||
MIN(KundenNr)
|
||||
else
|
||||
2700
|
||||
end as RK_KundenNrZentrale,
|
||||
0 AS RK_RechnungsKundenNr, 'AT' AS RK_RechnungsLandKz, '' AS RK_RechnungsUstIdKz,
|
||||
''AS RK_RechnungsUstIdNr, 0 AS RK_Lastschrift, 0 AS RK_Steuerschlüssel, 0 AS RK_SteuersatzProzent, 'EUR' AS RK_Währungscode,
|
||||
0 AS RK_Nettozahlungsziel, 7 as Firma_ID,0 AS RK_SteuerpflichtigerBetrag, (SUM(soll) + SUM(haben)) AS RK_SteuerfreierBetrag,
|
||||
0 AS RK_Steuerbetrag, (SUM(soll) + SUM(haben)) AS RK_Rechnungsbetrag,Count(1) AS RK_Satzzähler,'' as VZ,1 as BV,'KB' as Source
|
||||
FROM [tblKassenbuch]
|
||||
inner join [tblEABelegnummer] on [tblEABelegnummer].Mandant=tblKassenbuch.Mandant AND [tblEABelegnummer].Niederlassung=tblKassenbuch.Niederlassung AND [tblEABelegnummer].Benutzer=tblKassenbuch.Benutzer AND [tblEABelegnummer].BelegDat=tblKassenbuch.BelegDat AND [tblEABelegnummer].BelegNr=tblKassenbuch.BelegNr
|
||||
getSQLString_SELECTForTrdInvoice_Barverkauf = " select max(tblKassenbuch.BelegDat) as RK_RechnungsDatum,max(tblKassenbuch.rksv_BelegId) as RK_RechnungsNr,max(tblKassenbuch.BelegDat) AS RK_Abfertigungsdatum, min([tblEABelegnummer].FilialenNr) as RK_FilialenNr, min([tblEABelegnummer].AbfertigungsNr) AS RK_AbfertigungsNr, 0 AS RK_UnterNr,
|
||||
case when SUM(soll) > 0 then
|
||||
'Einnahme-LG'
|
||||
else
|
||||
'Ausgabe-LG'
|
||||
end as RP_LeistungsBez,
|
||||
0 as RP_Steuerpflichtig,
|
||||
min(Buchungstext) as RK_Buchungstext,
|
||||
110 as RP_LeistungsNr,
|
||||
0 AS RK_KundenNrZentrale,
|
||||
0 AS RK_RechnungsKundenNr,
|
||||
'AT' AS RK_RechnungsLandKz,
|
||||
'' AS RK_RechnungsUstIdKz,
|
||||
''AS RK_RechnungsUstIdNr,
|
||||
0 AS RK_Lastschrift,
|
||||
0 AS RK_Steuerschlüssel,
|
||||
0 AS RK_SteuersatzProzent,
|
||||
'EUR' AS RK_Währungscode,
|
||||
0 AS RK_Nettozahlungsziel,
|
||||
7 as Firma_ID,
|
||||
0 AS RP_SteuerpflichtigerBetrag,
|
||||
(SUM(soll) + SUM(haben)) AS RP_SteuerfreierBetrag,
|
||||
0 AS RK_Steuerbetrag,
|
||||
(SUM(soll) + SUM(haben)) AS RK_Rechnungsbetrag,
|
||||
Count(1) AS RP_Satzzähler,
|
||||
'' as VZ,
|
||||
1 as BV,
|
||||
'KB' as Source,
|
||||
'' as RP_Belegdaten,
|
||||
'' as AufschubkontoNr
|
||||
FROM [tblKassenbuch]
|
||||
inner join [tblEABelegnummer] on [tblEABelegnummer].Mandant=tblKassenbuch.Mandant AND [tblEABelegnummer].Niederlassung=tblKassenbuch.Niederlassung AND [tblEABelegnummer].Benutzer=tblKassenbuch.Benutzer AND [tblEABelegnummer].BelegDat=tblKassenbuch.BelegDat AND [tblEABelegnummer].BelegNr=tblKassenbuch.BelegNr
|
||||
WHERE tblKassenbuch.Mandant='" & Mandant & "' and tblKassenbuch.Niederlassung='" & Niederlassung & "' And Konto= " & Konto & " and Trdin = 0 " & If(Buchungsjahr > 0, " and Year(cast(Buchungsdatum as date)) =" & Buchungsjahr, "") & "
|
||||
group by tblKassenbuch.rksv_BelegId, KundenNr"
|
||||
group by tblKassenbuch.rksv_BelegId, KundenNr HAVING case when SUM(soll) > 0 then MIN(KundenNr) else 2700 end > 0"
|
||||
|
||||
If WithOrderClause Then
|
||||
getSQLString_SELECTForTrdInvoice_Barverkauf &= " ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
|
||||
@@ -837,7 +850,7 @@ Class TrdInvoice_FUNCTIONS
|
||||
End Function
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdProduct_Barverkauf(RechnungsDatum As Date, RechnungsNr As Integer, Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
|
||||
getSQLString_SELECTForTrdProduct_Barverkauf = " select max(BelegDat) as RK_RechnungsDatum,max(rksv_BelegId) as RK_RechnungsNr,max(BelegDat) AS RK_Abfertigungsdatum, min(FilialenNr) as RK_FilialenNr, min(AbfertigungsNr) AS RK_AbfertigungsNr, min(UnterNr) AS RK_UnterNr,
|
||||
getSQLString_SELECTForTrdProduct_Barverkauf = " select max(tblKassenbuch.BelegDat) as RK_RechnungsDatum,max(tblKassenbuch.rksv_BelegId) as RK_RechnungsNr,max(tblKassenbuch.BelegDat) AS RK_Abfertigungsdatum, min([tblEABelegnummer].FilialenNr) as RK_FilialenNr, min([tblEABelegnummer].AbfertigungsNr) AS RK_AbfertigungsNr, 0 AS RK_UnterNr,
|
||||
case when SUM(soll) > 0 then
|
||||
'Einnahme-LG'
|
||||
else
|
||||
@@ -867,8 +880,10 @@ Class TrdInvoice_FUNCTIONS
|
||||
'KB' as Source,
|
||||
'' as RP_Belegdaten,
|
||||
'' as AufschubkontoNr
|
||||
FROM [tblKassenbuch] where tblKassenbuch.Mandant='VERA' and tblKassenbuch.Niederlassung='SUA' And Konto=5033
|
||||
group by rksv_BelegId
|
||||
HAVING max(BelegDat)='" & RechnungsDatum.ToShortDateString & "' AND rksv_BelegId=" & RechnungsNr
|
||||
FROM [tblKassenbuch]
|
||||
inner join [tblEABelegnummer] on [tblEABelegnummer].Mandant=tblKassenbuch.Mandant AND [tblEABelegnummer].Niederlassung=tblKassenbuch.Niederlassung AND [tblEABelegnummer].Benutzer=tblKassenbuch.Benutzer AND [tblEABelegnummer].BelegDat=tblKassenbuch.BelegDat AND [tblEABelegnummer].BelegNr=tblKassenbuch.BelegNr
|
||||
where tblKassenbuch.Mandant='VERA' and tblKassenbuch.Niederlassung='SUA' And Konto=5033
|
||||
group by tblKassenbuch.rksv_BelegId
|
||||
HAVING max(tblKassenbuch.BelegDat)='" & RechnungsDatum.ToShortDateString & "' AND tblKassenbuch.rksv_BelegId=" & RechnungsNr
|
||||
End Function
|
||||
End Class
|
||||
@@ -364,10 +364,6 @@ Public Class cSyska_Interface
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
If r("Buchungstext").ToString.Contains("26000033") Then
|
||||
Dim test As String = ""
|
||||
End If
|
||||
|
||||
Dim curDifferenzbetrag As Double = 0
|
||||
If r("WährungFremd") Is DBNull.Value Then
|
||||
curDifferenzbetrag = Math.Round(If(r("RechnungsbetragLokal") < 0, 0 - r("RechnungsbetragLokal"), r("RechnungsbetragLokal")), 2)
|
||||
|
||||
Reference in New Issue
Block a user