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
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb generated
View File

@@ -35,6 +35,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
Me.datVon = New System.Windows.Forms.DateTimePicker()
Me.lblErr = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
@@ -51,6 +52,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button4)
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.datFaellig)
Me.GroupBox2.Controls.Add(Me.cboKonto)
@@ -157,7 +159,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
'
Me.lblErr.AutoSize = True
Me.lblErr.ForeColor = System.Drawing.Color.Red
Me.lblErr.Location = New System.Drawing.Point(6, 56)
Me.lblErr.Location = New System.Drawing.Point(145, 83)
Me.lblErr.Name = "lblErr"
Me.lblErr.Size = New System.Drawing.Size(69, 13)
Me.lblErr.TabIndex = 13
@@ -173,6 +175,21 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
Me.Label14.TabIndex = 5
Me.Label14.Text = "Liefert eine Abgabenliste entsprechend dem Konto und Zeitraum aus den Dakosy-Date" &
"n."
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(9, 50)
Me.Button4.Name = "Button4"
Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
Me.Button4.Size = New System.Drawing.Size(121, 38)
Me.Button4.TabIndex = 38
Me.Button4.Text = "Excel"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
'
'usrCntlAuswertungenAufschub_Abgabenliste
'
@@ -202,5 +219,5 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents datFaellig As System.Windows.Forms.DateTimePicker
Friend WithEvents Button4 As Button
End Class

23
SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb
View File

@@ -30,8 +30,13 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste
End Sub
Function get_DT() As DataTable
Return SQL.loadDgvBySql("SELECT eza_firma,eza_niederlassung,Eingabedatum, eza_ANR,Belegart, eza_ObjectName,betrag " &
" FROM [tblDakosy_EZA] inner join [Zkteing] on [Zkteing].Registriernummer=eza_ANR " &
" where Eingabedatum between '" & datVon.Value & "' and '" & datBis.Value & "' and akto='" & cboKonto._value.ToString.Substring(1) & "' and AOFD='" & cboKonto._value.ToString.Substring(0, 1) & "' and convert(date,Fälligkeitsdatum,104)<='" & datFaellig.Value & "' " &
" order by eza_firma,eza_niederlassung,Eingabedatum,eza_ANR", "FMZOLL")
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim displayFilter = False
@@ -44,12 +49,9 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste
Dim rpt As New rptAbgabenliste
rpt.DataSource = SQL.loadDgvBySql("SELECT eza_firma,eza_niederlassung,Eingabedatum, eza_ANR,Belegart, eza_ObjectName,betrag " &
" FROM [tblDakosy_EZA] inner join [Zkteing] on [Zkteing].Registriernummer=eza_ANR " &
" where Eingabedatum between '" & datVon.Value & "' and '" & datBis.Value & "' and akto='" & cboKonto._value.ToString.Substring(1) & "' and AOFD='" & cboKonto._value.ToString.Substring(0, 1) & "' and convert(date,Fälligkeitsdatum,104)<='" & datFaellig.Value & "' " &
" order by eza_firma,eza_niederlassung,Eingabedatum,eza_ANR", "FMZOLL")
rpt.GroupHeader1.DataField = "eza_niederlassung" 'Gruppierung
rpt.DataSource = get_DT()
rpt.GroupHeader1.DataField = "eza_niederlassung" 'Gruppierung
' MsgBox(rpt.DataSource.rows.count)
If rpt.DataSource.rows.count = 0 Then
@@ -142,4 +144,11 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste
Private Sub datBis_ValueChanged(sender As Object, e As EventArgs) Handles datBis.ValueChanged
datFaellig.Value = CDate("16." & datBis.Value.AddMonths(1).Month & "." & datBis.Value.AddMonths(1).Year)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim dt As DataTable = get_DT() 'SQL.loadDgvBySql(getSQL_NCTS_ATLAS(datVon.Text, datBis.Text, txtStatVon.Text, txtStatbis.Text, DirectCast(ComboBox2.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, DirectCast(ComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
End Sub
End Class

4
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb
View File

@@ -151,7 +151,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_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]='DE813667748' 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
@@ -306,7 +306,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_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]='DE813667748' 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"

4
SDL/zoll/usrCntlBrgBuchungenFremd.vb
View File

@@ -7,7 +7,7 @@ Public Class usrCntlBrgBuchungenFremd
Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load
cboBRG.Items.Clear()
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349", " '12TR0004000004665','15TR0004000020917','17TR0004000032349'"))
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '"))
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - 16DE0000000068410", "'16DE0000000068410'"))
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - 15TR0004000020908", "'15TR0004000020908'"))
cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - 13TR0004000005094", "'13TR0004000005094'"))
@@ -63,7 +63,7 @@ Public Class usrCntlBrgBuchungenFremd
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and AnmeldungsDatum BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' "
sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL")