Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -744,7 +744,7 @@ Public Class cFakturierung
|
||||
rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
|
||||
rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
|
||||
rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6"
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
|
||||
|
||||
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
|
||||
@@ -870,7 +870,7 @@ Public Class cFakturierung
|
||||
rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
|
||||
rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
|
||||
rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6"
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
|
||||
|
||||
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
@@ -935,7 +935,7 @@ Public Class cFakturierung
|
||||
rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
|
||||
rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
|
||||
rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6"
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
|
||||
|
||||
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
|
||||
6
SDL/Fakturierung/rptRechnungDruck.Designer.vb
generated
6
SDL/Fakturierung/rptRechnungDruck.Designer.vb
generated
@@ -844,14 +844,14 @@ Partial Public Class rptRechnungDruck
|
||||
'
|
||||
'lblFirma
|
||||
'
|
||||
Me.lblFirma.Height = 0.1181102!
|
||||
Me.lblFirma.Height = 0.2723066!
|
||||
Me.lblFirma.HyperLink = Nothing
|
||||
Me.lblFirma.Left = 0.515!
|
||||
Me.lblFirma.Name = "lblFirma"
|
||||
Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
|
||||
Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: bottom; dd" &
|
||||
"o-char-set: 1"
|
||||
Me.lblFirma.Text = "VERAG Spedition AG, A-4975 Suben"
|
||||
Me.lblFirma.Top = 1.498291!
|
||||
Me.lblFirma.Top = 1.344095!
|
||||
Me.lblFirma.Width = 3.619686!
|
||||
'
|
||||
'Label1
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@@ -694,14 +694,14 @@ Partial Public Class rptSammelRechnungDruck
|
||||
'
|
||||
'lblFirma
|
||||
'
|
||||
Me.lblFirma.Height = 0.1181102!
|
||||
Me.lblFirma.Height = 0.2951814!
|
||||
Me.lblFirma.HyperLink = Nothing
|
||||
Me.lblFirma.Left = 0.5149997!
|
||||
Me.lblFirma.Name = "lblFirma"
|
||||
Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
|
||||
Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: bottom; dd" &
|
||||
"o-char-set: 1"
|
||||
Me.lblFirma.Text = "VERAG Spedition AG, A-4975 Suben"
|
||||
Me.lblFirma.Top = 1.473528!
|
||||
Me.lblFirma.Top = 1.296457!
|
||||
Me.lblFirma.Width = 3.619685!
|
||||
'
|
||||
'lblLKWIdUebeschrift
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.3.3.6")>
|
||||
<Assembly: AssemblyFileVersion("1.3.3.6")>
|
||||
<Assembly: AssemblyVersion("1.3.3.7")>
|
||||
<Assembly: AssemblyFileVersion("1.3.3.7")>
|
||||
|
||||
@@ -356,8 +356,8 @@ Class cTELOTECInterface_Send
|
||||
If POS.Item_Status IsNot Nothing Then XML_POS.Item_Status = POS.Item_Status
|
||||
If POS.Item_ComCd IsNot Nothing Then XML_POS.Item_ComCd = POS.Item_ComCd
|
||||
If POS.Item_GdsDes IsNot Nothing Then XML_POS.Item_GdsDes = POS.Item_GdsDes
|
||||
If POS.Item_Gross IsNot Nothing Then XML_POS.Item_Gross = CDbl(POS.Item_Gross)
|
||||
If POS.Item_Net IsNot Nothing Then XML_POS.Item_Net = CDbl(POS.Item_Net)
|
||||
If POS.Item_Gross IsNot Nothing AndAlso POS.Item_Gross <> "" Then XML_POS.Item_Gross = CDbl(POS.Item_Gross)
|
||||
If POS.Item_Net IsNot Nothing AndAlso POS.Item_Net <> "" Then XML_POS.Item_Net = CDbl(POS.Item_Net)
|
||||
If POS.Item_Orig IsNot Nothing Then XML_POS.Item_Orig = POS.Item_Orig
|
||||
If POS.Item_ProcCd IsNot Nothing Then XML_POS.Item_ProcCd = POS.Item_ProcCd
|
||||
If POS.Item_ProcAddCd IsNot Nothing Then XML_POS.Item_ProcAddCd = POS.Item_ProcAddCd
|
||||
@@ -385,7 +385,7 @@ Class cTELOTECInterface_Send
|
||||
XML_PK.Pos_ID = POS.Pos_ID
|
||||
|
||||
|
||||
If PK.Pack_Nr IsNot Nothing Then XML_PK.Pack_Nr = PK.Pack_Nr
|
||||
If PK.Pack_Nr IsNot Nothing Then XML_PK.Pack_Nr = CInt(PK.Pack_Nr)
|
||||
If PK.Pack_Kind IsNot Nothing Then XML_PK.Pack_Kind = PK.Pack_Kind
|
||||
XML_POS.vifDecPack.Add(XML_PK)
|
||||
|
||||
@@ -408,7 +408,7 @@ Class cTELOTECInterface_Send
|
||||
If DOC.DocCerts_DocCd IsNot Nothing Then XML_DOC.DocCerts_DocCd = DOC.DocCerts_DocCd
|
||||
If DOC.DocCerts_DTy IsNot Nothing Then XML_DOC.DocCerts_DTy = DOC.DocCerts_DTy
|
||||
If DOC.DocCerts_DRef IsNot Nothing Then XML_DOC.DocCerts_DRef = DOC.DocCerts_DRef
|
||||
If DOC.DocCerts_IssD IsNot Nothing Then XML_DOC.DocCerts_IssD = DOC.DocCerts_IssD
|
||||
If DOC.DocCerts_IssD IsNot Nothing AndAlso IsDate(DOC.DocCerts_IssD) Then XML_DOC.DocCerts_IssD = CDate(DOC.DocCerts_IssD)
|
||||
If DOC.DocCerts_IssCtry IsNot Nothing Then XML_DOC.DocCerts_IssCtry = DOC.DocCerts_IssCtry
|
||||
If DOC.DocCerts_DTIN IsNot Nothing Then XML_DOC.DocCerts_DTIN = DOC.DocCerts_DTIN
|
||||
If DOC.DocCerts_UidVid IsNot Nothing Then XML_DOC.DocCerts_UidVid = DOC.DocCerts_UidVid
|
||||
@@ -421,6 +421,32 @@ Class cTELOTECInterface_Send
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If POS.MASSEINHEITEN IsNot Nothing AndAlso POS.MASSEINHEITEN.Count > 0 Then
|
||||
For Each DOC In POS.MASSEINHEITEN
|
||||
Dim XML_SUPPL As New vifDecSupplUnt
|
||||
|
||||
|
||||
XML_SUPPL.Mandant_ID = XML.Mandant_ID
|
||||
XML_SUPPL.Bereich_ID = XML.Bereich_ID
|
||||
XML_SUPPL.Referenz_ID = XML.Referenz_ID
|
||||
XML_SUPPL.ComIndicator = XML.ComIndicator
|
||||
XML_SUPPL.Pos_ID = POS.Pos_ID
|
||||
|
||||
|
||||
If DOC.SupplUnt_ID IsNot Nothing Then XML_SUPPL.SupplUnt_ID = DOC.SupplUnt_ID
|
||||
If DOC.SupplUnt_Unit IsNot Nothing Then XML_SUPPL.SupplUnt_Unit = DOC.SupplUnt_Unit
|
||||
If DOC.SupplUnt_SUQuant IsNot Nothing Then
|
||||
' MsgBox(DOC.SupplUnt_SUQuant)
|
||||
XML_SUPPL.SupplUnt_SUQuant = CDbl(DOC.SupplUnt_SUQuant)
|
||||
End If
|
||||
|
||||
|
||||
XML_POS.vifDecSupplUnt.Add(XML_SUPPL)
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
XML.vifDecItem.Add(XML_POS)
|
||||
|
||||
Next
|
||||
|
||||
@@ -5,6 +5,9 @@ Imports Tamir.SharpSsh
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports Org.BouncyCastle.Crypto.Agreement
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports TAlex.WPF.Helpers
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports Org.BouncyCastle.Math.EC.Multiplier
|
||||
Public Class usrCntlTCeZOLL_EZA
|
||||
|
||||
Property ALLG As usrCntlTCeZOLL_EZA_Allg
|
||||
@@ -543,7 +546,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
TC_ANM.telanm_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
|
||||
'Status?
|
||||
TC_ANM.initData()
|
||||
TC_ANM.SAVE() 'Speichern, ID wird erzeugt
|
||||
'TC_ANM.SAVE() 'Speichern, ID wird erzeugt
|
||||
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
@@ -552,7 +555,9 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Telotec Software möglich.", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
|
||||
loadDYZollanmeldungen() '--> SAVE Ausgebelende!!!!!!!!!
|
||||
|
||||
If TC_ANM IsNot Nothing Then
|
||||
'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
@@ -573,18 +578,19 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
|
||||
TC_ANM.Hea_DecDT = Now 'Anmeldedatum
|
||||
' TC_ANM.Hea_DecPlc Ort
|
||||
'C_ANM.Mandant_ID = "VERCUS"
|
||||
TC_ANM.Transp_ContInd = 0
|
||||
TC_ANM.Declarant_TIN = "ATEOS1000059735" 'EORI
|
||||
|
||||
|
||||
|
||||
cTELOTECInterface_Send.loadInClass_VersandanmeldungEZA(TC_ANM, Me)
|
||||
If Not TC_ANM.SAVE() Then Exit Sub
|
||||
' If Not TC_ANM.SAVE() Then Exit Sub
|
||||
|
||||
|
||||
Dim saveFile = ""
|
||||
If cTELOTECInterface_Send.generateVersandanmeldungEZA(TC_ANM, saveFile, cboDakosyAction._value) Then
|
||||
MsgBox(saveFile)
|
||||
'MsgBox(saveFile)
|
||||
If saveFile <> "" Then
|
||||
If Not cTC_Functions.send_Data_To_TC(saveFile, BezugsNr, TC_ANM.telanm_id, FIRMA_DY) Then
|
||||
MsgBox("Sendefehler!")
|
||||
@@ -708,6 +714,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
'Laden des Bereiches aus dem Excel:
|
||||
Dim myRange As Excel.Range
|
||||
myRange = Blatt.Range("B" & startRows & ":N" & endRows & "")
|
||||
' MsgBox("B" & startRows & ":N" & endRows & "")
|
||||
Dim myArray As Object(,) '<-- declared as 2D Array
|
||||
myArray = myRange.Value 'store the content of each cell
|
||||
'myArray(i_soll2 - startRows + 1, 4)
|
||||
@@ -717,8 +724,9 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
If splitTNR Then
|
||||
DT = aggregierenTrendxolTNR(myArray) '--> TNR, Orig, Curr
|
||||
Else
|
||||
aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr
|
||||
DT = aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr
|
||||
End If
|
||||
' MsgBox("agg" & myArray.Count)
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
@@ -747,7 +755,8 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
POSITION.PACKSTUECKE.Clear()
|
||||
Dim PK As New TELOTEC_Worker.cTelotec_Packstuecke
|
||||
PK.Pack_Kind = "PK"
|
||||
PK.Pack_Nr = row("SumQty").ToString()
|
||||
' MsgBox(row("SumQty"))
|
||||
PK.Pack_Nr = CInt(row("SumQty"))
|
||||
POSITION.PACKSTUECKE.Add(PK)
|
||||
|
||||
If row("Currency") = "EUR" Then
|
||||
@@ -758,6 +767,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
POSITION.Item_GdsDes = desc
|
||||
POSITION.Item_Orig = row("Origin").ToString()
|
||||
|
||||
' MsgBox(POSITION.Item_GdsDes)
|
||||
|
||||
|
||||
TC_ANM.POSITIONSDATEN.Add(POSITION)
|
||||
@@ -850,6 +860,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
'DT.Columns.Add("A")
|
||||
DT.Columns.Add("Description")
|
||||
DT.Columns.Add("Tariff")
|
||||
DT.Columns.Add("TariffNf")
|
||||
DT.Columns.Add("Currency")
|
||||
DT.Columns.Add("Origin")
|
||||
DT.Columns.Add("SumQty")
|
||||
@@ -899,17 +910,20 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
' 'MsgBox("h> " & r("H"))
|
||||
' MsgBox("i> " & r("I"))
|
||||
'Next
|
||||
|
||||
'Key .Description = row.Field(Of String)("D") & ", " & row.Field(Of String)("F"),
|
||||
|
||||
Dim amountGrpByDates = From row In DT
|
||||
Group row By groupKeys = New With {
|
||||
Key .Orig = row.Field(Of String)("E"),
|
||||
Key .Description = row.Field(Of String)("D") & ", " & row.Field(Of String)("F"),
|
||||
Key .Description = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.getKN8FromTNR(row.Field(Of String)("G")) & ", hier: " & row.Field(Of String)("D") & "," & row.Field(Of String)("F") & ",etc.",
|
||||
Key .Tnr = row.Field(Of String)("G"),
|
||||
Key .Curr = row.Field(Of String)("N")
|
||||
} Into Group
|
||||
Select New With {
|
||||
Key .Params = groupKeys,
|
||||
.SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I")),
|
||||
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
|
||||
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
|
||||
' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))}
|
||||
|
||||
|
||||
@@ -917,12 +931,22 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
Call CreateDataTableAgg(DT_AGG) 'Create the DataTable and all Columns
|
||||
|
||||
|
||||
|
||||
|
||||
For Each grp In amountGrpByDates
|
||||
'Dim row As New DataRow
|
||||
'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "")
|
||||
DT_AGG.Rows.Add({grp.Params.Description, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
|
||||
DT_AGG.Rows.Add({grp.Params.Description, grp.Params.Tnr, "", grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
|
||||
Next
|
||||
|
||||
If MsgBox("Excel ausgeben?", vbYesNo) = vbYes Then
|
||||
|
||||
'Excel ausgeben
|
||||
SDL.cProgramFunctions.genExcelCSVFromDT(DT_AGG)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'DT.AsEnumerable().GroupBy(row >= row.Field < Int() > ("G"))
|
||||
'Dim myArrayAgg As Object(,) '<-- declared as 2D Array
|
||||
@@ -974,6 +998,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function aggregierenTrendxolTNR(myArray) As DataTable
|
||||
Try
|
||||
Dim DT As DataTable = New DataTable()
|
||||
@@ -1017,17 +1042,20 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
' 'MsgBox("h> " & r("H"))
|
||||
' MsgBox("i> " & r("I"))
|
||||
'Next
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
|
||||
Dim amountGrpByDates = From row In DT
|
||||
Group row By groupKeys = New With {
|
||||
Key .Orig = row.Field(Of String)("E"),
|
||||
Key .Tnr = row.Field(Of String)("G"),
|
||||
Key .Description = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.getKN8FromTNR(row.Field(Of String)("G")),
|
||||
Key .Curr = row.Field(Of String)("N")
|
||||
} Into Group
|
||||
Select New With {
|
||||
Key .Params = groupKeys,
|
||||
.SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I")),
|
||||
.Desc = "zB: " & Group.Min(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & " / " & Group.Max(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & ", etc.",
|
||||
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
|
||||
.Desc = ", hier: " & Group.Min(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & " / " & Group.Max(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & ", etc.",
|
||||
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
|
||||
' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))}
|
||||
'row.Field(Of String)("D") & ", " & row.Field(Of String)("F")
|
||||
|
||||
@@ -1038,12 +1066,19 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
For Each grp In amountGrpByDates
|
||||
'Dim row As New DataRow
|
||||
'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "")
|
||||
MsgBox(grp.SumQTY)
|
||||
|
||||
DT_AGG.Rows.Add({grp.Desc, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
|
||||
' MsgBox(grp.SumQTY)
|
||||
DT_AGG.Rows.Add({grp.Params.Description & grp.Desc, grp.Params.Tnr, "", grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
|
||||
Next
|
||||
|
||||
|
||||
If MsgBox("Excel ausgeben?", vbYesNo) = vbYes Then
|
||||
|
||||
'Excel ausgeben
|
||||
SDL.cProgramFunctions.genExcelCSVFromDT(DT_AGG)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'DT.AsEnumerable().GroupBy(row >= row.Field < Int() > ("G"))
|
||||
'Dim myArrayAgg As Object(,) '<-- declared as 2D Array
|
||||
|
||||
@@ -1117,7 +1152,7 @@ Public Class usrCntlTCeZOLL_EZA
|
||||
' MsgBox(Blatt.Range("B" & zeile).Value.ToString())
|
||||
' Überprüfen, ob in Spalte B (2) "DESCRIPTION" steht
|
||||
If Blatt.Range("B" & zeile).Value IsNot Nothing AndAlso Blatt.Range("B" & zeile).Value.ToString().Trim().ToUpper() = "DESCRIPTION" Then
|
||||
MsgBox(Blatt.Range("B" & zeile).Value.ToString())
|
||||
' MsgBox(Blatt.Range("B" & zeile).Value.ToString())
|
||||
startRows = zeile + 1
|
||||
gefunden = True
|
||||
Exit While
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -123,6 +123,9 @@
|
||||
<metadata name="clmnTarifnummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnTnrNf.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnWarenbeschreibung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
@@ -153,33 +156,6 @@
|
||||
<metadata name="clmnAnhDatum.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnOrigin.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnTarifnummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnWarenbeschreibung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPackstuecke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPkArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnRohmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnEigenmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnWaehrung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnAnhart.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
|
||||
@@ -1,6 +1,8 @@
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports Microsoft.Office.Core
|
||||
Imports Org.BouncyCastle.Crypto.Agreement
|
||||
Imports sun.security.pkcs10
|
||||
Imports VERAG_PROG_ALLGEMEIN.MicCustExportComponents
|
||||
|
||||
Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
Property EZA_ART = "EZA"
|
||||
@@ -23,37 +25,8 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
|
||||
'sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenInlandLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
txtRechnungspreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
cboZollrStatus.Items.Clear()
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CO", "CO"))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IM", "IM"))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
|
||||
|
||||
cboStatStatus.Items.Clear()
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Ware, statistisch nicht erfassbar", "01"))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Ware wird von Betiligtem gemeldet", "03"))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Ware ist statistisch zu erfassen", "04"))
|
||||
|
||||
cboVerfahren.Items.Clear()
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr ohne MWSt-freie Lieferung", "40"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr mit MWSt-freie Lieferung", "42"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("45 - Überführung von Waren in den zollrechtlich und mehrwertsteuer- oder verbrauchsteuerrechtlich freien Verkehr und deren Überführung in ein Steuerlagerverfahren ", "45"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("49 - Überführung von Gemeinschaftswaren in den steuerrechtlich freien Verkehr im Rahmen des Warenverkehrs zwischen Teilen des Zollgebiets der Gemeinschaft", "49"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
|
||||
|
||||
|
||||
|
||||
@@ -82,30 +55,6 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigInland.changeItem("3")
|
||||
|
||||
cboVerkehrszweigGrenze.Items.Clear()
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigGrenze.changeItem("3")
|
||||
|
||||
|
||||
cboGeschaeftsArt.Items.Clear()
|
||||
@@ -113,17 +62,6 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Expresssendungen", "A"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugelassende Wirtschaftsbeteiligte", "E"))
|
||||
|
||||
cboArtGrenzUeberschreitung.Items.Clear()
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - LKW", "01"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Schiff (einschl. sonstiger Wasserfahrzeuge wie Segel-, Ruderboote, Jetski etc.)", "02"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Waggon (einschl. sonstiger Schienenfahrzeuge)", "03"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Flugzeug (einschl. sonstiger Luftfahrtgeräte wie Hubschrauber etc.)", "04"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - PKW (einschl. sonstiger Kraftfahrzeuge wie Motorrad, Roller etc.)", "05"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Ohne (einschl. muskelkraftbetriebener Beförderungsmittel wie Fahrrad etc.)", "06"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Andere (Postsendung, Rohrleitung, Bef.mittel mit eigenem Antrieb)", "07"))
|
||||
cboArtGrenzUeberschreitung.changeItem("01")
|
||||
|
||||
|
||||
|
||||
cboZahlungsweise.Items.Clear()
|
||||
@@ -192,108 +130,12 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
cboGeschaeftsArt.changeItem("")
|
||||
|
||||
|
||||
sbBestimmungsBundesland.Items.Clear()
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Schleswig-Holstein", "01"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Hamburg", "02"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Niedersachsen", "03"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Bremen", "04"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - Nordrhein-Westfalen", "05"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Hessen", "06"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Rheinland-Pfalz", "07"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("08 - Baden-Württemberg", "08"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("09 - Bayern", "09"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Saarland", "10"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Berlin", "11"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Brandenburg", "12"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Mecklenburg-Vorpommern", "13"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Sachsen", "14"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("15 - Sachsen-Anhalt", "15"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Thüringen", "16"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("25 - Für das Ausland bestimmt", "25"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Ursprungsausland", "99"))
|
||||
|
||||
|
||||
cboLieferbedingungSchluessel.Items.Clear()
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - ab Werk", "1"))
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - frei deutsche Grenze", "3"))
|
||||
|
||||
|
||||
cboArtVerfahrenUeberfuehrung.Items.Clear()
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-A - Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-A"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-D - vorzeitige Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-D"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-C - vereinfachte Einzelzollanmeldung", "VZA-C"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-F - vereinfachte, vorzeitige Einzelzollanmeldung", "VZA-F"))
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("")
|
||||
|
||||
cboVertretungsart.Items.Clear()
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
|
||||
cboVertretungsart.changeItem("")
|
||||
|
||||
cboVPArt.Items.Clear()
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
|
||||
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Ausbesserungsschein", "A"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AE - Ausfuhranmeldung für Erstattungszwecke", "AE"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Als Versandschein genutzt", "ATA"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Carnet ATA", "ATA"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-AV - Aktive Veredelung als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-AV"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATNEU - Summarische Anmeldung im IT-Verfahren ATLAS, Verfahrensbereich SumA ", "ATNEU"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-ZL - Zolllagerverfahren als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-ZL"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AV - Abmeldung aus der aktiven Veredelung", "AV"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ESUMA - Eingangs - SumA", "ESUMA"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FV - Anmeldung aus d. fr. Verkehr zur bes. Verw.", "FV"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Vom Verfahren erzeugte Registriernummer, die nicht angenommen, für ungültig erklärt oder storniert wurde", "GB"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAN - Rheinmanifest", "MAN"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MO - Anm.für ausfuhrabgabepflichtige MO-Waren", "MO"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OESUMA - Ohne ESumA gemäß Art. 136 UZK, Art. 104 UZK-DA (ohne Carnet ATA und Truppenverwendung) oder aufgrund eines Abkommens, z.B. EU - CH", "OESUMA"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OHNE", "OHNE"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("POST - Zollinhaltserklärung(für im Postverkehr gestellte Sendungen, die nicht im Postübergabebogen erfasst werden)", "POST"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PUEB - Postübergabebogen(für im Postverkehr gestellte Sendungen, die im Postübergabebogen erfasst werden)", "PUEB"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T- - Versandschein", "T-"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TIR - Carnet TIR", "TIR"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRPPVW - Truppenverwendung", "TRPPVW"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandschein", "T1"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1CF - Container - Frachtbrief", "T1CF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1DF - Deutscher Frachtbrief", "T1DF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IC - IC - Übergabeschein TR", "T1IC"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IE - Internationaler Expreßgutschein (TIEx) - T1", "T1IE"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IF - Internationaler Frachtbrief (CIM) - T1", "T1IF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandschein", "T2"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2AN - Versandschein (Andorra)", "T2AN"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2CF - Container - Frachtbrief", "T2CF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2DF - Deutscher Frachtbrief", "T2DF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandschein", "T2F"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IC - IC - Übergabeschein TR - T2", "T2IC"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IE - Internationaler Expreßgutschein (TIEx)", "T2IE"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IF - Internationaler Frachtbrief (CIM)", "T2IF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2L - Versandschein T2L", "T2L"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2LF - Versandschein T2LF", "T2LF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2M - Versandschein", "T2M"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2SM - Versandschein (San Marino)", "T2SM"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T5 - Kontrollexemplar", "T5"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("V - Verwendungsschein", "V"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO - Verwendungsschein", "VO"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VV - Anm.aus der vorübergehenden Verwendung", "VV"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - Zollanmeldung", "Z"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZL - Zolllagerverfahren", "ZL"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444TF - Versandschein T2F (Art. 444 ZK-DVO)", "444TF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T1 - Versandschein T1 (Art. 444 ZK-DVO)", "444T1"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T2 - Versandschein T2 (Art. 111 Übereinkommen)", "444T2"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("445 - Versandverfahren Art. 445 ZK-DVO", "445"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447TF - Versandschein T2F (Art. 447 ZK-DVO)", "447TF"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T1 - Versandschein T1 (Art. 447 ZK-DVO)", "447T1"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T2 - Versandschein T2 (Art. 111 Übereinkommen)", "447T2"))
|
||||
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("448 - Versandverfahren Art. 448 ZK-DVO", "448"))
|
||||
cboVPArt.changeItem("")
|
||||
|
||||
'btnAllgemein_Click(btnT2, New EventArgs)
|
||||
|
||||
' setValues(EZA)
|
||||
@@ -387,13 +229,28 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
Dim POS As New TELOTEC_Worker.cTelotec_Positionsdaten
|
||||
POS.Pos_ID = cnt
|
||||
cnt += 1
|
||||
POS.Item_ComCd = row.Cells("clmnTarifnummer").Value
|
||||
POS.Item_GdsDes = row.Cells("clmnWarenbeschreibung").Value
|
||||
POS.Item_Gross = row.Cells("clmnRohmasse").Value
|
||||
POS.Item_Net = row.Cells("clmnEigenmasse").Value
|
||||
POS.Item_ItVal = row.Cells("clmnPreis").Value
|
||||
POS.Item_ComCd = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnTarifnummer").Value)
|
||||
POS.Item_GdsDes = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnWarenbeschreibung").Value)
|
||||
POS.Item_Gross = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnRohmasse").Value)
|
||||
POS.Item_Net = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnEigenmasse").Value)
|
||||
POS.Item_ItVal = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnPreis").Value)
|
||||
POS.Item_Orig = SDL.cProgramFunctions.isLeerNothing(row.Cells("clmnOrigin").Value)
|
||||
|
||||
'POS.PACKSTUECKE.Clear()
|
||||
'Dim PACK As New TELOTEC_Worker.cTelotec_Packstuecke
|
||||
'PACK.Pack_Kind = row.Cells("clmnPkArt").Value
|
||||
'PACK.Pack_Nr = row.Cells("clmnPackstuecke").Value
|
||||
'POS.PACKSTUECKE.Add(PACK)
|
||||
|
||||
|
||||
POS.MASSEINHEITEN.Clear()
|
||||
Dim SUPPL As New TELOTEC_Worker.cTelotec_PositionsdatenMasseinheiten
|
||||
SUPPL.SupplUnt_Unit = 110
|
||||
SUPPL.SupplUnt_SUQuant = row.Cells("clmnPackstuecke").Value
|
||||
POS.MASSEINHEITEN.Add(SUPPL)
|
||||
|
||||
|
||||
|
||||
POS.PACKSTUECKE.Clear()
|
||||
Dim PACK As New TELOTEC_Worker.cTelotec_Packstuecke
|
||||
PACK.Pack_Kind = row.Cells("clmnPkArt").Value
|
||||
PACK.Pack_Nr = row.Cells("clmnPackstuecke").Value
|
||||
@@ -406,11 +263,18 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
POS.DOC_CERTS.Clear()
|
||||
For Each rowDoc As DataGridViewRow In MyDatagridview2.Rows
|
||||
If rowDoc.Index - 1 = MyDatagridview2.Rows.Count - 1 Then Exit For
|
||||
Dim DOC As New TELOTEC_Worker.cTelotec_PositionsdatenDokumente
|
||||
DOC.DocCerts_DocCd = rowDoc.Cells("clmnAnhart").Value
|
||||
DOC.DocCerts_DRef = rowDoc.Cells("clmnAnhReferenz").Value
|
||||
DOC.DocCerts_IssD = rowDoc.Cells("clmnAnhDatum").Value
|
||||
POS.DOC_CERTS.Add(DOC)
|
||||
If rowDoc.Cells("clmnAnhart").Value <> "" Then
|
||||
|
||||
Dim DOC As New TELOTEC_Worker.cTelotec_PositionsdatenDokumente
|
||||
DOC.DocCerts_DocCd = rowDoc.Cells("clmnAnhart").Value
|
||||
DOC.DocCerts_DRef = rowDoc.Cells("clmnAnhReferenz").Value
|
||||
|
||||
If rowDoc.Cells("clmnAnhDatum").Value <> "" AndAlso IsDate(rowDoc.Cells("clmnAnhDatum").Value) Then
|
||||
DOC.DocCerts_IssD = CDate(rowDoc.Cells("clmnAnhDatum").Value)
|
||||
End If
|
||||
|
||||
POS.DOC_CERTS.Add(DOC)
|
||||
End If
|
||||
Next
|
||||
|
||||
EZA.POSITIONSDATEN.Add(POS)
|
||||
@@ -432,7 +296,7 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
Pk_Nr = If(POS.PACKSTUECKE(0).Pack_Nr, "")
|
||||
Pk_Kind = If(POS.PACKSTUECKE(0).Pack_Kind, "")
|
||||
End If
|
||||
MyDatagridview1.Rows.Add({POS.Item_Orig, POS.Item_ComCd, POS.Item_GdsDes, Pk_Nr, Pk_Kind, "", "", POS.Item_ItVal, "EUR"})
|
||||
MyDatagridview1.Rows.Add({POS.Item_Orig, POS.Item_ComCd, "", POS.Item_GdsDes, Pk_Nr, Pk_Kind, "", "", POS.Item_ItVal, "EUR"})
|
||||
Next
|
||||
|
||||
End Sub
|
||||
@@ -514,40 +378,8 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnCo.Click, btnEU.Click
|
||||
initButton(sender)
|
||||
End Sub
|
||||
|
||||
Sub initButton(sender As Button)
|
||||
setBtn(btnCo, False)
|
||||
setBtn(btnEU, False)
|
||||
|
||||
If sender Is Nothing Then
|
||||
|
||||
Else
|
||||
If sender Is btnCo Then
|
||||
EZA_ART = "EZA"
|
||||
If cbxVorzeitigeAnmeldung.Checked Then
|
||||
txtArtDetail.Text = "Vorzeitige Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("EZA-D")
|
||||
Else
|
||||
txtArtDetail.Text = "Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("EZA-A")
|
||||
End If
|
||||
ElseIf sender Is btnEU Then
|
||||
EZA_ART = "VZA"
|
||||
If cbxVorzeitigeAnmeldung.Checked Then
|
||||
txtArtDetail.Text = "Vorzeitige, vereinfachte Einzelzollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("VZA-F")
|
||||
Else
|
||||
txtArtDetail.Text = "Vereinfachte Einzelzollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("VZA-C")
|
||||
End If
|
||||
|
||||
End If
|
||||
setBtn(sender, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub setBtn(btn As Button, value As Boolean)
|
||||
If value Then
|
||||
@@ -583,45 +415,6 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
|
||||
|
||||
|
||||
Private Sub cboArtVerfahrenUeberfuehrung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArtVerfahrenUeberfuehrung.SelectedIndexChanged
|
||||
Select Case cboArtVerfahrenUeberfuehrung._value
|
||||
Case "EZA-A" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = False
|
||||
Case "EZA-D" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = True
|
||||
Case "VZA-C" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = False
|
||||
Case "VZA-F" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = True
|
||||
Case Else : initButton(Nothing)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub cbxVorzeitigeAnmeldung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorzeitigeAnmeldung.CheckedChanged, cbxFiskalvertretung.CheckedChanged
|
||||
Select Case EZA_ART
|
||||
Case "EZA" : initButton(btnCo)
|
||||
Case "VZA" : initButton(btnEU)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub cbxDV1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDV1.CheckedChanged
|
||||
RaiseEvent DV1_changed(cbxDV1.Checked)
|
||||
End Sub
|
||||
|
||||
Private Sub cboVPArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVPArt.SelectedIndexChanged
|
||||
txtVP_ATB1.Enabled = (cboVPArt._value <> "")
|
||||
txtVP_ATB2.Enabled = (cboVPArt._value <> "")
|
||||
txtVP_ATBNr1.Enabled = (cboVPArt._value <> "")
|
||||
txtVP_ATBNr2.Enabled = (cboVPArt._value <> "")
|
||||
txtVPReferenz.Enabled = (cboVPArt._value <> "")
|
||||
txtVP_ATBPk1.Enabled = (cboVPArt._value <> "")
|
||||
txtVP_ATBPk2.Enabled = (cboVPArt._value <> "")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboVPArt_LostFocus(sender As Object, e As EventArgs) Handles cboVPArt.LostFocus
|
||||
If cboVPArt._value <> "" Then
|
||||
txtVPReferenz.Focus() 'wg.enabled
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
|
||||
Label36.Visible = False
|
||||
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
|
||||
@@ -649,4 +442,22 @@ Public Class usrCntlTCeZOLL_EZA_Allg
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
MyDatagridview1.Columns("clmnTnrNf").Visible = True
|
||||
For Each row As DataGridViewRow In MyDatagridview1.Rows
|
||||
|
||||
If row.Cells("clmnTarifnummer").Value <> "" Then
|
||||
Dim tnr = VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty(row.Cells("clmnTarifnummer").Value)
|
||||
If tnr <> "" Then
|
||||
row.Cells("clmnTarifnummer").Value = tnr
|
||||
Else
|
||||
row.Cells("clmnTnrNf").Value = row.Cells("clmnTarifnummer").Value
|
||||
row.Cells("clmnTarifnummer").Value = ""
|
||||
End If
|
||||
End If
|
||||
lnlTnrCnt.Text = (row.Index + 1) & "/" & MyDatagridview1.RowCount
|
||||
Me.Refresh()
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,227 @@
|
||||
{
|
||||
"$schema": "http://json-schema.org/draft-06/schema#",
|
||||
"$ref": "#/definitions/Welcome6",
|
||||
"definitions": {
|
||||
"Welcome6": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"content": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"$ref": "#/definitions/Content"
|
||||
}
|
||||
},
|
||||
"pageable": {
|
||||
"$ref": "#/definitions/Pageable"
|
||||
},
|
||||
"totalPages": {
|
||||
"type": "integer"
|
||||
},
|
||||
"totalElements": {
|
||||
"type": "integer"
|
||||
},
|
||||
"last": {
|
||||
"type": "boolean"
|
||||
},
|
||||
"number": {
|
||||
"type": "integer"
|
||||
},
|
||||
"size": {
|
||||
"type": "integer"
|
||||
},
|
||||
"numberOfElements": {
|
||||
"type": "integer"
|
||||
},
|
||||
"sort": {
|
||||
"$ref": "#/definitions/Sort"
|
||||
},
|
||||
"first": {
|
||||
"type": "boolean"
|
||||
},
|
||||
"empty": {
|
||||
"type": "boolean"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"content",
|
||||
"empty",
|
||||
"first",
|
||||
"last",
|
||||
"number",
|
||||
"numberOfElements",
|
||||
"pageable",
|
||||
"size",
|
||||
"sort",
|
||||
"totalElements",
|
||||
"totalPages"
|
||||
],
|
||||
"title": "Welcome6"
|
||||
},
|
||||
"Content": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"guaranteeAmountCurrency": {
|
||||
"$ref": "#/definitions/GuaranteeAmountCurrency"
|
||||
},
|
||||
"guaranteeAmount": {
|
||||
"type": "number"
|
||||
},
|
||||
"guaranteeUsageStatus": {
|
||||
"$ref": "#/definitions/GuaranteeUsageStatus"
|
||||
},
|
||||
"lrnDate": {
|
||||
"anyOf": [
|
||||
{
|
||||
"type": "string",
|
||||
"format": "date-time"
|
||||
},
|
||||
{
|
||||
"type": "null"
|
||||
}
|
||||
]
|
||||
},
|
||||
"grn": {
|
||||
"type": "string"
|
||||
},
|
||||
"id": {
|
||||
"type": "string",
|
||||
"format": "uuid"
|
||||
},
|
||||
"lrn": {
|
||||
"type": "string"
|
||||
},
|
||||
"mrnDate": {
|
||||
"anyOf": [
|
||||
{
|
||||
"type": "string",
|
||||
"format": "date-time"
|
||||
},
|
||||
{
|
||||
"type": "null"
|
||||
}
|
||||
]
|
||||
},
|
||||
"mrn": {
|
||||
"type": "string"
|
||||
},
|
||||
"status": {
|
||||
"$ref": "#/definitions/Status"
|
||||
},
|
||||
"trailer": {
|
||||
"type": "string"
|
||||
},
|
||||
"tractor": {
|
||||
"anyOf": [
|
||||
{
|
||||
"type": "null"
|
||||
},
|
||||
{
|
||||
"type": "string"
|
||||
}
|
||||
]
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"grn",
|
||||
"guaranteeAmount",
|
||||
"guaranteeAmountCurrency",
|
||||
"guaranteeUsageStatus",
|
||||
"id",
|
||||
"lrn",
|
||||
"lrnDate",
|
||||
"mrn",
|
||||
"mrnDate",
|
||||
"status",
|
||||
"tractor",
|
||||
"trailer"
|
||||
],
|
||||
"title": "Content"
|
||||
},
|
||||
"Pageable": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"pageNumber": {
|
||||
"type": "integer"
|
||||
},
|
||||
"pageSize": {
|
||||
"type": "integer"
|
||||
},
|
||||
"sort": {
|
||||
"$ref": "#/definitions/Sort"
|
||||
},
|
||||
"offset": {
|
||||
"type": "integer"
|
||||
},
|
||||
"paged": {
|
||||
"type": "boolean"
|
||||
},
|
||||
"unpaged": {
|
||||
"type": "boolean"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"offset",
|
||||
"pageNumber",
|
||||
"pageSize",
|
||||
"paged",
|
||||
"sort",
|
||||
"unpaged"
|
||||
],
|
||||
"title": "Pageable"
|
||||
},
|
||||
"Sort": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"sorted": {
|
||||
"type": "boolean"
|
||||
},
|
||||
"empty": {
|
||||
"type": "boolean"
|
||||
},
|
||||
"unsorted": {
|
||||
"type": "boolean"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"empty",
|
||||
"sorted",
|
||||
"unsorted"
|
||||
],
|
||||
"title": "Sort"
|
||||
},
|
||||
"GuaranteeAmountCurrency": {
|
||||
"type": "string",
|
||||
"enum": [
|
||||
"TRY",
|
||||
"EUR"
|
||||
],
|
||||
"title": "GuaranteeAmountCurrency"
|
||||
},
|
||||
"GuaranteeUsageStatus": {
|
||||
"type": "string",
|
||||
"enum": [
|
||||
"IN_USE",
|
||||
"RELEASED"
|
||||
],
|
||||
"title": "GuaranteeUsageStatus"
|
||||
},
|
||||
"Status": {
|
||||
"type": "string",
|
||||
"enum": [
|
||||
"CTRINFDEP",
|
||||
"CC007C",
|
||||
"CTR_DEC",
|
||||
"WRT_NOT",
|
||||
"ARR_ADV",
|
||||
"TRANSIT_CLOSE",
|
||||
"GUAINF",
|
||||
"MRN_NOTIFIED"
|
||||
],
|
||||
"title": "Status"
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,86 @@
|
||||
<?xml version="1.0"?>
|
||||
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<xsd:complexType name="Welcome6">
|
||||
<xsd:sequence>
|
||||
<xsd:element minOccurs="0" maxOccurs="unbounded" name="content" type="Content" />
|
||||
<xsd:element name="pageable" type="Pageable" />
|
||||
<xsd:element name="totalPages" type="xsd:int" />
|
||||
<xsd:element name="totalElements" type="xsd:int" />
|
||||
<xsd:element name="last" type="xsd:boolean" />
|
||||
<xsd:element name="number" type="xsd:int" />
|
||||
<xsd:element name="size" type="xsd:int" />
|
||||
<xsd:element name="numberOfElements" type="xsd:int" />
|
||||
<xsd:element name="sort" type="Sort" />
|
||||
<xsd:element name="first" type="xsd:boolean" />
|
||||
<xsd:element name="empty" type="xsd:boolean" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Content">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="guaranteeAmountCurrency" type="GuaranteeAmountCurrency" />
|
||||
<xsd:element name="guaranteeAmount" type="xsd:double" />
|
||||
<xsd:element name="guaranteeUsageStatus" type="GuaranteeUsageStatus" />
|
||||
<xsd:element name="lrnDate" type="xsd:anyType" />
|
||||
<xsd:element name="grn" type="xsd:string" />
|
||||
<xsd:element name="id" type="xsd:string" />
|
||||
<xsd:element name="lrn" type="xsd:string" />
|
||||
<xsd:element name="mrnDate" type="xsd:anyType" />
|
||||
<xsd:element name="mrn" type="xsd:string" />
|
||||
<xsd:element name="status" type="Status" />
|
||||
<xsd:element name="trailer" type="xsd:string" />
|
||||
<xsd:element name="tractor" type="xsd:anyType" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Pageable">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="pageNumber" type="xsd:int" />
|
||||
<xsd:element name="pageSize" type="xsd:int" />
|
||||
<xsd:element name="sort" type="Sort" />
|
||||
<xsd:element name="offset" type="xsd:int" />
|
||||
<xsd:element name="paged" type="xsd:boolean" />
|
||||
<xsd:element name="unpaged" type="xsd:boolean" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Sort">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="sorted" type="xsd:boolean" />
|
||||
<xsd:element name="empty" type="xsd:boolean" />
|
||||
<xsd:element name="unsorted" type="xsd:boolean" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:simpleType name="GuaranteeAmountCurrency">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="TRY" />
|
||||
<xsd:enumeration value="EUR" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="GuaranteeUsageStatus">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="IN_USE" />
|
||||
<xsd:enumeration value="RELEASED" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="Status">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="CTRINFDEP" />
|
||||
<xsd:enumeration value="CC007C" />
|
||||
<xsd:enumeration value="CTR_DEC" />
|
||||
<xsd:enumeration value="WRT_NOT" />
|
||||
<xsd:enumeration value="ARR_ADV" />
|
||||
<xsd:enumeration value="TRANSIT_CLOSE" />
|
||||
<xsd:enumeration value="GUAINF" />
|
||||
<xsd:enumeration value="MRN_NOTIFIED" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:element minOccurs="0" maxOccurs="unbounded" name="content" type="Content" />
|
||||
<xsd:element name="pageable" type="Pageable" />
|
||||
<xsd:element name="totalPages" type="xsd:int" />
|
||||
<xsd:element name="totalElements" type="xsd:int" />
|
||||
<xsd:element name="last" type="xsd:boolean" />
|
||||
<xsd:element name="number" type="xsd:int" />
|
||||
<xsd:element name="size" type="xsd:int" />
|
||||
<xsd:element name="numberOfElements" type="xsd:int" />
|
||||
<xsd:element name="sort" type="Sort" />
|
||||
<xsd:element name="first" type="xsd:boolean" />
|
||||
<xsd:element name="empty" type="xsd:boolean" />
|
||||
</xsd:schema>
|
||||
@@ -0,0 +1,62 @@
|
||||
Public Class cATEZ_ncts_api
|
||||
|
||||
Shared API_KEY = "2a6fe6bf-6547-4d56-b14a-8a18f94f9e94"
|
||||
|
||||
Public Shared Sub query_declarations(startDate As Date, endDate As Date)
|
||||
' This example assumes the Chilkat API to have been previously unlocked.
|
||||
' See Global Unlock Sample for sample code.
|
||||
|
||||
Dim http As New Chilkat.Http
|
||||
Dim success As Boolean
|
||||
|
||||
Dim queryParams As New Chilkat.JsonObject
|
||||
queryParams.UpdateString("startDate", startDate.ToString("yyyy-MM-ddTHH:mm:ss"))
|
||||
queryParams.UpdateString("endDate", endDate.ToString("yyyy-MM-ddTHH:mm:ss"))
|
||||
queryParams.UpdateInt("page", 0)
|
||||
queryParams.UpdateInt("size", 10000)
|
||||
|
||||
http.SetRequestHeader("API-KEY", API_KEY)
|
||||
|
||||
|
||||
Dim resp As Chilkat.HttpResponse = http.QuickRequestParams("GET", "https://transcode.singlewindow.io/api/tds/integrations/verag/declarations", queryParams)
|
||||
If (http.LastMethodSuccess = False) Then
|
||||
Debug.WriteLine(http.LastErrorText)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Debug.WriteLine(resp.StatusCode)
|
||||
Debug.WriteLine(resp.BodyStr)
|
||||
|
||||
'Dim SS = VERAG_PROG_ALLGEMEIN.cNCTS_ATEZ_query_declaration_response.root.LoadFromFile("")
|
||||
|
||||
'For Each c In SS.properties.content
|
||||
|
||||
|
||||
'Next
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Shared Sub get_ie015_xml_by_mrn(MRN As String)
|
||||
' This example assumes the Chilkat API to have been previously unlocked.
|
||||
' See Global Unlock Sample for sample code.
|
||||
|
||||
Dim http As New Chilkat.Http
|
||||
Dim success As Boolean
|
||||
|
||||
'http.SetRequestHeader("API-KEY", "{{API-KEY}}")
|
||||
http.SetRequestHeader("API-KEY", API_KEY)
|
||||
|
||||
Dim sbResponseBody As New Chilkat.StringBuilder
|
||||
success = http.QuickGetSb("https://transcode.singlewindow.io/api/tds/integrations/verag/declarations/messages/ie015-by-mrn/" & MRN, sbResponseBody)
|
||||
If (success = False) Then
|
||||
Debug.WriteLine(http.LastErrorText)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Debug.WriteLine("Response status code = " & http.LastStatus)
|
||||
Debug.WriteLine(sbResponseBody.GetAsString())
|
||||
End Sub
|
||||
End Class
|
||||
102
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/TARIFF/cATEZ_Tariff.vb
Normal file
102
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/TARIFF/cATEZ_Tariff.vb
Normal file
@@ -0,0 +1,102 @@
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Public Class cATEZ_Tariff
|
||||
|
||||
' Klasse zur Darstellung der Ergebnisse
|
||||
Public Class cATEZ_TariffItem
|
||||
Public Property Id As Integer
|
||||
Public Property CommodityCode As String
|
||||
Public Property Description As String
|
||||
Public Property HeadingId As Integer
|
||||
Public Property LanguageCode As String
|
||||
Public Property Type As String
|
||||
End Class
|
||||
|
||||
Public Shared Function GetTariffInfo_SingleOrEmpty(searchText As String, Optional countryCode As String = "DE", Optional languageCode As String = "DE", Optional measureType As String = "import", Optional ByRef result As List(Of cATEZ_TariffItem) = Nothing) As String
|
||||
If GetTariffInfo(searchText, countryCode, languageCode, measureType, result) = "OK" Then
|
||||
If result.Count > 1 Then
|
||||
Return ""
|
||||
Else
|
||||
Return result(0).CommodityCode
|
||||
End If
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function GetTariffInfo(searchText As String, Optional countryCode As String = "DE", Optional languageCode As String = "DE", Optional measureType As String = "import", Optional ByRef result As List(Of cATEZ_TariffItem) = Nothing) As String
|
||||
|
||||
If searchText = String.Empty Then Return "Error: Empty search String"
|
||||
searchText = Regex.Replace(searchText, "[^\d]", "")
|
||||
If searchText.Length > 8 Then searchText = searchText.Substring(0, 8)
|
||||
|
||||
' Chilkat HTTP-Objekt erstellen
|
||||
Dim http As New Chilkat.Http()
|
||||
|
||||
' API-URL und Parameter definieren
|
||||
Dim baseUrl As String = "https://tariff.singlewindow.io/api/v2-0/tariff-query/public/commodity-codes"
|
||||
'Dim countryCode As String = "DE"
|
||||
'Dim languageCode As String = "DE"
|
||||
'Dim measureType As String = "import"
|
||||
|
||||
' Anfrage-URL mit Parametern erstellen
|
||||
Dim url As String = $"{baseUrl}?countryCode={countryCode}&searchText={searchText}&languageCode={languageCode}&measureType={measureType}"
|
||||
|
||||
' HTTP-GET-Anfrage senden
|
||||
Dim response As String = http.QuickGetStr(url)
|
||||
|
||||
' Fehlerüberprüfung
|
||||
If http.LastMethodSuccess = False Then
|
||||
Return $"Error: {http.LastErrorText}"
|
||||
End If
|
||||
|
||||
' Statuscode überprüfen
|
||||
Dim statusCode As Integer = http.LastStatus
|
||||
If statusCode <> 200 Then
|
||||
Return $"Error: HTTP Status {statusCode}"
|
||||
End If
|
||||
|
||||
result = ProcessApiResponse(response)
|
||||
|
||||
' Antwort zurückgeben
|
||||
If result.Count = 0 Then
|
||||
Return "Error: 0 results"
|
||||
End If
|
||||
Return "OK"
|
||||
End Function
|
||||
|
||||
Private Shared Function ProcessApiResponse(jsonResponse As String) As List(Of cATEZ_TariffItem)
|
||||
' Deserialisiere die JSON-Antwort in eine Liste von Objekten
|
||||
Dim items As List(Of Dictionary(Of String, Object)) = JsonConvert.DeserializeObject(Of List(Of Dictionary(Of String, Object)))(jsonResponse)
|
||||
|
||||
' Liste für deklarierbare Elemente erstellen
|
||||
Dim declarableItems As New List(Of cATEZ_TariffItem)()
|
||||
|
||||
' Ergebnisse durchlaufen
|
||||
For Each item As Dictionary(Of String, Object) In items
|
||||
If item.ContainsKey("declarable") AndAlso CBool(item("declarable")) = True Then
|
||||
Dim tariffItem As New cATEZ_TariffItem() With {
|
||||
.Id = CInt(item("id")),
|
||||
.CommodityCode = item("commodity_code").ToString(),
|
||||
.Description = item("description").ToString(),
|
||||
.HeadingId = CInt(item("heading_id")),
|
||||
.LanguageCode = item("language_code").ToString(),
|
||||
.Type = item("type").ToString()
|
||||
}
|
||||
declarableItems.Add(tariffItem)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return declarableItems
|
||||
End Function
|
||||
|
||||
Sub Example()
|
||||
' Beispielaufruf der Funktion
|
||||
Dim searchText As String = "6207220000"
|
||||
Dim result As String = GetTariffInfo(searchText)
|
||||
|
||||
' Ergebnis ausgeben
|
||||
Console.WriteLine(result)
|
||||
End Sub
|
||||
End Class
|
||||
@@ -3,7 +3,6 @@ Imports System.Net
|
||||
Imports System.Runtime.InteropServices.ComTypes
|
||||
Imports System.Threading
|
||||
Imports System.Web.UI
|
||||
Imports Chilkat
|
||||
Imports Microsoft.VisualBasic.ApplicationServices
|
||||
|
||||
|
||||
|
||||
@@ -16,6 +16,18 @@ Public Class cTariffKN8_Interface
|
||||
|
||||
|
||||
|
||||
Public Shared Function getKN8FromTNR(TNR)
|
||||
If TNR Is Nothing Then Return ""
|
||||
If TNR Is DBNull.Value Then Return ""
|
||||
If TNR.ToString = String.Empty Then Return ""
|
||||
TNR = TNR.ToString.Replace(".", "")
|
||||
TNR = TNR.ToString.Replace(" ", "")
|
||||
If TNR.ToString.Length > 8 Then TNR = TNR.ToString.Substring(0, 8)
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Return sql.getValueTxtBySql("SELECT TOP 1 [Kurztitel] FROM [tblEZTKN8] where EDV_Code like '" & TNR & "'", "FMZOLL",,, "")
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function UPDATE_KN8()
|
||||
' URL zur Datei
|
||||
Dim fileUrl As String = "https://www.statistik.at/kdb/downloads/csv/prod/KN" & Now.Year & "_DE_CKT.txt"
|
||||
|
||||
@@ -416,6 +416,8 @@
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Schnittstellen\ATEZ\NCTS_API\cATEZ_ncts_api.vb" />
|
||||
<Compile Include="Schnittstellen\ATEZ\TARIFF\cATEZ_Tariff.vb" />
|
||||
<Compile Include="Schnittstellen\CBAM\QReport_v17.00.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\cTariffKN8.vb" />
|
||||
<Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
|
||||
|
||||
Reference in New Issue
Block a user