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

USTVAntrag

Browse Source
This commit is contained in:
d.breimaier
2025-04-24 16:34:51 +02:00
parent 4566a54e64
commit 91748aac43
2 changed files with 46 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SDL/SDL.vbproj
View File

@@ -587,18 +587,31 @@
<Compile Include="Creditsafe\frmCreditSafeSearch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Creditsafe\frmVAT_ATEZ.Designer.vb">
<DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
</Compile>
<Compile Include="Creditsafe\frmVAT_ATEZ.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Creditsafe\usrcntlCreditsafe.Designer.vb">
<DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
</Compile>
<Compile Include="Creditsafe\usrcntlCreditsafe.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Creditsafe\usrcntlVAT_ATEZ.Designer.vb">
<DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
</Compile>
<Compile Include="Creditsafe\usrcntlVAT_ATEZ.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="cServerClient.vb" />
<Compile Include="cSourceListWrapper.vb" />
<Compile Include="cSplitButton.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cSqlDb.vb" />
<Compile Include="Fakturierung\cAutomailversand.vb" />
<Compile Include="Fakturierung\frmSendEmail.Designer.vb">
<DependentUpon>frmSendEmail.vb</DependentUpon>
</Compile>
@@ -779,6 +792,12 @@
<Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenLinkedGruppe.Designer.vb">
<DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmKundenLinkedGruppe.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenTOBBKdNr.Designer.vb">
<DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
</Compile>
@@ -875,10 +894,6 @@
<Compile Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\frmDatumsabfrage.Designer.vb">
<DependentUpon>frmDatumsabfrage.vb</DependentUpon>
</Compile>
<Compile Include="mdm\frmDatumsabfrage.vb" />
<Compile Include="mdm\frmMDMLieferantenrechnungen.Designer.vb">
<DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
</Compile>
@@ -3257,9 +3272,15 @@
<EmbeddedResource Include="Creditsafe\frmCreditSafeSearch.resx">
<DependentUpon>frmCreditSafeSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Creditsafe\frmVAT_ATEZ.resx">
<DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
<DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Creditsafe\usrcntlVAT_ATEZ.resx">
<DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
<DependentUpon>frmSendEmail.vb</DependentUpon>
</EmbeddedResource>
@@ -3351,6 +3372,9 @@
<EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
<DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenLinkedGruppe.resx">
<DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenTOBBKdNr.resx">
<DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
</EmbeddedResource>
@@ -3399,9 +3423,6 @@
<EmbeddedResource Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.resx">
<DependentUpon>usrCntlBesuchsberichte.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\frmDatumsabfrage.resx">
<DependentUpon>frmDatumsabfrage.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\frmMDMLieferantenrechnungen.resx">
<DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
</EmbeddedResource>

22
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -729,14 +729,28 @@ Public Class frmMDM_USTVAntrag
Select Case Antrag_LandKz
Case "DK"
leistenderName = "A/S Storebealt"
Case Else
If ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
leistenderName = "Sofico"
If IsDBNull(ANTRAG.plose_Lieferant) Then
leistenderName = "A/S Storebealt"
Else
leistenderName = ANTRAG.plose_Lieferant
End If
Case "SE"
If IsDBNull(ANTRAG.plose_Lieferant) Then
leistenderName = "Oresundsbro konsortiet I/S"
Else
leistenderName = ANTRAG.plose_Lieferant
End If
Case Else
If Not IsDBNull(ANTRAG.plose_Lieferant) Then
If ANTRAG.plose_Lieferant IsNot Nothing AndAlso ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
leistenderName = "Sofico"
Else
leistenderName = ANTRAG.plose_Lieferant
End If
End If
End Select