neu
This commit is contained in:
@@ -236,7 +236,7 @@
|
||||
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
|
||||
ORDER BY Rechnungsdatum, Rechnungsnummer "
|
||||
' --and IVO.Rechnungsnummer=19400002
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
@@ -271,7 +271,7 @@
|
||||
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
|
||||
ORDER BY Rechnungsdatum, Rechnungsnummer "
|
||||
' --and IVO.Rechnungsnummer=19400002
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 300)
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
|
||||
|
||||
End Function
|
||||
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String
|
||||
|
||||
@@ -98,7 +98,7 @@ Public Class cSyska_Interface
|
||||
getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab
|
||||
getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab
|
||||
getPersonenKto &= "00" & vbTab 'Skontotage
|
||||
getPersonenKto &= If(row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab
|
||||
getPersonenKto &= If(row("ZZiel") IsNot DBNull.Value AndAlso row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab
|
||||
getPersonenKto &= "00,00" & vbTab 'Skonto
|
||||
getPersonenKto &= "01" & vbTab 'Mahnkennung
|
||||
getPersonenKto &= FormatStringSYS(row("UST-Id-Nummer"), 50) & vbTab
|
||||
@@ -517,7 +517,7 @@ Public Class cSyska_Interface
|
||||
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/
|
||||
ORDER BY Rechnungsdatum, Rechnungsnummer "
|
||||
' --and IVO.Rechnungsnummer=19400002
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
|
||||
|
||||
End Function
|
||||
|
||||
@@ -568,7 +568,7 @@ Public Class cSyska_Interface
|
||||
GROUP BY Sachkonto,IVO.Rechnungsdatum,IVO.Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] ,BelegartenNr,WährungFremd,WährungLokal
|
||||
ORDER BY Rechnungsdatum, Rechnungsnummer "
|
||||
' --and IVO.Rechnungsnummer=19400002
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
|
||||
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
|
||||
|
||||
End Function
|
||||
|
||||
@@ -1282,47 +1282,138 @@ Public Class cSyska_Interface
|
||||
' End Function
|
||||
|
||||
|
||||
Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
|
||||
Public Shared Sub OP_Einlesen_ALL(Optional KdNr As Integer = -1)
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT Firma_ID FROM tblFirma ORDER BY tblFirma.Firma_ID", "FMZOLL")
|
||||
|
||||
Dim dt_OP As DataTable = SQL.loadDgvBySql("SELECT * FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) " & If(KdNr > 0, " AND i_personenkonto='" & KdNr & "'", "") & " ORDER BY i_personenkonto, d_rechnung, c_urbelegid", "FIBU")
|
||||
|
||||
If dt_OP IsNot Nothing Then
|
||||
|
||||
|
||||
If OP_DELETE(Firma_ID, KdNr) Then
|
||||
|
||||
|
||||
For Each r_OP In dt_OP.Rows
|
||||
|
||||
Try
|
||||
|
||||
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()
|
||||
|
||||
OP.Kontonummer = r_OP("i_personenkonto")
|
||||
OP.Belegnummer = r_OP("c_urbelegid")
|
||||
OP.Belegdatum = r_OP("d_rechnung")
|
||||
OP.Fälligkeitsdatum = r_OP("d_netto")
|
||||
OP.Bruttobetrag = r_OP("eur_bruttobetrag")
|
||||
OP.Waehrung = "EUR"
|
||||
OP.Gesamtausstand = r_OP("eur_bruttobetrag") + r_OP("eur_zahlung")
|
||||
OP.Buchungstext = r_OP("c_bemerkung")
|
||||
OP.Mahnstufe = r_OP("si_mahnstufe")
|
||||
OP.Mahndatum = r_OP("d_mahnung")
|
||||
OP.Firma_ID = r_OP("i_firm_refid")
|
||||
|
||||
OP.SAVE()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Next
|
||||
|
||||
Else
|
||||
MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
|
||||
End If
|
||||
If dt IsNot Nothing Then
|
||||
For Each r_firma In dt.Rows
|
||||
OP_Einlesen(r_firma("Firma_ID"), KdNr)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
|
||||
Try
|
||||
Dim OP_ID_CNT = 0
|
||||
If OP_ID_CNT < 1000000 Then OP_ID_CNT = 1000000 * Firma_ID
|
||||
|
||||
Dim dt_OP As DataTable = SQL.loadDgvBySql("SELECT * FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) " & If(KdNr > 0, " AND i_personenkonto='" & KdNr & "'", "") & " ORDER BY i_personenkonto, d_rechnung, c_urbelegid", "FIBU")
|
||||
|
||||
If dt_OP IsNot Nothing Then
|
||||
Dim KumSaldoEUR As Double = 0
|
||||
Dim tmpFirma_Id As Integer = -1
|
||||
Dim tmpKonotnr As Integer = -1
|
||||
|
||||
' If OP_DELETE(Firma_ID, KdNr) Then
|
||||
If OP_DELETE(Firma_ID, KdNr) Then
|
||||
|
||||
For Each r_OP In dt_OP.Rows
|
||||
|
||||
Try
|
||||
If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt
|
||||
|
||||
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()
|
||||
|
||||
OP.OP_ID = OP_ID_CNT
|
||||
OP.Kontonummer = r_OP("i_personenkonto")
|
||||
OP.Belegnummer = r_OP("c_urbelegid")
|
||||
OP.Belegdatum = r_OP("d_rechnung")
|
||||
OP.Fälligkeitsdatum = r_OP("d_netto")
|
||||
OP.Bruttobetrag = r_OP("eur_bruttobetrag")
|
||||
OP.Waehrung = "EUR"
|
||||
OP.Gesamtausstand = r_OP("eur_bruttobetrag") + r_OP("eur_zahlung")
|
||||
OP.Buchungstext = r_OP("c_bemerkung")
|
||||
OP.Mahnstufe = r_OP("si_mahnstufe")
|
||||
OP.Mahndatum = r_OP("d_mahnung")
|
||||
OP.Firma_ID = r_OP("i_firm_refid")
|
||||
|
||||
|
||||
'Erstmals setzen:
|
||||
If tmpFirma_Id < 0 Then tmpFirma_Id = OP.Firma_ID
|
||||
If tmpKonotnr < 0 Then tmpKonotnr = OP.Kontonummer
|
||||
|
||||
If tmpKonotnr <> OP.Kontonummer Or tmpFirma_Id <> OP.Firma_ID Then
|
||||
KumSaldoEUR = 0 'Zurücksetzen, wenn anderer Kunde, oder andere Firma
|
||||
End If
|
||||
KumSaldoEUR += OP.Gesamtausstand 'um Betrag erhöhen
|
||||
OP.KumSaldoEUR = KumSaldoEUR 'Kumsalde in DB
|
||||
|
||||
' MsgBox(OP.Belegnummer)
|
||||
|
||||
OP.INSERT()
|
||||
|
||||
OP_ID_CNT += 1
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Next
|
||||
|
||||
Else
|
||||
MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
' strSQL = "SELECT [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer, [Offene Posten].Gesamtausstand, [Offene Posten].KumSaldoEUR" & _
|
||||
' " FROM [Offene Posten]" & _
|
||||
' " ORDER BY [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer;"
|
||||
'5180 Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
|
||||
'5190 With rst
|
||||
'5200 If Not .EOF Then
|
||||
'5210 lngKontonummer = !Kontonummer
|
||||
'5220 intFirma_ID = !Firma_ID
|
||||
'5230 curKumSaldoFirma = 0
|
||||
'5240 curKumSaldo = 0
|
||||
'5250 Do Until .EOF
|
||||
'5260 .Edit
|
||||
' ' Saldo je Kontonummer und Firma kumulieren.
|
||||
'5270 If lngKontonummer <> !Kontonummer Then
|
||||
'5280 strKumSaldo = CStr(curKumSaldo)
|
||||
'5290 I = InStr(strKumSaldo, ",")
|
||||
'5300 If I > 0 Then Mid(strKumSaldo, I, 1) = "."
|
||||
'5310 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));"
|
||||
'5320 dbs.Execute strSQL, dbFailOnError
|
||||
'5330 lngKontonummer = !Kontonummer
|
||||
'5340 intFirma_ID = !Firma_ID
|
||||
'5350 curKumSaldoFirma = !Gesamtausstand
|
||||
'5360 curKumSaldo = !Gesamtausstand
|
||||
'5370 Else
|
||||
'5380 curKumSaldo = curKumSaldo + !Gesamtausstand
|
||||
'5390 If intFirma_ID <> !Firma_ID Then
|
||||
'5400 intFirma_ID = !Firma_ID
|
||||
'5410 curKumSaldoFirma = !Gesamtausstand
|
||||
'5420 Else
|
||||
'5430 curKumSaldoFirma = curKumSaldoFirma + !Gesamtausstand
|
||||
'5440 End If
|
||||
'5450 End If
|
||||
'5460 !KumSaldoEUR = curKumSaldoFirma
|
||||
'5470 .Update
|
||||
'5480 .MoveNext
|
||||
'5490 Loop
|
||||
'5500 strKumSaldo = CStr(curKumSaldo)
|
||||
'5510 I = InStr(strKumSaldo, ",")
|
||||
'5520 If I > 0 Then Mid(strKumSaldo, I, 1) = "."
|
||||
'5530 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));"
|
||||
'5540 dbs.Execute strSQL, dbFailOnError
|
||||
'5550 End If
|
||||
'5560 .Close
|
||||
'5570 End With
|
||||
|
||||
|
||||
|
||||
|
||||
Public Shared Function OP_DELETE(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL("DELETE FROM [Offene Posten] where Firma_ID='" & Firma_ID & "'" & If(KdNr > 0, " AND Kontonummer='" & KdNr & "'", ""), "FMZOLL")
|
||||
|
||||
Reference in New Issue
Block a user