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

Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2025-04-24 17:07:56 +02:00
parent f24df16840 37fc5ad3ad
commit 690b97ab54
10 changed files with 483 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -1152,6 +1152,14 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN") Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN")
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If End If
If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then ' Falls nciht gefunden, mit vollem Namen
If DY.eza_AnmeldenderBearbeiterName IsNot Nothing Then
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_DAKOSY_SBFull='" & DY.eza_AnmeldenderBearbeiterName & "' ", "ADMIN")
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
End If
Catch ex As Exception Catch ex As Exception
' MsgBox( vbNewLine & ex.Message & vbNewLine & ex.StackTrace) ' MsgBox( vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1276,6 +1284,7 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.aes_Bearbeiter & "'", "ADMIN") Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.aes_Bearbeiter & "'", "ADMIN")
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)

BIN
MailSender/Resources/MDM_ZOLL_Verguetung.xlsx
View File

Binary file not shown.

9
TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj
View File

@@ -53,9 +53,6 @@
<Reference Include="System.Xml.Linq" /> <Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" /> <Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" /> <Reference Include="System.Net.Http" />
<Reference Include="VERAG_PROG_ALLGEMEIN">
<HintPath>..\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Import Include="Microsoft.VisualBasic" /> <Import Include="Microsoft.VisualBasic" />
@@ -113,5 +110,11 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>
</ItemGroup> </ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

