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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/Post/frmPostEinschreiben.vb
View File

@@ -26,6 +26,7 @@
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : QSwhere = ""
Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') "
Case Else
QSwhere = " AND mit_firma <> 'IMEX' "
End Select
@@ -39,6 +40,8 @@
where = " AND FilialenNr IN (5501) "
Case "ATILLA"
where = " AND FilialenNr IN (4801) "
Case "AMBAR"
where = " AND FilialenNr IN (5701) "
Case Else
where = " AND FilialenNr NOT IN (5501) "
End Select
@@ -46,11 +49,16 @@
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboFiliale._allowedValuesFreiText = {"5501"}
'cboFiliale._allowedValuesFreiText = {"5501"}
cboFiliale.changeItem("5501")
Case "ATILLA"
cboFiliale._allowedValuesFreiText = {"4801"}
cboFiliale.changeItem("4801")
cboFiliale.Enabled = False
Case "AMBAR"
cboFiliale._allowedValuesFreiText = {"5701"}
cboFiliale.changeItem("5701")
cboFiliale.Enabled = False
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &