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

KuundenAdresse Zusatz; MDM: UTA-Mautberichterstellung; VZPreise;Teleotec-Doks;MA-AccessCode GRN AT

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-11 09:30:55 +02:00
parent 190b4e6b45
commit 15e732c8f4
33 changed files with 1182 additions and 2051 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -563,6 +563,7 @@ Public Class usrCntlATLAS_NCTS
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
ncts_OUT.ncts_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""

44
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.Designer.vb generated
View File

@@ -47,6 +47,7 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnBrgUNISPED_AT = New System.Windows.Forms.Button()
Me.btnBrgUNISPED_DE = New System.Windows.Forms.Button()
Me.btnBRG_IMEX_AT = New System.Windows.Forms.Button()
Me.FlowLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
@@ -54,7 +55,7 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(12, 10)
Me.Label8.Location = New System.Drawing.Point(5, 10)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(132, 13)
Me.Label8.TabIndex = 57
@@ -65,10 +66,12 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.txtAbgabenbetrag._DateTimeOnly = False
Me.txtAbgabenbetrag._numbersOnly = False
Me.txtAbgabenbetrag._numbersOnlyKommastellen = ""
Me.txtAbgabenbetrag._numbersOnlyTrennzeichen = True
Me.txtAbgabenbetrag._Prozent = False
Me.txtAbgabenbetrag._ShortDateNew = False
Me.txtAbgabenbetrag._ShortDateOnly = False
Me.txtAbgabenbetrag._TimeOnly = False
Me.txtAbgabenbetrag._TimeOnly_Seconds = False
Me.txtAbgabenbetrag._value = Nothing
Me.txtAbgabenbetrag._Waehrung = True
Me.txtAbgabenbetrag._WaehrungZeichen = True
@@ -111,10 +114,12 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.txtBezeichnung._DateTimeOnly = False
Me.txtBezeichnung._numbersOnly = False
Me.txtBezeichnung._numbersOnlyKommastellen = ""
Me.txtBezeichnung._numbersOnlyTrennzeichen = True
Me.txtBezeichnung._Prozent = False
Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._TimeOnly_Seconds = False
Me.txtBezeichnung._value = Nothing
Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True
@@ -148,20 +153,21 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.txtZugriffscode._DateTimeOnly = False
Me.txtZugriffscode._numbersOnly = False
Me.txtZugriffscode._numbersOnlyKommastellen = ""
Me.txtZugriffscode._numbersOnlyTrennzeichen = False
Me.txtZugriffscode._Prozent = False
Me.txtZugriffscode._ShortDateNew = False
Me.txtZugriffscode._ShortDateOnly = False
Me.txtZugriffscode._TimeOnly = False
Me.txtZugriffscode._TimeOnly_Seconds = False
Me.txtZugriffscode._value = Nothing
Me.txtZugriffscode._Waehrung = False
Me.txtZugriffscode._WaehrungZeichen = True
Me.txtZugriffscode._WaehrungZeichen = False
Me.txtZugriffscode.ForeColor = System.Drawing.Color.Black
Me.txtZugriffscode.Location = New System.Drawing.Point(545, 104)
Me.txtZugriffscode.MaxLineLength = -1
Me.txtZugriffscode.MaxLines_Warning = ""
Me.txtZugriffscode.MaxLines_Warning_Label = Nothing
Me.txtZugriffscode.Name = "txtZugriffscode"
Me.txtZugriffscode.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtZugriffscode.Size = New System.Drawing.Size(363, 20)
Me.txtZugriffscode.TabIndex = 73
'
@@ -186,10 +192,12 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.txtGRN._DateTimeOnly = False
Me.txtGRN._numbersOnly = False
Me.txtGRN._numbersOnlyKommastellen = ""
Me.txtGRN._numbersOnlyTrennzeichen = True
Me.txtGRN._Prozent = False
Me.txtGRN._ShortDateNew = False
Me.txtGRN._ShortDateOnly = False
Me.txtGRN._TimeOnly = False
Me.txtGRN._TimeOnly_Seconds = False
Me.txtGRN._value = Nothing
Me.txtGRN._Waehrung = False
Me.txtGRN._WaehrungZeichen = True
@@ -210,7 +218,7 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.btnBrgSGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgSGS.ForeColor = System.Drawing.Color.Black
Me.btnBrgSGS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgSGS.Location = New System.Drawing.Point(2, 44)
Me.btnBrgSGS.Location = New System.Drawing.Point(466, 2)
Me.btnBrgSGS.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgSGS.Name = "btnBrgSGS"
Me.btnBrgSGS.Size = New System.Drawing.Size(60, 38)
@@ -223,10 +231,12 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.txtEORI_TIN._DateTimeOnly = False
Me.txtEORI_TIN._numbersOnly = False
Me.txtEORI_TIN._numbersOnlyKommastellen = ""
Me.txtEORI_TIN._numbersOnlyTrennzeichen = True
Me.txtEORI_TIN._Prozent = False
Me.txtEORI_TIN._ShortDateNew = False
Me.txtEORI_TIN._ShortDateOnly = False
Me.txtEORI_TIN._TimeOnly = False
Me.txtEORI_TIN._TimeOnly_Seconds = False
Me.txtEORI_TIN._value = Nothing
Me.txtEORI_TIN._Waehrung = False
Me.txtEORI_TIN._WaehrungZeichen = True
@@ -247,7 +257,7 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.btnBrgSonstige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgSonstige.ForeColor = System.Drawing.Color.Black
Me.btnBrgSonstige.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgSonstige.Location = New System.Drawing.Point(130, 44)
Me.btnBrgSonstige.Location = New System.Drawing.Point(66, 44)
Me.btnBrgSonstige.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgSonstige.Name = "btnBrgSonstige"
Me.btnBrgSonstige.Size = New System.Drawing.Size(80, 38)
@@ -356,7 +366,7 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.btnEKOL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnEKOL.ForeColor = System.Drawing.Color.Black
Me.btnEKOL.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnEKOL.Location = New System.Drawing.Point(66, 44)
Me.btnEKOL.Location = New System.Drawing.Point(2, 44)
Me.btnEKOL.Margin = New System.Windows.Forms.Padding(2)
Me.btnEKOL.Name = "btnEKOL"
Me.btnEKOL.Size = New System.Drawing.Size(60, 38)
@@ -375,9 +385,10 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSGS)
Me.FlowLayoutPanel.Controls.Add(Me.btnEKOL)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSonstige)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(13, 24)
Me.FlowLayoutPanel.Controls.Add(Me.btnBRG_IMEX_AT)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(6, 24)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(518, 53)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(538, 53)
Me.FlowLayoutPanel.TabIndex = 79
'
'btnBrgUNISPED_AT
@@ -414,6 +425,22 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Me.btnBrgUNISPED_DE.UseVisualStyleBackColor = False
Me.btnBrgUNISPED_DE.Visible = False
'
'btnBRG_IMEX_AT
'
Me.btnBRG_IMEX_AT.BackColor = System.Drawing.Color.White
Me.btnBRG_IMEX_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBRG_IMEX_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBRG_IMEX_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBRG_IMEX_AT.ForeColor = System.Drawing.Color.Black
Me.btnBRG_IMEX_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBRG_IMEX_AT.Location = New System.Drawing.Point(150, 44)
Me.btnBRG_IMEX_AT.Margin = New System.Windows.Forms.Padding(2)
Me.btnBRG_IMEX_AT.Name = "btnBRG_IMEX_AT"
Me.btnBRG_IMEX_AT.Size = New System.Drawing.Size(80, 38)
Me.btnBRG_IMEX_AT.TabIndex = 81
Me.btnBRG_IMEX_AT.Text = "IMEX (AT)"
Me.btnBRG_IMEX_AT.UseVisualStyleBackColor = False
'
'usrCntlATLAS_ncts_SicherheitPos
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -467,4 +494,5 @@ Partial Class usrCntlATLAS_ncts_SicherheitPos
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents btnBrgUNISPED_AT As Button
Friend WithEvents btnBrgUNISPED_DE As Button
Friend WithEvents btnBRG_IMEX_AT As Button
End Class