135
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -1244,6 +1244,139 @@ Public Class cTelotec_Anmeldung
End Function End Function
Public Shared Function ConvertTAMessageToTelotec(msg As VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) As cTelotec_Anmeldung
Dim telotec As New cTelotec_Anmeldung()
With msg
If .declarationContent IsNot Nothing Then
Dim decl = .declarationContent
telotec.telanm_ART = "TA"
telotec.telanm_BezugsNr = .lrn
telotec.telanm_CRN = .mrn
telotec.MsgType = .msgType
telotec.Refs_LRN = .lrn
telotec.Refs_CRN = .mrn
telotec.Mandant_ID = decl.mandant_ID
telotec.Referenz_ID = decl.interfaceReferenceId
telotec.dec_CreatePersonalID = decl.erstellPersonalID
telotec.dec_CreateDate = decl.erstellDatum
telotec.dec_Template_ID = decl.template_ID
telotec.dec_TotNet = decl.totNet
telotec.dec_TotNetSplit_IND = decl.totNetSplit_IND
telotec.dec_FillPackList_IND = decl.fillPackList_IND
telotec.dec_Memo = decl.memo
telotec.Hea_DecTy = decl.declarationType
telotec.Hea_Simp = decl.reducedDatasetIndicator
telotec.Hea_DecDT = decl.declarationAcceptanceDate
telotec.Hea_WoffD = decl.writeOffDate
telotec.Hea_AccDT = decl.declarationAcceptanceDate
telotec.Hea_ProArrDT = decl.presentationOfTheGoodsDateAndTime
telotec.Hea_PlaDepDT = decl.presentationOfTheGoodsDateAndTime
telotec.Hea_TotGross = decl.grossMass
' telotec.Hea_PayMet = decl.methodOfPayment int erw
telotec.Hea_SecInd = decl.security
telotec.Hea_DestLNG = decl.countryOfDestination
telotec.Hea_DepLNG = decl.countryOfDispatch
telotec.Transp_InMo = decl.inlandModeOfTransport
telotec.Transp_BordMo = decl.modeOfTransportAtTheBorder
telotec.Transp_ContInd = decl.containerIndicator
telotec.Transp_DepIdnt = SafeFirst(decl.departureTransportMeans, Function(dt) dt.identificationNumber)
telotec.Transp_DepNat = SafeFirst(decl.departureTransportMeans, Function(dt) dt.nationality)
' Consignor/Consignee
telotec.ConorTra_Na = SafeGetName(decl.consignor)
'telotec.ConorTra_Strt = decl.consignor.streetAndNumber
'telotec.ConorTra_Pst = decl.consignor?.postcode
'telotec.ConorTra_Cty = decl.consignor?.city
'telotec.ConorTra_Ctry = decl.consignor?.country
telotec.ConorTra_TIN = decl.consignor?.identificationNumber
telotec.ConeeTra_Na = SafeGetName(decl.consignee)
telotec.ConeeTra_Strt = decl.consignee?.streetAndNumber
telotec.ConeeTra_Pst = decl.consignee?.postcode
telotec.ConeeTra_Cty = decl.consignee?.city
telotec.ConeeTra_Ctry = decl.consignee?.country
telotec.ConeeTra_TIN = decl.consignee?.identificationNumber
telotec.Represent_Na = decl.representative?.contactPersonName
telotec.Represent_RIN = decl.representative?.identificationNumber
telotec.Locs_Disp = decl.countryOfDispatch
telotec.Locs_Dest = decl.countryOfDestination
telotec.Locs_GdsLoc = decl.locationOfGoods_PlaceOfGoods
telotec.Locs_GdsLocCd = decl.locationOfGoods_CustomsOffice
' HouseConsignments inkl. ConsignmentItems und Packaging
'If decl.houseConsignment IsNot Nothing Then
' telotec.HouseConsignments = New List(Of cTelotec_Positionsdaten)()
' For Each hc In decl.houseConsignment
' Dim newHc As New cTelotec_HouseConsignment()
' newHc.CountryOfDispatch = hc.countryOfDispatch
' newHc.CountryOfDestination = hc.countryOfDestination
' newHc.GrossMass = hc.grossMass
' newHc.ReferenceNumberUCR = hc.referenceNumberUCR
' newHc.MethodOfPayment = hc.methodOfPayment
' If hc.consignmentItem IsNot Nothing Then
' newHc.ConsignmentItems = New List(Of cTelotec_ConsignmentItem)()
' For Each item In hc.consignmentItem
' Dim newItem As New cTelotec_ConsignmentItem()
' newItem.GoodsItemNumber = item.goodsItemNumber
' newItem.DeclarationGoodsItemNumber = item.declarationGoodsItemNumber
' newItem.DeclarationType = item.declarationType
' newItem.CountryOfDispatch = item.countryOfDispatch
' newItem.CountryOfDestination = item.countryOfDestination
' newItem.DescriptionOfGoods = item.descriptionOfGoods
' newItem.GrossMass = item.grossMass
' newItem.NetMass = item.netMass
' newItem.MethodOfPayment = item.methodOfPayment
' newItem.ReferenceNumberUCR = item.referenceNumberUCR
' If item.packaging IsNot Nothing Then
' newItem.Packaging = New List(Of cTelotec_Packaging)()
' For Each pack In item.packaging
' Dim newPack As New cTelotec_Packaging()
' newPack.TypeOfPackages = pack.typeOfPackages
' newPack.NumberOfPackages = pack.numberOfPackages
' newPack.ShippingMarks = pack.shippingMarks
' newItem.Packaging.Add(newPack)
' Next
' End If
' newHc.ConsignmentItems.Add(newItem)
' Next
' End If
' telotec.HouseConsignments.Add(newHc)
' Next
'End If
End If
End With
telotec.telanm_LetzteBearbeitung = Now
telotec.telanm_Erstellung = Now
telotec.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
telotec.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
telotec.ComIndicator = True
telotec.initData()
Return telotec
End Function
Private Shared Function SafeFirst(Of T, R)(list As List(Of T), selector As Func(Of T, R)) As R
If list Is Nothing OrElse list.Count = 0 Then Return Nothing
Return selector(list(0))
End Function
Private Shared Function SafeGetName(party As Object) As String
If party Is Nothing Then Return Nothing
Return If(party?.consignorName, party?.consigneeName, "")
End Function
End Class End Class
@@ -1971,5 +2104,7 @@ Public Class cTelotec_PositionsdatenDokumente
Return "" Return ""
End Function End Function
End Class End Class

140
UID/usrctlProcedures.Designer.vb generated
View File

