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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb generated
View File

@@ -37,6 +37,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
Me.Button1 = New System.Windows.Forms.Button()
Me.lblErr = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.cboUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblErrUID = New System.Windows.Forms.Label()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
@@ -53,6 +56,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.lblErrUID)
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.cboUID)
Me.GroupBox2.Controls.Add(Me.Button4)
Me.GroupBox2.Controls.Add(Me.Button3)
Me.GroupBox2.Controls.Add(Me.Button2)
@@ -202,6 +208,37 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
Me.Label14.TabIndex = 5
Me.Label14.Text = "Liefert eine "
'
'cboUID
'
Me.cboUID._allowedValuesFreiText = Nothing
Me.cboUID._allowFreiText = False
Me.cboUID._value = ""
Me.cboUID.FormattingEnabled = True
Me.cboUID.Location = New System.Drawing.Point(433, 61)
Me.cboUID.Name = "cboUID"
Me.cboUID.Size = New System.Drawing.Size(221, 21)
Me.cboUID.TabIndex = 35
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(399, 65)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(29, 13)
Me.Label1.TabIndex = 36
Me.Label1.Text = "UID:"
'
'lblErrUID
'
Me.lblErrUID.AutoSize = True
Me.lblErrUID.ForeColor = System.Drawing.Color.Red
Me.lblErrUID.Location = New System.Drawing.Point(510, 85)
Me.lblErrUID.Name = "lblErrUID"
Me.lblErrUID.Size = New System.Drawing.Size(144, 13)
Me.lblErrUID.TabIndex = 37
Me.lblErrUID.Text = "UID Fiskalvertretung wählen!"
Me.lblErrUID.Visible = False
'
'usrCntlAuswertungenFiskalvertretung_4200
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -232,5 +269,7 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents lblErrUID As Label
Friend WithEvents Label1 As Label
Friend WithEvents cboUID As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

84
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb
View File

@@ -12,18 +12,38 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load
datVon.Value = CDate("01." & Now.AddMonths(-3).Month & "." & Now.AddMonths(-1).Year)
datBis.Value = datVon.Value.AddMonths(3).AddDays(-1)
cboUID.Items.Clear()
cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE813667748 - VERAG Spedition GmbH", "DE813667748"))
cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE295575575 - Global-Logistics GmbH", "DE295575575"))
End Sub
Function getDir() As String
Select Case cboUID._value
Case "DE813667748"
Return "\\FMZoll.verag.ost.dmn\FMZoll\ZM\"
Case "DE295575575"
Return "\\192.168.1.20\Daten\ZM\"
Case Else
Return ""
End Select
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
lblErrUID.Visible = False
If cboUID._value = "" Then
lblErrUID.Visible = True
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
Dim dt = getZM_Datat()
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
If Not Directory.Exists(getDir) Then Directory.CreateDirectory(getDir)
Dim fs As New FileStream(getDir() & "\ZM_Formular_online.xml", FileMode.Create)
Dim sw As New StreamWriter(fs)
' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
@@ -82,7 +102,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
'Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online_TEST.xml")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Process.Start(getDir())
End If
Catch ex As Exception
@@ -106,7 +126,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " UNION"
@@ -116,7 +136,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
End If
@@ -129,7 +149,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " UNION"
@@ -139,7 +159,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
End If
If (CheckBox2.Checked Or CheckBox1.Checked) And (cbxDatenAusDakosyLaden.Checked) Then sqlStr &= " UNION"
@@ -151,7 +171,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 "
sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) "
End If
@@ -202,7 +222,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat, zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha, zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs"
sqlStr &= " ) "
@@ -229,7 +249,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat, zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha, zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs"
sqlStr &= " ) "
@@ -261,7 +281,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat,zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha, zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs"
sqlStr &= " )"
@@ -287,7 +307,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)"
sqlStr &= " AND [zbant_erwust] <>''"
sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
sqlStr &= " GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat, zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha, zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs"
sqlStr &= " ) "
End If
@@ -306,13 +326,13 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 "
sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) "
' sqlStr &= " select Left(ezaAd_UStIDAnmelder,2) AS knre1, substring(ezaAd_UStIDAnmelder,3,len(ezaAd_UStIDAnmelder)) AS knre2 ,eza_Rechnungspreis as betrag"
' sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42 and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='DE813667748'*/ and ezaAd_UStIDAnmelder is not null"
'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42 and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='" & cboUID._value & "'*/ and ezaAd_UStIDAnmelder is not null"
End If
@@ -337,14 +357,22 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
lblErrUID.Visible = False
If cboUID._value = "" Then
lblErrUID.Visible = True
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
Dim dt = getZM_Datat()
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
If Not System.IO.Directory.Exists(getDir()) Then System.IO.Directory.CreateDirectory(getDir())
Dim fs As New FileStream(getDir() & "\ZM_Formular_online.csv", FileMode.Create)
Dim sw As New StreamWriter(fs)
@@ -361,7 +389,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Next
sw.Close()
fs.Close()
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv")
Process.Start(getDir() & "\ZM_Formular_online.csv")
End If
Catch ex As Exception
@@ -375,8 +403,11 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Dim displayFilter = False
lblErrUID.Visible = False
If cboUID._value = "" Then
lblErrUID.Visible = True
Exit Sub
End If
Dim print As New frmPrintLayout
print.Text = "Fiskalvertretung"
@@ -532,6 +563,17 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
lblErrUID.Visible = False
Dim dir = getDir()
If dir = "" Then
lblErrUID.Visible = True
Else
Process.Start(dir)
End If
End Sub
End Class

15
SDL/zoll/usrCntlBrgBuchungenFremd.vb
View File

@@ -35,6 +35,21 @@ Public Class usrCntlBrgBuchungenFremd
End Sub
Private Sub btnNCTSDurmaz_Click(sender As Object, e As EventArgs) Handles btnNCTSDurmaz.Click
lblErr.Visible = False
Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(MyComboBox1._value, cboBRG.Text, cboBRG._value, datVon.Value, datBis.Value, cbxEZollDaten.Checked)
MsgBox(_erg)
Select Case _erg
Case "NO_RESULT"
MsgBox("Keine Daten!")
lblErr.Visible = False
Case ""
Case Else
Process.Start(_erg)
End Select
Exit Sub
Try
lblErr.Visible = False

34
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -199,6 +199,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label()
@@ -221,7 +222,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label67 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1219,7 +1219,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(609, 1529)
Me.tbcntr.Size = New System.Drawing.Size(932, 1529)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1257,7 +1257,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(601, 1503)
Me.TabPage1.Size = New System.Drawing.Size(924, 1503)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -2067,7 +2067,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(618, 1503)
Me.TabPage2.Size = New System.Drawing.Size(550, 1503)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -2098,7 +2098,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(618, 1503)
Me.TabPage3.Size = New System.Drawing.Size(550, 1503)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -2133,11 +2133,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(601, 1503)
Me.TabPage4.Size = New System.Drawing.Size(550, 1503)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
@@ -2154,7 +2162,7 @@ Partial Class usrCntlZOLLAuswertungen
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(618, 1503)
Me.TabPage5.Size = New System.Drawing.Size(550, 1503)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2362,17 +2370,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(609, 57)
Me.pnl.Size = New System.Drawing.Size(932, 57)
Me.pnl.TabIndex = 23
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2382,7 +2382,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(609, 926)
Me.Size = New System.Drawing.Size(932, 926)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)

1
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -174,6 +174,7 @@ Public Class usrCntlZOLLAuswertungen
End Select
cboBrgEZollTC.Items.Clear()
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))