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

Möst Anträge werden bei nicht eingearb. Anträge geprüft, Leistender-Suche

Browse Source
This commit is contained in:
d.breimaier
2025-05-02 09:40:49 +02:00
parent ca692ceab1
commit f150b7ac9f
3 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -780,7 +780,7 @@ Public Class frmUSTVoffeneAntraege
tblIDSTransactionsNew.[YearMonthDay] ) as temp
inner join tblKundenErweitert on temp.kdnr = kde_KundenNr
inner join [Länderverzeichnis für die Außenhandelsstatistik] on temp.Einreichland=LandKz
left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr
left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr and isnull(UStVAn_AntragArt,'MWST') = 'MWST'
left JOIN tblSteuernummern On temp.Einreichland = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr
where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr &
" group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV"

25
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -278,8 +278,10 @@ Public Class ustCntlUSTV_AntragPosition
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
If UStV_Leist.hasEntry Then
adressLoadedByLeistender = True
btnLeistenderSave.Visible = False
btnDel.Visible = True
Else
btnLeistenderSave.Visible = True
btnDel.Visible = False
End If
@@ -559,17 +561,30 @@ Public Class ustCntlUSTV_AntragPosition
If sbLeistender.Text <> "" Then
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
If IsNumeric(sbLeistender.Text) Then
If UStV_Leist.UStV_LeistenderId <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text Then txtChanged = True
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else
If UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text Then txtChanged = True
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_POS.UStVPo_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text) Then
'speichern der Änderung nur, wenn 1. Leistender gelöscht wird.
txtChanged = True
ElseIf UStV_Leist Is Nothing Then
txtChanged = True
End If
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else
If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text) Then
txtChanged = True
ElseIf UStV_Leist Is Nothing Then
txtChanged = True
End If
End If
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
loadChangedDSToPanel(UStV_Leist)
Else
If UStV_POS.UStVPo_Leistender <> "" OrElse UStV_POS.UStVPo_LeistenderId <> 0 Then
loadChangedDSToPanel(Nothing, True)
End If
End If
End If
'MsgBox()
End If

2
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
View File

@@ -12,7 +12,7 @@ Public Class cUStVLeistender
Property UstV_Leistender_UstNr As Object = Nothing
Property UstV_Leistender_Adresse As Boolean
Property UStV_LeistenderId As Integer
Property UstV_aktiv As Boolean
Property UstV_aktiv As Boolean = True
Public hasEntry = False