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

ATEZ NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-01 11:12:27 +02:00
parent d12db72804
commit 64b74a1ef0
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.0")> <Assembly: AssemblyVersion("3.9.1.2")>
<Assembly: AssemblyFileVersion("3.9.1.0")> <Assembly: AssemblyFileVersion("3.9.1.2")>

10
Aviso/frmATEZ_NCTS.vb
View File

@@ -8,7 +8,7 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmATEZ_NCTS Public Class frmATEZ_NCTS
Dim ART As String = "" Dim ART As String = ""
Dim FilialenNr As Integer Dim FilialenNr As String = ""
Dim AbfertigungsNr As Integer Dim AbfertigungsNr As Integer
Dim JAHR As Integer = Now.ToString("yy") Dim JAHR As Integer = Now.ToString("yy")
Public isSTAMMREF As Boolean = False Public isSTAMMREF As Boolean = False
@@ -244,6 +244,13 @@ Public Class frmATEZ_NCTS
Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If FilialenNr = "" Then
MsgBox("Keine Filiale ausgewählt!")
Me.Close()
End If
FIRMA_DY = SDL.frmZollanmeldung.getFirma_DY(FilialenNr, Nothing)
Select Case FIRMA_DY Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG" Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -253,6 +260,7 @@ Public Class frmATEZ_NCTS
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select End Select
initSeachboxes() initSeachboxes()
initAttachment() initAttachment()