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

Fakturierung VERAG AG (DE); NCTS Adressen zugel.Empf.; ATEZ +Procedure

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-30 16:07:44 +02:00
parent f68ad96df5
commit aaecc4fce6
17 changed files with 294 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL.sln
View File

@@ -137,6 +137,7 @@ Global
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.Build.0 = Debug|x64
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.ActiveCfg = Debug|x64
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.Build.0 = Debug|x64
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86

8
SDL/Fakturierung/cFakturierung.vb
View File

@@ -965,6 +965,7 @@ Public Class cFakturierung
Select Case RECHNUNG.Firma_ID
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
@@ -1572,6 +1573,11 @@ Public Class cFakturierung
If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 4 'VERAG AG (DE)
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-AG-Logo21.png""/>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 7 'ATILLA
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
If displayFirmenmane Then getSignature &= "<br><b>ATILLA Spedition GmbH</b><br>"
@@ -2506,6 +2512,7 @@ Public Class cFakturierung
Select Case ROW("Firma_ID")
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
@@ -2919,6 +2926,7 @@ Public Class cFakturierung
Select Case ROW("Firma_ID")
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex

21
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -53,12 +53,23 @@ Public Class frmAbrechnungsMaske
Select Case FirmaTmp
Case "VERAG"
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE In ('VERAG360') ", False, "FMZOLL")
Dim whereFirma = " AND FIRMENGRUPPE In ('VERAG360')"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE In ('VERAG360','VERAGAG_DE') "
End If
cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
cboFirma.changeItem("1")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
Else
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') ", False, "FMZOLL")
Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') "
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE In ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') "
End If
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
cboFirma.changeItem("1")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
End If
@@ -75,7 +86,11 @@ Public Class frmAbrechnungsMaske
cboFirma.changeItem("24")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
Case "VERAGIMEX"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL")
Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE In ('VERAG','IMEX','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') "
End If
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : cboFirma.changeItem("1")
Case "IMEX" : cboFirma.changeItem("20")

25
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -516,7 +516,14 @@ Public Class usrCntlFaktAbrechnung
End If
Select Case FirmaTmp
Case "VERAG" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
Case "VERAG"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE','VERAGAG_DE') " : pnlDocs.Visible = True
MsgBox("AH")
Else
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
End If
Case "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('IMEX') " : pnlDocs.Visible = True
'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
'Case "IMEX" : whereFirma = " AND Firma_ID=20 "
@@ -525,7 +532,18 @@ Public Class usrCntlFaktAbrechnung
Case "AMBAR" : whereFirma = " AND Firma_ID=24 " : pnlDocs.Visible = True
Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " : pnlDocs.Visible = True
Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " : pnlDocs.Visible = True
Case "VERAGIMEX"
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE','VERAGAG_DE') "
End If
pnlDocs.Visible = True
Case "VERA360"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE IN ('VERAG360','VERAGAG_DE') " : pnlDocs.Visible = True
Else
whereFirma = " AND FIRMENGRUPPE IN ('VERAG360') " : pnlDocs.Visible = True
End If
End Select
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty)
@@ -1681,6 +1699,8 @@ Public Class usrCntlFaktAbrechnung
Select Case cboFirma._value
Case 1 : pic.BackgroundImage = My.Resources.Verag_AG_Logo
pnlTop.BackColor = Color.FromArgb(0, 54, 128)
Case 4 : pic.BackgroundImage = My.Resources.Verag_AG_Logo_DE
pnlTop.BackColor = Color.FromArgb(0, 54, 128)
Case 7 : pic.BackgroundImage = My.Resources.Atilla_big_med
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.Yellow
Case 11 : pic.BackgroundImage = My.Resources.Verag_Customs_Service_GMBH_Logo
@@ -1754,6 +1774,7 @@ Public Class usrCntlFaktAbrechnung
Case "4805" : cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11
Case "4801" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7
Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20
'' Case "4819" : cboFirma.changeItem(4) : RECHNUNG.Firma_ID = 4
Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED
Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG

10
SDL/My Project/Resources.Designer.vb generated
View File

@@ -2351,6 +2351,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Verag_AG_Logo_DE() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Verag_AG_Logo_DE", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

3
SDL/My Project/Resources.resx
View File

@@ -886,4 +886,7 @@
<data name="modaltrans_original" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/Verag-AG-Logo_DE.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

1
SDL/SDL.vbproj
View File

@@ -4559,6 +4559,7 @@
<None Include="Resources\pay_cash_s.png" />
<None Include="Resources\locked.jpg" />
<None Include="Resources\modaltrans_original.png" />
<None Include="Resources\Verag-AG-Logo_DE.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb
View File

@@ -71,7 +71,7 @@
NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
' MsgBox(NCTS.ncts_ZugelassenerEmpfaenger_EORI)
'SumA: Beförderer
'--------------------------------
@@ -134,6 +134,7 @@
usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name
@@ -282,7 +283,7 @@
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land)
'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht

6
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -37,8 +37,6 @@ Class DAKOSY_Interface_SEND
'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
'--------------------------------
Return cDY
Catch ex As Exception
@@ -873,6 +871,10 @@ Class DAKOSY_Interface_SEND
If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet
End If
If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then
XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp
If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.ZugelassenderEmpfaenger.EORI = cDY.ncts_ZugelassenerEmpfaenger_EORI
End If

