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

MDM, fakt

Browse Source
This commit is contained in:
d.breimaier
2025-02-06 15:28:49 +01:00
parent fe46392bea
commit 47dd6fb862
13 changed files with 214 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -567,7 +567,7 @@ Public Class usrCntlFaktAbrechnung
Dim firstEmpty = False
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'FirmaTmp = "AMBAR"
FirmaTmp = "AMBAR"
'End If
Select Case FirmaTmp
@@ -604,6 +604,9 @@ Public Class usrCntlFaktAbrechnung
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty)
cboFirma.SelectedIndex = 0
@@ -1947,7 +1950,7 @@ Public Class usrCntlFaktAbrechnung
Dim FIRMATMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
kdFirmaRechnungAn._UseFIRMA = FIRMATMP
If cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL") Then kdFirmaRechnungAn._UseFIRMA = Nothing
'If cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL") Then kdFirmaRechnungAn._UseFIRMA = Nothing
kdFirmaAbsender._UseFIRMA = FIRMATMP
kdFirmaAuftraggeber._UseFIRMA = FIRMATMP
kdFirmaEmpfaenger._UseFIRMA = FIRMATMP