Fiskaluebersicht, Uberstunden, Zollanmeldungen, MDMAuswertungen

This commit is contained in:
2024-05-28 08:52:58 +02:00
parent 7aaaa875fa
commit 0e513c51f1
10 changed files with 481 additions and 343 deletions

View File

@@ -76,13 +76,18 @@
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"
ElseIf FilialenNr = 5701 Then
FIRMA_DY = "AMBAR"
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then
FIRMA_DY = "AMBAR"
Else
FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG!
End If
ElseIf FilialenNr = 5601 Then
FIRMA_DY = "UNISPED"
ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
FIRMA_DY = "ATILLA"
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
FIRMA_DY = "UNISPED"
ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
FIRMA_DY = "ATILLA"
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
'If DY Is Nothing Then
Dim f As New frmDakosy_SelFirma