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

201020

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -170,6 +170,7 @@ Public Class usrCntlATLAS_NCTS
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -145,6 +145,8 @@ Class DAKOSY_Interface_SEND
Select Case FIRMA_DY
Case "ATILLA"
Return "SUW"
Case "AMBAR"
Return "AMBWO"
Case "VERAG"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" : Return "SUB"

1
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb
View File

@@ -43,6 +43,7 @@
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME")
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select
cboVerfahren.Items.Clear()

1
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
View File

@@ -240,6 +240,7 @@
Case "ATIL"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO"))
cboNL.changeItem("SUW")
Case "UNAT"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP"))

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

@@ -71,8 +71,10 @@
Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") And FilialenNr = 5501 Then
FIRMA_DY = "IMEX"
ElseIf FilialenNr = 5701 Then
FIRMA_DY = "AMBWO"
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If DY Is Nothing Then
' ' FIRMA_DY = DY.