MDM, USTVA, MDMFunctions,
This commit is contained in:
@@ -2,13 +2,14 @@
|
||||
|
||||
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class ustCntlUSTV_AntragPosition
|
||||
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
|
||||
Public UStV_Leist As VERAG_PROG_ALLGEMEIN.cUStVLeistender = Nothing
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim Antrag_LandKz = ""
|
||||
Public Antrag_LandKz = ""
|
||||
Dim kdnr = ""
|
||||
|
||||
Public Event EV_PREV()
|
||||
@@ -28,10 +29,21 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
txtRgDatum._value = ""
|
||||
txtRgNr._value = ""
|
||||
picSave.Visible = False
|
||||
txtUmrechnungskurs._value = 1
|
||||
txtLeistungsbezeichnung._value = ""
|
||||
txtUmrechnungskurs._value = 1
|
||||
txtUSTBetrag._value = 0
|
||||
txtUSTBetragEUR._value = 0
|
||||
cbxAPI.Checked = False
|
||||
cboSchnittstellennr.changeItem("")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
|
||||
|
||||
initSchnittstellenNR()
|
||||
|
||||
gridAktiv = False
|
||||
picSave.Visible = False
|
||||
Me.Antrag_LandKz = Antrag_LandKz
|
||||
@@ -49,6 +61,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
|
||||
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
|
||||
|
||||
|
||||
If UStV_Leitender IsNot Nothing Then
|
||||
UStV_Leist = UStV_Leitender
|
||||
loadChangedDSToPanel(Not UStV_Leitender.UstV_Leistender_Adresse, UStV_Leitender)
|
||||
@@ -58,13 +71,17 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
|
||||
Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
|
||||
Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
||||
Case 4 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 5 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 4, 9 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 10 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 8 : da_id = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & UStV_POS.UStVPo_ReDat & "' and tblIDSTransactionsNew.[Paymentsummarynumber]='" & UStV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1)
|
||||
|
||||
End Select
|
||||
scanSonstiges.INIT_daId(da_id)
|
||||
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
|
||||
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
|
||||
|
||||
|
||||
|
||||
gridAktiv = True
|
||||
End Sub
|
||||
|
||||
@@ -74,12 +91,31 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_POS.UStVPo_Zeitstempel = Now
|
||||
|
||||
|
||||
'TO DO-> aktuell nur RechnungsNr!!!!!
|
||||
If txtRgNr._value <> "" Then
|
||||
UStV_POS.UStVPo_ReNr = txtRgNr._value
|
||||
End If
|
||||
|
||||
If txtRgDatum._value <> "" AndAlso IsDate(txtRgDatum._value) Then
|
||||
UStV_POS.UStVPo_ReDat = txtRgDatum._value
|
||||
End If
|
||||
If txtUSTBetrag._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value
|
||||
End If
|
||||
|
||||
If txtUSTBetragEUR._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value
|
||||
End If
|
||||
If txtLeistungsbezeichnung._value <> "" Then
|
||||
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung._value
|
||||
End If
|
||||
If txtUmrechnungskurs._value <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value
|
||||
End If
|
||||
|
||||
UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
|
||||
|
||||
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem Is Nothing, cboSchnittstellennr.SelectedItem, -1)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -110,7 +146,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtLeistungsbezeichnung.TextChanged, txtRgDatum.TextChanged, txtRgNr.TextChanged, txtUSTBetrag.TextChanged, txtUmrechnungskurs.TextChanged, txtUSTBetragEUR.TextChanged
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
'If sender Is txtLieferung Then
|
||||
@@ -130,7 +166,9 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
If e.KeyValue = 9 Then
|
||||
@@ -180,12 +218,18 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
|
||||
Private Sub SomethingChanged(sender As Object, e As EventArgs)
|
||||
|
||||
picSave.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub picSave_Click(sender As Object, e As EventArgs) Handles picSave.Click
|
||||
If UStV_Leist Is Nothing Then Exit Sub
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
||||
MsgBox("keine Berechtigung!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If UStV_Leist.UstV_Leistender_Adresse Then
|
||||
If Not vbYes = MsgBox("Bei diesem Leistendem ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
|
||||
Exit Sub
|
||||
@@ -217,5 +261,24 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initSchnittstellenNR()
|
||||
|
||||
If cboSchnittstellennr.Items.Count = 0 Then
|
||||
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("", -1))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("VERAG 360", 1))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("IDS alt", 2))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("TELEPASS", 3))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("MSE alt", 4))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("UTA alt", 5))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("PLOSE", 6))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("RMC", 7))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("IDS neu", 8))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("MSE neu", 9))
|
||||
cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user