Essensbestellungen, scanlist, etc.
This commit is contained in:
@@ -1279,6 +1279,22 @@ Public Class frmMDM_USTVAntrag
|
||||
btnNachforderung.Visible = True
|
||||
Panel5.BackColor = Color.SteelBlue
|
||||
Panel5.ForeColor = Color.White
|
||||
|
||||
If USTV_ANTRAG.UStVAn_AntragEingereichtAm Is Nothing OrElse Not IsDate(USTV_ANTRAG.UStVAn_AntragEingereichtAm) Then
|
||||
|
||||
Dim f As New frmDatumsabfrage("Bitte Einreichdatum eingeben", False)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum
|
||||
USTV_ANTRAG.SAVE()
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT)
|
||||
init()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Case cUSTVStatus.STAT_ABGELEHNT
|
||||
btnBearb.Visible = True
|
||||
btnEingereicht.Visible = True
|
||||
@@ -1336,16 +1352,21 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Private Sub btnEingereicht_Click(sender As Object, e As EventArgs) Handles btnEingereicht.Click
|
||||
|
||||
Dim f As New frmDatumsabfrage("Bitte Einreichtdatum eingeben", False)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum
|
||||
USTV_ANTRAG.SAVE()
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT)
|
||||
If USTV_ANTRAG.UStVAn_AntragEingereichtAm Is Nothing OrElse Not IsDate(USTV_ANTRAG.UStVAn_AntragEingereichtAm) Then
|
||||
|
||||
Dim f As New frmDatumsabfrage("Bitte Einreichdatum eingeben", False)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum
|
||||
USTV_ANTRAG.SAVE()
|
||||
cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT)
|
||||
init()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbgelehnt_Click(sender As Object, e As EventArgs) Handles btnAbgelehnt.Click
|
||||
@@ -1927,9 +1948,6 @@ Public Class frmMDM_USTVAntrag
|
||||
SQL.doSQL("UPDATE tblUStVPositionen SET UStVPo_ID = " & counter & " WHERE UStVAn_ID=" & UStVAn_ID & " AND UStVPo_ID=" & USTV_POS.UStVPo_ID, "FMZOLL")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
@@ -2070,8 +2088,8 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
USTV_ANTRAG.SAVE()
|
||||
If IsDBNull(USTV_ANTRAG.FilialenNr) Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub
|
||||
If IsDBNull(USTV_ANTRAG.AbfertigungsNr) Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub
|
||||
If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub
|
||||
If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub
|
||||
|
||||
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr)
|
||||
|
||||
@@ -2091,7 +2109,7 @@ Public Class frmMDM_USTVAntrag
|
||||
If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt")
|
||||
|
||||
End With
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Private Sub initdgvErstattungen()
|
||||
|
||||
|
||||
@@ -70,9 +70,16 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
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 ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & UStV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1)
|
||||
|
||||
Case 1 : da_id = 1 'VERAG-RECHNUGNEN werden immer direkt OHNE daid geöffnet!
|
||||
Case -1 : IIf(UStV_POS.UStVPo_daId > 0, UStV_POS.UStVPo_daId, -1)
|
||||
End Select
|
||||
scanSonstiges.INIT_daId(da_id)
|
||||
|
||||
If da_id > -1 Then
|
||||
scanSonstiges.INIT_daId(da_id)
|
||||
Else
|
||||
scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "DIVERSE")
|
||||
End If
|
||||
|
||||
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
|
||||
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
|
||||
|
||||
@@ -427,4 +434,9 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub scanSonstiges_FileAdded(id As String, path As String, name As String) Handles scanSonstiges.FileAdded
|
||||
getValues(UStV_POS, True)
|
||||
UStV_POS.UStVPo_daId = id
|
||||
UStV_POS.SAVE()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -85,13 +85,13 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
If txtBelegNr.Text <> "" Then
|
||||
UStV_ERS.Belegnummer = txtBelegNr.Text
|
||||
Else
|
||||
save = False
|
||||
'save = False
|
||||
End If
|
||||
|
||||
If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then
|
||||
UStV_ERS.Belegdatum = txtBelegDatum._value
|
||||
Else
|
||||
save = False
|
||||
'save = False
|
||||
End If
|
||||
|
||||
If txtUSTBetrag.Text <> "" Then
|
||||
|
||||
Reference in New Issue
Block a user