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

MDM, Mahnungen, EORI, Kundenblatt, MSEAPI, UTA, Zollanmeldungen_Import_Dakosy

Browse Source
This commit is contained in:
d.breimaier
2024-10-17 16:45:23 +02:00
parent 152ce4c892
commit f062f1a0d7
22 changed files with 2416 additions and 474 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Classes/cEORIPruefung.vb
View File

@@ -15,6 +15,7 @@ Public Class cEORIPruefung
Property eori_sessionID As Object = Nothing
Property eori_AvisoID As Object = Nothing
Property eori_Nr As Object = Nothing
Property eori_FirmaID As Object = Nothing
Public hasEntry = False
@@ -41,6 +42,7 @@ Public Class cEORIPruefung
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sessionID", eori_sessionID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_AvisoID", eori_AvisoID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_Nr", eori_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_FirmaID", eori_FirmaID))
Return list
End Function

8
SDL/Classes/cEORIWebService.vb
View File

@@ -9,6 +9,7 @@ Imports System.Net
Imports System.Text
Imports System.Xml
Imports System.Xml.Serialization
Imports DocumentFormat.OpenXml.Drawing.Charts
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cEORIWebService
@@ -142,7 +143,7 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(KdNr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, EORI_ERG.Result(0).Eori)
setEORIEntry(KdNr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, EORI_ERG.Result(0).Eori, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
@@ -207,7 +208,7 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(kdnr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, txtEORI)
setEORIEntry(kdnr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, txtEORI, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
@@ -228,7 +229,7 @@ Public Class cEORIWebService
End Function
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, avisoID As Integer, EORI_ERG As EoriResponseModel, tmp_SESSION_ID As String, txtEORI As String)
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, avisoID As Integer, EORI_ERG As EoriResponseModel, tmp_SESSION_ID As String, txtEORI As String, FirmaID As Integer)
Dim EORIPruefung = New cEORIPruefung()
Dim kdErw = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
@@ -248,6 +249,7 @@ Public Class cEORIWebService
EORIPruefung.eori_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
EORIPruefung.eori_sessionID = tmp_SESSION_ID
EORIPruefung.eori_AvisoID = avisoID
EORIPruefung.eori_FirmaID = FirmaID
EORIPruefung.SAVE()
End Sub

21
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -3838,16 +3838,21 @@ Public Class FormularManagerNEU
Shared Function EORI_PRUEFUNG(ErgebnisTXT, firma, sessionID, txtEORI, Optional AvisoId = -1, Optional SendungsId = -1) As String
Shared Function EORI_PRUEFUNG(ErgebnisTXT As String, firma As String, sessionID As String, txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional time_ As DateTime = Nothing, Optional usrName As String = "", Optional FirmaID As Integer = 0) As String
Try
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
If FirmaID = 0 Then FirmaID = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID 'Fallback, wenn FirmenID nicht gespeichert wurde!
Dim MANDANT = New cFirmen(FirmaID)
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(time_ = Nothing, time_.ToShortDateString, Now.ToShortDateString) & " " & IIf(time_ = Nothing, time_.ToShortTimeString, Now.ToShortTimeString) & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
@@ -3855,11 +3860,12 @@ Public Class FormularManagerNEU
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrName <> "", usrName, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "EORI_Prufung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO(MANDANT.Firma_Bez), "", "EORI_Prufung", listTowrite)
Return PdfTmp
@@ -6215,6 +6221,13 @@ Public Class FormularManagerNEU
End Select
End Function
Public Shared Function getUO2_FO(FIRMA As String) As String
Select Case FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2(FilialenNr As String) As String
If FilialenNr = "" Then Return getUO2()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.1.8")>
<Assembly: AssemblyFileVersion("1.3.1.8")>
<Assembly: AssemblyVersion("1.3.1.9")>
<Assembly: AssemblyFileVersion("1.3.1.9")>

71
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -26,13 +26,11 @@ Partial Class frmMDM_USTVAntrag
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblRMCeingearbeitet = New System.Windows.Forms.Label()
Me.btnRMCEinarbeiten = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.lbl_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblKdNr = New System.Windows.Forms.Label()
@@ -78,6 +76,7 @@ Partial Class frmMDM_USTVAntrag
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel9.SuspendLayout()
@@ -96,53 +95,25 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.lblRMCeingearbeitet)
Me.Panel3.Controls.Add(Me.btnRMCEinarbeiten)
Me.Panel3.Controls.Add(Me.btnMail)
Me.Panel3.Controls.Add(Me.Button14)
Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet)
Me.Panel3.Controls.Add(Me.lbl_EintrageVerarbetiet)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 649)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1454, 100)
Me.Panel3.TabIndex = 3
'
'lblRMCeingearbeitet
'
Me.lblRMCeingearbeitet.ForeColor = System.Drawing.Color.Black
Me.lblRMCeingearbeitet.Location = New System.Drawing.Point(198, 70)
Me.lblRMCeingearbeitet.Name = "lblRMCeingearbeitet"
Me.lblRMCeingearbeitet.Size = New System.Drawing.Size(168, 19)
Me.lblRMCeingearbeitet.TabIndex = 28
Me.lblRMCeingearbeitet.Text = "alle Einträge verarbeitet"
Me.lblRMCeingearbeitet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblRMCeingearbeitet.Visible = False
'
'btnRMCEinarbeiten
'
Me.btnRMCEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRMCEinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnRMCEinarbeiten.ForeColor = System.Drawing.Color.Black
Me.btnRMCEinarbeiten.Image = Global.SDL.My.Resources.Resources.plus
Me.btnRMCEinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRMCEinarbeiten.Location = New System.Drawing.Point(198, 29)
Me.btnRMCEinarbeiten.Name = "btnRMCEinarbeiten"
Me.btnRMCEinarbeiten.Size = New System.Drawing.Size(168, 38)
Me.btnRMCEinarbeiten.TabIndex = 27
Me.btnRMCEinarbeiten.Text = "RMC übernehmen"
Me.btnRMCEinarbeiten.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRMCEinarbeiten.UseVisualStyleBackColor = True
'
'btnMail
'
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMail.ForeColor = System.Drawing.Color.Black
Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMail.Location = New System.Drawing.Point(1095, 30)
Me.btnMail.Location = New System.Drawing.Point(1067, 30)
Me.btnMail.Name = "btnMail"
Me.btnMail.Size = New System.Drawing.Size(75, 39)
Me.btnMail.Size = New System.Drawing.Size(103, 39)
Me.btnMail.TabIndex = 26
Me.btnMail.Text = "Anträge"
Me.btnMail.UseVisualStyleBackColor = True
@@ -158,7 +129,7 @@ Partial Class frmMDM_USTVAntrag
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(168, 38)
Me.Button14.TabIndex = 1
Me.Button14.Text = "PLOSE übernehmen"
Me.Button14.Text = "Anträge übernehmen"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button14.UseVisualStyleBackColor = True
'
@@ -186,16 +157,16 @@ Partial Class frmMDM_USTVAntrag
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'lblPLOSE_EintrageVerarbetiet
'lbl_EintrageVerarbetiet
'
Me.lblPLOSE_EintrageVerarbetiet.ForeColor = System.Drawing.Color.Black
Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 70)
Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet"
Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19)
Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3
Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblPLOSE_EintrageVerarbetiet.Visible = False
Me.lbl_EintrageVerarbetiet.ForeColor = System.Drawing.Color.Black
Me.lbl_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 70)
Me.lbl_EintrageVerarbetiet.Name = "lbl_EintrageVerarbetiet"
Me.lbl_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19)
Me.lbl_EintrageVerarbetiet.TabIndex = 3
Me.lbl_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
Me.lbl_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lbl_EintrageVerarbetiet.Visible = False
'
'Panel1
'
@@ -827,7 +798,12 @@ Partial Class frmMDM_USTVAntrag
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'frmMDM_USTVAntrag
'
@@ -871,7 +847,7 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents lblFirma As Label
Friend WithEvents pnlFilter As Panel
Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label
Friend WithEvents lbl_EintrageVerarbetiet As Label
Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox
Friend WithEvents Label3 As Label
Friend WithEvents lblZeitraum As Label
@@ -914,8 +890,7 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents btnMail As Button
Friend WithEvents cboAntragArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnRMCEinarbeiten As Button
Friend WithEvents lblRMCeingearbeitet As Label
Friend WithEvents Label1 As Label
Friend WithEvents txt3470 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class

