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

timas

Browse Source
This commit is contained in:
d.breimaier
2023-09-28 11:52:42 +02:00
parent 5b660fd50a 47c8defcdc
commit 0afe3f9d15
2 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmATEZ_NCTS.vb
View File

@@ -293,6 +293,13 @@ Public Class frmATEZ_NCTS
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
Select Case FilialenNr
Case "5103" : txtDyNiederlassung.Text = "WAI"
End Select
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"

2
Aviso/frmHauptfenster.vb
View File

@@ -3098,7 +3098,7 @@ Public Class frmHauptfenster
Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856") Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
If path <> "" Then If path <> "" Then
Process.Start(path) process.Start(path)
End If End If
'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then 'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
' MsgBox("HURRA2" & vbNewLine & firma) ' MsgBox("HURRA2" & vbNewLine & firma)