neu

SDL/Fakturierung/cFakturierung.vb

@@ -883,8 +883,11 @@ Public Class cFakturierung
             rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty)
 
             rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
-            If RECHNUNG.RechnungsDatum IsNot Nothing Then
+
+            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
                 rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+            Else
+                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
             End If
 
             '  REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
@@ -1048,6 +1051,13 @@ Public Class cFakturierung
                         If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then
                             rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
                             rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
+
+                            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+                            Else
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
+                            End If
+
                         Else
                             MsgBox("Fehler bei der Vergabe der Rg-Nr.!")
                             Return False
@@ -2164,6 +2174,7 @@ Public Class cFakturierung
             End If
             rpt.txtVermerk.Text = strText
 
+
             rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
             rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
             rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")

SDL/Fakturierung/frmFaktAufschubSuche.vb

@@ -39,9 +39,10 @@
                 cboKonto.SelectedIndex = 0
             Case "UNISPED"
                 cboKonto.Items.Clear()
-                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006145','006146'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006145','006146','006077'"))
                 cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST (006146)", "'006146'"))
                 cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (006145)", "'006145'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST AT (006077)", "'006077'"))
                 cboKonto.SelectedIndex = 0
             Case Else
                 cboKonto.Items.Clear()

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -3171,7 +3171,7 @@ Public Class FormularManagerNEU
         Dim destPath = ""
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "UNISPED"
+            Case "IMEX", "UNISPED", "AMBAR"
                 destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
             Case Else
 

SDL/My Project/Resources.Designer.vb

@@ -1693,15 +1693,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property sdf3sdfewr3edcvbn() As String
-            Get
-                Return ResourceManager.GetString("sdf3sdfewr3edcvbn", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -2221,7 +2212,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.5 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.6 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

SDL/My Project/Resources.resx

@@ -638,7 +638,7 @@
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.1.8.5</value>
+    <value>1.1.8.6</value>
   </data>
   <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -802,7 +802,4 @@
   <data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sdf3sdfewr3edcvbn" xml:space="preserve">
-    <value />
-  </data>
 </root>

SDL/kunden/Berichte/rptKundeUebersicht.vb

@@ -37,6 +37,7 @@ Public Class rptKundeUebersicht
         Select Case Firma
             Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
             Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
+            Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
             Case Else
         End Select
 

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -112,15 +112,31 @@ Public Class frmKundenUebersichtZOLL
             Case 99 : Me.Close() : Exit Sub
         End Select
 
-        'End If
         cboKundenblattFirma.Items.Clear()
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (alle)", "1,11,15"))
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (AG)", "1"))
+            Case "IMEX"
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (CS)", "11"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
+                cboKundenblattFirma.SelectedIndex = 0
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG + ATILLA", "1,11,15,7"))
+            Case "UNISPED"
-        cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "21,22,23"))
-        cboKundenblattFirma.SelectedIndex = 0
+                cboKundenblattFirma.SelectedIndex = 0
+            Case "ATILLA"
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
+                cboKundenblattFirma.SelectedIndex = 0
+            Case "AMBAR"
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "24"))
+                cboKundenblattFirma.SelectedIndex = 0
+            Case "VERAG"
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (alle)", "1,11,15"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (AG)", "1"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (CS)", "11"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG + ATILLA", "1,11,15,7"))
+                cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
+                cboKundenblattFirma.SelectedIndex = 0
+            Case Else
+                '
+        End Select
 
         KdSearchBox1.initKdBox(Me) ', lblKdNr)
 
@@ -1166,6 +1182,7 @@ Public Class frmKundenUebersichtZOLL
         Select Case cboKundenblattFirma._value
             Case "7" : Firma = "ATILLA"
             Case "20" : Firma = "IMEX"
+            Case "21,22,23" : Firma = "UNISPED"
         End Select
 
 

SDL/kunden/frmKundenblatt.Designer.vb

@@ -1203,7 +1203,7 @@ Partial Class frmKundenblatt
         Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
         Me.tbSDLKarten.Name = "tbSDLKarten"
         Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(1162, 588)
         Me.tbSDLKarten.TabIndex = 7
         Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
         Me.tbSDLKarten.UseVisualStyleBackColor = True
@@ -1215,7 +1215,7 @@ Partial Class frmKundenblatt
         Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
         Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.usrcntlKarten.Name = "usrcntlKarten"
