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

Gutschrift-SR, VerzPreise, div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-14 21:21:57 +01:00
parent 92f1e75562
commit b5cbe59199
8 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -118,6 +118,9 @@
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", Me.FindForm) Then
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "IMEX"))
End If
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
MyComboBox1.changeItem("VZ")
End Select

7
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1902,7 +1902,7 @@ Public Class FormularManagerNEU
Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
Case "DTB" : rpt.txtGrenzstelle.Text = "DETTELBACH"
Case "DTB", "FO_WIHD" : rpt.txtGrenzstelle.Text = "DETTELBACH"
Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
End Select
End If
@@ -1914,7 +1914,7 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Select Case AVISO.Grenzstelle
Case "DTB" '--> VERAG
Case "DTB", "FO_WIHD" '--> VERAG
ort = "Dettelbach"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.TextBox11.Visible = True
@@ -1969,7 +1969,7 @@ Public Class FormularManagerNEU
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
Case "DTB"
Case "DTB", "FO_WIHD"
ort = "Dettelbach"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.TextBox11.Visible = True
@@ -2262,6 +2262,7 @@ Public Class FormularManagerNEU
Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
Case "DTB", "FO_WIHD" : rpt.txtGrenzstelle.Text = "DETTELBACH"
Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
End Select
End If