MDM_USTV
This commit is contained in:
@@ -1,4 +1,6 @@
|
||||
Public Class frmMDM_USTVAntrag
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class frmMDM_USTVAntrag
|
||||
|
||||
Dim UStVAn_ID As Integer
|
||||
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
|
||||
@@ -17,6 +19,10 @@
|
||||
Sub init()
|
||||
pnlFilter.AutoScroll = False
|
||||
|
||||
lblGesamtUSteuer.Text = "-"
|
||||
lblGesamtErstattung.Text = "-"
|
||||
lblDiffernezbetrag.Text = "-"
|
||||
|
||||
With dgvUSTVPositionen
|
||||
.ClearSelection()
|
||||
|
||||
@@ -82,7 +88,15 @@
|
||||
|
||||
End With
|
||||
|
||||
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
|
||||
Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
|
||||
Dim Differnezbetrag As Double = GesamtUSteuer - GesamtErstattung
|
||||
|
||||
lblGesamtUSteuer.Text = GesamtUSteuer.ToString("C2")
|
||||
lblGesamtErstattung.Text = GesamtErstattung.ToString("C2")
|
||||
lblDiffernezbetrag.Text = Differnezbetrag.ToString("C2")
|
||||
|
||||
|
||||
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
|
||||
|
||||
|
||||
@@ -99,11 +113,11 @@
|
||||
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
|
||||
|
||||
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
||||
lblKdNr.Text = USTV_ANTRAG.UStVAn_KuNr
|
||||
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, "")
|
||||
|
||||
@@ -119,19 +133,31 @@
|
||||
|
||||
'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, "")
|
||||
USTV_ANTRAG.UStVAn_Status = cboStatus._value
|
||||
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
|
||||
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
|
||||
If Not IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
|
||||
If Not IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
|
||||
Dim dgvType As Type = dgv.[GetType]()
|
||||
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
pi.SetValue(dgv, True, Nothing)
|
||||
End Sub
|
||||
|
||||
Private Sub UsrCntlDatenDetails1_Changed(POSId) Handles UstCntlUSTV_AntragPosition1.CHANGED
|
||||
'refreshDgv(kdNr, SDLNr, Kfz, History)'?????????????? ausgebelndet,was das ein VErsuch? 31.07.2017
|
||||
dgvUSTVPositionen.VALUE_CHANGED = True
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
EnableDoubleBuffered(dgvUSTVPositionen)
|
||||
|
||||
cboStatus.Items.Clear()
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", ""))
|
||||
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG))
|
||||
@@ -139,17 +165,20 @@
|
||||
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("Teil-Erstattet", cUSTVStatus.STAT_TEILERSTATTET))
|
||||
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)
|
||||
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
setValue(USTV_ANTRAG)
|
||||
|
||||
End If
|
||||
|
||||
init()
|
||||
@@ -224,7 +253,6 @@
|
||||
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
|
||||
@@ -295,15 +323,21 @@
|
||||
For Each b In FlowLayoutPanel.Controls
|
||||
b.visible = False
|
||||
Next
|
||||
|
||||
|
||||
Panel5.BackColor = Color.FromArgb(255, 255, 192)
|
||||
Panel5.ForeColor = Color.Black
|
||||
Select Case cboStatus._value
|
||||
Case cUSTVStatus.STAT_INBEARBEITUNG
|
||||
btnEingereicht.Visible = True
|
||||
btnStorno.Visible = True
|
||||
btnUnvollst.Visible = True
|
||||
Panel5.BackColor = Color.LightGray
|
||||
Case cUSTVStatus.STAT_UNVOLLSTAENDIG
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.FromArgb(255, 192, 128)
|
||||
Case cUSTVStatus.STAT_EINGEREICHT
|
||||
'btnBearb.Visible = True
|
||||
btnStorno.Visible = True
|
||||
@@ -311,23 +345,49 @@
|
||||
btnErstettel.Visible = True
|
||||
btnAbgelehnt.Visible = True
|
||||
btnNachforderung.Visible = True
|
||||
Panel5.BackColor = Color.SteelBlue
|
||||
Panel5.ForeColor = Color.White
|
||||
Case cUSTVStatus.STAT_ABGELEHNT
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
btnUnvollst.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.Red
|
||||
Panel5.ForeColor = Color.White
|
||||
Case cUSTVStatus.STAT_NACHFORDERUNG
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
'btnUnvollst.Visible = True
|
||||
btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.FromArgb(255, 192, 128)
|
||||
Case cUSTVStatus.STAT_ERSTATTET
|
||||
' btnStorno.Visible = True
|
||||
' btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.Green
|
||||
Panel5.ForeColor = Color.White
|
||||
lblAntragAbgeschlossen.Visible = True
|
||||
lblAntragAbgeschlossen.ForeColor = Color.DarkGreen
|
||||
Case cUSTVStatus.STAT_TEILERSTATTET
|
||||
btnErstettel.Visible = True
|
||||
' btnErstettel.Visible = True
|
||||
' btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.Green
|
||||
Panel5.ForeColor = Color.White
|
||||
lblAntragAbgeschlossen.Visible = True
|
||||
lblAntragAbgeschlossen.ForeColor = Color.DarkGreen
|
||||
Case cUSTVStatus.STAT_STORNO
|
||||
' btnStorno.Visible = True
|
||||
Panel5.BackColor = Color.IndianRed
|
||||
Panel5.ForeColor = Color.White
|
||||
lblAntragAbgeschlossen.Visible = True
|
||||
lblAntragAbgeschlossen.ForeColor = Color.IndianRed
|
||||
End Select
|
||||
|
||||
cboStatus.BackColor = Panel5.BackColor
|
||||
cboStatus.ForeColor = Panel5.ForeColor
|
||||
|
||||
Label5.BackColor = Panel5.BackColor
|
||||
Label5.ForeColor = Panel5.ForeColor
|
||||
Label6.ForeColor = Panel5.ForeColor
|
||||
Label6.ForeColor = Panel5.ForeColor
|
||||
End Sub
|
||||
|
||||
Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click
|
||||
@@ -376,6 +436,10 @@
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
' Private Sub cmdITMautÜbernehmen_Click()
|
||||
|
||||
' Dim wrk As DAO.Workspace
|
||||
|
||||
Reference in New Issue
Block a user