@@ -24,6 +24,9 @@ Partial Class usrctlProcedures
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtHMRCApplName = New System.Windows.Forms.TextBox()
Me.Button44 = New System.Windows.Forms.Button()
Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.CheckBox6 = New System.Windows.Forms.CheckBox()
Me.TextBox15 = New System.Windows.Forms.TextBox() Me.TextBox15 = New System.Windows.Forms.TextBox()
Me.Button37 = New System.Windows.Forms.Button() Me.Button37 = New System.Windows.Forms.Button()
@@ -75,6 +78,12 @@ Partial Class usrctlProcedures
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.tbxLog = New System.Windows.Forms.TextBox() Me.tbxLog = New System.Windows.Forms.TextBox()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.Button46 = New System.Windows.Forms.Button()
Me.tctModalTEstLRN = New System.Windows.Forms.TextBox()
Me.Button45 = New System.Windows.Forms.Button()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Button47 = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.lblAnzahl = New System.Windows.Forms.Label() Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -125,9 +134,10 @@ Partial Class usrctlProcedures
Me.Button32 = New System.Windows.Forms.Button() Me.Button32 = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label()
Me.Button33 = New System.Windows.Forms.Button() Me.Button33 = New System.Windows.Forms.Button()
Me.Button43 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button43 = New System.Windows.Forms.Button() Me.Button48 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
@@ -135,6 +145,8 @@ Partial Class usrctlProcedures
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.TabPage4.SuspendLayout()
Me.TabPage5.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'TabControl1 'TabControl1
@@ -142,6 +154,8 @@ Partial Class usrctlProcedures
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Location = New System.Drawing.Point(7, 407) Me.TabControl1.Location = New System.Drawing.Point(7, 407)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
@@ -150,6 +164,9 @@ Partial Class usrctlProcedures
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.Label16)
Me.TabPage3.Controls.Add(Me.txtHMRCApplName)
Me.TabPage3.Controls.Add(Me.Button44)
Me.TabPage3.Controls.Add(Me.CheckBox6) Me.TabPage3.Controls.Add(Me.CheckBox6)
Me.TabPage3.Controls.Add(Me.TextBox15) Me.TabPage3.Controls.Add(Me.TextBox15)
Me.TabPage3.Controls.Add(Me.Button37) Me.TabPage3.Controls.Add(Me.Button37)
@@ -171,6 +188,31 @@ Partial Class usrctlProcedures
Me.TabPage3.Text = "TabPage3" Me.TabPage3.Text = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(434, 58)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(169, 13)
Me.Label16.TabIndex = 80
Me.Label16.Text = "fremde HMRC Application (Name):"
'
'txtHMRCApplName
'
Me.txtHMRCApplName.Location = New System.Drawing.Point(437, 71)
Me.txtHMRCApplName.Name = "txtHMRCApplName"
Me.txtHMRCApplName.Size = New System.Drawing.Size(159, 20)
Me.txtHMRCApplName.TabIndex = 79
'
'Button44
'
Me.Button44.Location = New System.Drawing.Point(437, 9)
Me.Button44.Name = "Button44"
Me.Button44.Size = New System.Drawing.Size(159, 49)
Me.Button44.TabIndex = 78
Me.Button44.Text = "HMRC TOKEN"
Me.Button44.UseVisualStyleBackColor = True
'
'CheckBox6 'CheckBox6
' '
Me.CheckBox6.AutoSize = True Me.CheckBox6.AutoSize = True
@@ -647,6 +689,66 @@ Partial Class usrctlProcedures
Me.tbxLog.Size = New System.Drawing.Size(380, 380) Me.tbxLog.Size = New System.Drawing.Size(380, 380)
Me.tbxLog.TabIndex = 4 Me.tbxLog.TabIndex = 4
' '
'TabPage4
'
Me.TabPage4.Controls.Add(Me.Button46)
Me.TabPage4.Controls.Add(Me.tctModalTEstLRN)
Me.TabPage4.Controls.Add(Me.Button45)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(601, 288)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "MODAL"
Me.TabPage4.UseVisualStyleBackColor = True
'
'Button46
'
Me.Button46.Location = New System.Drawing.Point(221, 42)
Me.Button46.Name = "Button46"
Me.Button46.Size = New System.Drawing.Size(145, 49)
Me.Button46.TabIndex = 67
Me.Button46.Text = "NCTS TEST Senden"
Me.Button46.UseVisualStyleBackColor = True
'
'tctModalTEstLRN
'
Me.tctModalTEstLRN.Location = New System.Drawing.Point(24, 16)
Me.tctModalTEstLRN.Name = "tctModalTEstLRN"
Me.tctModalTEstLRN.Size = New System.Drawing.Size(145, 20)
Me.tctModalTEstLRN.TabIndex = 66
Me.tctModalTEstLRN.Text = "LRN"
'
'Button45
'
Me.Button45.Location = New System.Drawing.Point(24, 42)
Me.Button45.Name = "Button45"
Me.Button45.Size = New System.Drawing.Size(145, 49)
Me.Button45.TabIndex = 16
Me.Button45.Text = "IMPORT TEST Senden"
Me.Button45.UseVisualStyleBackColor = True
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.Button48)
Me.TabPage5.Controls.Add(Me.Button47)
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(601, 288)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "Teleotec"
Me.TabPage5.UseVisualStyleBackColor = True
'
'Button47
'
Me.Button47.Location = New System.Drawing.Point(20, 24)
Me.Button47.Name = "Button47"
Me.Button47.Size = New System.Drawing.Size(145, 49)
Me.Button47.TabIndex = 62
Me.Button47.Text = "getTAD"
Me.Button47.UseVisualStyleBackColor = True
'
'Button18 'Button18
' '
Me.Button18.Location = New System.Drawing.Point(59, 183) Me.Button18.Location = New System.Drawing.Point(59, 183)
@@ -1107,6 +1209,15 @@ Partial Class usrctlProcedures
Me.Button33.Text = "DAKOSY CSV Importieren" Me.Button33.Text = "DAKOSY CSV Importieren"
Me.Button33.UseVisualStyleBackColor = True Me.Button33.UseVisualStyleBackColor = True
' '
'Button43
'
Me.Button43.Location = New System.Drawing.Point(694, 29)
Me.Button43.Name = "Button43"
Me.Button43.Size = New System.Drawing.Size(145, 49)
Me.Button43.TabIndex = 65
Me.Button43.Text = "TELOTEC NCTS"
Me.Button43.UseVisualStyleBackColor = True
'
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
Me.DataGridViewTextBoxColumn1.HeaderText = "dat" Me.DataGridViewTextBoxColumn1.HeaderText = "dat"
@@ -1117,14 +1228,14 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2.HeaderText = "anz" Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' '
'Button43 'Button48
' '
Me.Button43.Location = New System.Drawing.Point(694, 29) Me.Button48.Location = New System.Drawing.Point(209, 24)
Me.Button43.Name = "Button43" Me.Button48.Name = "Button48"
Me.Button43.Size = New System.Drawing.Size(145, 49) Me.Button48.Size = New System.Drawing.Size(145, 49)
Me.Button43.TabIndex = 65 Me.Button48.TabIndex = 63
Me.Button43.Text = "TELOTEC NCTS" Me.Button48.Text = "getTAD File"
Me.Button43.UseVisualStyleBackColor = True Me.Button48.UseVisualStyleBackColor = True
' '
'usrctlProcedures 'usrctlProcedures
' '
@@ -1195,6 +1306,9 @@ Partial Class usrctlProcedures
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout() Me.TabPage2.PerformLayout()
Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout()
Me.TabPage5.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1305,4 +1419,14 @@ Partial Class usrctlProcedures
Friend WithEvents Button37 As Button Friend WithEvents Button37 As Button
Friend WithEvents CheckBox6 As CheckBox Friend WithEvents CheckBox6 As CheckBox
Friend WithEvents Button43 As Button Friend WithEvents Button43 As Button
Friend WithEvents Button44 As Button
Friend WithEvents Label16 As Label
Friend WithEvents txtHMRCApplName As TextBox
Friend WithEvents TabPage4 As TabPage
Friend WithEvents tctModalTEstLRN As TextBox
Friend WithEvents Button45 As Button
Friend WithEvents Button46 As Button
Friend WithEvents TabPage5 As TabPage
Friend WithEvents Button47 As Button
Friend WithEvents Button48 As Button
End Class End Class

