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

DY_Firma

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-01 11:09:59 +02:00
parent aaecc4fce6
commit d64fe1c04e
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -71,7 +71,8 @@
End Sub End Sub
Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form) As String
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then
FIRMA_DY = "IMEX" FIRMA_DY = "IMEX"
ElseIf FilialenNr = 5701 Then ElseIf FilialenNr = 5701 Then
@@ -83,21 +84,23 @@
Else Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If DY Is Nothing Then 'If DY Is Nothing Then
' ' FIRMA_DY = DY. Dim f As New frmDakosy_SelFirma
' Else If f.ShowDialog() = DialogResult.OK Then
FIRMA_DY = f.FIMRA_DY
Dim f As New frmDakosy_SelFirma Else
If f.ShowDialog(Me) = DialogResult.OK Then If F_ME IsNot Nothing Then F_ME.Close()
FIRMA_DY = f.FIMRA_DY
Else
Me.Close()
End If
End If End If
'End If
Else Else
FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr) FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr)
End If End If
End If End If
Return FIRMA_DY
End Function
Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
FIRMA_DY = getFirma_DY(FilialenNr, Me)
Select Case ZOLL_SYSTEM Select Case ZOLL_SYSTEM
Case "SGS" Case "SGS"