4
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -45,6 +45,10 @@
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.PARKZEITConnectionString_PROD"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.PARKZEITConnectionString_DEV"
connectionString="Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>

34
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -48,6 +48,20 @@ Public Class SQL
End If
End Function
Public Shared Function GetPARKZEITConnectionString() As String
'Properties.Settings.Default.
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.PARKZEITConnectionString_DEV
Else
Return My.MySettings.Default.PARKZEITConnectionString_PROD
End If
End Function
Public Shared Function GetWEBConnectionString() As String
'Properties.Settings.Default.
@@ -212,6 +226,18 @@ Public Class SQL
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetPARKZEITConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -432,6 +458,7 @@ Public Class SQL
Case "FD" : conn = GetNewOpenConnectionFD()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -473,6 +500,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
' Using conn As SqlConnection = GetNewOpenConnection()
@@ -508,6 +536,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -576,6 +605,7 @@ Public Class SQL
Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
End If
@@ -625,6 +655,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -669,6 +700,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -708,6 +740,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Try
' MsgBox(sql)
@@ -742,6 +775,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
End Select
Try
Using cmd As New SqlCommand(sql, conn)

142
VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb Normal file
View File

@@ -0,0 +1,142 @@

Imports System.Data.SqlClient
Imports System.Reflection
Imports Org.BouncyCastle.Utilities
Public Class cParkzeiten
Property ParkzeitID As Integer
Property Laufende_Nr As Object = Nothing
Property Von As DateTime
Property Bis As DateTime
Property Dauer As String
Property Dauer_Minuten As Integer
Property Kennzeichen As String
Property TarifArt As String
Property KartenNr As String
Property Bereich As String
Property KundenNr As Object = Nothing
Public hasEntry = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(ParkzeitID)
Me.ParkzeitID = ParkzeitID
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("ParkzeitID", ParkzeitID,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Laufende_Nr", Laufende_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Von", Von))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bis", Bis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer", Dauer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer_Minuten", Dauer_Minuten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kennzeichen", Kennzeichen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TarifArt", TarifArt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich", Bereich))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
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 Parkzeiten WHERE ParkzeitID=@ParkzeitID) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list)
End Function
Public Function INSERT_EXISTS() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF NOT EXISTS(SELECT * FROM Parkzeiten WHERE cast(Kennzeichen as varchar)=@Kennzeichen and Von=@Von and Bis=@Bis) " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionPARKZEIT()
Using cmd As New SqlCommand("SELECT * FROM Parkzeiten WHERE ParkzeitID=@ParkzeitID ", conn)
cmd.Parameters.AddWithValue("@ParkzeitID", ParkzeitID)
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
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
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 [Parkzeiten] SET " & str & " WHERE ParkzeitID=@ParkzeitID ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
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 Parkzeiten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

24
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -345,6 +345,28 @@ Namespace My
Return CType(Me("ADMINConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security"& _
"=false;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property PARKZEITConnectionString_PROD() As String
Get
Return CType(Me("PARKZEITConnectionString_PROD"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U"& _
"ser ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property PARKZEITConnectionString_DEV() As String
Get
Return CType(Me("PARKZEITConnectionString_DEV"),String)
End Get
End Property
End Class
End Namespace

14
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -152,5 +152,19 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="PARKZEITConnectionString_PROD" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="PARKZEITConnectionString_DEV" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
</Settings>
</SettingsFile>

5
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -20,7 +20,8 @@ Public Class cATEZ_NCTS_DATA
Public Property DAKOSY_Division1 As String
Public Property DAKOSY_Division2 As String
Public Property DAKOSY_Division3 As String
Public Property status As Object = 0
Public Property DAKOSY_Procedure As String
Public Property status As Object
Property erstellung As DateTime = Now
Public Property Route_Country As String
Public Property Carrier_Name As String
@@ -56,6 +57,7 @@ Public Class cATEZ_NCTS_DATA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division1", DAKOSY_Division1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division2", DAKOSY_Division2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division3", DAKOSY_Division3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Procedure", DAKOSY_Procedure))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", Carrier_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Country", Carrier_Adress_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Postcode", Carrier_Adress_Postcode))
@@ -603,6 +605,7 @@ Public Class cATEZ_NCTS_IN
success = jsonData.UpdateString("DAKOSY.Division1", ncts.DAKOSY_Division1)
success = jsonData.UpdateString("DAKOSY.Division2", ncts.DAKOSY_Division2)
success = jsonData.UpdateString("DAKOSY.Division3", ncts.DAKOSY_Division3)
success = jsonData.UpdateString("DAKOSY.Procedure", ncts.DAKOSY_Procedure)
success = jsonData.UpdateString("DepartureCustomsOffice", ncts.DepartureCustomsOffice)
success = jsonData.UpdateString("DestinationCustomsOffice", ncts.DestinationCustomsOffice)
success = jsonData.UpdateString("DatDeterminationLimit", ncts.DatDeterminationLimit)

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -366,6 +366,7 @@
<Compile Include="Classes\cNCTS_TR_Nachrichten.vb" />
<Compile Include="Classes\cOffene_Posten.vb" />
<Compile Include="Classes\cOffene_Posten_DVO.vb" />
<Compile Include="Classes\cParkzeiten.vb" />
<Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
<Compile Include="Classes\cParameter.vb" />
<Compile Include="Classes\cProgrammeUpdate.vb" />