3
SDL/USTV/frmMDM_USTVAntrag.resx
View File

@@ -120,6 +120,9 @@
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

422
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -21,7 +21,7 @@ Public Class frmMDM_USTVAntrag
End Sub
Sub init()
Sub init(Optional Lieferant As String = "")
pnlFilter.AutoScroll = False
lblGesamtUSteuer.Text = "-"
@@ -143,16 +143,39 @@ Public Class frmMDM_USTVAntrag
lblGesamtErstattung.Text = GesamtErstattung.ToString("C2")
lblDiffernezbetrag.Text = Differnezbetrag.ToString("C2")
Dim GET_Antraege
Dim antraegeVearbeitet = False
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
Select Case Lieferant.ToLower
Case "plose"
GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
antraegeVearbeitet = True
Case "rmc"
Dim dt As New DataTable
GET_Antraege = cRMC.GET_Antraege_RMC(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
antraegeVearbeitet = True
Case "mse"
Dim dt As New DataTable
GET_Antraege = cMSEAPI.GET_Antraege_MSE(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, USTV_ANTRAG.UStVAn_Währungscode, False)
antraegeVearbeitet = True
Case "uta"
Dim dt As New DataTable
GET_Antraege = cUTA.GET_Antraege_UTA(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, USTV_ANTRAG.UStVAn_Währungscode, False)
antraegeVearbeitet = True
Case "ids"
MsgBox("Funktion noch nicht implementiert")
End Select
If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
Else
lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
If antraegeVearbeitet Then
If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
lbl_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
Else
lbl_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
End If
End If
End Sub
@@ -236,7 +259,7 @@ Public Class frmMDM_USTVAntrag
lblPLOSE_EintrageVerarbetiet.Text = ""
lbl_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
@@ -249,11 +272,73 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
loadUSTVFrom_PLOSE(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init()
If Not ContextMenuStrip2.Items.ContainsKey("plose") Then
Dim plose = New ToolStripMenuItem() With {.Text = "Plose", .Name = "plose", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip2.Items.Add(plose)
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If
If Not ContextMenuStrip2.Items.ContainsKey("rmc") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "RMC", .Name = "rmc", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("mse") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("uta") Then
Dim uta = New ToolStripMenuItem() With {.Text = "UTA", .Name = "uta", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(uta)
End If
If Not ContextMenuStrip2.Items.ContainsKey("ids") Then
Dim ids = New ToolStripMenuItem() With {.Text = "IDS", .Name = "ids", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids)
End If
ContextMenuStrip2.Show(Cursor.Position)
End Sub
Private Sub mnuItemAuftrauege_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
If item.Name = "plose" Then
loadUSTVFrom_PLOSE(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init()
ElseIf item.Name = "rmc" Then
loadUSTVFrom_RMC(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init()
ElseIf item.Name = "mse" Then
loadUSTVFrom_MSE(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init()
ElseIf item.Name = "uta" Then
loadUSTVFrom_UTA(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init()
ElseIf item.Name = "ids" Then
MsgBox("IDS noch nicht implementiert!")
End If
End If
End Sub
Shared Function alreadyExists(USTVAn_KuNr As Integer, UStVAn_LandNr As String, USTV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim cnt = SQL.getValueTxtBySql(" SELECT count(*) FROM [tblUStVAntrag] inner join [tblUStVPositionen] on tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
@@ -383,6 +468,138 @@ Public Class frmMDM_USTVAntrag
End Try
End Function
Shared Function loadUSTVFrom_MSE(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
Try
Dim bytSchnittstellenNr = 4 'damit von alter Schnittstelle und neue Schnittstelle keine Daten doppelt importiert werden
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Dim dt As New DataTable
Dim GET_Antraege = cMSEAPI.GET_Antraege_MSE(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, USTV_ANTRAG.UStVAn_Währungscode, ArchivierteEintracheNochmalsEinarbetien)
If GET_Antraege Then
For Each r As DataRow In dt.Rows
Dim kdNr = r.Item("customer_id")
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
USTV_POS.UStVPo_ReDat = r.Item("invoice_date")
USTV_POS.UStVPo_ReNr = r.Item("invoice_number") & " - " & kdNr
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
USTV_POS.UStVPo_Schnittstelle = True
USTV_POS.UStVPo_Leistungsbezeichnung = r.Item("specification_page_name")
USTV_POS.UStVPo_Leistender = "MS Europe BV"
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
USTV_POS.UStVPo_Zeitstempel = Now()
' Berechnungen
'!UStVPo_USteuerbetrag = rst1!Umsatzsteuerbetrag
'!UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat])
'!UStVPo_USteuerbetragEUR = Int(![UStVPo_USteuerbetrag] / !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
Dim umrechKurs As Double = 1
Dim UST_EUR = CDbl(r.Item("UST_EUR"))
Dim UST_org = CDbl(r.Item("UST"))
If (UST_EUR > 0 AndAlso UST_org > 0 AndAlso UST_org <> UST_EUR) Then
umrechKurs = UST_org / UST_EUR
End If
If UST_org > 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR 'Math.Round((UST_org / umrechKurs), 2)
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
USTV_POS.UStVPo_USteuerbetrag = UST_org
End If
If USTV_POS.INSERT() Then
cMSEAPI.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr)
End If
End If
Next
End If
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
Shared Function loadUSTVFrom_UTA(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
Try
Dim bytSchnittstellenNr = 5 'damit von alter Schnittstelle und neue Schnittstelle keine Daten doppelt importiert werden
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Dim dt As New DataTable
Dim GET_Antraege = cUTA.GET_Antraege_UTA(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, USTV_ANTRAG.UStVAn_Währungscode, ArchivierteEintracheNochmalsEinarbetien)
If GET_Antraege Then
For Each r As DataRow In dt.Rows
Dim kdNr = r.Item("customer_id")
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
USTV_POS.UStVPo_ReDat = r.Item("invoice_date")
USTV_POS.UStVPo_ReNr = r.Item("invoice_number") & " - " & kdNr
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
USTV_POS.UStVPo_Schnittstelle = True
USTV_POS.UStVPo_Leistungsbezeichnung = "MAUT, DIESEL oder KFZ-Zubehör"
USTV_POS.UStVPo_Leistender = "Union Tank Eckstein Gmbh&Co KG, Kleinostheim"
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
USTV_POS.UStVPo_Zeitstempel = Now()
' Berechnungen
'!UStVPo_USteuerbetrag = rst1!Umsatzsteuerbetrag
'!UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat])
'!UStVPo_USteuerbetragEUR = Int(![UStVPo_USteuerbetrag] / !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
Dim umrechKurs As Double = 1
Dim UST_EUR = CDbl(r.Item("UST_EUR"))
Dim UST_org = CDbl(r.Item("UST"))
If (UST_EUR > 0 AndAlso UST_org > 0 AndAlso UST_org <> UST_EUR) Then
umrechKurs = UST_org / UST_EUR
End If
If UST_org > 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR 'Math.Round((UST_org / umrechKurs), 2)
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
USTV_POS.UStVPo_USteuerbetrag = UST_org
End If
If USTV_POS.INSERT() Then
cUTA.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr)
End If
End If
Next
End If
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -590,7 +807,11 @@ Public Class frmMDM_USTVAntrag
ContextMenuStrip1.Items.Add(mail)
End If
If Not ContextMenuStrip1.Items.ContainsKey("offeneAntraege") Then
Dim oa = New ToolStripMenuItem() With {.Text = "offene Anträge", .Name = "offeneAntraege", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler oa.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(oa)
End If
ContextMenuStrip1.Show(Cursor.Position)
@@ -607,6 +828,14 @@ Public Class frmMDM_USTVAntrag
ElseIf item.Name = "mail" Then
mailmitExcelauswertung()
ElseIf item.Name = "offeneAntraege" Then
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Dim frm As New frmUSTVoffeneAntraege(CDate(USTV_ANTRAG.UStVAn_ReDatVon), CDate(USTV_ANTRAG.UStVAn_ReDatBis), USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_Name)
frm.Show()
Else
MsgBox("Funktion nicht implementiert!")
End If
@@ -680,175 +909,4 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub btnRMCEinarbeiten_Click(sender As Object, e As EventArgs) Handles btnRMCEinarbeiten.Click
End Sub
Private Sub txt3470_ValueChanged() Handles txt3470.ValueChanged
End Sub
' Private Sub cmdITMautÜbernehmen_Click()
' Dim wrk As DAO.Workspace
' Dim qry1 As DAO.QueryDef
' Dim qry2 As DAO.QueryDef
' Dim rst1 As DAO.Recordset
' Dim rstUStVPositionen As DAO.Recordset
' Dim bytSchnittstellenNr As Byte
' Dim fInTransaktion As Boolean
' Dim intUStVPo_ID As Integer
'1380 On Error GoTo PROC_Error
'1390 If Eingabefehler Then Exit Sub
'1400 If Me!UStVAn_LandNr <> 5 Then
'1410 MsgBox "Datenübernahme nicht möglich (Land ist nicht Italien).", vbInformation, "Eingabeprüfung"
'1420 Exit Sub
'1430 End If
' ' Wenn Daten in Formular geändert wurden, Speichern auslösen.
'1440 If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
'1450 DoCmd.Hourglass True
' ' Italienisches Mautarchiv lesen.
'1460 Set wrk = DBEngine.Workspaces(0)
'1470 Set qry1 = dbs.QueryDefs("qryUStVMautITLesen")
'1480 qry1.Parameters("[Param1]") = Me![UStVAn_ReDatVon]
'1490 qry1.Parameters("[Param2]") = Me![UStVAn_ReDatBis]
'1500 qry1.Parameters("[Param3]") = Me![UStVAn_KuNr]
'1510 Set rst1 = qry1.OpenRecordset(dbOpenSnapshot)
'1520 If Not rst1.EOF Then
'1530 bytSchnittstellenNr = 3
'1540 intUStVPo_ID = UStVPo_ID_zuordnen(Me![UStVAn_ID])
'1550 Set rstUStVPositionen = dbs.OpenRecordset("tblUStVPositionen", dbOpenDynaset, dbAppendOnly)
'1560 wrk.BeginTrans
'1570 fInTransaktion = True
'1580 Do Until rst1.EOF
'1590 If RechnungÜbernehmen(rst1!RechnungsDatum, CStr(rst1!Rechnungsnummer), bytSchnittstellenNr, Me!UStVAn_KuNr, Me!UStVAn_LandNr) Then
'1600 intUStVPo_ID = intUStVPo_ID + 1
' ' Schreiben der Umsatzsteuerdaten in die Tabelle.
'1610 With rstUStVPositionen
'1620 .AddNew
'1630 !UStVAn_ID = Me![UStVAn_ID]
'1640 !UStVPo_ID = intUStVPo_ID
'1650 !UStVPo_ReDat = rst1!RechnungsDatum
'1660 !UStVPo_ReNr = CStr(rst1!Rechnungsnummer)
'1670 !UStVPo_Schnittstelle = True
'1680 !UStVPo_SchnittstellenNr = bytSchnittstellenNr
'1690 !UStVPo_Leistungsbezeichnung = "Maut"
'1700 !UStVPo_Leistender = "Telepass"
'1710 !UStVPo_Sachbearbeiter = CurrentUser()
'1720 !UStVPo_Zeitstempel = Now()
' ' Berechnungen
'1730 !UStVPo_USteuerbetragEUR = rst1!MWStBetrag
'1740 !UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat])
'1750 !UStVPo_USteuerbetrag = Int(![UStVPo_USteuerbetragEUR] * !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
'1760 .Update
'1770 End With
' ' UStV-Antragsnummer im Archiv eintragen.
'1780 Set qry2 = dbs.QueryDefs("qryUStVMautITAntragsNrEintragen")
'1790 qry2.Parameters("[prmUStVAn_ID]") = Me![UStVAn_ID]
'1800 qry2.Parameters("[prmVerrechnungsdatum]") = rst1!RechnungsDatum
'1810 qry2.Parameters("[prmCode_Adressat_des_Kontoauszugs]") = rst1!Rechnungsnummer
'1820 qry2.Execute dbFailOnError
'1830 qry2.Close
'1840 Set qry2 = Nothing
'1850 End If
'1860 rst1.MoveNext
'1870 Loop
'1880 wrk.CommitTrans
'1890 fInTransaktion = False
'1900 Me!tblUStVPositionen.Requery
'1910 End If
'PROC_Exit:
'1920 On Error Resume Next
'1930 If Not rstUStVPositionen Is Nothing Then
'1940 rstUStVPositionen.Close
'1950 Set rstUStVPositionen = Nothing
'1960 End If
'1970 If Not rst1 Is Nothing Then
'1980 rst1.Close
'1990 Set rst1 = Nothing
'2000 End If
'2010 If Not qry2 Is Nothing Then
'2020 qry2.Close
'2030 Set qry2 = Nothing
'2040 End If
'2050 If Not qry1 Is Nothing Then
'2060 qry1.Close
'2070 Set qry1 = Nothing
'2080 End If
'2090 If Not wrk Is Nothing Then
'2100 Set wrk = Nothing
'2110 End If
'2120 DoCmd.Hourglass False
'2130 Exit Sub
'PROC_Error:
'2140 If fInTransaktion Then
'2150 wrk.Rollback
'2160 fInTransaktion = False
'2170 End If
'2180 DoCmd.Hourglass False
'2190 ErrNotify Err, "Form_frmUStVAntragserfassung", "cmdITMautÜbernehmen_Click", eNormalError
'2200 Resume PROC_Exit
' End Sub
' Private Function RechnungÜbernehmen(
' ByRef varUStVPo_ReDat As Variant,
' ByRef varUStVPo_ReNr As Variant,
' ByRef varUStVPo_SchnittstellenNr As Variant,
' ByRef varUStVAn_KuNr,
' ByRef varUStVAn_LandNr) As Boolean
' Dim fResult As Boolean
' Dim qry As DAO.QueryDef
' Dim rst As DAO.Recordset
'12000 On Error GoTo PROC_Error
'12010 Set qry = dbs.QueryDefs("qryUStVRechnungÜbernehmen")
'12020 qry.Parameters("[prmUStVPo_ReDat]") = varUStVPo_ReDat
'12030 qry.Parameters("[prmUStVPo_ReNr]") = varUStVPo_ReNr
'12040 qry.Parameters("[prmUStVPo_SchnittstellenNr]") = varUStVPo_SchnittstellenNr
'12050 qry.Parameters("[prmUStVAn_KuNr]") = varUStVAn_KuNr
'12060 qry.Parameters("[prmUStVAn_LandNr]") = varUStVAn_LandNr
'12070 Set rst = qry.OpenRecordset(dbOpenSnapshot)
'12080 If rst.EOF Then fResult = True Else fResult = False
'PROC_Exit:
'12090 On Error Resume Next
'12100 If Not rst Is Nothing Then
'12110 rst.Close
'12120 Set rst = Nothing
'12130 End If
'12140 If Not qry Is Nothing Then
'12150 qry.Close
'12160 Set qry = Nothing
'12170 End If
'12180 RechnungÜbernehmen = fResult
'12190 Exit Function
'PROC_Error:
'12200 Select Case ErrHandler(Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen")
' Case 0
'12210 Resume
'12220 Case 1
'12230 ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eNormalError
'12240 Case 2
'12250 ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eHiddenError
'12260 End Select
'12270 fResult = False
'12280 Resume PROC_Exit
' End Function
End Class

65
SDL/USTV/frmUSTVoffeneAntraege.Designer.vb generated
View File

@@ -26,6 +26,8 @@ Partial Class frmUSTVoffeneAntraege
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btn = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label2 = New System.Windows.Forms.Label()
@@ -39,8 +41,8 @@ Partial Class frmUSTVoffeneAntraege
Me.dat_Sum_Von = New System.Windows.Forms.DateTimePicker()
Me.txtmaxAnz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxAlleoffenen = New System.Windows.Forms.CheckBox()
Me.lblKunde = New System.Windows.Forms.Label()
Me.FlowLayoutPanel.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
@@ -83,6 +85,28 @@ Partial Class frmUSTVoffeneAntraege
Me.Button7.Text = "RMC"
Me.Button7.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.FloralWhite
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(255, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(120, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "UTA"
Me.Button1.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.FloralWhite
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(381, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 23)
Me.Button2.TabIndex = 3
Me.Button2.Text = "MSE"
Me.Button2.UseVisualStyleBackColor = False
'
'lbl
'
Me.lbl.AutoSize = True
@@ -262,33 +286,32 @@ Partial Class frmUSTVoffeneAntraege
Me.Label3.TabIndex = 43
Me.Label3.Text = "max. DS:"
'
'Button1
'cbxAlleoffenen
'
Me.Button1.BackColor = System.Drawing.Color.FloralWhite
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(255, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(120, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "UTA"
Me.Button1.UseVisualStyleBackColor = False
Me.cbxAlleoffenen.AutoSize = True
Me.cbxAlleoffenen.Location = New System.Drawing.Point(1137, 70)
Me.cbxAlleoffenen.Name = "cbxAlleoffenen"
Me.cbxAlleoffenen.Size = New System.Drawing.Size(128, 17)
Me.cbxAlleoffenen.TabIndex = 44
Me.cbxAlleoffenen.Text = "alle Kunden anzeigen"
Me.cbxAlleoffenen.UseVisualStyleBackColor = True
'
'Button2
'lblKunde
'
Me.Button2.BackColor = System.Drawing.Color.FloralWhite
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(381, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 23)
Me.Button2.TabIndex = 3
Me.Button2.Text = "MSE"
Me.Button2.UseVisualStyleBackColor = False
Me.lblKunde.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblKunde.AutoSize = True
Me.lblKunde.Location = New System.Drawing.Point(464, 75)
Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Size = New System.Drawing.Size(0, 13)
Me.lblKunde.TabIndex = 45
'
'frmUSTVoffeneAntraege
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1457, 681)
Me.Controls.Add(Me.lblKunde)
Me.Controls.Add(Me.cbxAlleoffenen)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtmaxAnz)
Me.Controls.Add(Me.Panel4)
@@ -328,4 +351,6 @@ Partial Class frmUSTVoffeneAntraege
Friend WithEvents Label3 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents cbxAlleoffenen As CheckBox
Friend WithEvents lblKunde As Label
End Class

104
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -1,8 +1,12 @@
Public Class frmUSTVoffeneAntraege
Imports GrapeCity.DataVisualization.TypeScript
Public Class frmUSTVoffeneAntraege
Public LIEFERANT = ""
Dim datumBis As Date = Nothing
Dim datumVon As Date = Nothing
Dim kdNr As Integer = -1
Dim kdName As String
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
initLieferant("PLOSE", sender)
End Sub
@@ -21,6 +25,23 @@
End Sub
Sub New(datumVon_ As Date, datumBis_ As Date, kdnr_ As Integer, kdName_ As String)
datumVon = datumVon_
datumBis = datumBis_
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
dat_Sum_Von.Value = datumVon
dat_Sum_Bis.Value = datumBis
kdNr = kdnr_
kdName = kdName_
lblKunde.Text = kdNr & " " & kdName
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -28,12 +49,12 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
lblKunde.Text = " "
End Sub
Private Sub initLieferant(l As String, btn As Button)
MyDatagridview1.DataSource = Nothing
Me.LIEFERANT = l
@@ -45,19 +66,11 @@
End If
Next
Select Case Me.LIEFERANT
Case "PLOSE"
'Kundenauswertungen
Case "RMC"
'Kundenauswertungen
End Select
init()
End Sub
Sub initDgv_PLOSE(anz As Integer)
Sub initDgv_PLOSE(anz As Integer, Optional kdnr As Integer = -1)
With MyDatagridview1
.Columns.Clear()
@@ -65,9 +78,15 @@
Dim top = ""
If anz > 0 Then top = "TOP (" & anz & ")"
Dim sqlwhere = ""
If kdnr > 0 Then
sqlwhere &= " and plose_POLSEKundennummer = " & kdnr
End If
.SET_SQL("select " & top & " plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_Lieferant],[plose_RechnungsDatum],[plose_RechnungsNr], sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null
group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant]
WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwhere &
"group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant]
having sum(plose_MWSTBetrag)>0", "FMZOLL")
.LOAD()
If .Columns.Count > 0 Then
@@ -98,18 +117,25 @@
End Sub
Sub initDgv_RMC(anz As Integer)
Sub initDgv_RMC(anz As Integer, Optional kdnr As Integer = -1)
Dim top = ""
If anz > 0 Then top = "TOP (" & anz & ")"
Dim sqlwhere = ""
If kdnr > 0 Then
sqlwhere &= " and rmc_kdNr = " & kdnr
End If
With MyDatagridview1
.Columns.Clear()
'Exit Sub
'MsgBox(.sql)
Dim sqlstring = "Select " & top & " [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung], [rmc_betragMWST],rmc_daid FROM [tblRMCImport]
where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And rmc_archiv <> 1
group by rmc_reDatum, rmc_kdNr,[rmc_kdName], [rmc_landKZ],[rmc_reNr], [rmc_waehrung], [rmc_betragMWST], rmc_daid having [rmc_betragMWST] > 0"
where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And rmc_archiv <> 1 " & sqlwhere &
"group by rmc_reDatum, rmc_kdNr,[rmc_kdName], [rmc_landKZ],[rmc_reNr], [rmc_waehrung], [rmc_betragMWST], rmc_daid having [rmc_betragMWST] > 0"
.SET_SQL(sqlstring, "FMZOLL")
.LOAD()
@@ -154,18 +180,23 @@
End Sub
Sub initDgv_MSE(anz As Integer)
Sub initDgv_MSE(anz As Integer, Optional kdnr As Integer = -1)
Dim top = ""
If anz > 0 Then top = "TOP (" & anz & ")"
Dim sqlwhere = ""
If kdnr > 0 Then
sqlwhere &= " and customer_number = " & kdnr
End If
With MyDatagridview1
.Columns.Clear()
'Exit Sub
'MsgBox(.sql)
Dim sqlstring = "Select " & top & " customer_number, customer_name, country, invoice_date, invoice_id, sum(total_amount_euro) as total_amount_euro, sum(total_vat_amount_euro) as total_vat_amount_euro, daId FROM [VERAG].[dbo].[tblMSEInvoices] inner join [tblMSECustomers] on [customer_number] = [customer_id]
where cast(invoice_date As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And imported <> 1
group by invoice_date, customer_number,customer_name, country, invoice_id, daId "
where cast(invoice_date As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And imported <> 1 " & sqlwhere &
"group by invoice_date, customer_number,customer_name, country, invoice_id, daId "
.SET_SQL(sqlstring, "FMZOLL")
.LOAD()
@@ -213,30 +244,35 @@
End Sub
Sub initDgv_UTA(anz As Integer)
Sub initDgv_UTA(anz As Integer, Optional kdnr As Integer = -1)
Dim top = ""
If anz > 0 Then top = "TOP (" & anz & ")"
Dim sqlwhere = ""
If kdnr > 0 Then
sqlwhere &= " and Kundennummer = " & kdnr
End If
With MyDatagridview1
.Columns.Clear()
'Exit Sub
'MsgBox(.sql)
Dim sqlstring = "Select " & top & " [Kundennummer], [Lieferland], [Rechnungsdatum], [Abrechnungsnummer], sum([Gesamtbetrag_Brutto_in_Darstellwährung]) as [Gesamtbetrag_Brutto_in_Darstellwährung], sum([Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]) as [Gesamtbetrag_Umsatzsteuer_in_Darstellwährung], da_id FROM [tblUTAImport]
where cast([Rechnungsdatum] As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And [archiv] <> 1
group by [Rechnungsdatum], Kundennummer, [Lieferland], [Abrechnungsnummer], da_id "
Dim sqlstring = "Select " & top & " [Kundennummer], [Lieferland_ISO2], [Rechnungsdatum], [Abrechnungsnummer], sum([Gesamtbetrag_Brutto_in_Darstellwährung]) as [Gesamtbetrag_Brutto_in_Darstellwährung], sum([Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]) as [Gesamtbetrag_Umsatzsteuer_in_Darstellwährung], daId FROM [tblUTAImportNew]
where cast([Rechnungsdatum] As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And [archiv] <> 1 " & sqlwhere &
"group by [Rechnungsdatum], Kundennummer, [Lieferland_ISO2], [Abrechnungsnummer], daId "
.SET_SQL(sqlstring, "FMZOLL")
.LOAD()
If .Columns.Count > 0 Then
.Columns("Kundennummer").HeaderText = "KdNr"
.Columns("Lieferland").HeaderText = "Land"
.Columns("Lieferland_ISO2").HeaderText = "Land"
.Columns("Rechnungsdatum").HeaderText = "RE-Datum"
.Columns("Abrechnungsnummer").HeaderText = "RE-Nr"
.Columns("Gesamtbetrag_Brutto_in_Darstellwährung").HeaderText = "Gesamtsumme Euro"
.Columns("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").HeaderText = "MWSt Euro"
.Columns("da_id").Visible = False
.Columns("daId").Visible = False
.Columns("Kundennummer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
@@ -257,7 +293,7 @@
For Each r As DataGridViewRow In .Rows
sumMwSt += If(IsNumeric(r.Cells("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").Value), CDbl(r.Cells("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").Value), 0)
If Not IsDBNull(r.Cells("da_id").Value) AndAlso r.Cells("da_id").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
Next
txtAnzahl.Text = .Rows.Count
@@ -269,11 +305,11 @@
End Sub
Sub init()
Select Case LIEFERANT
Case "PLOSE" : initDgv_PLOSE(txtmaxAnz.Text)
Case "RMC" : initDgv_RMC(txtmaxAnz.Text)
Case "MSE" : initDgv_MSE(txtmaxAnz.Text)
Case "UTA" : initDgv_UTA(txtmaxAnz.Text)
Select Case LIEFERANT.ToString.ToLower
Case "plose" : initDgv_PLOSE(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr))
Case "rmc" : initDgv_RMC(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr))
Case "mse" : initDgv_MSE(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr))
Case "uta" : initDgv_UTA(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr))
End Select
End Sub
@@ -288,4 +324,8 @@
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
initLieferant("MSE", sender)
End Sub
Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged
init()
End Sub
End Class

247
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -28,6 +28,12 @@ Partial Class usrCntlUSTV
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtVZBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txt3470Betrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtVorschaubetrGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxDifferenzbetrag = New System.Windows.Forms.CheckBox()
Me.cbxEingereicht = New System.Windows.Forms.CheckBox()
Me.cbxTopMax = New System.Windows.Forms.CheckBox()
@@ -48,18 +54,12 @@ Partial Class usrCntlUSTV
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnRMCalle = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnPLOSEAlle = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.txtVorschaubetrGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txt3470Betrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtVZBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -130,6 +130,111 @@ Partial Class usrCntlUSTV
Me.Panel1.Size = New System.Drawing.Size(1627, 84)
Me.Panel1.TabIndex = 0
'
'txtVZBetrag
'
Me.txtVZBetrag._DateTimeOnly = False
Me.txtVZBetrag._numbersOnly = False
Me.txtVZBetrag._numbersOnlyKommastellen = ""
Me.txtVZBetrag._numbersOnlyTrennzeichen = True
Me.txtVZBetrag._Prozent = False
Me.txtVZBetrag._ShortDateNew = False
Me.txtVZBetrag._ShortDateOnly = False
Me.txtVZBetrag._TimeOnly = False
Me.txtVZBetrag._TimeOnly_Seconds = False
Me.txtVZBetrag._value = ""
Me.txtVZBetrag._Waehrung = True
Me.txtVZBetrag._WaehrungZeichen = True
Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black
Me.txtVZBetrag.Location = New System.Drawing.Point(1290, 6)
Me.txtVZBetrag.MaxLineLength = -1
Me.txtVZBetrag.MaxLines_Warning = ""
Me.txtVZBetrag.MaxLines_Warning_Label = Nothing
Me.txtVZBetrag.Name = "txtVZBetrag"
Me.txtVZBetrag.ReadOnly = True
Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20)
Me.txtVZBetrag.TabIndex = 51
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(1229, 11)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(55, 13)
Me.Label8.TabIndex = 50
Me.Label8.Text = "VZ-Betrag"
'
'txt3470Betrag
'
Me.txt3470Betrag._DateTimeOnly = False
Me.txt3470Betrag._numbersOnly = False
Me.txt3470Betrag._numbersOnlyKommastellen = ""
Me.txt3470Betrag._numbersOnlyTrennzeichen = True
Me.txt3470Betrag._Prozent = False
Me.txt3470Betrag._ShortDateNew = False
Me.txt3470Betrag._ShortDateOnly = False
Me.txt3470Betrag._TimeOnly = False
Me.txt3470Betrag._TimeOnly_Seconds = False
Me.txt3470Betrag._value = ""
Me.txt3470Betrag._Waehrung = True
Me.txt3470Betrag._WaehrungZeichen = True
Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black
Me.txt3470Betrag.Location = New System.Drawing.Point(1102, 5)
Me.txt3470Betrag.MaxLineLength = -1
Me.txt3470Betrag.MaxLines_Warning = ""
Me.txt3470Betrag.MaxLines_Warning_Label = Nothing
Me.txt3470Betrag.Name = "txt3470Betrag"
Me.txt3470Betrag.ReadOnly = True
Me.txt3470Betrag.Size = New System.Drawing.Size(107, 20)
Me.txt3470Betrag.TabIndex = 49
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(1065, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 48
Me.Label7.Text = "3470"
'
'txtVorschaubetrGes
'
Me.txtVorschaubetrGes._DateTimeOnly = False
Me.txtVorschaubetrGes._numbersOnly = False
Me.txtVorschaubetrGes._numbersOnlyKommastellen = ""
Me.txtVorschaubetrGes._numbersOnlyTrennzeichen = True
Me.txtVorschaubetrGes._Prozent = False
Me.txtVorschaubetrGes._ShortDateNew = False
Me.txtVorschaubetrGes._ShortDateOnly = False
Me.txtVorschaubetrGes._TimeOnly = False
Me.txtVorschaubetrGes._TimeOnly_Seconds = False
Me.txtVorschaubetrGes._value = ""
Me.txtVorschaubetrGes._Waehrung = True
Me.txtVorschaubetrGes._WaehrungZeichen = True
Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black
Me.txtVorschaubetrGes.Location = New System.Drawing.Point(940, 5)
Me.txtVorschaubetrGes.MaxLineLength = -1
Me.txtVorschaubetrGes.MaxLines_Warning = ""
Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing
Me.txtVorschaubetrGes.Name = "txtVorschaubetrGes"
Me.txtVorschaubetrGes.ReadOnly = True
Me.txtVorschaubetrGes.Size = New System.Drawing.Size(107, 20)
Me.txtVorschaubetrGes.TabIndex = 34
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(813, 9)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(121, 13)
Me.Label6.TabIndex = 33
Me.Label6.Text = "Vorschaubetrag-Gesamt"
'
'cbxDifferenzbetrag
'
Me.cbxDifferenzbetrag.AutoSize = True
@@ -327,7 +432,6 @@ Partial Class usrCntlUSTV
Me.Panel3.Controls.Add(Me.Label5)
Me.Panel3.Controls.Add(Me.Label4)
Me.Panel3.Controls.Add(Me.Label3)
Me.Panel3.Controls.Add(Me.btnRMCalle)
Me.Panel3.Controls.Add(Me.btnMail)
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
Me.Panel3.Controls.Add(Me.Button5)
@@ -446,21 +550,6 @@ Partial Class usrCntlUSTV
Me.Label3.TabIndex = 27
Me.Label3.Text = "USt-Betrag"
'
'btnRMCalle
'
Me.btnRMCalle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRMCalle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnRMCalle.ForeColor = System.Drawing.Color.Black
Me.btnRMCalle.Image = Global.SDL.My.Resources.Resources.plus
Me.btnRMCalle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRMCalle.Location = New System.Drawing.Point(545, 6)
Me.btnRMCalle.Name = "btnRMCalle"
Me.btnRMCalle.Size = New System.Drawing.Size(172, 40)
Me.btnRMCalle.TabIndex = 26
Me.btnRMCalle.Text = "RMC für offene " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anträge übernehmen"
Me.btnRMCalle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRMCalle.UseVisualStyleBackColor = True
'
'btnMail
'
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -482,9 +571,9 @@ Partial Class usrCntlUSTV
Me.btnPLOSEAlle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPLOSEAlle.Location = New System.Drawing.Point(367, 8)
Me.btnPLOSEAlle.Name = "btnPLOSEAlle"
Me.btnPLOSEAlle.Size = New System.Drawing.Size(172, 40)
Me.btnPLOSEAlle.Size = New System.Drawing.Size(132, 40)
Me.btnPLOSEAlle.TabIndex = 24
Me.btnPLOSEAlle.Text = "PLOSE für offene " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anträge übernehmen"
Me.btnPLOSEAlle.Text = "offene Anträge übernehmen"
Me.btnPLOSEAlle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPLOSEAlle.UseVisualStyleBackColor = True
'
@@ -521,110 +610,10 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'txtVorschaubetrGes
'ContextMenuStrip2
'
Me.txtVorschaubetrGes._DateTimeOnly = False
Me.txtVorschaubetrGes._numbersOnly = False
Me.txtVorschaubetrGes._numbersOnlyKommastellen = ""
Me.txtVorschaubetrGes._numbersOnlyTrennzeichen = True
Me.txtVorschaubetrGes._Prozent = False
Me.txtVorschaubetrGes._ShortDateNew = False
Me.txtVorschaubetrGes._ShortDateOnly = False
Me.txtVorschaubetrGes._TimeOnly = False
Me.txtVorschaubetrGes._TimeOnly_Seconds = False
Me.txtVorschaubetrGes._value = ""
Me.txtVorschaubetrGes._Waehrung = True
Me.txtVorschaubetrGes._WaehrungZeichen = True
Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black
Me.txtVorschaubetrGes.Location = New System.Drawing.Point(940, 5)
Me.txtVorschaubetrGes.MaxLineLength = -1
Me.txtVorschaubetrGes.MaxLines_Warning = ""
Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing
Me.txtVorschaubetrGes.Name = "txtVorschaubetrGes"
Me.txtVorschaubetrGes.ReadOnly = True
Me.txtVorschaubetrGes.Size = New System.Drawing.Size(107, 20)
Me.txtVorschaubetrGes.TabIndex = 34
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(813, 9)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(121, 13)
Me.Label6.TabIndex = 33
Me.Label6.Text = "Vorschaubetrag-Gesamt"
'
'txt3470Betrag
'
Me.txt3470Betrag._DateTimeOnly = False
Me.txt3470Betrag._numbersOnly = False
Me.txt3470Betrag._numbersOnlyKommastellen = ""
Me.txt3470Betrag._numbersOnlyTrennzeichen = True
Me.txt3470Betrag._Prozent = False
Me.txt3470Betrag._ShortDateNew = False
Me.txt3470Betrag._ShortDateOnly = False
Me.txt3470Betrag._TimeOnly = False
Me.txt3470Betrag._TimeOnly_Seconds = False
Me.txt3470Betrag._value = ""
Me.txt3470Betrag._Waehrung = True
Me.txt3470Betrag._WaehrungZeichen = True
Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black
Me.txt3470Betrag.Location = New System.Drawing.Point(1102, 5)
Me.txt3470Betrag.MaxLineLength = -1
Me.txt3470Betrag.MaxLines_Warning = ""
Me.txt3470Betrag.MaxLines_Warning_Label = Nothing
Me.txt3470Betrag.Name = "txt3470Betrag"
Me.txt3470Betrag.ReadOnly = True
Me.txt3470Betrag.Size = New System.Drawing.Size(107, 20)
Me.txt3470Betrag.TabIndex = 49
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(1065, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 48
Me.Label7.Text = "3470"
'
'txtVZBetrag
'
Me.txtVZBetrag._DateTimeOnly = False
Me.txtVZBetrag._numbersOnly = False
Me.txtVZBetrag._numbersOnlyKommastellen = ""
Me.txtVZBetrag._numbersOnlyTrennzeichen = True
Me.txtVZBetrag._Prozent = False
Me.txtVZBetrag._ShortDateNew = False
Me.txtVZBetrag._ShortDateOnly = False
Me.txtVZBetrag._TimeOnly = False
Me.txtVZBetrag._TimeOnly_Seconds = False
Me.txtVZBetrag._value = ""
Me.txtVZBetrag._Waehrung = True
Me.txtVZBetrag._WaehrungZeichen = True
Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black
Me.txtVZBetrag.Location = New System.Drawing.Point(1290, 6)
Me.txtVZBetrag.MaxLineLength = -1
Me.txtVZBetrag.MaxLines_Warning = ""
Me.txtVZBetrag.MaxLines_Warning_Label = Nothing
Me.txtVZBetrag.Name = "txtVZBetrag"
Me.txtVZBetrag.ReadOnly = True
Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20)
Me.txtVZBetrag.TabIndex = 51
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(1229, 11)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(55, 13)
Me.Label8.TabIndex = 50
Me.Label8.Text = "VZ-Betrag"
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'usrCntlUSTV
'
@@ -667,7 +656,6 @@ Partial Class usrCntlUSTV
Friend WithEvents cbxTopMax As CheckBox
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxEingereicht As CheckBox
Friend WithEvents btnRMCalle As Button
Friend WithEvents cbxDifferenzbetrag As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
@@ -681,4 +669,5 @@ Partial Class usrCntlUSTV
Friend WithEvents Label8 As Label
Friend WithEvents txt3470Betrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class

3
SDL/USTV/usrCntlUSTV.resx
View File

@@ -120,4 +120,7 @@
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
</root>

150
SDL/USTV/usrCntlUSTV.vb
View File

@@ -25,7 +25,7 @@ Public Class usrCntlUSTV
End If
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
btnRMCalle.Enabled = KdSearchBox1.KdNr > 0
With dgvUSTV
.ClearSelection()
@@ -309,56 +309,125 @@ Public Class usrCntlUSTV
' End If
End Sub
Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click, btnRMCalle.Click
Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click
If Not ContextMenuStrip2.Items.ContainsKey("plose") Then
Dim plose = New ToolStripMenuItem() With {.Text = "Plose", .Name = "plose", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip2.Items.Add(plose)
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If
If Not ContextMenuStrip2.Items.ContainsKey("rmc") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "RMC", .Name = "rmc", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("mse") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("uta") Then
Dim uta = New ToolStripMenuItem() With {.Text = "UTA", .Name = "uta", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(uta)
End If
ContextMenuStrip2.Show(Cursor.Position)
End Sub
Private Sub mnuItemAuftrauege_Clicked(sender As Object, e As EventArgs)
Try
Me.Cursor = Cursors.WaitCursor
If KdSearchBox1.KdNr <= 0 Then Exit Sub
If cboJahr._value = "" Then Exit Sub
If cboJahrBis._value = "" Then Exit Sub
Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [tblUStVAntrag] where UStVAn_AntragEingereichtAm is null AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'", "FMZOLL")
If cnt = 0 Then MsgBox("Keine einreichbaren Anträge gefunden!") : Exit Sub
If dgvUSTV.SelectedRows.Count > 0 Then
Select Case sender.name
Case "btnPLOSEAlle"
If vbYes = MsgBox("Es werden PLOSE Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
Me.Cursor = Cursors.WaitCursor
If KdSearchBox1.KdNr <= 0 Then Exit Sub
If cboJahr._value = "" Then Exit Sub
If cboJahrBis._value = "" Then Exit Sub
Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [tblUStVAntrag] where UStVAn_AntragEingereichtAm is null AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'", "FMZOLL")
If cnt = 0 Then MsgBox("Keine einreichbaren Anträge gefunden!") : Exit Sub
If item IsNot Nothing Then
If item.Name = "plose" Then
If vbYes = MsgBox("Es werden " & item.Text & " Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
End If
ElseIf item.Name = "rmc" Then
If vbYes = MsgBox("Es werden " & item.Text & " Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
frmMDM_USTVAntrag.loadUSTVFrom_RMC(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
End If
ElseIf item.Name = "mse" Then
If vbYes = MsgBox("Es werden " & item.Text & " Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
frmMDM_USTVAntrag.loadUSTVFrom_MSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
End If
ElseIf item.Name = "uta" Then
If vbYes = MsgBox("Es werden " & item.Text & " Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
frmMDM_USTVAntrag.loadUSTVFrom_UTA(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
End If
Else
MsgBox("Funktion nicht implementiert!")
End If
Case "btnRMCalle"
If vbYes = MsgBox("Es werden RMC Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
frmMDM_USTVAntrag.loadUSTVFrom_RMC(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
init()
MsgBox("Fertig!")
End If
Case Else
MsgBox("Funktion nicht definiert")
End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
@@ -401,7 +470,7 @@ Public Class usrCntlUSTV
ElseIf item.Name = "offeneAntraege" Then
If dgvUSTV.SelectedRows(0) IsNot Nothing AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value) AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value) Then
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value)
frm.Show()
Else
Dim frm As New frmUSTVoffeneAntraege()
@@ -506,4 +575,5 @@ Public Class usrCntlUSTV
init()
End Sub
End Class

12
SDL/buchhaltung/rptMahnung.Designer.vb generated
View File

@@ -517,26 +517,26 @@ Partial Public Class rptMahnung
'
'lblFirmaEmail
'
Me.lblFirmaEmail.Height = 0.1181103!
Me.lblFirmaEmail.Height = 0.1574803!
Me.lblFirmaEmail.HyperLink = Nothing
Me.lblFirmaEmail.Left = 2.695638!
Me.lblFirmaEmail.Left = 2.713386!
Me.lblFirmaEmail.Name = "lblFirmaEmail"
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag"
Me.lblFirmaEmail.Top = 0.8303937!
Me.lblFirmaEmail.Top = 0.8311024!
Me.lblFirmaEmail.Width = 1.436614!
'
'lblFirmaWeb
'
Me.lblFirmaWeb.Height = 0.1181103!
Me.lblFirmaWeb.Height = 0.1571657!
Me.lblFirmaWeb.HyperLink = Nothing
Me.lblFirmaWeb.Left = 2.695638!
Me.lblFirmaWeb.Left = 2.713386!
Me.lblFirmaWeb.Name = "lblFirmaWeb"
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaWeb.Text = "www.verag.ag"
Me.lblFirmaWeb.Top = 0.9485043!
Me.lblFirmaWeb.Top = 0.9885827!
Me.lblFirmaWeb.Width = 1.436614!
'
'lblRgDatumUeberschrift

5
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -2086,7 +2086,7 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 990)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
@@ -2096,7 +2096,7 @@ Partial Class frmKundenblatt
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 984)
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
@@ -2241,6 +2241,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'

2
SDL/kunden/frmKundenblatt.vb
View File

@@ -1812,7 +1812,7 @@ Public Class frmKundenblatt
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR],[Buchungstext] " &
" FROM [Offene_Posten_DVO] " &
" WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum DESC, [OP_ID] DESC", "FMZOLL")
" WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum, [OP_ID] DESC", "FMZOLL")
If .Columns.Count > 0 Then
.Columns("KdNr").Visible = False

11
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2656,12 +2656,13 @@ Public Class usrCntlKundenuebersicht
AddHandler frmList.dgv.CellDoubleClick, Sub()
Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
Dim msgErgebnis
Select Case eoripruef.eori_valid
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
If eoripruef.eori_valid Then
msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Else
msgErgebnis = "EORI-Nr. UNGÜLTIG"
End If
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid, eoripruef.eori_datum, eoripruef.eori_sachbearbeiter, eoripruef.eori_FirmaID)
If PdfTmp <> "" Then
Process.Start(PdfTmp)

1
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1163,6 +1163,7 @@ Public Class frmMDMDatenverarbetiung
left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country
where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.charged <> 1 and (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) and cust.[customer_id] = " & csv.Item("Customer ID"), "FMZOLL")
dt_CSV_selected.ParentRelations.Clear()
dt_CSV_selected.ChildRelations.Clear()
dt_CSV_selected.Constraints.Clear()