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

85
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -4,7 +4,7 @@ Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports VERAG_PROG_ALLGEMEIN.cGlobal
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Reflection
Public Class cSqlDb
@@ -942,6 +942,7 @@ Public Class cAviso
Property Warenort As Boolean = False
Property ZOLLDigitalEingereicht As Boolean = False
Property Transportmittelart As Object = Nothing
Public VORPAPIERE As New List(Of cAvisoVorpapier)
@@ -974,6 +975,80 @@ Public Class cAviso
Return dt
End Function
'Shared Function getAviso_WEB(hID, Optional where = "") As cAviso
' sadf
' Dim AVISODAL As New cAvisoDAL
' Return AVISODAL.LesenAviso(hID, hSQL)
'End Function
Public Shared Function GET_KDLIST_WEB(ART As String, KundenNr As Integer, Optional Status() As Integer = Nothing, Optional von As Object = Nothing, Optional bis As Object = Nothing, Optional Absender As String = "", Optional Empfänger As String = "", Optional LKW_Nr As String = "", Optional KdAuftragsNr As String = "") As DataTable
Dim dt As New DataTable
Dim SQL As New SQL
Try
Dim sqlWHERE = ""
' sqlWHERE &= " AND KundenNr LIKE @KundenNr"
If LKW_Nr <> "" Then sqlWHERE &= " AND LKW_Nr LIKE @LKW_Nr"
If Empfänger <> "" Then sqlWHERE &= " AND Empfänger LIKE @Empfänger"
If Absender <> "" Then sqlWHERE &= " AND Absender LIKE @Absender"
If KdAuftragsNr <> "" Then sqlWHERE &= " AND KdAuftragsNr LIKE @KdAuftragsNr"
If von IsNot Nothing Then
If bis IsNot Nothing Then
sqlWHERE &= " AND AvisoEingang BETWEEN @AvisoEingang AND @AvisoEingangBIS"
Else
sqlWHERE &= " AND AvisoEingang >= @AvisoEingang"
End If
End If
'Alle Einträge in Status druchlaufen
Dim statusWhere = ""
If Status IsNot Nothing AndAlso Status.Count > 0 Then
statusWhere = " AND Status IN ("
For Each st In Status
statusWhere &= "'" & st & "',"
Next
statusWhere = statusWhere.Substring(0, statusWhere.Length - 1) ' Beistrich weg
statusWhere &= ") "
End If
'Art des Kunden
Dim sqlstr = ""
Select Case ART
Case "AVISIERER"
sqlstr = "SELECT * FROM [AVISO]
WHERE (SELECT count(*) FROM tblSendungen where AvisoID=tblSnd_AvisoID AND (tblSnd_AuftraggeberKdNr=@KundenNr OR tblSnd_AvisiererKdNr=@KundenNr OR tblSnd_FrachtfuehrerKdNr=@KundenNr))>0
"
Case "EMPFAENGER"
sqlstr = "SELECT * FROM [AVISO]
WHERE (SELECT count(*) FROM tblSendungen where AvisoID=tblSnd_AvisoID AND (tblSnd_EmpfaengerKdNr = @KundenNr OR tblSnd_AbsenderKdNr =@KundenNr OR tblSnd_AuftraggeberKdNr=@KundenNr OR tblSnd_AvisiererKdNr=@KundenNr ))>0 "
Case Else 'Default, alle KdNr-Felder
sqlstr = "SELECT * FROM [AVISO]
WHERE (SELECT count(*) FROM tblSendungen where AvisoID=tblSnd_AvisoID AND ( tblSnd_AbsenderKdNr =@KundenNr OR tblSnd_EmpfaengerKdNr = @KundenNr OR tblSnd_AuftraggeberKdNr=@KundenNr OR tblSnd_AvisiererKdNr=@KundenNr OR tblSnd_FrachtfuehrerKdNr=@KundenNr ))>0 "
End Select
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Nr", LKW_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoEingang", von))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoEingangBIS", bis))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
dt = SQL.loadDgvBySql_Param(sqlstr & sqlWHERE & " ORDER BY Status desc, Ankunft, Freigabe, Datum ", "AVISO",, list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return dt
End Function
Sub UPDATE_FahrerHandy(FahrerHandy As String)
If AvisoID <= 0 Then Exit Sub
If If(FahrerHandy, "") = "" Then Exit Sub
@@ -1105,6 +1180,7 @@ Public Class cAvisoDAL
daten.VORSYSTEM = If(dr.Item("VORSYSTEM") Is DBNull.Value, Nothing, dr.Item("VORSYSTEM"))
daten.Warenort = If(dr.Item("Warenort") Is DBNull.Value, Nothing, dr.Item("Warenort"))
daten.ZOLLDigitalEingereicht = If(dr.Item("ZOLLDigitalEingereicht") Is DBNull.Value, Nothing, dr.Item("ZOLLDigitalEingereicht"))
daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart"))
@@ -1378,17 +1454,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht) VALUES (" &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht); SELECT CAST(scope_identity() AS int);"
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,FIRMA=@FIRMA" &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,FIRMA=@FIRMA" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1459,6 +1535,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@VoraussichtlichesEintreffen", If(d.VoraussichtlichesEintreffen Is Nothing, DBNull.Value, d.VoraussichtlichesEintreffen))
cmd.Parameters.AddWithValue("@Warenort", d.Warenort)
cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht)
cmd.Parameters.AddWithValue("@Transportmittelart", If(d.Transportmittelart, ""))
Try

28
VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb
View File

@@ -38,18 +38,18 @@ Public Class cVermerkeCodes_LIST
End Sub
Public Function getTxt(VermerkCodeId, language) As String
For Each l In LIST
If l.VermerkCodeId = VermerkCodeId Then
For Each li In LIST
If li.VermerkCodeId = VermerkCodeId Then
Select Case language
Case "EN" : If l.Beschreibung_EN <> "" Then Return l.Beschreibung_EN
Case "TR" : If l.Beschreibung_TR <> "" Then Return l.Beschreibung_TR
Case "SRB", "YU" : If l.Beschreibung_SRB <> "" Then Return l.Beschreibung_SRB
Case "RO" : If l.Beschreibung_RO <> "" Then Return l.Beschreibung_RO
Case "BG" : If l.Beschreibung_BG <> "" Then Return l.Beschreibung_BG
Case "HU" : If l.Beschreibung_HU <> "" Then Return l.Beschreibung_HU
Case Else : If l.Beschreibung_DE <> "" Then Return l.Beschreibung_DE
Case "EN" : If li.Beschreibung_EN <> "" Then Return li.Beschreibung_EN
Case "TR" : If li.Beschreibung_TR <> "" Then Return li.Beschreibung_TR
Case "SRB", "YU" : If li.Beschreibung_SRB <> "" Then Return li.Beschreibung_SRB
Case "RO" : If li.Beschreibung_RO <> "" Then Return li.Beschreibung_RO
Case "BG" : If li.Beschreibung_BG <> "" Then Return li.Beschreibung_BG
Case "HU" : If li.Beschreibung_HU <> "" Then Return li.Beschreibung_HU
Case Else : If li.Beschreibung_DE <> "" Then Return li.Beschreibung_DE
End Select
Return l.Bezeichnung
Return li.Bezeichnung
End If
Next
Return ""
@@ -122,13 +122,13 @@ Public Class cVermerkeCodes
cmd.Parameters.AddWithValue("@VermerkCodeId", VermerkCodeId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

20
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb
View File

@@ -154,18 +154,18 @@ Public Class MyComboBox
Me.Items.Clear()
For Each l In listItems
If l IsNot Nothing Then
For Each li In listItems
If li IsNot Nothing Then
Dim lanTxt = l.Text
Dim lanTxt = li.Text
For Each txt In lanTxtAll
If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = l.Text Then
lanTxt = txt.trs_text
End If
Next
' Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text))
' MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text))
Me.Items.Add(New MyListItem(lanTxt, l.Value))
If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = li.Text Then
lanTxt = txt.trs_text
End If
Next
' Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text))
' MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text))
Me.Items.Add(New MyListItem(lanTxt, li.Value))
End If
Next

3
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb generated
View File

@@ -22,8 +22,9 @@ Partial Class frmPDFScanList
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip()
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb
View File

@@ -10,10 +10,8 @@ Public Class frmPDFScanList
Public Event FileAdded(ScanID As Integer, path As String, name As String)
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub

17
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.Designer.vb generated
View File

@@ -28,22 +28,29 @@ Partial Class usrcntlUnterposEntry
'
'txtAnzahl
'
Me.txtAnzahl._DateTimeOnly = False
Me.txtAnzahl._numbersOnly = True
Me.txtAnzahl._numbersOnlyKommastellen = ""
Me.txtAnzahl._Prozent = False
Me.txtAnzahl._ShortDateNew = False
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._value = Nothing
Me.txtAnzahl._ShortDateOnly = False
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Location = New System.Drawing.Point(3, 0)
Me.txtAnzahl.MaxLength = 2
Me.txtAnzahl.MaxLength = 4
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(28, 20)
Me.txtAnzahl.Size = New System.Drawing.Size(41, 20)
Me.txtAnzahl.TabIndex = 106
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(37, 3)
Me.lblBezeichnung.Location = New System.Drawing.Point(45, 3)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(28, 13)
Me.lblBezeichnung.TabIndex = 107

16
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
View File

@@ -71,8 +71,8 @@
End If
Dim found = False
For Each l In BER_LIST.LIST
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
For Each lber In BER_LIST.LIST
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.bero_progId = prog_Id Then
found = True : Exit For
End If
Next
@@ -81,15 +81,15 @@
Return 99
End If
For Each l In BER_LIST.LIST
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
For Each ll In l.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
For Each b In benutzerBer.LIST
If b.berbgz_progId = prog_Id Then 'BenutzerProg = Prog
For Each lber In BER_LIST.LIST
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.bero_progId = prog_Id Then
For Each ll In lber.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
For Each bb In benutzerBer.LIST
If bb.berbgz_progId = prog_Id Then 'BenutzerProg = Prog
If ll.beroz_berechtigungsstufe >= 100 Then Return ll.beroz_berechtigungsstufe 'Größer als 3 stellen --> immer priorität
If ll.beroz_art = "G" And ll.beroz_bergrId = b.berbgz_bergrId Then 'GruppenBerchtigung
If ll.beroz_art = "G" And ll.beroz_bergrId = bb.berbgz_bergrId Then 'GruppenBerchtigung
'gefunden!
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
ElseIf ll.beroz_art = "N" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then

8
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekteZuordnung.vb
View File

@@ -34,13 +34,13 @@ Public Class cBerechtigungsObjekteZuordnung
cmd.Parameters.AddWithValue("@beroz_id", beroz_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
End If

3
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -525,7 +525,7 @@ Public Class SQL
End Function
Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String
Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "", Optional timeout As Integer = 0) As String
Try
If conn Is Nothing Then
@@ -547,6 +547,7 @@ Public Class SQL
End If
Using cmd As New SqlCommand(sql, conn)
If timeout > 0 Then cmd.CommandTimeout = timeout
If List IsNot Nothing Then
For Each i In List
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))