69
UID/usrctlProcedures.vb
View File

@@ -18,6 +18,8 @@ Imports System.Data.OleDb
Imports Chilkat Imports Chilkat
Imports TELOTEC_Worker Imports TELOTEC_Worker
Imports GrapeCity Imports GrapeCity
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI
'Imports Microsoft.Office.Interop 'Imports Microsoft.Office.Interop
Public Class usrctlProcedures Public Class usrctlProcedures
@@ -3898,6 +3900,73 @@ Public Class usrctlProcedures
End Try End Try
End Sub End Sub
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
Dim TOKENNAME = InputBox("Bitte Token-Bezeichnung angeben:")
If TOKENNAME <> "" Then
Dim TOKEN = cHMRC.getTOKEN("ENS", True, TOKENNAME, txtHMRCApplName.Text)
MsgBox("REFRESH_TOKEN: " & TOKEN.token_REFRESH_TOKEN & vbNewLine & "BEARER_TOKEN: " & TOKEN.token_BEARER_TOKEN)
End If
End Sub
Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
VERAG_PROG_ALLGEMEIN.cModalTransIMPORT.CreateAndSendMinimalImportDeclaration(tctModalTEstLRN.Text)
End Sub
Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
VERAG_PROG_ALLGEMEIN.cModalTransNCTS.TestNCTSSend()
End Sub
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages()
MsgBox(messages.Count)
For Each mmm In messages
MsgBox(mmm.lrn)
MsgBox(mmm.declarationContent.anmeldedatum)
Next
End Sub
Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
Dim messages As New List(Of TAMessage)()
Using ofd As New OpenFileDialog()
ofd.Title = "Wähle eine JSON-Datei mit TA-Nachrichten"
ofd.InitialDirectory = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON\"
ofd.Filter = "JSON-Dateien (*.json)|*.json|Alle Dateien (*.*)|*.*"
If ofd.ShowDialog() = DialogResult.OK Then
Dim selectedPath As String = ofd.FileName
messages = TELO.ParseTAMessagesFromFile(selectedPath)
MsgBox(messages.Count)
For Each mmm In messages
MsgBox(mmm.lrn)
Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(mmm)
If TELO_ANM.SAVE() Then
MsgBox("SUSSSSS")
End If
Next
Else
Console.WriteLine("🔕 Keine Datei ausgewählt.")
End If
End Using
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) 'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")

