MDM, Mahnungen, EORI, Kundenblatt, MSEAPI, UTA, Zollanmeldungen_Import_Dakosy
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user