23
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb
View File

@@ -1,5 +1,5 @@
Public Class usrCntlATLAS_ncts_SicherheitPos
Property ncts_ART = "T-"
Property ncts_ART = "" '"T-"
Public Event CHANGED()
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(FIRMA_DY)
@@ -30,6 +30,7 @@
btnBrgUNISPED_DE.Visible = True
btnBrgVERAG_AT.Visible = False
btnBrgVERAG_DE.Visible = False
btnBRG_IMEX_AT.Visible = False
End Select
End Sub
@@ -53,6 +54,7 @@
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case "05AT500000G000EU9" : setBtn(btnBrgUNISPED_AT, True)
Case "17DE0000000071270" : setBtn(btnBrgUNISPED_DE, True)
Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select
@@ -87,6 +89,7 @@
setBtn(btnBrgUNISPED_DE, False)
'If resetControls Then
cboArtSicherheit.changeItem("")
txtGRN.Text = ""
txtEORI_TIN.Text = ""
@@ -100,8 +103,9 @@
txtGRN.Text = "05AT510000G000FP7"
txtEORI_TIN.Text = "ATEOS1000000199"
txtZugriffscode.Text = "" '"0000"
txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text)
ncts_ART = "VERAG_AT" : txtArtDetail.Text = "Bürgschaft VERAG Spedition AG (Österreich)" & vbNewLine & "05AT510000G000FP7"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
cboArtSicherheit.changeItem("0") 'Befreigung
setBtn(btnBrgVERAG_AT, True)
ElseIf sender Is btnBrgVERAG_DE Then
txtGRN.Text = "17DE0000000071678"
@@ -118,6 +122,15 @@
ncts_ART = "TOBB" : txtArtDetail.Text = "Sicherheit der Firma TOBB"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnBrgTOBB, True)
ElseIf sender Is btnBRG_IMEX_AT Then
txtGRN.Text = "16AT520000G000VA6"
txtEORI_TIN.Text = "ATEOS1000059735"
txtZugriffscode.Text = ""
txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text)
ncts_ART = "IMEX_AT" : txtArtDetail.Text = "Bürgschaft IMEX Customs Service GmbH (Österreich)" & vbNewLine & "16AT520000G000VA6"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnBRG_IMEX_AT, True)
ElseIf sender Is btnBrgSGS Then
txtGRN.Text = "16DE0000000068410"
txtEORI_TIN.Text = "DE3331326"
@@ -200,6 +213,11 @@
SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value)
SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value)
SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value)
'Falls Zugriffscode leer --> von Mitarbeiterdaten (AT BRG)
If If(SA.nctsSA_Zugriffcode, "") = "" Then
SA.nctsSA_Zugriffcode = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(SA.nctsSA_GRN)
End If
SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value)
If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0
Return SA
@@ -218,6 +236,7 @@
Select Case If(SA.nctsSA_GRN, "")
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select