9
VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
View File

@@ -5,6 +5,7 @@ Imports System.Reflection
Public Class _BASE
Property _BASE_id As Integer
Property _BASE_value As Object = Nothing
Property _BASE_value2 As Object = Nothing
Public hasEntry = False
@@ -45,13 +46,13 @@ Public Class _BASE
cmd.Parameters.AddWithValue("@_BASE_id", _BASE_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
View File

@@ -116,13 +116,13 @@ Public Class cAbgaben
cmd.Parameters.AddWithValue("@Index", [Index])
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -146,13 +146,13 @@ Public Class cAbgaben
cmd.Parameters.AddWithValue("@Betrag", CDbl(Betrag))
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb
View File

@@ -84,13 +84,13 @@ Public Class cAbrechnung_NCTSBrg
cmd.Parameters.AddWithValue("@abrg_Id", abrg_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

10
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -187,9 +187,9 @@ Public Class cAdressen
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
For Each li In getParameterList()
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
' MsgBox(l.Text)
' MsgBox(propInfo.PropertyType.ToString)
' propInfo.SetValue(GetType(Object), l.Text)
@@ -197,11 +197,11 @@ Public Class cAdressen
'propInfo.SetValue(Me, l.Text)
' Try
test = l.Text
If dr.Item(l.Text) Is DBNull.Value Then
test = li.Text
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
' Catch ex As Exception

120
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb Normal file
View File

@@ -0,0 +1,120 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAufschubKonten
Property brgakto_id As Integer
Property brgakto_bez As String
Property brgakto_betrag As Decimal
Property brgakto_ktonr As String
Property brgakto_warn1 As Decimal
Property brgakto_warn2 As Decimal
Public hasEntry = False
Dim SQL As New SQL
Sub New(brgakto_id)
Me.brgakto_id = brgakto_id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_id", brgakto_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_bez", brgakto_bez))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_betrag", brgakto_betrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_ktonr", brgakto_ktonr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn1", brgakto_warn1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn2", brgakto_warn2))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id ", conn)
cmd.Parameters.AddWithValue("@brgakto_id", brgakto_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblBrgAufschubKonten] SET " & str & " WHERE brgakto_id=@brgakto_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblBrgAufschubKonten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -97,13 +97,13 @@ Public Class cAvisoAnhaenge
cmd.Parameters.AddWithValue("@anh_id", anh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
View File

@@ -154,13 +154,13 @@ Public Class cAvisoBenachrichtigungen
cmd.Parameters.AddWithValue("@ab_id", ab_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -88,13 +88,13 @@ Public Class cBonitaetsauskunft
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In BONI.getParameterList()
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(l.Scalarvariable)
For Each li In BONI.getParameterList()
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(BONI, Nothing)
Else
propInfo.SetValue(BONI, dr.Item(l.Text))
propInfo.SetValue(BONI, dr.Item(li.Text))
End If
Next
@@ -117,13 +117,13 @@ Public Class cBonitaetsauskunft
cmd.Parameters.AddWithValue("@ba_id", ba_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb
View File

@@ -40,13 +40,13 @@ Public Class cDEBundeslaenderPLZ
cmd.Parameters.AddWithValue("@PLZ", PLZ)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()

16
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
View File

@@ -71,13 +71,13 @@ Public Class cDHF_Anhaenge
cmd.Parameters.AddWithValue("@dhfanh_id", dhfanh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -99,13 +99,13 @@ Public Class cDHF_Anhaenge
cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cERS.vb
View File

@@ -103,13 +103,13 @@ Public Class cERS
cmd.Parameters.AddWithValue("@ers_id", ers_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
View File

@@ -72,13 +72,13 @@ Public Class cEZB_Waehrungskurse
cmd.Parameters.AddWithValue("@ezb_waehrungscode", ezb_waehrungscode)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
View File

@@ -68,13 +68,13 @@ Public Class cEZT_ImportCodenummern
cmd.Parameters.AddWithValue("@ezt_id", ezt_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

4
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -56,8 +56,8 @@ Public Class cEmailBenachrichtigungList
End Sub
Function SAVE()
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
For Each l In LIST
If Not l.INSERT() Then Return False
For Each li In LIST
If Not li.INSERT() Then Return False
Next
Return True
Else

8
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
View File

@@ -82,13 +82,13 @@ Public Class cFirmen
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb
View File

@@ -64,13 +64,13 @@ Public Class cFremdSpeditionenZuordnung
cmd.Parameters.AddWithValue("@fremdz_Id", fremdz_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb
View File

@@ -65,13 +65,13 @@ Public Class cGelangensbestaetigung
cmd.Parameters.AddWithValue("@gb_nr", gb_nr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
View File

@@ -61,13 +61,13 @@ Public Class cGestellungsgarantien
cmd.Parameters.AddWithValue("@gg_Id", gg_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb
View File

@@ -80,13 +80,13 @@ Public Class cGestellungsmitteilung
cmd.Parameters.AddWithValue("@gstm_id", gstm_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -107,13 +107,13 @@ Public Class cGestellungsmitteilung
cmd.Parameters.AddWithValue("@gstm_AvisoId", gstm_AvisoId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

12
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -213,7 +213,7 @@ Public Class cKunde
Me.Zahlungsziel = 10
Me.Sammelrechnung = 0
Me.Steuerschlüssel = 10
Me.Kreditlimit = 2600
Me.Kreditlimit = 0 '2600
Me.Überwachungskunde = 0
Me.Abfertigungsverbot = 0
Me.Rechtsanwalt = 0
@@ -265,9 +265,9 @@ Public Class cKunde
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
For Each li In getParameterList()
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
' MsgBox(l.Text)
' MsgBox(propInfo.PropertyType.ToString)
' propInfo.SetValue(GetType(Object), l.Text)
@@ -275,11 +275,11 @@ Public Class cKunde
'propInfo.SetValue(Me, l.Text)
' Try
test = l.Text
If dr.Item(l.Text) Is DBNull.Value Then
test = li.Text
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
' Catch ex As Exception

32
VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
View File

@@ -18,16 +18,16 @@ Public Class cKundenAufschubkonten
Public Shared Function SAVE_LIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
SAVE_LIST = DELETE_NOT_EXIST(KundenNr, LIST)
For Each l In LIST
If Not l.SAVEByKdNrArt() Then SAVE_LIST = False
For Each li In LIST
If Not li.SAVEByKdNrArt() Then SAVE_LIST = False
Next
End Function
Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
Dim SQL As New SQL
Dim ktoNr = ""
For Each a In LIST
ktoNr &= a.kdAkto_art & ","
For Each aa In LIST
ktoNr &= aa.kdAkto_art & ","
Next
If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1)
@@ -76,13 +76,13 @@ Public Class cKundenAufschubkonten
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim KTO As New cKundenAufschubkonten
For Each l In KTO.getParameterList()
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(l.Scalarvariable)
For Each li In KTO.getParameterList()
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(KTO, Nothing)
Else
propInfo.SetValue(KTO, dr.Item(l.Text))
propInfo.SetValue(KTO, dr.Item(li.Text))
End If
Next
@@ -135,13 +135,13 @@ Public Class cKundenAufschubkonten
cmd.Parameters.AddWithValue("@kdAkto_id", kdAkto_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -163,13 +163,13 @@ Public Class cKundenAufschubkonten
cmd.Parameters.AddWithValue("@kdAkto_art", kdAkto_art)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
View File

@@ -64,13 +64,13 @@ Public Class cKundenBesonderheiten
cmd.Parameters.AddWithValue("@kdb_id", kdb_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb
View File

@@ -60,13 +60,13 @@ Public Class cKundenDatenblatt
cmd.Parameters.AddWithValue("@kdb_KundenNr", kdb_KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -155,13 +155,13 @@ Public Class cKundenErweitert
cmd.Parameters.AddWithValue("@kde_KundenNr", kde_KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

37
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -88,6 +88,8 @@ Public Class cKundenKontakte
Property kkd_kkaBez As Object = Nothing
Property kkd_Tel As Object = Nothing
Property kkd_Email As Object = Nothing
Property kkd_EmailCC As Object = Nothing
Property kkd_EmailBCC As Object = Nothing
Property kkd_Fax As Object = Nothing
Property kkd_Homepage As Object = Nothing
Property kkd_Mobil As Object = Nothing
@@ -115,6 +117,8 @@ Public Class cKundenKontakte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailCC", kkd_EmailCC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailBCC", kkd_EmailBCC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil))
@@ -137,13 +141,13 @@ Public Class cKundenKontakte
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -236,13 +240,32 @@ Public Class cKundenKontakte
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each l In KD_LIST.LIST
If l.kkd_kkaBez = bez Then Return l.kkd_Email
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_Email
Next
End If
Return ""
End Function
Shared Function getMailAdressCC(KdNr As Integer, bez As String) As String
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_EmailCC
Next
End If
Return ""
End Function
Shared Function getMailAdressBCC(KdNr As Integer, bez As String) As String
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_EmailBCC
Next
End If
Return ""
End Function
Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer
getKdNrFromMailAdress = -1
If KMail = "" Then Return -1

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb
View File

@@ -76,13 +76,13 @@ Public Class cKundenSDL
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
View File

@@ -215,13 +215,13 @@ Public Class cKundenVermerkItem
cmd.Parameters.AddWithValue("@kvm_id", kvm_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -62,13 +62,13 @@ Public Class cKundenVertraege
cmd.Parameters.AddWithValue("@kv_Id", kv_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

14
VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb
View File

@@ -41,9 +41,9 @@ Public Class cLanguageText_LIST
End Sub
Public Function getTxt(tlan_Id, tlan_language, defaultTXT) As String
For Each l In LIST
If l.tlan_Id = tlan_Id And l.tlan_language = tlan_language Then
Return l.tlan_TEXT
For Each li In LIST
If li.tlan_Id = tlan_Id And li.tlan_language = tlan_language Then
Return li.tlan_TEXT
End If
Next
Return defaultTXT
@@ -107,13 +107,13 @@ Public Class cLanguageText
cmd.Parameters.AddWithValue("@tlan_language", tlan_language)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb
View File

@@ -96,13 +96,13 @@ Public Class cLeistungen
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb
View File

@@ -62,13 +62,13 @@ Public Class cLeistungenBUKonten
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

40
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -115,13 +115,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chat_id", chat_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -319,13 +319,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMb_maId", chatMb_maId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -438,13 +438,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -595,13 +595,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMg_id", chatMg_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -760,13 +760,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
View File

@@ -79,13 +79,13 @@ Public Class cNCTSGestellungsadressen
cmd.Parameters.AddWithValue("@nga_id", nga_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

48
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
View File

@@ -406,13 +406,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -445,13 +445,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -505,13 +505,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -557,13 +557,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@MRN", MRN)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -597,13 +597,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -637,13 +637,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@GUID", GUID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb
View File

@@ -99,13 +99,13 @@ Public Class cOffene_Posten_DVO
cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb
View File

@@ -88,13 +88,13 @@ Public Class cPostversand
cmd.Parameters.AddWithValue("@post_Rolle", post_Rolle)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -132,13 +132,13 @@ Public Class cPostversand
cmd.Parameters.AddWithValue("@post_id", post_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb
View File

@@ -47,13 +47,13 @@ Public Class cProgrammeUpdate
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim UD As New cProgrammeUpdate
For Each l In cProgrammeUpdate.getParameterList(UD)
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(l.Scalarvariable)
For Each li In cProgrammeUpdate.getParameterList(UD)
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UD, Nothing)
Else
propInfo.SetValue(UD, dr.Item(l.Text))
propInfo.SetValue(UD, dr.Item(li.Text))
End If
Next
@@ -123,8 +123,8 @@ Public Class cProgrammeUpdate
Public Shared Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_DEST
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
For Each li In LIST_DEST
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
@@ -132,8 +132,8 @@ Public Class cProgrammeUpdate
End Function
Public Shared Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_SOURCE
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
For Each li In LIST_SOURCE
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb
View File

@@ -93,13 +93,13 @@ Public Class cQSTeam
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -179,13 +179,13 @@ Public Class cQSTeamMA
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

153
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -1,6 +1,11 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cRechnungsausgangLIST
End Class
Public Class cRechnungsausgang
Property RK_ID As Integer
@@ -138,6 +143,90 @@ Public Class cRechnungsausgang
End Function
Public Shared Function GET_LIST_WEB(KundenNr As Integer, von As Date, bis As Date, Optional RechnungsNr As Integer = -1, Optional Absender As String = "", Optional Empfänger As String = "", Optional LKW_Kennzeichen As String = "", Optional KdAuftragsNr As String = "") As List(Of cRechnungsausgang)
Dim LIST As New List(Of cRechnungsausgang)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Dim sqlWHERE = ""
If RechnungsNr > 0 Then sqlWHERE &= " AND RechnungsNr LIKE @RechnungsNr"
If Absender <> "" Then sqlWHERE &= " AND Absender LIKE @Absender"
If Empfänger <> "" Then sqlWHERE &= " AND Empfänger LIKE @Empfänger"
If LKW_Kennzeichen <> "" Then sqlWHERE &= " AND [LKW Kennzeichen] LIKE @LKW_Kennzeichen"
If KdAuftragsNr <> "" Then sqlWHERE &= " AND KdAuftragsNr LIKE @KdAuftragsNr"
Using cmd As New SqlCommand("SELECT * FROM [Rechnungsausgang] WHERE RechnungsKundenNr=@RechnungsKundenNr and RechnungsDatum BETWEEN @RechnungsDatumVON and @RechnungsDatumBIS ORDER BY RechnungsNr ", conn)
cmd.Parameters.AddWithValue("@RechnungsKundenNr", KundenNr)
cmd.Parameters.AddWithValue("@RechnungsDatumVON", von)
cmd.Parameters.AddWithValue("@RechnungsDatumBIS", bis)
cmd.Parameters.AddWithValue("@Absender", Absender & "%")
cmd.Parameters.AddWithValue("@Empfänger", Empfänger & "%")
cmd.Parameters.AddWithValue("@LKW_Kennzeichen", "%" & LKW_Kennzeichen & "%")
cmd.Parameters.AddWithValue("@KdAuftragsNr", "%" & KdAuftragsNr & "%")
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim RG As New cRechnungsausgang
For Each li In RG.getParameterList()
Dim propInfo As PropertyInfo = RG.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(RG, Nothing)
Else
propInfo.SetValue(RG, dr.Item(li.Text))
End If
Next
RG.doVorzeichen()
LIST.Add(RG)
' If loadPos Then LOAD_POSITIONEN()
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return LIST
End Function
Public Shared Function GET_LIST_WEB_SR(RK_ID As Integer) As List(Of cRechnungsausgang)
Dim LIST As New List(Of cRechnungsausgang)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM [Rechnungsausgang] WHERE RK_ID=@RK_ID ", conn)
cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim RG As New cRechnungsausgang
For Each li In RG.getParameterList()
Dim propInfo As PropertyInfo = RG.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(RG, Nothing)
Else
propInfo.SetValue(RG, dr.Item(li.Text))
End If
Next
RG.doVorzeichen()
LIST.Add(RG)
' If loadPos Then LOAD_POSITIONEN()
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return LIST
End Function
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RK_ID", RK_ID, , True, True))
@@ -257,13 +346,13 @@ Public Class cRechnungsausgang
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -287,13 +376,13 @@ Public Class cRechnungsausgang
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -355,10 +444,30 @@ Public Class cRechnungsausgang
If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False
If RechnungsKundenNr <= 0 Then errMsg = "ERROR: Kunden-Nummer fehlt!" : Return False
' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
If FIRMA.Firma_ID = 26 Then
If RechnungsLandKz <> "GB" And RechnungsLandKz <> "UK" Then
errMsg = "ERROR: Es darf nur nach GB abgerechnet werden!" : Return False
End If
If Währungscode <> "GBP" Then
errMsg = "ERROR: Es darf nur mit Währung 'GBP' abgerechnet werden!" : Return False
End If
End If
If RechnungsLandKz = FIRMA.Firma_LandKz Then
If Steuersatz_Proz = 0 Then
If vbYes <> MsgBox("Es wurde kein Steuerschlüssel angegeben." & vbNewLine & vbNewLine & "Sind siw wicher, dass Sie ohne Steuerschlüssel fortfahren möchten.", vbYesNoCancel) Then
errMsg = "ERROR: Steuerschlüssel angegeben!"
Return False
End If
End If
End If
Return True
End Function
End Function
Public Function SAVE_POSITIONEN(RK_ID) As Boolean
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
@@ -379,13 +488,13 @@ Public Class cRechnungsausgang
cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next
@@ -446,26 +555,8 @@ Public Class cRechnungsausgang
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
'Wenn selbes Land --> Kein Reversecharge
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz)
If RechnungsLandKz = FIRMA.Firma_LandKz Then
Return False
End If
Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
Return False
End If
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
End Function
Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " UPDATE Speditionsbuch SET Fakturiert='" & If(wert, 1, 0) & "' WHERE FilialenNr = '" & Me.FilialenNr & "' AND AbfertigungsNr = '" & Me.[AbfertigungsNr] & "' AND UnterNr = '" & Me.[SpeditionsbuchUnterNr] & "'"
Return SQL.doSQL(sqlstr, "FMZOLL")

8
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
View File

@@ -182,13 +182,13 @@ Public Class cSDL
cmd.Parameters.AddWithValue("@History", History)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
View File

@@ -73,13 +73,13 @@ Public Class cSDL_LKW
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

92
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
View File

@@ -105,13 +105,13 @@ Public Class cSMS
cmd.Parameters.AddWithValue("@sms_id", sms_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next
@@ -185,9 +185,9 @@ Public Class cSMS
Me.sms_BatchId = result.BatchId
If result.MessageIds IsNot Nothing Then
For Each m In result.MessageIds
Uris &= m.Uri & ";;"
msgIDs &= m.Id.ToString & ";;"
For Each msg In result.MessageIds
Uris &= msg.Uri & ";;"
msgIDs &= msg.Id.ToString & ";;"
Next
End If
Catch ex As Exception
@@ -213,30 +213,100 @@ Public Class cSMS
End Try
End Function
Function checkSMSStatus() As String
Function checkSMSStatus(Optional silent = False) As String
Try
If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig
If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId
If If(Me.sms_MessageIds, "") = "" Then
If Not silent Then MsgBox("Keine MessageId gefunden!")
Return False ' Keine MsgId
End If
Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD)
'Send a message and retrieve the message ID
Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString))
Dim messageStatus = MSG.Status
MsgBox(MSG.Status)
' MsgBox(MSG.Status)
'Status in DB Ubdaten
Me.sms_Status = messageStatus
Me.sms_Sent = MSG.SentAt
Me.sms_Delivered = MSG.DeliveredAt
If IsDate(MSG.DeliveredAt) Then
Me.sms_Status = 3 ': MsgBox("SENT")
Else
'MsgBox("NOT SENT")
End If
If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
Me.SAVE()
Return messageStatus
Catch ex As Exception
MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
If Not silent Then MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Shared Function SEND_StatusSMS(AVISOId As Integer) As Boolean
Dim AVISO = cAviso.getAvisoById(AVISOId, "")
Return SEND_StatusSMS(AVISO)
End Function
Shared Function SEND_StatusSMS(AVISO As cAviso) As Boolean
If If(AVISO.FahrerHandy, "") <> "" AndAlso IsNumeric(AVISO.FahrerHandy.trim) Then
Dim absenderAccount = ""
Dim absenderFirma = ""
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, absenderAccount, absenderFirma)
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS
SMS.sms_Vorwahl = ""
SMS.sms_Handynummer = "00436644178557" 'AVISO.FahrerHandy.trim 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
SMS.sms_Nachricht = "Statusmeldung: " & vbNewLine &
"https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
SMS.sms_Account = absenderAccount
SMS.sms_Firma = absenderFirma
SMS.sms_KundenNr = If(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, Nothing)
SMS.sms_Kunde = If(AVISO.Frächter <> "", AVISO.Frächter, Nothing)
SMS.sms_Fahrername = Nothing 'If(AVISO.fahrern <> "", FahrerName, Nothing)
SMS.sms_AvisoId = AVISO.AvisoID
If SMS.sendSMS Then
Return True
End If
End If
Return False
End Function
Shared Sub GET_AccountInfo(Firma, ByRef absenderAccount, ByRef absenderFirma)
Select Case Firma'cboFirma._value
Case "VERAG" ', "BEIDE"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
End Select
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
End Sub
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb
View File

@@ -56,13 +56,13 @@ Public Class cSendVorkosten
cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

26
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -147,22 +147,22 @@ Public Class cSendungen
For Each s In SENDUNG_LIST
If If(s.tblSnd_Vorpapier, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier)
End If
If If(s.tblSnd_Vorpapier2, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier2 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier2 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier2)
End If
If If(s.tblSnd_Vorpapier3, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier3 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier3 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier3)
End If
@@ -642,8 +642,8 @@ Public Class cSendungen
Dim sqlstr = " DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & Me.tblSnd_SendungID
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_Abrechnung = True
For Each a In ABRECHNUNG
If Not a.INSERT() Then SAVE_Abrechnung = False
For Each aa In ABRECHNUNG
If Not aa.INSERT() Then SAVE_Abrechnung = False
Next
End If
@@ -658,8 +658,8 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_HANDLING = True
For Each a In HANDLING
If Not a.INSERT() Then SAVE_HANDLING = False
For Each aa In HANDLING
If Not aa.INSERT() Then SAVE_HANDLING = False
Next
End If
@@ -674,9 +674,9 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
a.sndvk_sendId = Me.tblSnd_SendungID
If Not a.INSERT() Then SAVE_VORKOSTEN = False
For Each aa In VORKOSTEN
aa.sndvk_sendId = Me.tblSnd_SendungID
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If

8
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
View File

@@ -75,13 +75,13 @@ Public Class cSession
cmd.Parameters.AddWithValue("@sess_Id", sess_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

20
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -379,13 +379,13 @@ Public Class cSpeditionsbuch
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable)
For Each li In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(SPEDBUCH, Nothing)
Else
propInfo.SetValue(SPEDBUCH, dr.Item(l.Text))
propInfo.SetValue(SPEDBUCH, dr.Item(li.Text))
End If
Next
@@ -655,8 +655,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & Me.FilialenNr & " AND sbup_AbfertigungsNr=" & Me.AbfertigungsNr & " AND sbup_UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_UNTERPOS = True
For Each a In UNTERPOS
If Not a.INSERT() Then SAVE_UNTERPOS = False
For Each aa In UNTERPOS
If Not aa.INSERT() Then SAVE_UNTERPOS = False
Next
End If
@@ -668,8 +668,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM Vorkosten WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
If Not a.INSERT() Then SAVE_VORKOSTEN = False
For Each aa In VORKOSTEN
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If
@@ -681,8 +681,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_ENDEMPFAENGER = True
For Each a In ENDEMPFAENGER
If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False
For Each aa In ENDEMPFAENGER
If Not aa.INSERT() Then SAVE_ENDEMPFAENGER = False
Next
End If

16
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -74,13 +74,13 @@ Public Class cTextkonserve
cmd.Parameters.AddWithValue("@txt_Id", txt_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -105,13 +105,13 @@ Public Class cTextkonserve
cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
View File

@@ -95,13 +95,13 @@ Public Class cTranslate
cmd.Parameters.AddWithValue("@trs_id", trs_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -115,13 +115,13 @@ Public Class cTrdInvoice
Dim dr = cmd.ExecuteReader()
If dr.Read Then
hasEntry = True
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb
View File

@@ -97,13 +97,13 @@ Public Class cUIDAbfrage
cmd.Parameters.AddWithValue("@uid_Datum", uid_Datum.ToShortDateString)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
For Each li In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UID, Nothing)
Else
propInfo.SetValue(UID, dr.Item(l.Text))
propInfo.SetValue(UID, dr.Item(li.Text))
End If
Next
@@ -126,13 +126,13 @@ Public Class cUIDAbfrage
cmd.Parameters.AddWithValue("@uid_id", uid_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -93,13 +93,13 @@ Public Class cUIDPruefung
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
For Each li In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UID, Nothing)
Else
propInfo.SetValue(UID, dr.Item(l.Text))
propInfo.SetValue(UID, dr.Item(li.Text))
End If
Next
@@ -276,13 +276,13 @@ Public Class cUIDPruefung
cmd.Parameters.AddWithValue("@uid_id", uid_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
View File

@@ -159,13 +159,13 @@ Public Class cVorauskasse
cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -232,13 +232,13 @@ Public Class cVorauskasse
cmd.Parameters.AddWithValue("@vk_id", vk_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
View File

@@ -60,13 +60,13 @@ Public Class cWarenbezeichnungBegriffe
cmd.Parameters.AddWithValue("@wb_id", wb_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
View File

@@ -109,13 +109,13 @@ Public Class cZkteing
cmd.Parameters.AddWithValue("@Index", Index)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb
View File

@@ -98,13 +98,13 @@ Public Class cZollArtikel
cmd.Parameters.AddWithValue("@zollArt_id", zollArt_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

31
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -143,13 +143,13 @@ Public Class cDATENSERVER
Try
' My.Computer.FileSystem.RenameDirectory(oldDIR, newname)
For Each l In DATA_LIST.LIST
Dim newPfad = l.coll_pfad.Replace(oldDIR, newDIR)
For Each li In DATA_LIST.LIST
Dim newPfad = li.coll_pfad.Replace(oldDIR, newDIR)
If Not IO.Directory.Exists(newDIR) Then IO.Directory.CreateDirectory(newDIR)
My.Computer.FileSystem.CopyFile(l.coll_pfad, newPfad, True)
My.Computer.FileSystem.DeleteFile(l.coll_pfad)
l.coll_pfad = newPfad
If Not l.UPDATE() Then
My.Computer.FileSystem.CopyFile(li.coll_pfad, newPfad, True)
My.Computer.FileSystem.DeleteFile(li.coll_pfad)
li.coll_pfad = newPfad
If Not li.UPDATE() Then
Return False
End If
Next
@@ -420,9 +420,9 @@ Public Class cDATENSERVER
End Function
Public Function OPEN(coll_id As Integer, Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String
For Each l In DATA_LIST.LIST
If l.coll_id = coll_id Then
Return l.OPEN(openFile, useBezeichnung)
For Each li In DATA_LIST.LIST
If li.coll_id = coll_id Then
Return li.OPEN(openFile, useBezeichnung)
End If
Next
Return ""
@@ -1654,10 +1654,10 @@ Public Class cDatenserverIDCollectionList
Function DELETE_ATPOS(coll_id) As Boolean
Try
For Each l In LIST
If l.coll_id = coll_id Then
If l.DELETE() Then
LIST.Remove(l)
For Each li In LIST
If li.coll_id = coll_id Then
If li.DELETE() Then
LIST.Remove(li)
Return True
Else
Return False
@@ -1676,13 +1676,16 @@ Public Class cDatenserverIDCollectionList
End Class
Public Class DATENVERVER_OPTIONS
Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"
' Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"
Public Shared TMP_PATH = "C:\VeragTMP\USER_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "\"
Shared Function getTMPPath(name As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True, Optional unterOrdner As String = "") As String
If Environment.GetFolderPath(Environment.SpecialFolder.Personal) = "" Then ' WEB_SERV
TMP_PATH = Path.GetTempPath() & "\VERAG\DatenTMP\"
End If
' If Not IO.Directory.Exists(TMP_PATH) Then IO.Directory.CreateDirectory(TMP_PATH)
Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "")
TMP_PATH2 = TMP_PATH2.replace("\\", "\")
If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then

12
VERAG_PROG_ALLGEMEIN/Lizenzen/DynamsoftDotNetTwain.lic Normal file
View File

@@ -0,0 +1,12 @@
Dynamic .NET TWAIN Product. Copyright (c) 2017-? Dynamsoft Corporation.
Warning: This product is licensed to you pursuant to the terms of the
license agreement included with the original software, and is
protected by copyright law and international treaties. Unauthorized
reproduction or distribution may result in severe civil and criminal
penalties, and will be prosecuted to the maximum extent possible under the law.
[SerialNumbers]
SerialNumberCount=2
SerialNo0=f0068NQAAAMzfp6Gvu6Fz+I1fe35VMbxq4AjxirlBtKiw2m/c7+WFUo6cqKV9gdsrUF08tMFDzxyvK2qW7dkB/AMXwWP8+VE=
SerialNo1=f0068NQAAAHHd/ZqHWlJjPt2W7f40pPn+818Q5PlZzXLGKw3w6Oi3zwzXWB45AOyom6xmOaVeS7nictDJNVEekShtfZmM2JE=

10
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -97,19 +97,19 @@ Public Class frmMessenger
' If IO.Directory.Exists(My.Application.roo "") Then
If IO.Directory.Exists(EMOJI_PATH) Then
For Each a In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
If alloweasteregg Or Not a.Contains("easteregg") Then
If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
For Each aa In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
If alloweasteregg Or Not aa.Contains("easteregg") Then
If IO.File.Exists(aa) And aa.Contains(".png") And aa.Contains("emoji_") Then
Dim p As New PictureBox
p.Size = New Size(40, 40)
p.BackgroundImage = Image.FromFile(a)
p.BackgroundImage = Image.FromFile(aa)
p.BackgroundImageLayout = ImageLayout.Zoom
p.Cursor = Cursors.Hand
AddHandler p.Click, Sub()
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT IsNot Nothing Then
saveEmoji(a)
saveEmoji(aa)
End If
End Sub

8
VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml
View File

@@ -1,15 +1,15 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License Key="Kcc8AQDam71K/TwKN8J+J66RFFuPrMAUqo5xnPNt/M3KRgFPvgBUm1KcM/ICZPXNWQdx4itZZlhQyECJlX+eIEZrG9Xv7+ZYR+Bu4EZzp4D1jBkuFk7IDX2MzPxiv1mhZYptupPef8Aw/ZL/G5vlLN3dQAhANlhRxgEROflMXhyS7Zi0I7Gkf1fYiIgFaXxnTnp0tnYIuTxtW/AQjdnoTF/x0EdCH84ELXVp/NzopJGl97hUfXguDa68anPd2RxV+hr5JnUs0/fS1uI+g6QlRsmXHrIESFZS2xF0LHpabdyDq0ugWbnkp82K0E84Y7PoHnZo/urJvFnXnmBOJec7+UykBfr5tLsAUjirHzqsvgg7hzQHZvbGWe6hw/oXKRIXl+mVlNgojO8hVMMNSh92PVgrZ6fYyGBcpeXRcDdJgzkwjxD34BiiybipxQaQaqg+ABESmvS0LeuawR3PQGbWlaGPQ0phfCOQPEZ32XBhgP+A8rNlGPK3oIpNVj4VbWnQnfhfOTwbR39zg1y3Q7bjX06i+0OgWp7uDG3oXgkZszjrcuMLnCpmBNJn8YxTv8kUcQxAi7KToEOIOoYUjkPbtddDchLepAvAF5VS1USviH44GBqJpl6DP0U/H71xfrSsY9OIOVS8460eKChYLTlxGlinfqLRbsYBbmPCmIs4HktznH/e+hwxgqggOffQgcm8ddezv3beg9p1mlatmzfMjnFreFrf6jbFp628YpakVOwXXAcz/czLeW+JChPii00TEbYTfwAT4Jd6CBGw/GoUEjuCdap0Q3u/EAAWFfEeJWe2/5yy6RSSTeD5GruiQhtYCjNXlHvmiOH9uBu5RL+tYeIHT5LC51FNsUXLRr/3XFoRju+Yy1xYME/ix5jH7zqzTxrvJDSzzOpy/Tgz4zvtW99cJYnsfNqNEKfegc3vUP8dIE/DUIcRAto0d/51FrYcDf2qRxHAHGPveImc7GnPNeut8NS5476m9iL26FWHv9O7gq6w9IUYgNThOi7HBEupPjI2/cOHdNPHo+gfvIiVDFG1jbJKs2H6CY4UQau4RW3ySoGI9FsLWacr/IKRVCi2u2rvIsxH4T5a9sdGUdaZhHMFFQTIcZcqQn6Hrff5HMe2Kv3RbxVd38w9ESqMl2T/mfbommmWB5SonvWbcm2qcThfwN+Fhcx7SzByVMPrCG+tLkj7L9UmZgyZG2FSghQY7nUDCgfH04LB6Dt84jLNhlVh1+3bbFxDawnE5Z6qDGhaRoKFmqRKxxamyCGFDekZwl9a2ORm3Tgt535Ksy/romFLiDE7K31Zf1fHxOKgCMyfH3YprEW1HXUrP1XcXtumx6OFvaEF8KVk+tUxCUigZN0QWKtlfPQv6Gm3/h/9DF0kM8Uu7LVieLjN/qmQ/38eoGjv5kyefWRWUGclIkoRoIi0PU2seG69wOhtaRgoPMhmJydMQPmw9Wvglmco3iK4VWON/ddaZmk69moUdmV3Ywez1C1DVm5M" Version="1.3">
<License Key="dwnrAQD6L5lhoO/wj5lrUwKMO33j2gTPZ1lhuN2VFgLUXnDb8AcEWtTxaNuu4w1t8fL0DTwoP9h+VLEleF1Guf+yZ6rkI+kC+jnRp7T6GE5fsm7ux01HpyEL7a3MITHLYyNC2k+k0bfe5a3tSO1TK8KY0rDtMEBqi7AcETnYXs/ZdGbvg8325stZu4wLyrcJ/nGlh/2ZutYTyZuFbySTnEr7l4E8bP/0Du0Nplk6sKhEoccc6inKb5bLs0gJenV4vQ2cXKzWuTg3hdbfVaJahRIHiJThJHrklsJQE7WbMYAvuFXCGq/1cVr3WeqNspgqMPNVsupDxdF+skTgnTVHrxIohS6tkO+PCbtRWST92AhHpDXJdTxPcqk9pvz1RjPgu2wSgBkkU8x7g9v5M5IZDJ0hlDPYg7DnZGMfftWeeRRffnPD5wRG3snFznEfFfHv1CpXjHYjYvQdMoZVQTQKlIMy1lJQVug8AGj15FcHWFQ3JSeITQGsPMPCwbPtb5mpmpuLVRAFUYEgNx6wPgA+7T/6D3BBTzeE5izFW+vSL/87EZXzw0SSiQaYRzuOF5OJeusu6n4B6cDt1r8r9Hn31Kt7xyfelv76dXVwJGXBv4wHoW4IlzKHZue6lnNC8jLzD8j0kDONv3IaNR5F5zyPglc6wW2PfLOTAfMbfkZlmSk9UTvdum4nW+WI+aJzdu4PF+2ZyVP/FOhlAa39RaJuCIPxlHHRaIhF5cxf4u4J7ScWFJMkwxlGKf+/tyDq9P9+XrrUm41cdP4SQXNsQQz7G9pivq9c7LRU5k3Wj24CxaiKNl0JxHO1epq2XlAnQLbx4xJXEzSN7jFWyA1E99bRfteEXEDle+fgi9iK4gogIdLe4StbNjSQScVlPwJhmytvrS+kBIJZPPQ37PCpXHwghv7HbZ3IDQdHVMNjoZY52RWV/2ZR0CKXlmMmscsyaOtgfu/yHNYinIRNzKq65lrImTC+3sKWobR/TLt6jjFJ7245Sgt5QiCMEJD2/WGmsKKhCwq35pth6PqSBHLGyC3oQItwqoGoVWjP6SdPxiLf1UUeJbULg3gD/4Utlg7LYOHB2WIr2vxwHl8ASrzESuF4ollJqDDxknLiG3fUN0jO+AoFEgRo8FFqtQBJHAGPwJ6F5atrcmoK+magoQ/TiOOv/nRl2R2Zzn9oalLTC7qU2c/M76J3V7l2pU6Gpa31O05r9sn9kHMFdLTqq/cBo0joFw3czGLxHWsUOw07PoZZznYPACwl7m3sVNPCs0HBAileDcI3iROONLetxPBsHl/o6xDirK0uo+wCRI/o4kWS7v2KzBRS2Q2sypumeHUdyyipaWunfW/QlamGN6h8sKB9Wmglah/z/BG0pleMVJfS3JpjIu+HpPgSNoEumzlOtNRZwXWzTiLlhCtYjq9Ip/QeC32YH02EHv6g4IE+J+bKVRshSBvXkc06PZK/WEuYBgYkgbFR8h1KmSCq/42fuKyebvuBGrOQ4Ht0" Version="1.3">
<Type>Runtime</Type>
<Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization>
<LicensedDate>2020-08-12T00:00:00Z</LicensedDate>
<ExpiredDate>2021-08-12T00:00:00Z</ExpiredDate>
<LicensedDate>2021-08-11T12:00:00Z</LicensedDate>
<ExpiredDate>2022-08-11T12:00:00Z</ExpiredDate>
<Products>
<Product>
<Name>Spire.PDF Platinum</Name>
<Version>6.5</Version>
<Version>7.5</Version>
<Subscription>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite>

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb
View File

@@ -196,13 +196,13 @@ Public Class cVERAG_in_TRAvisoFULL
cmd.Parameters.AddWithValue("@trAv_Id", trAv_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

18
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

@@ -248,15 +248,15 @@ Public Class cVERAG_in_eza_FULL
cmd.Parameters.AddWithValue("@shTr_id", shTr_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
If Not l.isonlyForSave Then
For Each li In getParameterList()
If Not li.isonlyForSave Then
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(l.Text))
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
@@ -294,13 +294,13 @@ Public Class cVERAG_in_eza_FULL
cmd.Parameters.AddWithValue("@Reference", Reference)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In EZA_FULL.getParameterList()
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
For Each li In EZA_FULL.getParameterList()
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(l.Text))
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb
View File

@@ -184,13 +184,13 @@ Public Class cVERAG_in_shippmentWHST '????????
cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

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 ????????

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb
View File

@@ -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")
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 300)
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb
View File

@@ -25,6 +25,7 @@
sqlatr &= " WHERE nctsSA_GRN IN (" & _BRG_VALUE & ") and ncts_Status between 50 and 60 " ' CONVERT(date, ncts_Trans_DatumZeit ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'"
sqlatr &= where
sqlatr &= " AND (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "')>0 "
sqlatr &= " ORDER BY Datum "
Dim dt As DataTable = SQL.loadDgvBySql(sqlatr, "FMZOLL", 120)
@@ -33,11 +34,12 @@
If _EZOLL Then
'EZOLL:
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnungneu.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnungneu.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnungneu.AnmID) as Firma "
sqlatr &= " " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " ,LRN as Bezugsnummer "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnungneu "
sqlatr &= " WHERE GRN IN (" & _BRG_VALUE & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlatr &= " ORDER BY Datum "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL", 120)

631
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -1,4 +1,633 @@
Public Class cSyska_Interface
Imports System.Text.RegularExpressions
Public Class cSyska_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'STAMMDATEN
Shared Function getStammdaten(FiBuSchnittstelleNr) 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] ,Telefax "
sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
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 FiBuSchnittstelleNr='" & FiBuSchnittstelleNr & "' "
sqlStr &= " Order by [Konto-Nr] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function updateFibu(FiBuSchnittstelleNr) As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FiBuSchnittstelleNr='" & FiBuSchnittstelleNr & "' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Public Shared Function getPersonenKto(row As DataRow) As String
Dim LandKz = row("LandKz")
Dim Gegenkontonummer = ""
Dim Gegenkontonummer2 = ""
If LandKz Is DBNull.Value Or LandKz.trim = "" Or LandKz = "A" Then
Gegenkontonummer = "4000" ' Erl. 20%
Gegenkontonummer2 = "4000" ' Erl. 20%
Else
If CBool(SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & LandKz & "'", "FMZOLL", False)) Then
Gegenkontonummer = "4020" ' Erl. 0% EU
Gegenkontonummer2 = "4020" ' Erl. 0% EU
Else
Gegenkontonummer = "4021" ' Erl. 0% 3.Land
Gegenkontonummer2 = "4021" ' Erl. 0% 3.Land
End If
End If
Dim cleanStringName As String = Regex.Replace(row("Name"), "[^A-Za-z0-9\-/]", "").Replace(" ", "").ToUpper
Dim Lastschrift = CBool(row("Lastschrift"))
getPersonenKto = ""
getPersonenKto &= row("Konto-Nr") & vbTab
getPersonenKto &= FormatStringSYS(cleanStringName, 2) & row("Konto-Nr") & vbTab
getPersonenKto &= FormatStringSYS(row("Name"), 50) & vbTab
getPersonenKto &= FormatStringSYS(row("Name2"), 50) & vbTab
getPersonenKto &= FormatStringSYS(row("Strasse"), 50) & vbTab
getPersonenKto &= FormatStringSYS(row("PLZ"), 20) & vbTab
getPersonenKto &= FormatStringSYS(row("Ort"), 50) & vbTab
getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringSYS(LandKz, 5)) & vbTab
getPersonenKto &= CDate(row("EingegebenAm")).ToShortDateString & vbTab 'Eröffnungsdatum
getPersonenKto &= vbTab
getPersonenKto &= vbTab 'Bankname
getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab
getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab
getPersonenKto &= "00" & vbTab 'Skontotage
getPersonenKto &= row("ZZiel").ToString("00") & vbTab
getPersonenKto &= "00,00" & vbTab 'Skonto
getPersonenKto &= "01" & vbTab 'Mahnkennung
getPersonenKto &= FormatStringSYS(row("UST-Id-Nummer"), 50) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= row("Währungscode") & vbTab
getPersonenKto &= vbTab 'Forderungsonto
getPersonenKto &= vbTab
getPersonenKto &= Gegenkontonummer2 & vbTab 'Platzhalter??
getPersonenKto &= FormatStringSYS(row("Ansprechpartner"), 100) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= FormatStringSYS(row("Telefon")) & vbTab
getPersonenKto &= FormatStringSYS(row("Telefax")) & vbTab
getPersonenKto &= FormatStringSYS(row("E-Mail")) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= vbTab
End Function
Public Shared Function genDatensatz_Stammdaten(FiBuSchnittstelleNr As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
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
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FiBuSchnittstelleNr)
'DATEIPFAD für Stammdaten
'-------------------------------------------------------------------------------------------
Dim pathArchivKD = "\\datenarchiv\Datenarchiv\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
Dim pathKD = "\\fmzoll\f\FMZoll\FiBu\Syska\" & FIRMA.Firma_ID & "\"
'pathKD = pathArchivKD 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
pathArchivKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
pathKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchivKD = ""
End If
If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
'-------------------------------------------------------------------------------------------
If True Then 'boolKunden Then
'----------------- STAMMDATEN -----------------
Dim dt_Stamm As DataTable = getStammdaten(FiBuSchnittstelleNr)
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
Dim fileKD As System.IO.StreamWriter
Dim DateinameKD = "AVISO_DEBI_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
'fileKD.WriteLine(genStammdatenBeginn())
initKDNr(dt_Stamm)
For Each r In dt_Stamm.Rows
fileKD.WriteLine(getPersonenKto(r))
Next
bool_DatenVorhanden = True
fileKD.Close()
'In Archiv sichern
If pathArchivKD <> "" Then
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(pathKD & DateinameKD)
Else
IO.File.Delete(pathKD & DateinameKD)
End If
'NOCH NICHT!!!
' updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Public Shared Function genDatensatz_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean
genDatensatz_ALL = True
If boolKunden Then
' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(1, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(7, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(11, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(17, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
End If
If boolBuchungen Then
If Not genDatensatz_Buchungen(1, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(7, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(11, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(17, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(19, OpenFile) Then genDatensatz_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
End If
End Function
Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
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
'DATEIPFAD für Buchungsdaten
'-------------------------------------------------------------------------------------------
Dim pathArchiv = "\\datenarchiv\Datenarchiv\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
Dim path = "\\fmzoll\f\FMZoll\FiBu\Syska\" & FIRMA.Firma_ID & "\"
'pathKD = pathArchivKD 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
pathArchiv = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
path = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchivKD = ""
End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
'-------------------------------------------------------------------------------------------
'----------------- Buchungssätze -----------------
If True Then 'boolBuchungen Then
' TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
Try
Dim file As System.IO.StreamWriter
Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' initKDNr(dt_Buchungen)
Dim SummeBuchungen As Double = 0
'file.WriteLine(genBuchungenBeginn()) 'not needed
For Each r In dt_Buchungen.Rows
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)
Else
curDifferenzbetrag = Math.Round(If(r("RechnungsbetragFremd") < 0, 0 - r("RechnungsbetragFremd"), r("RechnungsbetragFremd")), 2)
End If
If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang
file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
End If
Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"))
If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
For Each rz In dt_BuchungenZeilen.Rows
file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen...
Next
End If
If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto
file.WriteLine(genBuchungsZeileDiffBetrag(r, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag))
End If
If r("BelegartenNr") = 71 Then 'GUTSCHRIFT ---> Immer am Schluss
file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
End If
Next
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
'Update Filename TrdIn 'NOCH NICHT!!!!
' SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
file.Close()
'In Archiv sichern
If pathArchiv <> "" Then
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
If path <> pathArchiv Then 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
End If
End If
'----------------------------------
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function FormatStringSYS(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
FormatStringSYS = s.ToString.Replace(";", ",")
'FormatStringSYS = s.ToString.Replace(",", "")
'FormatStringSYS = s.ToString.Replace("""", "\22")
If length > 0 Then
If FormatStringSYS.Length > length Then FormatStringSYS = FormatStringSYS.Substring(0, length)
End If
End Function
Shared Function FormatStringDbl(s As Object, Optional Nachkommastellen As String = "2", Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
If IsNumeric(s) Then Return CDbl(s).ToString("N" & Nachkommastellen)
Return s.ToString
End Function
Shared Function getBuchungen(Firma_ID As Integer) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer, Speditionsbuch ,FilialenNr,AbfertigungsNr,UnterNr, Abfertigungsdatum, BelegartenNr
, [KundenNrZentrale], RechnungsKundenNr,RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr
, Lastschrift, Steuerschlüssel,[Steuersatz %] as Steuersatz,WährungLokal, SteuerbetragLokal, RechnungsbetragLokal
,WährungFremd,SteuerbetragFremd,RechnungsbetragFremd,TrdinDateiname,Abgleich_op_debitor
, Nettozahlungsziel, Firma_ID, UStVAn_ID,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,PROD.SteuerpflichtigerBetragLokal as SteuerpflichtigerBetragLokal
,PROD.SteuerfreierBetragLokal as SteuerfreierBetragLokal,PROD.SteuerpflichtigerBetragFremd as SteuerpflichtigerBetragFremd,PROD.SteuerfreierBetragFremd as SteuerfreierBetragFremd,Belegdaten
,Sachkonto,Buchungstext, (PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, (PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND TrdinDateiname Is Null
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Public Shared Function genBuchungsZeileSum(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
genBuchungsZeileSum = ""
If row("BelegartenNr") = 70 Then 'RECHNUNG
Dim FiBuSollkontonummer = row("KundenNrZentrale")
Dim FiBuHabenkontonummer = "0"
Dim Bruttobetrag As Double
Dim FiBuWährung = ""
If row("WährungFremd") Is DBNull.Value Then
Bruttobetrag = row("RechnungsbetragLokal") 'Bruttobetrag
Else
Bruttobetrag = row("RechnungsbetragFremd") 'Bruttobetrag
End If
If row("WährungFremd") Is DBNull.Value Then
FiBuWährung = row("WährungLokal")
Else
FiBuWährung = row("WährungFremd")
End If
Dim FiBuEigenbruttobetrag = row("RechnungsbetragLokal")
genBuchungsZeileSum = "L" & vbTab
genBuchungsZeileSum &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab
genBuchungsZeileSum &= FormatStringSYS(row("Rechnungsnummer")) & vbTab
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeileSum &= CDbl(Bruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
ElseIf row("BelegartenNr") = 71 Then 'GUTSCHRIFT
' Buchungssatz Gutschrift (immer letzte Buchungszeile)
Dim FiBuWährung = ""
Dim FiBuSollkontonummer = "0"
Dim FiBuHabenkontonummer = row("KundenNrZentrale")
Dim FiBuBruttobetrag As Double
If row("WährungFremd") Is DBNull.Value Then
FiBuWährung = row("WährungLokal")
FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragLokal")))
Else
FiBuWährung = row("WährungFremd")
FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragFremd")))
End If
Dim FiBuEigenbruttobetrag = 0 - CDbl(row("RechnungsbetragLokal"))
genBuchungsZeileSum = "L" & vbTab
genBuchungsZeileSum &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab
genBuchungsZeileSum &= FormatStringSYS(row("Rechnungsnummer")) & vbTab
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeileSum &= CDbl(FiBuBruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
End If
Return genBuchungsZeileSum
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double) As String
Dim curSteuerbetrag As Double
Dim curNettobetrag As Double
Dim curBruttobetrag As Double
Dim FiBuBruttobetrag As String
Dim FiBuEigenbruttobetrag As Double
Dim FiBuSteuersatz As Double
Dim FiBuSteuerbetrag As String
Dim FiBuSollkontonummer As Integer
Dim FiBuHabenkontonummer As Integer
Dim FiBuWährung = "EUR"
Select Case row("BelegartenNr")
Case 70 'Rechnung
FiBuSollkontonummer = "0"
FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), " ")
If row("WährungFremd") Is DBNull.Value Then
curNettobetrag = row("BetragLokal")
Else
curNettobetrag = row("BetragFremd")
End If
Case 71 'Gutschrift
FiBuSollkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), " ")
FiBuHabenkontonummer = "0"
If row("WährungFremd") Is DBNull.Value Then
curNettobetrag = 0 - row("BetragLokal")
Else
curNettobetrag = 0 - row("BetragFremd")
End If
End Select
If CBool(row("steuerpflichtig")) Then
curSteuerbetrag = CLng(curNettobetrag * CDbl(row("Steuersatz")) * 100) / 100
curBruttobetrag = curNettobetrag + curSteuerbetrag
FiBuBruttobetrag = curBruttobetrag.ToString("N2")
curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
FiBuSteuersatz = Format(CDbl(row("Steuersatz")) * 100, "00.00")
' Die folgende Zeile führt zu Buchungsfehler bei Fremdwährung,
' Buchungssatz.FiBuSteuerbetrag = Format(curSteuerbetrag, "########0.00")
' deshalb nur Steuerprozent und keinen Steuerbetrag übergeben.
FiBuSteuerbetrag = ""
Else
curBruttobetrag = curNettobetrag
FiBuBruttobetrag = curBruttobetrag.ToString("N2")
curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
FiBuSteuersatz = "00,00"
FiBuSteuerbetrag = ""
End If
If row("WährungFremd") Is DBNull.Value Then
FiBuEigenbruttobetrag = CDbl(row("RechnungsbetragLokal")) 'Bruttobetrag
FiBuWährung = row("WährungLokal")
Else
FiBuWährung = row("WährungFremd")
FiBuEigenbruttobetrag = CDbl(row("RechnungsbetragFremd")) 'Bruttobetrag
End If
genBuchungsZeile = "L" & vbTab
genBuchungsZeile &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab
genBuchungsZeile &= FormatStringSYS(row("Rechnungsnummer")) & vbTab
genBuchungsZeile &= FiBuSollkontonummer & vbTab
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeile &= FiBuBruttobetrag & vbTab
genBuchungsZeile &= FiBuSteuersatz.ToString("N2") & vbTab 'FiBuSteuersatz
genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
genBuchungsZeile &= FiBuWährung & vbTab
genBuchungsZeile &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
End Function
Public Shared Function genBuchungsZeileDiffBetrag(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double) As String
' Buchungssatz Steuerdifferenz
If curDifferenzbetrag <> 0 Then
Dim FiBuWährung As String
Dim FiBuEigenbruttobetrag As Double
Dim FiBuSollkontonummer As Integer
Dim FiBuHabenkontonummer As Integer
Dim Buchungstext = row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & "/Steuerdiff." & vbTab
If row("WährungFremd") Is DBNull.Value Then
FiBuEigenbruttobetrag = curDifferenzbetrag 'Bruttobetrag
FiBuWährung = row("WährungLokal")
Else
FiBuWährung = row("WährungFremd")
FiBuEigenbruttobetrag = cProgramFunctions.fktEuro(curDifferenzbetrag, row("WährungFremd"), "EUR")
End If
Select Case row("BelegartenNr")
Case 70 'Rechnung
FiBuSollkontonummer = "0"
FiBuHabenkontonummer = "8490"
Case 71 'Gutschrift
FiBuSollkontonummer = "8490"
FiBuHabenkontonummer = "0"
End Select
genBuchungsZeileDiffBetrag = "L" & vbTab
genBuchungsZeileDiffBetrag &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab
genBuchungsZeileDiffBetrag &= FormatStringSYS(row("Rechnungsnummer")) & vbTab
genBuchungsZeileDiffBetrag &= FiBuSollkontonummer & vbTab
genBuchungsZeileDiffBetrag &= FiBuHabenkontonummer & vbTab
genBuchungsZeileDiffBetrag &= Buchungstext
genBuchungsZeileDiffBetrag &= curDifferenzbetrag.ToString("N2") & vbTab
genBuchungsZeileDiffBetrag &= "00,00" & vbTab 'FiBuSteuersatz
genBuchungsZeileDiffBetrag &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileDiffBetrag &= FiBuWährung & vbTab
genBuchungsZeileDiffBetrag &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
'curDifferenzbetrag += FiBuEigenbruttobetrag
End If
End Function
Shared Sub initKDNr(ByRef dt As DataTable)
For Each r In dt.Rows
If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 2000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
Shared Function initKDNr2(ktoNr As String) As String
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
Select Case r("Sachkonto")
'Case "3550", "3553", "3558"
' Return "999"
Case Else
If Not CBool(r("Steuerpflichtig")) Then
'Vorher immer return "" - galube es soll bei eu aber 77 sein...
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "77" ' EU-LAND
Else
Return "" ' Drittland
End If
Else
If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!!
Return "1" 'Steuerpflichtig und AT
Else
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "77" ' EU-LAND
Else
Return "" ' Drittland
End If
End If
End If
End Select
Return ""
End Function
Shared Function getDbl(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o)
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbl2(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o.ToString.Replace(".", ","))
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbltr(o As Object) As String
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o).ToString("N2").Replace(".", "") '
Catch ex As Exception
Return 0
End Try
End Function
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
While i.ToString.Length < l
i &= "0"
End While
Return i
End Function
' Public Function fktFiBuDebitoren(ByVal intFirma_ID As Integer) As Boolean
' Dim dq As DAO.QueryDef

38
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -16,7 +16,7 @@
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
@@ -51,25 +51,25 @@
<Reference Include="ClosedXML">
<HintPath>..\..\..\dll\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<Reference Include="Dynamsoft.Forms.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll</HintPath>
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore, Version=7.0.0.3020, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<Reference Include="Dynamsoft.ImageCore, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.ImageCore.dll</HintPath>
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<Reference Include="Dynamsoft.PDF, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\AVISO\SICHERUNG\Aviso_12.02.2018\Aviso\Aviso\bin\Debug\Dynamsoft.PDF.dll</HintPath>
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<Reference Include="Dynamsoft.Twain, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Twain.dll</HintPath>
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.WPF.Viewer, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<Reference Include="Dynamsoft.WPF.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.WPF.Viewer.dll</HintPath>
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.WPF.Viewer.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET">
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
@@ -93,17 +93,17 @@
<Reference Include="RichTextBoxEx">
<HintPath>..\..\..\dll\RichTextBoxEx.dll</HintPath>
</Reference>
<Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<Reference Include="Spire.License, Version=1.4.0.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\PDF Spire\6.10\Spire.License.dll</HintPath>
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.License.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf, Version=6.8.5.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<Reference Include="Spire.Pdf, Version=7.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="Spire.PdfViewer.Forms, Version=5.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<Reference Include="Spire.PdfViewer.Forms, Version=6.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\PDF Spire\6.10\Spire.PdfViewer.Forms.dll</HintPath>
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.PdfViewer.Forms.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
@@ -291,6 +291,7 @@
<Compile Include="Classes\cAbfertigungsarten.vb" />
<Compile Include="Classes\cAbgaben.vb" />
<Compile Include="Classes\cAbrechnung_NCTSBrg.vb" />
<Compile Include="Classes\cAufschubKonten.vb" />
<Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" />
@@ -595,6 +596,9 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="Lizenzen\DynamsoftDotNetTwain.lic">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
<SubType>Designer</SubType>
</None>

11
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -163,11 +163,14 @@ Public Class cProgramFunctions
Dim filename As String = ""
If optFileName <> "" Then
filename = sPath & optFileName & ".xlsx"
If IO.File.Exists(filename) Then
While IO.File.Exists(filename)
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End If
End While
Else
filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
While IO.File.Exists(filename)
filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While
End If
wb.SaveAs(filename)
@@ -242,8 +245,8 @@ Public Class cProgramFunctions
If anhaenge IsNot Nothing Then
For Each a In DirectCast(anhaenge, List(Of String))
If a IsNot Nothing AndAlso a <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(a))
For Each aa In DirectCast(anhaenge, List(Of String))
If aa IsNot Nothing AndAlso aa <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(aa))
Next
End If
mySmtpsvr.Send(Msg)

109
VERAG_PROG_ALLGEMEIN/frmScan.vb
View File

@@ -64,7 +64,7 @@ Public Class frmScan
checkImageCount()
' EnableControls(picboxScan)
End Sub
Public Sub OnPreAllTransfers() Implements IAcquireCallback.OnPreAllTransfers
End Sub
@@ -94,23 +94,15 @@ Public Class frmScan
Return 1
End If
End Function
Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
Return True
End Function
'Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
' Return True
'End Function
Public Sub OnSourceUIClose() Implements IAcquireCallback.OnSourceUIClose
End Sub
'
Public Sub OnTransferCancelled() Implements IAcquireCallback.OnTransferCancelled
End Sub
Public Sub OnTransferError() Implements IAcquireCallback.OnTransferError
End Sub
Public Function OnPostTransfer(bit As Bitmap) As Boolean Implements IAcquireCallback.OnPostTransfer
m_ImageCore.IO.LoadImage(bit)
Return True
End Function
'Public Function OnPostTransfer(bit As Bitmap) As Boolean Implements IAcquireCallback.OnPostTransfer
' m_ImageCore.IO.LoadImage(bit) 'ungültiger Param????
' Return True
'End Function
Public Sub New()
@@ -120,7 +112,7 @@ Public Class frmScan
Sub init()
Dim LICENSE_KEY_PDF = "f0068WQAAAH+gY718ZLeqQLD8lbOZ2FGn4EwqZXwHfnnHFla7+8MQS5/qOwvtYLWLNCl4FRxs5YG2tso5CsxMGiwxi1RLj1Q="
Dim LICENSE_KEY_PDF = "f0068NQAAAHHd/ZqHWlJjPt2W7f40pPn+818Q5PlZzXLGKw3w6Oi3zwzXWB45AOyom6xmOaVeS7nictDJNVEekShtfZmM2JE=" ' "f0068WQAAAH+gY718ZLeqQLD8lbOZ2FGn4EwqZXwHfnnHFla7+8MQS5/qOwvtYLWLNCl4FRxs5YG2tso5CsxMGiwxi1RLj1Q="
Dim LICENSE_KEY = "f0068NQAAAMzfp6Gvu6Fz+I1fe35VMbxq4AjxirlBtKiw2m/c7+WFUo6cqKV9gdsrUF08tMFDzxyvK2qW7dkB/AMXwWP8+VE=" ' "f0068NQAAALO56JsMvaoZUvgW4W5pH3xZI04YVLRm6RjxrXBNGlXQX66fwwyD9MA7RooXB8R7IGVCGOs0LoQrz74BFUWxuTY=" '"t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw="
' Dim LICENSE_KEY_PDF = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw="
' Dim LICENSE_KEY = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw=" '""
@@ -216,6 +208,20 @@ Public Class frmScan
Dim thread As Threading.Thread
Public ReadOnly Property IfGetImageInfo As Boolean Implements IAcquireCallback.IfGetImageInfo
Get
Return True ' Throw New NotImplementedException()
End Get
End Property
'Public Sub OnPostAllTransfers()
'End Sub
Public ReadOnly Property IfGetExtImageInfo As Boolean Implements IAcquireCallback.IfGetExtImageInfo
Get
Return True ' Throw New NotImplementedException()
End Get
End Property
Private Sub startScanTimeout()
'setup a timeout here to call the sub callbk when the time elapse.
'for example, something like this
@@ -247,10 +253,21 @@ Public Class frmScan
Dim sTwainSourceCount As Short = m_TwainManager.SourceCount
Dim sCameraSourceCount As Short = 0
'm_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE
If sSourceIndex < sTwainSourceCount Then
m_TwainManager.SelectSourceByIndex(sSourceIndex)
''vor Opensource
'Dim tmpFile = Path.GetTempFileName & ".pdf"
'tmpFile = "D:\Andreas\Dokumente\temptest<>.pdf"
'' m_TwainManager.SetFileXFERInfo(tmpFile, Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_PDFA2) ' Dynamsoft.DWT.EnumDWT_FileFormat)
'm_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE
m_TwainManager.OpenSource()
@@ -292,19 +309,36 @@ Public Class frmScan
'm_TwainManager.sca()
'If m_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE Then
' MsgBox("1")
' 'If m_TwainManager.SetFileXFERInfo("C:\Temp\WebTWAINTEST<%06d>.bmp", Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_BMP) Then
' If m_TwainManager.SetFileXFERInfo(tmpFile, Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_PDF) Then
' MsgBox("2")
' m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback))
' End If
'End If
m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback))
Else
Dim sCameraIndex As Short = CShort(sSourceIndex - sTwainSourceCount)
End If
Catch exp As Exception
'EnableControls(picboxScan);
MsgBox("Scanner nicht verfügbar!")
MsgBox("Scanner nicht verfügbar!" & vbNewLine & exp.Message & exp.StackTrace)
Finally
' EnableControls(picboxScan)
m_TwainManager.Dispose()
GC.Collect()
pnl.Enabled = True
Me.Cursor = Cursors.Default
@@ -499,6 +533,9 @@ Public Class frmScan
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
m_ImageCore.Dispose() 'Speicherfreigabe
End Try
End Sub
@@ -674,6 +711,40 @@ Public Class frmScan
Private Sub frmScan_TabStopChanged(sender As Object, e As EventArgs) Handles Me.TabStopChanged
End Sub
'Public Sub OnPreAllTransfers() Implements IAcquireCallback.OnPreAllTransfers
' Throw New NotImplementedException()
'End Sub
'Public Sub OnPostAllTransfers() Implements IAcquireCallback.OnPostAllTransfers
' Throw New NotImplementedException()
'End Sub
Public Sub OnSourceUIClose() Implements IAcquireCallback.OnSourceUIClose
' Throw New NotImplementedException()
End Sub
Public Sub OnTransferCancelled() Implements IAcquireCallback.OnTransferCancelled
'Throw New NotImplementedException()
End Sub
Public Sub OnTransferError() Implements IAcquireCallback.OnTransferError
'Throw New NotImplementedException()
End Sub
Public Function OnPostTransfer(bit As Bitmap, info As String) As Boolean Implements IAcquireCallback.OnPostTransfer
m_ImageCore.IO.LoadImage(bit) 'ungültiger Param????
GC.Collect()
Return True
'Throw New NotImplementedException()
End Function
Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
Return True
'Throw New NotImplementedException()
End Function
End Class