124
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4154,12 +4154,17 @@ Public Class cWorker_NCTS
End If End If
End Sub End Sub
Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String) Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String, Optional Division3 As String = "")
If DY_TMP Is Nothing Then Exit Sub If DY_TMP Is Nothing Then Exit Sub
'Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If (DY_TMP.dy_BezugsNr.Contains("IRU0")) Then checkATEZIRU_BereitstellungBezugsNr(DY_TMP.dy_BezugsNr, filePath, Division3)
' Dim fio As New IO.FileInfo(filePath)
' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) End Sub
Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String, Optional Division3 As String = "")
If dy_BezugsNr = "" Then Exit Sub
If (dy_BezugsNr.Contains("IRU0")) OrElse Division3 = "IRU" Then
Try Try
@@ -4170,32 +4175,15 @@ Public Class cWorker_NCTS
End If End If
Dim F As New System.IO.FileInfo(filePath) Dim F As New System.IO.FileInfo(filePath)
' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'Dim DY_server = "91.93.197.91"
'Dim DY_name = "Verag"
'Dim DY_pwd = "5P1PYOr1"
''Dim DY_name = "Verag-test"
''Dim DY_pwd = "A1ZDTK99"
'Dim DY_port = "22"
'Dim DY_PFAD_IN = ""
'Dim DY_PFAD_IN_KD = ""
Dim DY_server = "sftp-01.singlewindow.io" Dim DY_server = "sftp-01.singlewindow.io"
Dim DY_name = "VERAG" Dim DY_name = "VERAG"
Dim DY_pwd = "5P1PYOr1" Dim DY_pwd = "5P1PYOr1"
'Dim DY_name = "Verag-test"
'Dim DY_pwd = "A1ZDTK99"
Dim DY_port = "22" Dim DY_port = "22"
'Dim DY_PFAD_IN = "/TIR/DE/OUT"
Dim DY_PFAD_IN = "/" Dim DY_PFAD_IN = "/"
Dim DY_PFAD_IN_KD = "" Dim DY_PFAD_IN_KD = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
DY_server = "sftp-01.singlewindow.io" DY_server = "sftp-01.singlewindow.io"
'DY_name = "IRU-TEST"
'DY_pwd = "T1AF58OP"
DY_name = "VERAG-TEST" DY_name = "VERAG-TEST"
DY_pwd = "A1ZDTK99" DY_pwd = "A1ZDTK99"
End If End If
@@ -4223,6 +4211,8 @@ Public Class cWorker_NCTS
End If End If
End Sub End Sub
Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
If dy_BezugsNr = "" Then Exit Sub If dy_BezugsNr = "" Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
@@ -4235,63 +4225,63 @@ Public Class cWorker_NCTS
' End If ' End If
End If End If
End Sub End Sub
Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) 'Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
If dy_BezugsNr = "" Then Exit Sub ' If dy_BezugsNr = "" Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) ' Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
If (dy_BezugsNr.Contains("IRU0")) Then ' If (dy_BezugsNr.Contains("IRU0")) Then
' Dim fio As New IO.FileInfo(filePath) ' ' Dim fio As New IO.FileInfo(filePath)
' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) ' ' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
Try ' Try
If Not System.IO.File.Exists(filePath) Then ' If Not System.IO.File.Exists(filePath) Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Exit Sub ' Exit Sub
End If ' End If
Dim F As New System.IO.FileInfo(filePath) ' Dim F As New System.IO.FileInfo(filePath)
'Dim DY_server = "91.93.197.91" ' 'Dim DY_server = "91.93.197.91"
'Dim DY_name = "Verag" ' 'Dim DY_name = "Verag"
'Dim DY_pwd = "5P1PYOr1" ' 'Dim DY_pwd = "5P1PYOr1"
''Dim DY_name = "Verag-test" ' ''Dim DY_name = "Verag-test"
''Dim DY_pwd = "A1ZDTK99" ' ''Dim DY_pwd = "A1ZDTK99"
'Dim DY_port = "22" ' 'Dim DY_port = "22"
'Dim DY_PFAD_IN = "" ' 'Dim DY_PFAD_IN = ""
'Dim DY_PFAD_IN_KD = "" ' 'Dim DY_PFAD_IN_KD = ""
Dim DY_server = "sftp-01.singlewindow.io" ' Dim DY_server = "sftp-01.singlewindow.io"
Dim DY_name = "IRU-TEST" ' Dim DY_name = "IRU-TEST"
Dim DY_pwd = "T1AF58OP" ' Dim DY_pwd = "T1AF58OP"
'Dim DY_name = "Verag-test" ' 'Dim DY_name = "Verag-test"
'Dim DY_pwd = "A1ZDTK99" ' 'Dim DY_pwd = "A1ZDTK99"
Dim DY_port = "22" ' Dim DY_port = "22"
Dim DY_PFAD_IN = "/TIR/DE/OUT" ' Dim DY_PFAD_IN = "/TIR/DE/OUT"
Dim DY_PFAD_IN_KD = "" ' Dim DY_PFAD_IN_KD = ""
'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY) ' 'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd)) ' Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd))
Using client = New Renci.SshNet.SftpClient(ConnectionInfo) ' Using client = New Renci.SshNet.SftpClient(ConnectionInfo)
client.Connect() ' client.Connect()
If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN) ' If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN)
Using uplfileStream = System.IO.File.OpenRead(filePath) ' Using uplfileStream = System.IO.File.OpenRead(filePath)
client.UploadFile(uplfileStream, "." & F.Name, True) ' client.UploadFile(uplfileStream, "." & F.Name, True)
client.RenameFile("." & F.Name, F.Name) ' client.RenameFile("." & F.Name, F.Name)
End Using ' End Using
client.Disconnect() ' client.Disconnect()
End Using ' End Using
Catch ex As Exception ' Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Exit Sub ' Exit Sub
End Try ' End Try
End If ' End If
End Sub 'End Sub
Shared Sub checkATEZ_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String) Shared Sub checkATEZ_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String)

