edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

USTVA

Browse Source
This commit is contained in:
d.breimaier
2025-04-30 11:32:18 +02:00
parent c7dc4e2ba2
commit 1eabf4364d
2 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.9.4")> <Assembly: AssemblyVersion("1.3.9.5")>
<Assembly: AssemblyFileVersion("1.3.9.4")> <Assembly: AssemblyFileVersion("1.3.9.5")>

18
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -17,6 +17,7 @@ Public Class frmMDM_USTVAntrag
Dim abfNrisSetManually As Boolean = False Dim abfNrisSetManually As Boolean = False
Dim von, bis As Date Dim von, bis As Date
Dim func As New cMDMFunctionsAllgemein Dim func As New cMDMFunctionsAllgemein
Dim dTLANDEU As New DataTable
Sub New(UStVAn_ID) Sub New(UStVAn_ID)
@@ -576,7 +577,7 @@ Public Class frmMDM_USTVAntrag
setinfofields() setinfofields()
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True
initScanUSTVA()
End Sub End Sub
@@ -1600,6 +1601,8 @@ Public Class frmMDM_USTVAntrag
End If End If
initScanUSTVA()
End Sub End Sub
Sub initPosition(UStVPo_ID) Sub initPosition(UStVPo_ID)
@@ -2668,6 +2671,10 @@ Public Class frmMDM_USTVAntrag
If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub
End If End If
'dTLANDEU = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
'Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = Antrag_LandKz).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
With spedBuch With spedBuch
.Abfertigungsdatum = Today() .Abfertigungsdatum = Today()
.AvisUhrzeit = Now() .AvisUhrzeit = Now()
@@ -3051,10 +3058,11 @@ Public Class frmMDM_USTVAntrag
Private Sub initScanUSTVA() Private Sub initScanUSTVA()
If USTV_ANTRAG IsNot Nothing Then
scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID) scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)
btnPDFauslesen.Enabled = scanUSTVA.getDS().da_id > 0 btnPDFauslesen.Enabled = scanUSTVA.getDS().da_id > 0
cbxKIUploaddelete.Enabled = btnPDFauslesen.Enabled cbxKIUploaddelete.Enabled = btnPDFauslesen.Enabled
End If
End Sub End Sub