-        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
+        Me.usrcntlKarten.Size = New System.Drawing.Size(1156, 582)
         Me.usrcntlKarten.TabIndex = 0
         '
         'tbLKW

SDL/kunden/frmNeuerKunde.vb

@@ -30,6 +30,7 @@
                 ComboBox1.changeItem("5701")
             Case "ATILLA"
                 ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  100000-199999: ATILLA", "100000-199999"))
+                ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: BREXIT", "800000-899999"))
                 ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
                 'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  700000-799999: ZOLL Abrechnung", "728000-799999"))
                 ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
@@ -49,6 +50,7 @@
                 ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  700000-799999: ZOLL Abrechnung", "728000-799999"))
                 ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
                 '  ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: XXXXXX", "800000-899999"))
+                ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: BREXIT", "800000-899999"))
                 ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
                 ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
                 ComboBox2.changeItem("728000-799999")

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -61,6 +61,7 @@ Public Class usrcntlKundeBearbeitenFull
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  500000-599999: EV - Kunden", "500000-599999"))
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  700000-799999: ZOLL Abrechnung", "728000-799999"))
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
+                cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: BREXIT", "800000-899999"))
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
 
@@ -92,6 +93,7 @@ Public Class usrcntlKundeBearbeitenFull
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  700000-799999: ZOLL Abrechnung", "728000-799999"))
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
                         '  ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: XXXXXX", "800000-899999"))
+                        cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: BREXIT", "800000-899999"))
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
                         ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
                         cboKundenkreis.changeItem("728000-799999")
@@ -1131,6 +1133,7 @@ Public Class usrcntlKundeBearbeitenFull
                 Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
                 Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
                 Case "900000-999999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
+                Case "800000-899999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
                 Case "100000-199999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
                 Case "9900000-9999999" : cbxFiBu.Checked = False : cboFirma.changeItem("17") : cboFiliale.changeItem("5801")
 

SDL/mdm/usrCntlDatenDetails.Designer.vb

@@ -84,7 +84,6 @@ Partial Class usrCntlDatenDetails
         'pic
         '
         Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pic.Image = Global.SDL.My.Resources.ids_bg
         Me.pic.Location = New System.Drawing.Point(0, 0)
         Me.pic.Name = "pic"
         Me.pic.Size = New System.Drawing.Size(385, 238)

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb

@@ -78,7 +78,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                         Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
 
                         '  Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
-                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' ", "FMZOLL", "0"))
+                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' AND [AufschubkontoNr]='" & AKTO & "'", "FMZOLL", "0"))
 
                         Dim differenz = fakturiert - betrag
 

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -1382,7 +1382,7 @@ Public Class cAvisoDAL
             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" &
+                       " 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,FIRMA=@FIRMA" &
                        " WHERE AvisoID = @AvisoID")
         End If
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -452,12 +452,11 @@ Public Class cRechnungsausgang
             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"
 
-        'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0))
-
         If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
             Return False
         End If

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -370,7 +370,7 @@ Public Class cSendungen
         Try
             Me.ABRECHNUNG.Clear()
             Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId ", conn)
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId and  sndabr_sendId>0", conn)
                 cmd2.Parameters.AddWithValue("@sndabr_sendId", Me.tblSnd_SendungID)
                 Dim dr2 = cmd2.ExecuteReader()
 

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -15,6 +15,7 @@ Public Class cAllgemein
     'Public Shared AVISO_SERVER As String = "[SQL01.verag.ost.dmn\VERAG]"
     'Public Shared AVISO_SERVER As String = "[SQLGUIDE.verag.ost.dmn\VERAG]"
     Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn]" '"[SQLGUIDE01.verag.ost.dmn]"
+    Public Shared FMZOLL_SERVER As String = "[FMZOLL\SQLFMZOLL]" '"[SQLGUIDE01.verag.ost.dmn]"
     'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
     Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"
 
@@ -102,6 +103,10 @@ Public Class cAllgemein
         End If
         LOAD_PARAM()
         LOAD_TRANSLATE()
+        If TESTSYSTEM Then
+            AVISO_SERVER = "[DEVELOPER\DEVSQL]"
+            FMZOLL_SERVER = "[DEVELOPER\DEVSQL]"
+        End If
     End Sub
 
     Public Shared Sub LOAD_BER()