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

ATEZ Anpassungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-07 11:29:25 +02:00
parent 71aaaf9587
commit 3698fa827b
4 changed files with 494 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmATEZ_NCTS.vb
View File

@@ -103,6 +103,7 @@ Public Class frmATEZ_NCTS
.VERAG_LRN = lblBezugsnummer.Text
.LicensePlateContainerNo = txtLKWId.Text
.DAKOSY_TemplateCode = cboStammreferenz._value
.DAKOSY_Procedure = cboProzedur._value
.DAKOSY_IOPartner = txtDyMandant.Text
.DAKOSY_Division3 = txtDyNiederlassung.Text
.DepartureCustomsOffice = sbAbgangZollstelle._value
@@ -240,6 +241,17 @@ Public Class frmATEZ_NCTS
initSeachboxes()
initAttachment()
cboProzedur.Items.Clear()
cboProzedur.Items.Add(New MyListItem("T1", "T1"))
cboProzedur.Items.Add(New MyListItem("T2", "T2"))
cboProzedur.Items.Add(New MyListItem("TIR", "TIR"))
Select Case FIRMA_DY
Case "ATILLA" : cboProzedur.changeItem("T2")
Case Else : cboProzedur.changeItem("T1")
End Select
If openExisting Then
If id > 0 Then
@@ -256,6 +268,7 @@ Public Class frmATEZ_NCTS
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
txtLKWId.Text = atez_data.LicensePlateContainerNo