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

Daksoy FirmaDY, MessengerUsrCntl

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:19:12 +01:00
parent 9079a016e8
commit 42317c6776
12 changed files with 448 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
View File

@@ -257,7 +257,7 @@ Public Class usrCntlATLAS_EXGestellung
'EXG.exg_ObjectName = AVISO.AvisoID & "_EXP_" & EXG.exg_MRN
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm)
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm, "EXG")
Dim saveFile = ""
If EXG.SAVE_ALL Then

26
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
View File

@@ -123,16 +123,16 @@ Public Class usrCntlATLAS_NCTS004
Shared Function getBezugsnr(FIRMA_DY As String, SENDUNG As cSendungen, ByRef BezugsNr As String, ByRef zusatz As String)
Dim BezugsNrTmp = ""
Select Case FIRMA_DY
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
@@ -177,8 +177,12 @@ Public Class usrCntlATLAS_NCTS004
' Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
'End Select
If SENDUNG IsNot Nothing Then
FIRMA_DY = cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr.ToString, Me.FindForm, "NCTS")
MsgBox(SENDUNG.FilialenNr)
End If
' FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)?
' MsgBox(FIRMA_DY)
txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "NCTS")
txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "NCTS")

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
View File

@@ -110,7 +110,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
' dim FilialenNr
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm)
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm, "AA")
If txtDyMandant.Text = "VERG" And FIRMA_DY = "IMEX" Then 'IMEX verwendet VERAG-Gestellungskonto!!!
FIRMA_DY = "VERAG"

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

@@ -115,7 +115,7 @@ Public Class frmZollanmeldung
Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr, Me)
FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr, Me, ART.Replace("T1", "NCTS").Replace("T2", "NCTS"))
Select Case ZOLL_SYSTEM
Case "SGS"