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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

184
VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb
View File

@@ -2,169 +2,6 @@
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'STAMMDATEN
'Public Shared Function genStammdatenBuRef() As Boolean
' Try
' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
' Dim sqlStr = " select adressennr as [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz as [St],PLZ as [Postltz],LTRIM([Ort]) as Ort,isnull(BLZ,'') as [Bankltz],isnull(KTO,'') as [Bankkonto-Nr], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2 "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
' sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' "
' sqlStr &= " Order by [Konto-Nr] "
' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
' Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL")
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
' initKDNr(dt)
' Dim ExcelPath = cProgramFunctions.genExcelFromDT_NEW(dt, , False,,, False) '{"C1:C" & (dt.Rows.Count + 1), "C1:C" & (dt.Rows.Count + 1)})
' If ExcelPath <> "" Then
' Process.Start(ExcelPath)
' Return True
' End If
' Else
' Return True ' wenn keine da sind, auch ok...
' End If
' ' UPDATE FiBuSchnittstelle --> 0
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Return False
'End Function
''BetreibsstammSatz
''10 Personenkonten
''100 Beginn Buchungsblock
''110 Buchungen
''111 Summe/Ende Buchungsblock
'Public Shared Function genBetreibsstammSatz(Geschaeftsjahr As Integer) As String
' Return "1,0910,""" & Geschaeftsjahr & """,""0101" & Geschaeftsjahr & """,4,6,""EUR"""
'End Function
'Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String
' Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0"
'End Function
'Public Shared Function genBuchungenEnd(SummeBuchungen As Double) As String
' Return "111," & SummeBuchungen.ToString("N2").Replace(",", ".")
'End Function
'Public Shared Function genStammdatenANSI(Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True) As Boolean
' Try
' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
' Dim bool_DatenVorhanden As Boolean = False
' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
' ' Dim Encoding As New System.Text.ASCIIEncoding()
' ' Dim Encoding As New System.Text.UTF8Encoding(False)
' Dim file As System.IO.StreamWriter
' ' Dim path = DATENVERVER_OPTIONS.getTMPPath("dvo", ".txt", , False)
' Dim path = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
' Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
' path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
' pathArchiv = ""
' End If
' If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
' 'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt
' 'For Each f In IO.Directory.GetFiles(path)
' ' If f.ToString.Contains("DVO_IMP_") Then
' ' Try
' ' IO.File.Delete(f)
' ' Catch ex As Exception
' ' End Try
' ' End If
' 'Next
' Dim Dateiname = "DVO_IMP_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
' file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr))
' If boolKunden Then
' '----------------- STAMMDATEN -----------------
' Dim dt_Stamm As DataTable = getStammdaten()
' If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
' initKDNr(dt_Stamm)
' For Each r In dt_Stamm.Rows
' file.WriteLine(getPersonenKto(r))
' Next
' bool_DatenVorhanden = True
' End If
' updateFibu() ' UPDATE FiBuSchnittstelle --> 0
' '----------------- STAMMDATEN LG -----------------
' Dim dt_StammLG As DataTable = getStammdatenLG()
' If dt_StammLG IsNot Nothing AndAlso dt_StammLG.Rows.Count > 0 Then
' initKDNrLG(dt_StammLG)
' For Each r In dt_StammLG.Rows
' file.WriteLine(getPersonenKto(r))
' Next
' bool_DatenVorhanden = True
' End If
' updateFibuLG() ' UPDATE FiBuSchnittstelleLG --> 0
' '----------------------------------
' End If
' '----------------- Buchungssätze -----------------
' If boolBuchungen Then
' TrdInvoice_FUNCTIONS.TrdinSchreiben(20) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
' Dim dt_Buchungen As DataTable = getBuchungen(20)
' If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
' Try
' ' initKDNr(dt_Buchungen)
' Dim SummeBuchungen As Double = 0
' file.WriteLine(genBuchungenBeginn(Geschaeftsjahr))
' For Each r In dt_Buchungen.Rows
' file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr))
' Next
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
' bool_DatenVorhanden = True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' 'Update Filename TrdIn
' SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL")
' 'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
' End If
' End If
' '----------------------------------
' file.Close()
' 'In Archiv sichern
' If pathArchiv <> "" Then
' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
' IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
' End If
' If bool_DatenVorhanden Then
' If OpenFile Then Process.Start(path & Dateiname)
' Else
' IO.File.Delete(path & Dateiname)
' End If
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Return False
'End Function
Shared Function getStammdaten() As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] "
sqlStr &= " ,Ordnungsbegriff "
@@ -185,26 +22,7 @@
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
'Shared Function updateFibuLG() As DataTable
' Dim sqlStr = " UPDATE tblKundenErweitert "
' sqlStr &= " SET FiBuSchnittstelleLG = '0' "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
'Shared Function getStammdatenLG() As DataTable
' Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] "
' sqlStr &= " ,Ordnungsbegriff "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
' sqlStr &= " Order by [Konto-Nr] "
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
Public Shared Function getPersonenKto(row As DataRow) As String
getPersonenKto = ""
@@ -449,7 +267,7 @@
Case 23 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
End Select
genBuchungsZeile &= SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & row("Rechnungsnummer") & " and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "") & ";" 'extbelegnr
genBuchungsZeile &= SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & row("Rechnungsnummer") & " and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "") & ";".Replace(Environment.NewLine, "") 'extbelegnr
genBuchungsZeile &= If(row("BelegartenNr") = "70", "AR", "AG") & ";" ' Rg/GS 70=Rechnung 'AG ????????
genBuchungsZeile &= If(row("BelegartenNr") = "70", "1", "2") & ";" ' Rg/GS 70=Rechnung 'AG ????????