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

DYWorker--> Teleotec RgNr, AccessCode in MA

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-10 11:48:25 +02:00
parent 0683f88363
commit 8b780bca7f
7 changed files with 238 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -1,4 +1,6 @@
Public Class cZollsysteme_Aktenbeschriftung
Imports VERAG_PROG_ALLGEMEIN
Public Class cZollsysteme_Aktenbeschriftung
Property Praeferenznachweis As String
Property Handelsrechnung As String
@@ -74,7 +76,7 @@
End Function
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As Boolean
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String, Grenzstelle As Object) As Boolean
If If(DY_Ref, "") <> "" Then
BezugsNr = DY_Ref
Else
@@ -82,6 +84,13 @@
BezugsNr = BezugsNr & "%"
End If
Dim PosNrAngeben = False
If Grenzstelle IsNot Nothing Then
Select Case Grenzstelle.ToString
Case "DTB" : PosNrAngeben = True
Case Else : PosNrAngeben = False
End Select
End If
getDataByBezugsnummer = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -91,7 +100,7 @@
Select Case Abfertigungsart
Case 38, 26 'AT
' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) 'Ü-T1
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Ü-T1
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
Case 1, 2, 3, 28, 39
@@ -99,7 +108,7 @@
'... and Systeme
Case Else
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True)
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
End If
@@ -260,13 +269,13 @@
Return SQL.getValueTxtBySql("SELECT TOP 1 Ordnungsbegriff FROM [tblKundenAufschubkonten] inner join adressen on adressennr = [kdAkto_KundenNr] where kdAkto_hauptzollamt + kdAkto_kontonummer ='" & kto & "'", "FMZOLL")
End Function
Function load_NCTS_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
Function load_NCTS_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False, Optional PosNrAngeben As Boolean = False) As Boolean
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
If NCTS Is Nothing Then Return False
Return load_NCTS_FromDAKOSY(NCTS)
Return load_NCTS_FromDAKOSY(NCTS, PosNrAngeben)
End Function
Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut) As Boolean
Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut, PosNrAngeben As Boolean) As Boolean
Try
If NCTS Is Nothing Then Return Nothing
NCTS.LOAD_Warenposition()
@@ -294,7 +303,13 @@
For Each UL In POS.nctsWP_UNTERLAGEN
If UL.nctsWpUl_Typ IsNot Nothing Then
Select Case UL.nctsWpUl_Typ
Case "380", "325" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, ""))
Case "380", "325"
If PosNrAngeben Then
addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, "") & " (" & POS.nctsWP_PositionsNummer & ")")
Else
addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, ""))
End If
End Select
End If
Next