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

div

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-24 08:02:33 +01:00
parent 5b4600b75e
commit 3439686e9d
4 changed files with 828 additions and 801 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1905,8 +1905,8 @@ Public Class frmStartOptions
End Function
Function getPlattsAufschlag_SONDER_Lukenda(outletGroug As String) As Double
If outletGroug.Contains("4473") Then Return 0.032 - 0.015
If outletGroug.Contains("4474") Then Return 0.032 - 0.015
If outletGroug.Contains("4473") Then Return 0.032 - 0.015 - 0.0065 ' SUBEN
If outletGroug.Contains("4474") Then Return 0.032 - 0.015 - 0.0065 ' SUBEN
If outletGroug.Contains("4493") Then Return 0.032 - 0.015
If outletGroug.Contains("4485") Then Return 0.032 - 0.015
If outletGroug.Contains("4486") Then Return 0.032 - 0.015
@@ -5524,6 +5524,7 @@ Public Class frmStartOptions
Me.Cursor = Cursors.Default
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(datTranscodeVon._value, datTranscodeBis._value, cbxOverrideNCTSFin.Checked)
End Sub
@@ -5641,4 +5642,13 @@ Public Class frmStartOptions
End Sub
Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
showPic(erg, PictureBox26)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
End Class