USTV Anpassungen, Fatkurierung-Fix: doppelte RgNr Vergabe
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
Public Class frmMDM_USTVAntrag
|
||||
|
||||
Dim UStVAn_ID As Integer
|
||||
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
|
||||
Dim Antrag_LandKz As String = ""
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Sub New(UStVAn_ID)
|
||||
@@ -81,17 +82,11 @@
|
||||
|
||||
End With
|
||||
|
||||
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
|
||||
|
||||
|
||||
|
||||
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
||||
lblLand.Text = Antrag_LandKz
|
||||
lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
|
||||
|
||||
|
||||
If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
|
||||
lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
|
||||
Else
|
||||
@@ -101,8 +96,62 @@
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
|
||||
|
||||
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
||||
lblLand.Text = Antrag_LandKz
|
||||
txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon)
|
||||
txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis)
|
||||
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
|
||||
|
||||
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
|
||||
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
|
||||
|
||||
If Me_Validate() Then
|
||||
'lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
||||
'lblLand.Text = Antrag_LandKz
|
||||
If IsDate(txtVon._value) Then USTV_ANTRAG.UStVAn_ReDatVon = CDate(txtVon._value)
|
||||
If IsDate(txtBis._value) Then USTV_ANTRAG.UStVAn_ReDatBis = CDate(txtBis._value)
|
||||
|
||||
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
|
||||
|
||||
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
|
||||
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
|
||||
End If
|
||||
End Sub
|
||||
Function Me_Validate() As Boolean
|
||||
If IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
|
||||
If IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
cboStatus.Items.Clear()
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", ""))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", cUSTVStatus.STAT_UNVOLLSTAENDIG))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eingereicht", cUSTVStatus.STAT_EINGEREICHT))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nachforderung/Berichtigung", cUSTVStatus.STAT_NACHFORDERUNG))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgeschlossen/Erstattet", cUSTVStatus.STAT_ERSTATTET))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgelehnt", cUSTVStatus.STAT_ABGELEHNT))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO))
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
|
||||
|
||||
|
||||
lblPLOSE_EintrageVerarbetiet.Text = ""
|
||||
|
||||
If UStVAn_ID > 0 Then
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
setValue(USTV_ANTRAG)
|
||||
|
||||
End If
|
||||
|
||||
init()
|
||||
|
||||
End Sub
|
||||
@@ -172,6 +221,161 @@
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
getValue(USTV_ANTRAG)
|
||||
|
||||
If USTV_ANTRAG.SAVE Then
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initPosition(UStVPo_ID)
|
||||
If UStVPo_ID > 0 Then
|
||||
Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID)
|
||||
UstCntlUSTV_AntragPosition1.Enabled = True
|
||||
UstCntlUSTV_AntragPosition1.setValues(ANTR_POS)
|
||||
Else
|
||||
UstCntlUSTV_AntragPosition1.reset()
|
||||
UstCntlUSTV_AntragPosition1.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged
|
||||
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
|
||||
initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub UstCntlUSTV_AntragPosition1_EV_NEXT() Handles UstCntlUSTV_AntragPosition1.EV_NEXT
|
||||
|
||||
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvUSTVPositionen.RowCount > dgvUSTVPositionen.SelectedRows(0).Index + 1 Then
|
||||
UstCntlUSTV_AntragPosition1.Enabled = True
|
||||
Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index + 1
|
||||
dgvUSTVPositionen.ClearSelection()
|
||||
dgvUSTVPositionen.Rows(selIndex).Selected = True
|
||||
dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub UstCntlUSTV_AntragPosition1_EV_PREV() Handles UstCntlUSTV_AntragPosition1.EV_PREV
|
||||
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvUSTVPositionen.SelectedRows(0).Index > 0 Then
|
||||
UstCntlUSTV_AntragPosition1.Enabled = True
|
||||
Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index - 1
|
||||
dgvUSTVPositionen.ClearSelection()
|
||||
dgvUSTVPositionen.Rows(selIndex).Selected = True
|
||||
dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
||||
If e.KeyValue = Keys.PageDown Then
|
||||
UstCntlUSTV_AntragPosition1_EV_NEXT()
|
||||
End If
|
||||
If e.KeyValue = Keys.PageUp Then
|
||||
UstCntlUSTV_AntragPosition1_EV_PREV()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Me.Top = 0
|
||||
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
|
||||
End Sub
|
||||
|
||||
Private Sub cboStatus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStatus.SelectedIndexChanged
|
||||
For Each b In FlowLayoutPanel.Controls
|
||||
b.visible = False
|
||||
Next
|
||||
Select Case cboStatus._value
|
||||
Case cUSTVStatus.STAT_INBEARBEITUNG
|
||||
btnEingereicht.Visible = True
|
||||
btnStorno.Visible = True
|
||||
btnUnvollst.Visible = True
|
||||
Case cUSTVStatus.STAT_UNVOLLSTAENDIG
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Case cUSTVStatus.STAT_EINGEREICHT
|
||||
'btnBearb.Visible = True
|
||||
btnStorno.Visible = True
|
||||
btnTeilerstattung.Visible = True
|
||||
btnErstettel.Visible = True
|
||||
btnAbgelehnt.Visible = True
|
||||
btnNachforderung.Visible = True
|
||||
Case cUSTVStatus.STAT_ABGELEHNT
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
btnUnvollst.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Case cUSTVStatus.STAT_NACHFORDERUNG
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
'btnUnvollst.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Case cUSTVStatus.STAT_ERSTATTET
|
||||
' btnStorno.Visible = True
|
||||
Case cUSTVStatus.STAT_TEILERSTATTET
|
||||
btnErstettel.Visible = True
|
||||
' btnStorno.Visible = True
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
|
||||
End Sub
|
||||
|
||||
Private Sub btnTeilerstattung_Click(sender As Object, e As EventArgs) Handles btnTeilerstattung.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_TEILERSTATTET)
|
||||
End Sub
|
||||
|
||||
Private Sub btnUnvollst_Click(sender As Object, e As EventArgs) Handles btnUnvollst.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_UNVOLLSTAENDIG)
|
||||
End Sub
|
||||
|
||||
Private Sub btnEingereicht_Click(sender As Object, e As EventArgs) Handles btnEingereicht.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT)
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbgelehnt_Click(sender As Object, e As EventArgs) Handles btnAbgelehnt.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_ABGELEHNT)
|
||||
End Sub
|
||||
|
||||
Private Sub btnNachforderung_Click(sender As Object, e As EventArgs) Handles btnNachforderung.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_NACHFORDERUNG)
|
||||
End Sub
|
||||
|
||||
Private Sub btnErstettel_Click(sender As Object, e As EventArgs) Handles btnErstettel.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_ERSTATTET)
|
||||
End Sub
|
||||
|
||||
Private Sub btnStorno_Click(sender As Object, e As EventArgs) Handles btnStorno.Click
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_STORNO)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
UstCntlUSTV_AntragPosition1.reset()
|
||||
UstCntlUSTV_AntragPosition1.UStV_POS = Nothing
|
||||
UstCntlUSTV_AntragPosition1.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
|
||||
'UstCntlUSTV_AntragPosition1.UStV_POS.delete()
|
||||
UstCntlUSTV_AntragPosition1.Enabled = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Private Sub cmdITMautÜbernehmen_Click()
|
||||
|
||||
' Dim wrk As DAO.Workspace
|
||||
|
||||
Reference in New Issue
Block a user