cbam, mdmverarbeitung, ustva, etc.
This commit is contained in:
@@ -231,6 +231,12 @@ Public Class frmMDM_USTVAntrag
|
||||
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
|
||||
txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
|
||||
|
||||
txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
|
||||
txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
|
||||
txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
|
||||
cbxFiliale.changeItem(If(USTV_ANTRAG.FilialenNr, ""))
|
||||
cbxWahrung.changeItem(If(USTV_ANTRAG.UStVAn_Währungscode, ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag, Optional ADR As cAdressen = Nothing, Optional FIRMA As cFirmen = Nothing)
|
||||
@@ -253,6 +259,31 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_ANTRAG.UStVAn_3470 = Nothing
|
||||
End If
|
||||
|
||||
If txtVZ.Text <> "" AndAlso IsNumeric(txtVZ.Text) Then
|
||||
USTV_ANTRAG.UStVAn_RZBetragVZ = CDbl(txtVZ.Text)
|
||||
Else
|
||||
USTV_ANTRAG.UStVAn_RZBetragVZ = Nothing
|
||||
End If
|
||||
|
||||
If txtBezugsNr.Text <> "" Then
|
||||
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr
|
||||
Else
|
||||
USTV_ANTRAG.UStVAn_BezugsNr = ""
|
||||
End If
|
||||
|
||||
If txtAbfNr.Text <> "" Then
|
||||
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
|
||||
Else
|
||||
USTV_ANTRAG.AbfertigungsNr = ""
|
||||
End If
|
||||
|
||||
If txtAbfNr.Text <> "" Then
|
||||
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
|
||||
Else
|
||||
USTV_ANTRAG.AbfertigungsNr = ""
|
||||
End If
|
||||
|
||||
|
||||
If ADR IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
|
||||
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
|
||||
@@ -328,20 +359,31 @@ Public Class frmMDM_USTVAntrag
|
||||
cboAntragArt.changeItem("MWST")
|
||||
|
||||
|
||||
cbxWahrung.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].Währungscode FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE ((([Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren)=1)) GROUP BY [Länderverzeichnis für die Außenhandelsstatistik].Währungscode
|
||||
ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].Währungscode", False, "FMZOLL", True)
|
||||
cboAntragArt.changeItem(" ")
|
||||
|
||||
cbxFiliale.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE Filialen.FilialenNr>=4800 AND Filialen.Fil_Status='A' ORDER BY Filialen.FilialenNr",, "FMZOLL", True)
|
||||
cboAntragArt.changeItem(" ")
|
||||
|
||||
|
||||
|
||||
|
||||
lbl_EintrageVerarbetiet.Text = ""
|
||||
|
||||
If UStVAn_ID > 0 Then
|
||||
cbxWahrung.Enabled = False
|
||||
KdSearchBox1.Visible = False
|
||||
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)
|
||||
|
||||
|
||||
Else
|
||||
Dim sqlWhere As String = ""
|
||||
'neuer USTVA-Antrag
|
||||
KdSearchBox1.Visible = True
|
||||
|
||||
cbxWahrung.Enabled = True
|
||||
|
||||
|
||||
KdSearchBox1.initKdBox(Me)
|
||||
@@ -357,7 +399,7 @@ Public Class frmMDM_USTVAntrag
|
||||
lblFirma.Text = ADR.Name_1
|
||||
|
||||
|
||||
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
cbxLand.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
|
||||
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And (tblSteuernummern.AdressenNr)=" & KdSearchBox1.KdNr & " And tblSteuernummern.UStV = 1
|
||||
group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||
@@ -375,20 +417,18 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
cbxLand.Visible = True
|
||||
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
cbxLand.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
|
||||
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And tblSteuernummern.UStV = 1 " & sqlWhere &
|
||||
"group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||
order by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr", False, "FMZOLL")
|
||||
|
||||
cbxLand.changeItem(Antrag_LandKz)
|
||||
'lblKdNr.Text = KdSearchBox1.KdNr
|
||||
'lblFirma.Text = IIf(KdSearchBox1.KdName Is Nothing, "", KdSearchBox1.KdName)
|
||||
|
||||
txtVon._value = von
|
||||
txtBis._value = bis
|
||||
|
||||
If Antrag_LandKz <> cbxLand.SelectedValue.ToString Then
|
||||
If cbxLand.SelectedValue IsNot Nothing AndAlso Antrag_LandKz <> cbxLand.SelectedValue.ToString Then
|
||||
lblWarnung.Text = "keine StNr für " & Antrag_LandKz
|
||||
Else
|
||||
lblWarnung.Text = ""
|
||||
@@ -534,6 +574,9 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If GET_Antraege IsNot Nothing Then
|
||||
|
||||
Return True
|
||||
|
||||
|
||||
For Each ANTRAG In GET_Antraege
|
||||
|
||||
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
|
||||
@@ -760,6 +803,8 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If GET_Antraege Then
|
||||
|
||||
Return True
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
Dim kdNr = r.Item("customer_id")
|
||||
@@ -780,7 +825,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
|
||||
' Berechnungen
|
||||
'von MSE bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
|
||||
'von MSE bekommen wir Fremdwährung und EUR, d.b. wir können den Umrechnungskurs selbst berechnen!
|
||||
|
||||
Dim umrechKurs As Double = 1
|
||||
Dim UST_EUR = CDbl(r.Item("UST_EUR"))
|
||||
@@ -1267,10 +1312,6 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
|
||||
@@ -1390,7 +1431,7 @@ Public Class frmMDM_USTVAntrag
|
||||
Private Sub dgvUSTVPositionen_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUSTVPositionen.CellContentDoubleClick
|
||||
|
||||
Try
|
||||
If e.RowIndex >= 0 AndAlso e.ColumnIndex = 17 Then
|
||||
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
|
||||
|
||||
|
||||
Dim schnnittstellenNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value
|
||||
|
||||
Reference in New Issue
Block a user