1
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -454,7 +454,6 @@ Public Class frmDYNachrichtenVerarbeitung
'AES/EZA: Wiedervorlage zur Ausfuhr 'AES/EZA: Wiedervorlage zur Ausfuhr
If Not found And cGetMsgType.isAES_E_EXP_FUP_DEXPFE(doc) Then If Not found And cGetMsgType.isAES_E_EXP_FUP_DEXPFE(doc) Then
MsgBox("HALLLO")
If readAES_E_EXP_FUP_DEXPFE(doc) <> "" Then found = True If readAES_E_EXP_FUP_DEXPFE(doc) <> "" Then found = True
End If End If

76
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -25,6 +25,8 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
'Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
'Me.Button27 = New System.Windows.Forms.Button()
Me.txtMRNPrefix = New System.Windows.Forms.TextBox() Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
Me.ATCNRinRE = New System.Windows.Forms.LinkLabel() Me.ATCNRinRE = New System.Windows.Forms.LinkLabel()
Me.PictureBox24 = New System.Windows.Forms.PictureBox() Me.PictureBox24 = New System.Windows.Forms.PictureBox()
@@ -145,6 +147,7 @@ Partial Class frmStartOptions
Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox9 = New System.Windows.Forms.CheckBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.Label49 = New System.Windows.Forms.Label() Me.Label49 = New System.Windows.Forms.Label()
Me.Button28 = New System.Windows.Forms.Button() Me.Button28 = New System.Windows.Forms.Button()
@@ -274,6 +277,8 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
' Me.Label050 = New System.Windows.Forms.Label()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -354,6 +359,8 @@ Partial Class frmStartOptions
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
'Me.pnl.Controls.Add(Me.LinkLabel73)
'Me.pnl.Controls.Add(Me.Button27)
Me.pnl.Controls.Add(Me.txtMRNPrefix) Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.ATCNRinRE) Me.pnl.Controls.Add(Me.ATCNRinRE)
Me.pnl.Controls.Add(Me.PictureBox24) Me.pnl.Controls.Add(Me.PictureBox24)
@@ -433,9 +440,32 @@ Partial Class frmStartOptions
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1229, 920) Me.pnl.Size = New System.Drawing.Size(1229, 970)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'LinkLabel73
'
'Me.LinkLabel73.AutoSize = True
'Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
'Me.LinkLabel73.Location = New System.Drawing.Point(1023, 173)
'Me.LinkLabel73.Name = "LinkLabel73"
'Me.LinkLabel73.Size = New System.Drawing.Size(176, 13)
'Me.LinkLabel73.TabIndex = 160
'Me.LinkLabel73.TabStop = True
'Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren"
'
'Button27
'
'Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
'Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
'Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
'Me.Button27.Location = New System.Drawing.Point(1076, 386)
'Me.Button27.Name = "Button27"
'Me.Button27.Size = New System.Drawing.Size(123, 24)
'Me.Button27.TabIndex = 161
'Me.Button27.Text = "Test Err Mail"
'Me.Button27.UseVisualStyleBackColor = True
'
'txtMRNPrefix 'txtMRNPrefix
' '
Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48) Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48)
@@ -946,7 +976,7 @@ Partial Class frmStartOptions
Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
Me.tbcntr.Location = New System.Drawing.Point(0, 416) Me.tbcntr.Location = New System.Drawing.Point(0, 466)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(1227, 502) Me.tbcntr.Size = New System.Drawing.Size(1227, 502)
@@ -1017,7 +1047,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel68.AutoSize = True Me.LinkLabel68.AutoSize = True
Me.LinkLabel68.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel68.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel68.Location = New System.Drawing.Point(18, 393) Me.LinkLabel68.Location = New System.Drawing.Point(743, 32)
Me.LinkLabel68.Name = "LinkLabel68" Me.LinkLabel68.Name = "LinkLabel68"
Me.LinkLabel68.Size = New System.Drawing.Size(127, 13) Me.LinkLabel68.Size = New System.Drawing.Size(127, 13)
Me.LinkLabel68.TabIndex = 151 Me.LinkLabel68.TabIndex = 151
@@ -1028,7 +1058,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox26.BackgroundImage = CType(resources.GetObject("PictureBox26.BackgroundImage"), System.Drawing.Image) Me.PictureBox26.BackgroundImage = CType(resources.GetObject("PictureBox26.BackgroundImage"), System.Drawing.Image)
Me.PictureBox26.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox26.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox26.Location = New System.Drawing.Point(837, 32) Me.PictureBox26.Location = New System.Drawing.Point(876, 32)
Me.PictureBox26.Name = "PictureBox26" Me.PictureBox26.Name = "PictureBox26"
Me.PictureBox26.Size = New System.Drawing.Size(18, 18) Me.PictureBox26.Size = New System.Drawing.Size(18, 18)
Me.PictureBox26.TabIndex = 141 Me.PictureBox26.TabIndex = 141
@@ -1842,6 +1872,7 @@ Partial Class frmStartOptions
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.MyTextBox06)
Me.TabPage3.Controls.Add(Me.CheckBox9) Me.TabPage3.Controls.Add(Me.CheckBox9)
Me.TabPage3.Controls.Add(Me.Label49) Me.TabPage3.Controls.Add(Me.Label49)
Me.TabPage3.Controls.Add(Me.Button28) Me.TabPage3.Controls.Add(Me.Button28)
@@ -1874,6 +1905,31 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'MyTextBox06
'
Me.MyTextBox06._DateTimeOnly = False
Me.MyTextBox06._numbersOnly = False
Me.MyTextBox06._numbersOnlyKommastellen = ""
Me.MyTextBox06._numbersOnlyTrennzeichen = False
Me.MyTextBox06._Prozent = False
Me.MyTextBox06._ShortDateNew = False
Me.MyTextBox06._ShortDateOnly = False
Me.MyTextBox06._TimeOnly = False
Me.MyTextBox06._TimeOnly_Seconds = False
Me.MyTextBox06._value = "200"
Me.MyTextBox06._Waehrung = False
Me.MyTextBox06._WaehrungZeichen = False
Me.MyTextBox06.ForeColor = System.Drawing.Color.Black
Me.MyTextBox06.Location = New System.Drawing.Point(583, 302)
Me.MyTextBox06.MaxLength = 18
Me.MyTextBox06.MaxLineLength = -1
Me.MyTextBox06.MaxLines_Warning = ""
Me.MyTextBox06.MaxLines_Warning_Label = Nothing
Me.MyTextBox06.Name = "MyTextBox06"
Me.MyTextBox06.Size = New System.Drawing.Size(150, 20)
Me.MyTextBox06.TabIndex = 148
Me.MyTextBox06.Text = "200"
'
'CheckBox9 'CheckBox9
' '
Me.CheckBox9.AutoSize = True Me.CheckBox9.AutoSize = True
@@ -2252,12 +2308,11 @@ Partial Class frmStartOptions
'Label50 'Label50
' '
Me.Label50.AutoSize = True Me.Label50.AutoSize = True
Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label50.Location = New System.Drawing.Point(548, 305)
Me.Label50.Location = New System.Drawing.Point(728, 124)
Me.Label50.Name = "Label50" Me.Label50.Name = "Label50"
Me.Label50.Size = New System.Drawing.Size(27, 13) Me.Label50.Size = New System.Drawing.Size(29, 13)
Me.Label50.TabIndex = 163 Me.Label50.TabIndex = 149
Me.Label50.Text = "Jahr" Me.Label50.Text = "Top:"
' '
'UTAREPdf 'UTAREPdf
' '
@@ -4155,7 +4210,7 @@ Partial Class frmStartOptions
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1229, 920) Me.ClientSize = New System.Drawing.Size(1229, 970)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -4248,6 +4303,7 @@ Partial Class frmStartOptions
Friend WithEvents PictureBox12 As PictureBox Friend WithEvents PictureBox12 As PictureBox
Friend WithEvents LinkLabel20 As LinkLabel Friend WithEvents LinkLabel20 As LinkLabel
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyTextBox06 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents CheckBox1 As CheckBox Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents cbxBu As CheckBox Friend WithEvents cbxBu As CheckBox

12
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2419,6 +2419,8 @@ Public Class frmStartOptions
'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", "")) 'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
betreff = betreff.replace("*00*", "")
If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then
Dim found = False Dim found = False
betreff = betreff.replace("WG: ", "") betreff = betreff.replace("WG: ", "")
@@ -5629,9 +5631,9 @@ weiter:
' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL") ' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
Dim top = 200 Dim top = 200
'If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then If IsNumeric(MyTextBox06._value) AndAlso CInt(MyTextBox06._value) > 0 Then
' top = CInt(MyTextBox6._value) top = CInt(MyTextBox06._value)
'End If End If
updateATEZStatusByMRNTop(top) updateATEZStatusByMRNTop(top)
End Sub End Sub
@@ -5857,6 +5859,10 @@ weiter:
End Sub End Sub
'Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles Button27.Click
' cErrorHandler.sendERRORperMail(My.Application.Info.AssemblyName, "TEST", "", "error@verag.ag", "", "Error_Test")
'End Sub
Private Sub LinkLabel52_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked Private Sub LinkLabel52_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub