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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-14 08:45:52 +01:00
parent dbce3f0ba9 cd45295d63
commit df324faddf
10 changed files with 340 additions and 305 deletions
Download Patch File Download Diff File Expand all files Collapse all files

296
SDL/Classes/cRKSV.vb
View File

@@ -1337,6 +1337,24 @@ Public Class cRKSV
' rpt.lblKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "") ' rpt.lblKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "")
rpt.Label24.Text = "Auszahlungsbetrag" rpt.Label24.Text = "Auszahlungsbetrag"
If PERSONAL.isLeihgeldkasse AndAlso BELEG.Niederlassung = "SUA" Then
Dim fontAtilla As New Font("Arial", 12, FontStyle.Bold)
rpt.lblFahrer.Font = fontAtilla
rpt.txtFrachtfuhrer.Font = fontAtilla
rpt.lblLKWKz.Font = fontAtilla
rpt.lblPassnummer.Font = fontAtilla
rpt.Label12.Font = fontAtilla
rpt.Label15.Font = fontAtilla
rpt.Label14.Font = fontAtilla
rpt.Label7.Font = fontAtilla
End If
rpt.lblFahrer.Text = BELEG.Fahrer rpt.lblFahrer.Text = BELEG.Fahrer
rpt.lblFahrer2.Text = BELEG.Fahrer rpt.lblFahrer2.Text = BELEG.Fahrer
rpt.lblLKWKz.Text = BELEG.LKW_Kennzeichen rpt.lblLKWKz.Text = BELEG.LKW_Kennzeichen
@@ -2529,7 +2547,7 @@ Public Class cRKSV
End If End If
If DefaultMandant = 9 Then If DefaultMandant = 9 Then
MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!")) MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TEST-MANDANT!", "PRODUKTIV-MANDANT!"))
End If End If
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL() Dim sql As New VERAG_PROG_ALLGEMEIN.SQL()
@@ -2547,7 +2565,7 @@ Public Class cRKSV
End If End If
If rel_periode > periode Then If rel_periode > periode Then
jahr -= 1 'jahr -= 1 warum nochmals???????
End If End If
Dim betrag As Decimal = SumBelegPositionen(beleg) Dim betrag As Decimal = SumBelegPositionen(beleg)
@@ -2608,143 +2626,6 @@ Public Class cRKSV
Next Next
'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto)
'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0
'INSERT INTO [FIBU2].dbo.fibu_periodensaldo (
'[FIBU2].dbo.fibu_periodensaldo.i_firm_refid,
'[FIBU2].dbo.fibu_periodensaldo.si_jahr,
'[FIBU2].dbo.fibu_periodensaldo.i_konto,
'[FIBU2].dbo.fibu_periodensaldo.i_perioden,
'[FIBU2].dbo.fibu_periodensaldo.dec_eroeff,
'[FIBU2].dbo.fibu_periodensaldo.dec_abschluss,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_1,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_1,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_2,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_2,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_3,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_3,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_4,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_4,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_5,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_5,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_6,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_6,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_7,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_7,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_8,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_8,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_9,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_9,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_10,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_10,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_11,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_11,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_12,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_12,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_13,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_13,
'[FIBU2].dbo.fibu_periodensaldo.eur_eroeff,
'[FIBU2].dbo.fibu_periodensaldo.eur_abschluss,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_1,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_1,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_2,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_2,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_3,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_3,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_4,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_4,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_5,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_5,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_6,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_6,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_7,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_7,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_8,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_8,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_9,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_9,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_10,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_10,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_11,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_11,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_12,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_12,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_13,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_13,
'[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis)
'VALUES (
'@MandantNr,
'@Jahr,
'@Schleifenkonto,
'0,
'@dec_aktuellersaldo,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'@dec_aktuellersaldo,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'1)
InsertBelegskopf_new(sql, mandant, jahr, periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, SafeString(beleg.BelegNr), 1, buchungstext, CType(betrag, Double), "EUR", Now(), VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, protokollId, BelegNrUID) InsertBelegskopf_new(sql, mandant, jahr, periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, SafeString(beleg.BelegNr), 1, buchungstext, CType(betrag, Double), "EUR", Now(), VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, protokollId, BelegNrUID)
@@ -2984,13 +2865,146 @@ Public Class cRKSV
jahr & "," & jahr & "," &
konto & "," & konto & "," &
"0," & "0," &
String.Join(",", Enumerable.Repeat("0", 32)) & "," &
saldo & "," & saldo & "," &
String.Join(",", Enumerable.Repeat("0", 26)) & "," & String.Join(",", Enumerable.Repeat("0", 27)) & "," &
saldo & "," &
String.Join(",", Enumerable.Repeat("0", 27)) & "," &
"1);" "1);"
sql.doSQL(sqlStr, "FIBU") sql.doSQL(sqlStr, "FIBU")
'--------------------------- ZUM VERGLEICH - SQL aus UM ----------------------------------------
'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto)
'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0
'INSERT INTO [FIBU2].dbo.fibu_periodensaldo (
'[FIBU2].dbo.fibu_periodensaldo.i_firm_refid,
'[FIBU2].dbo.fibu_periodensaldo.si_jahr,
'[FIBU2].dbo.fibu_periodensaldo.i_konto,
'[FIBU2].dbo.fibu_periodensaldo.i_perioden,
'[FIBU2].dbo.fibu_periodensaldo.dec_eroeff,
'[FIBU2].dbo.fibu_periodensaldo.dec_abschluss,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_1,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_1,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_2,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_2,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_3,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_3,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_4,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_4,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_5,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_5,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_6,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_6,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_7,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_7,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_8,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_8,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_9,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_9,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_10,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_10,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_11,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_11,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_12,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_12,
'[FIBU2].dbo.fibu_periodensaldo.dec_soll_13,
'[FIBU2].dbo.fibu_periodensaldo.dec_haben_13,
'[FIBU2].dbo.fibu_periodensaldo.eur_eroeff,
'[FIBU2].dbo.fibu_periodensaldo.eur_abschluss,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_1,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_1,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_2,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_2,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_3,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_3,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_4,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_4,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_5,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_5,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_6,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_6,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_7,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_7,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_8,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_8,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_9,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_9,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_10,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_10,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_11,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_11,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_12,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_12,
'[FIBU2].dbo.fibu_periodensaldo.eur_soll_13,
'[FIBU2].dbo.fibu_periodensaldo.eur_haben_13,
'[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis)
'VALUES (
'@MandantNr,
'@Jahr,
'@Schleifenkonto,
'0,
'@dec_aktuellersaldo,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'@dec_aktuellersaldo,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'0,
'1)
End Sub End Sub
Private Shared Sub createOP_new(mandant As Integer, Betrag As Double, BelegNrText As String, datumKurz As String, BelegNr As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, Personenkonto As Integer, Forderungskonto As Integer, i_op_refid As String, c_op_Typ As Char, Sprache As String, Zahlungsziel As String, Skonto As String, Skontodatum As String, Nettodatum As String, c_ustidnr As String, c_urbelegid As String) Private Shared Sub createOP_new(mandant As Integer, Betrag As Double, BelegNrText As String, datumKurz As String, BelegNr As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, Personenkonto As Integer, Forderungskonto As Integer, i_op_refid As String, c_op_Typ As Char, Sprache As String, Zahlungsziel As String, Skonto As String, Skontodatum As String, Nettodatum As String, c_ustidnr As String, c_urbelegid As String)

35
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -8,6 +8,8 @@ Public Class frmAbrechnungsMaske
Dim loaded = False Dim loaded = False
Dim FilialNrRestriction As Integer = -1
Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
'Größe anpassen: 'Größe anpassen:
@@ -50,16 +52,6 @@ Public Class frmAbrechnungsMaske
FirmaTmp = "VERAGIMEX" FirmaTmp = "VERAGIMEX"
End If End If
'If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then
' FirmaTmp = "VERAG360"
'End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'FirmaTmp = "AMBAR"
'End If
cboSachbearbeiter.Items.Clear() cboSachbearbeiter.Items.Clear()
Select Case FirmaTmp Select Case FirmaTmp
@@ -107,10 +99,11 @@ Public Class frmAbrechnungsMaske
cboFirma.changeItem("24") cboFirma.changeItem("24")
cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
'Case "VERAG360" Case "ATILLA"
' cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=19", False, "FMZOLL") cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=7", False, "FMZOLL")
' cboFirma.changeItem("19") cboFirma.changeItem("7")
' MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=19 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=7 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
FilialNrRestriction = 4813
Case "VERAGIMEX" Case "VERAGIMEX"
Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
@@ -197,7 +190,7 @@ Public Class frmAbrechnungsMaske
If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then
sqlstr &= " SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr " sqlstr &= " SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr "
sqlstr &= " WHERE 1=1 AND R1.Firma_ID=24 " sqlstr &= " WHERE 1=1 AND R1.Firma_ID=24 "
sqlstr &= getRGWhere(cboER_SR._value) sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
sqlstr &= " and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where" sqlstr &= " and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where"
sqlstr &= " R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND (RechnungsKundenNr=3013401 OR RechnungsKundenNr = 3017683) and R2.[BelegartenNr]=71)=0" sqlstr &= " R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND (RechnungsKundenNr=3013401 OR RechnungsKundenNr = 3017683) and R2.[BelegartenNr]=71)=0"
sqlstr &= " and Speditionsbuch.Abfertigungsart IN (1)" sqlstr &= " and Speditionsbuch.Abfertigungsart IN (1)"
@@ -211,7 +204,7 @@ Public Class frmAbrechnungsMaske
sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
sqlstr &= " WHERE 1=1 " sqlstr &= " WHERE 1=1 "
sqlstr &= getRGWhere(cboER_SR._value) sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr " sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr "
End If End If
@@ -273,7 +266,7 @@ Public Class frmAbrechnungsMaske
End With End With
End Sub End Sub
Function getRGWhere(filterSR) Function getRGWhere(filterSR As String, Optional filialenNr As Integer = -1)
Dim sqlstr = "" Dim sqlstr = ""
Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
srchSB = cboSachbearbeiter._value srchSB = cboSachbearbeiter._value
@@ -288,6 +281,10 @@ Public Class frmAbrechnungsMaske
End Select End Select
If filialenNr > 0 Then
sqlstr &= " AND Rechnungsausgang.FilialenNr = " & filialenNr
End If
If cbx.Checked Then If cbx.Checked Then
'sqlstr &= " AND Status = 0 " 'sqlstr &= " AND Status = 0 "
@@ -417,7 +414,7 @@ Public Class frmAbrechnungsMaske
'Exit Sub 'Exit Sub
Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER", FilialNrRestriction) & orderBy, "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
@@ -441,7 +438,7 @@ Public Class frmAbrechnungsMaske
Function print_Anlagen() As Boolean Function print_Anlagen() As Boolean
Dim erg = True Dim erg = True
Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR") & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR", FilialNrRestriction) & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r In dt.Rows For Each r In dt.Rows

5
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -254,6 +254,11 @@ Public Class frmRechnungenSuche
Case "IMEX" Case "IMEX"
cboFiliale.changeItem("5501") cboFiliale.changeItem("5501")
cboFiliale.Enabled = False cboFiliale.Enabled = False
Case "ATILLA"
cboFiliale.changeItem("4813")
cboFiliale.Enabled = False
cboFirma.changeItem("7")
cboFirma.Enabled = False
Case "VERAGIMEX" Case "VERAGIMEX"
' cboFiliale.changeItem("5501") ' cboFiliale.changeItem("5501")
End Select End Select

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung
GutschriftAnVeragToolStripMenuItem.Visible = False GutschriftAnVeragToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4813) ORDER BY FilialenNr ", True, "FMZOLL", True)
Else Else
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
End If End If

106
SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb generated
View File

@@ -63,6 +63,7 @@ Partial Public Class rptLeihgeldBeleg
Me.lblKbNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKbNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtFrachtfuhrer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtFrachtfuhrer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetragSteuern = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblBetragSteuern = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -78,7 +79,6 @@ Partial Public Class rptLeihgeldBeleg
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSachbearbeiter2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblSachbearbeiter2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblFahrer2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblFahrer2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -118,6 +118,7 @@ Partial Public Class rptLeihgeldBeleg
CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -129,7 +130,6 @@ Partial Public Class rptLeihgeldBeleg
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -265,7 +265,7 @@ Partial Public Class rptLeihgeldBeleg
'ReportHeader1 'ReportHeader1
' '
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblRgDatum, Me.lblRgNr, Me.Label25, Me.lblFirma_Name, Me.lblTitel, Me.lblUhrzeit, Me.lblSachbearbeiter, Me.Label26, Me.lblPosNr, Me.Label28, Me.Label11, Me.Label12, Me.lblFahrer, Me.lblFrachtf, Me.Label15, Me.lblLKWKz, Me.Label14, Me.lblPassnummer, Me.Label20, Me.lblUID, Me.Label10, Me.lblKdNr, Me.lblFirma, Me.Line5, Me.QR, Me.lblKbNr, Me.txtFrachtfuhrer, Me.Label7, Me.Label13}) Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblRgDatum, Me.lblRgNr, Me.Label25, Me.lblFirma_Name, Me.lblTitel, Me.lblUhrzeit, Me.lblSachbearbeiter, Me.Label26, Me.lblPosNr, Me.Label28, Me.Label11, Me.Label12, Me.lblFahrer, Me.lblFrachtf, Me.Label15, Me.lblLKWKz, Me.Label14, Me.lblPassnummer, Me.Label20, Me.lblUID, Me.Label10, Me.lblKdNr, Me.lblFirma, Me.Line5, Me.QR, Me.lblKbNr, Me.txtFrachtfuhrer, Me.Label7, Me.Label13})
Me.ReportHeader1.Height = 4.490026! Me.ReportHeader1.Height = 4.458776!
Me.ReportHeader1.Name = "ReportHeader1" Me.ReportHeader1.Name = "ReportHeader1"
' '
'picVERAG 'picVERAG
@@ -440,23 +440,24 @@ Partial Public Class rptLeihgeldBeleg
' '
Me.Label12.Height = 0.1968501! Me.Label12.Height = 0.1968501!
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 0.01732284! Me.Label12.Left = 0.01023622!
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label12.Text = "Fahrer:" Me.Label12.Text = "Fahrer:"
Me.Label12.Top = 3.414961! Me.Label12.Top = 3.572441!
Me.Label12.Width = 1.28937! Me.Label12.Width = 1.76811!
' '
'lblFahrer 'lblFahrer
' '
Me.lblFahrer.DataField = ""
Me.lblFahrer.Height = 0.1968501! Me.lblFahrer.Height = 0.1968501!
Me.lblFahrer.HyperLink = Nothing Me.lblFahrer.HyperLink = Nothing
Me.lblFahrer.Left = 1.49252! Me.lblFahrer.Left = 1.833465!
Me.lblFahrer.Name = "lblFahrer" Me.lblFahrer.Name = "lblFahrer"
Me.lblFahrer.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.lblFahrer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
Me.lblFahrer.Text = "-" Me.lblFahrer.Text = "-"
Me.lblFahrer.Top = 3.414961! Me.lblFahrer.Top = 3.572441!
Me.lblFahrer.Width = 3.756299! Me.lblFahrer.Width = 3.408268!
' '
'lblFrachtf 'lblFrachtf
' '
@@ -471,47 +472,50 @@ Partial Public Class rptLeihgeldBeleg
' '
'Label15 'Label15
' '
Me.Label15.DataField = ""
Me.Label15.Height = 0.1968501! Me.Label15.Height = 0.1968501!
Me.Label15.HyperLink = Nothing Me.Label15.HyperLink = Nothing
Me.Label15.Left = 0.01732286! Me.Label15.Left = 0.01023625!
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label15.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left"
Me.Label15.Text = "LKW-Kennzeichen:" Me.Label15.Text = "LKW-Kennzeichen:"
Me.Label15.Top = 3.21811! Me.Label15.Top = 3.323622!
Me.Label15.Width = 1.28937! Me.Label15.Width = 1.76811!
' '
'lblLKWKz 'lblLKWKz
' '
Me.lblLKWKz.DataField = ""
Me.lblLKWKz.Height = 0.1968501! Me.lblLKWKz.Height = 0.1968501!
Me.lblLKWKz.HyperLink = Nothing Me.lblLKWKz.HyperLink = Nothing
Me.lblLKWKz.Left = 1.49252! Me.lblLKWKz.Left = 1.833465!
Me.lblLKWKz.Name = "lblLKWKz" Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.lblLKWKz.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
Me.lblLKWKz.Text = "-" Me.lblLKWKz.Text = "-"
Me.lblLKWKz.Top = 3.21811! Me.lblLKWKz.Top = 3.323622!
Me.lblLKWKz.Width = 3.756299! Me.lblLKWKz.Width = 3.408268!
' '
'Label14 'Label14
' '
Me.Label14.Height = 0.1968501! Me.Label14.Height = 0.1968501!
Me.Label14.HyperLink = Nothing Me.Label14.HyperLink = Nothing
Me.Label14.Left = 0.01732284! Me.Label14.Left = 0!
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label14.Text = "Passnummer:" Me.Label14.Text = "Passnummer:"
Me.Label14.Top = 3.611811! Me.Label14.Top = 3.852756!
Me.Label14.Width = 1.28937! Me.Label14.Width = 1.76811!
' '
'lblPassnummer 'lblPassnummer
' '
Me.lblPassnummer.DataField = ""
Me.lblPassnummer.Height = 0.1968501! Me.lblPassnummer.Height = 0.1968501!
Me.lblPassnummer.HyperLink = Nothing Me.lblPassnummer.HyperLink = Nothing
Me.lblPassnummer.Left = 1.49252! Me.lblPassnummer.Left = 1.823228!
Me.lblPassnummer.Name = "lblPassnummer" Me.lblPassnummer.Name = "lblPassnummer"
Me.lblPassnummer.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.lblPassnummer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
Me.lblPassnummer.Text = "-" Me.lblPassnummer.Text = "-"
Me.lblPassnummer.Top = 3.611811! Me.lblPassnummer.Top = 3.852756!
Me.lblPassnummer.Width = 3.756299! Me.lblPassnummer.Width = 3.408268!
' '
'Label20 'Label20
' '
@@ -522,13 +526,13 @@ Partial Public Class rptLeihgeldBeleg
Me.Label20.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label20.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label20.Text = "UID-Nr.:" Me.Label20.Text = "UID-Nr.:"
Me.Label20.Top = 2.726772! Me.Label20.Top = 2.726772!
Me.Label20.Width = 1.28937! Me.Label20.Width = 1.609055!
' '
'lblUID 'lblUID
' '
Me.lblUID.Height = 0.1968501! Me.lblUID.Height = 0.1968501!
Me.lblUID.HyperLink = Nothing Me.lblUID.HyperLink = Nothing
Me.lblUID.Left = 1.49252! Me.lblUID.Left = 1.788583!
Me.lblUID.Name = "lblUID" Me.lblUID.Name = "lblUID"
Me.lblUID.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.lblUID.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.lblUID.Text = "-" Me.lblUID.Text = "-"
@@ -586,7 +590,7 @@ Partial Public Class rptLeihgeldBeleg
' '
Me.QR.Height = 1.181102! Me.QR.Height = 1.181102!
Me.QR.HyperLink = Nothing Me.QR.HyperLink = Nothing
Me.QR.ImageData = Nothing Me.QR.ImageBase64String = resources.GetString("QR.ImageBase64String")
Me.QR.Left = 5.318898! Me.QR.Left = 5.318898!
Me.QR.Name = "QR" Me.QR.Name = "QR"
Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -606,23 +610,35 @@ Partial Public Class rptLeihgeldBeleg
' '
'txtFrachtfuhrer 'txtFrachtfuhrer
' '
Me.txtFrachtfuhrer.Height = 0.148031! Me.txtFrachtfuhrer.Height = 0.2000005!
Me.txtFrachtfuhrer.Left = 1.49252! Me.txtFrachtfuhrer.Left = 1.788583!
Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer" Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer"
Me.txtFrachtfuhrer.Style = "font-size: 12pt"
Me.txtFrachtfuhrer.Text = Nothing Me.txtFrachtfuhrer.Text = Nothing
Me.txtFrachtfuhrer.Top = 3.0063! Me.txtFrachtfuhrer.Top = 3.018111!
Me.txtFrachtfuhrer.Width = 3.756299! Me.txtFrachtfuhrer.Width = 3.991339!
' '
'Label7 'Label7
' '
Me.Label7.Height = 0.148031! Me.Label7.Height = 0.2000005!
Me.Label7.HyperLink = Nothing Me.Label7.HyperLink = Nothing
Me.Label7.Left = 0.02047244! Me.Label7.Left = 0.02047244!
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left" Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.Label7.Text = "Fr<EFBFBD>chter:" Me.Label7.Text = "Fr<EFBFBD>chter:"
Me.Label7.Top = 3.0063! Me.Label7.Top = 3.018111!
Me.Label7.Width = 1.28937! Me.Label7.Width = 1.76811!
'
'Label13
'
Me.Label13.Height = 0.2!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.02047244!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
Me.Label13.Top = 1.197244!
Me.Label13.Width = 3.190945!
' '
'ReportFooter1 'ReportFooter1
' '
@@ -720,7 +736,6 @@ Partial Public Class rptLeihgeldBeleg
Me.Label1.HyperLink = Nothing Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0! Me.Label1.Left = 0!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.ShrinkToFit = True
Me.Label1.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & Me.Label1.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1; ddo-shrink-to-fit: true" "-char-set: 1; ddo-shrink-to-fit: true"
Me.Label1.Text = "Wir best<73>tigen, den o.g. Betrag von der Firma VERAG Spedition AG erhalten zu habe" & Me.Label1.Text = "Wir best<73>tigen, den o.g. Betrag von der Firma VERAG Spedition AG erhalten zu habe" &
@@ -734,7 +749,6 @@ Partial Public Class rptLeihgeldBeleg
Me.Label8.HyperLink = Nothing Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0! Me.Label8.Left = 0!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.ShrinkToFit = True
Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" & Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
"do-char-set: 1; ddo-shrink-to-fit: true" "do-char-set: 1; ddo-shrink-to-fit: true"
Me.Label8.Text = "ausbezahlt von:" Me.Label8.Text = "ausbezahlt von:"
@@ -747,7 +761,6 @@ Partial Public Class rptLeihgeldBeleg
Me.Label9.HyperLink = Nothing Me.Label9.HyperLink = Nothing
Me.Label9.Left = 3.518898! Me.Label9.Left = 3.518898!
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.ShrinkToFit = True
Me.Label9.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" & Me.Label9.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
"do-char-set: 1; ddo-shrink-to-fit: true" "do-char-set: 1; ddo-shrink-to-fit: true"
Me.Label9.Text = "Betrag erhalten:" Me.Label9.Text = "Betrag erhalten:"
@@ -786,7 +799,6 @@ Partial Public Class rptLeihgeldBeleg
Me.lblSachbearbeiter2.HyperLink = Nothing Me.lblSachbearbeiter2.HyperLink = Nothing
Me.lblSachbearbeiter2.Left = 0! Me.lblSachbearbeiter2.Left = 0!
Me.lblSachbearbeiter2.Name = "lblSachbearbeiter2" Me.lblSachbearbeiter2.Name = "lblSachbearbeiter2"
Me.lblSachbearbeiter2.ShrinkToFit = True
Me.lblSachbearbeiter2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" & Me.lblSachbearbeiter2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
"tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true" "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
Me.lblSachbearbeiter2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )" Me.lblSachbearbeiter2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )"
@@ -799,24 +811,12 @@ Partial Public Class rptLeihgeldBeleg
Me.lblFahrer2.HyperLink = Nothing Me.lblFahrer2.HyperLink = Nothing
Me.lblFahrer2.Left = 3.522048! Me.lblFahrer2.Left = 3.522048!
Me.lblFahrer2.Name = "lblFahrer2" Me.lblFahrer2.Name = "lblFahrer2"
Me.lblFahrer2.ShrinkToFit = True
Me.lblFahrer2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" & Me.lblFahrer2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
"tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true" "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
Me.lblFahrer2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )" Me.lblFahrer2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )"
Me.lblFahrer2.Top = 3.062599! Me.lblFahrer2.Top = 3.062599!
Me.lblFahrer2.Width = 2.635433! Me.lblFahrer2.Width = 2.635433!
' '
'Label13
'
Me.Label13.Height = 0.2!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.02047244!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
Me.Label13.Top = 1.197244!
Me.Label13.Width = 3.190945!
'
'rptLeihgeldBeleg 'rptLeihgeldBeleg
' '
Me.MasterReport = False Me.MasterReport = False
@@ -877,6 +877,7 @@ Partial Public Class rptLeihgeldBeleg
CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -888,7 +889,6 @@ Partial Public Class rptLeihgeldBeleg
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
@@ -947,7 +947,7 @@ Partial Public Class rptLeihgeldBeleg
Public WithEvents lblFahrer2 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblFahrer2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblKbNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblKbNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtFrachtfuhrer As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtFrachtfuhrer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label

5
SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx
View File

File diff suppressed because one or more lines are too long

8
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -328,7 +328,13 @@ Public Class frmBelegNeu
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
' btnNeueAbfNr.Visible = True ' btnNeueAbfNr.Visible = True
cboFiliale.changeItem(4801)
If PERSONAL.isLeihgeldkasse Then
cboFiliale.changeItem(4813)
Else
cboFiliale.changeItem(4801)
End If
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
' btnNeueAbfNr.Visible = True ' btnNeueAbfNr.Visible = True
cboFiliale.changeItem(5501) cboFiliale.changeItem(5501)

106
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNacherfassungLeihgeld Partial Class frmNacherfassungLeihgeld
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,11 +20,11 @@ Partial Class frmNacherfassungLeihgeld
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.btnWiki = New System.Windows.Forms.Button() Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button() Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@@ -71,7 +71,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox() Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
Me.lblGesperrt = New System.Windows.Forms.Label() Me.lblGesperrt = New System.Windows.Forms.Label()
Me.cbxProvAnMA = New System.Windows.Forms.CheckBox() Me.cbxProvinMAKassa = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -81,7 +81,7 @@ Partial Class frmNacherfassungLeihgeld
' '
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnWiki) Me.pnl.Controls.Add(Me.btnWikiStatusmails)
Me.pnl.Controls.Add(Me.txtDatum) Me.pnl.Controls.Add(Me.txtDatum)
Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben) Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
Me.pnl.Controls.Add(Me.Label2) Me.pnl.Controls.Add(Me.Label2)
@@ -93,21 +93,21 @@ Partial Class frmNacherfassungLeihgeld
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(525, 94) Me.pnl.Size = New System.Drawing.Size(441, 94)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'btnWiki 'btnWikiStatusmails
' '
Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.btnWikiStatusmails.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWiki.FlatAppearance.BorderSize = 0 Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWiki.Location = New System.Drawing.Point(494, 3) Me.btnWikiStatusmails.Location = New System.Drawing.Point(410, 3)
Me.btnWiki.Name = "btnWiki" Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
Me.btnWiki.Size = New System.Drawing.Size(25, 20) Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
Me.btnWiki.TabIndex = 215 Me.btnWikiStatusmails.TabIndex = 215
Me.btnWiki.UseVisualStyleBackColor = False Me.btnWikiStatusmails.UseVisualStyleBackColor = False
' '
'txtDatum 'txtDatum
' '
@@ -139,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
'btnNeueAbfertigungNrVergeben 'btnNeueAbfertigungNrVergeben
' '
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57) Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben" Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24) Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
Me.btnNeueAbfertigungNrVergeben.TabIndex = 6 Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -150,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(362, 41) Me.Label2.Location = New System.Drawing.Point(278, 41)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(103, 13) Me.Label2.Size = New System.Drawing.Size(103, 13)
Me.Label2.TabIndex = 3 Me.Label2.TabIndex = 3
@@ -171,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAbfertigungsnummer._Waehrung = False Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57) Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8 Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1 Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = "" Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -189,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboFiliale.Enabled = False Me.cboFiliale.Enabled = False
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(280, 56) Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale" Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24) Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5 Me.cboFiliale.TabIndex = 5
@@ -198,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(277, 41) Me.Label1.Location = New System.Drawing.Point(193, 41)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(33, 13) Me.Label1.Size = New System.Drawing.Size(33, 13)
Me.Label1.TabIndex = 2 Me.Label1.TabIndex = 2
@@ -288,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
Me.btnPrint.ForeColor = System.Drawing.Color.Black Me.btnPrint.ForeColor = System.Drawing.Color.Black
Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2 Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPrint.Location = New System.Drawing.Point(375, 331) Me.btnPrint.Location = New System.Drawing.Point(291, 331)
Me.btnPrint.Name = "btnPrint" Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPrint.Size = New System.Drawing.Size(136, 66) Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -323,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboPrintAktendeckel.AutoSize = True Me.cboPrintAktendeckel.AutoSize = True
Me.cboPrintAktendeckel.Checked = True Me.cboPrintAktendeckel.Checked = True
Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303) Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel" Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17) Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
Me.cboPrintAktendeckel.TabIndex = 17 Me.cboPrintAktendeckel.TabIndex = 17
@@ -333,7 +333,7 @@ Partial Class frmNacherfassungLeihgeld
'Label8 'Label8
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(80, 69) Me.Label8.Location = New System.Drawing.Point(80, 83)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(87, 13) Me.Label8.Size = New System.Drawing.Size(87, 13)
Me.Label8.TabIndex = 6 Me.Label8.TabIndex = 6
@@ -363,7 +363,7 @@ Partial Class frmNacherfassungLeihgeld
'Label10 'Label10
' '
Me.Label10.AutoSize = True Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(17, 69) Me.Label10.Location = New System.Drawing.Point(17, 83)
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(45, 13) Me.Label10.Size = New System.Drawing.Size(45, 13)
Me.Label10.TabIndex = 5 Me.Label10.TabIndex = 5
@@ -382,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
' '
Me.cbxProvisionAuftraggeber.AutoSize = True Me.cbxProvisionAuftraggeber.AutoSize = True
Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13) Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber" Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17) Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
Me.cbxProvisionAuftraggeber.TabIndex = 1 Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -392,7 +392,7 @@ Partial Class frmNacherfassungLeihgeld
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.cbxProvAnMA) Me.Panel1.Controls.Add(Me.cbxProvinMAKassa)
Me.Panel1.Controls.Add(Me.cbxProvision) Me.Panel1.Controls.Add(Me.cbxProvision)
Me.Panel1.Controls.Add(Me.txtAuftrProvision) Me.Panel1.Controls.Add(Me.txtAuftrProvision)
Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber) Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
@@ -404,9 +404,9 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel1.Controls.Add(Me.txtProvisionProzent) Me.Panel1.Controls.Add(Me.txtProvisionProzent)
Me.Panel1.Controls.Add(Me.cboProvisionStaffelArt) Me.Panel1.Controls.Add(Me.cboProvisionStaffelArt)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 404) Me.Panel1.Location = New System.Drawing.Point(0, 400)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(525, 122) Me.Panel1.Size = New System.Drawing.Size(441, 147)
Me.Panel1.TabIndex = 20 Me.Panel1.TabIndex = 20
' '
'txtAuftrProvision 'txtAuftrProvision
@@ -425,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftrProvision._WaehrungZeichen = True Me.txtAuftrProvision._WaehrungZeichen = True
Me.txtAuftrProvision.Enabled = False Me.txtAuftrProvision.Enabled = False
Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13) Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
Me.txtAuftrProvision.MaxLineLength = -1 Me.txtAuftrProvision.MaxLineLength = -1
Me.txtAuftrProvision.MaxLines_Warning = "" Me.txtAuftrProvision.MaxLines_Warning = ""
Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -449,7 +449,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionBetrag._WaehrungZeichen = True Me.cboProvisionBetrag._WaehrungZeichen = True
Me.cboProvisionBetrag.Enabled = False Me.cboProvisionBetrag.Enabled = False
Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 85) Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 99)
Me.cboProvisionBetrag.MaxLineLength = -1 Me.cboProvisionBetrag.MaxLineLength = -1
Me.cboProvisionBetrag.MaxLines_Warning = "" Me.cboProvisionBetrag.MaxLines_Warning = ""
Me.cboProvisionBetrag.MaxLines_Warning_Label = Nothing Me.cboProvisionBetrag.MaxLines_Warning_Label = Nothing
@@ -464,7 +464,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffel._value = "" Me.cboProvisionStaffel._value = ""
Me.cboProvisionStaffel.Enabled = False Me.cboProvisionStaffel.Enabled = False
Me.cboProvisionStaffel.FormattingEnabled = True Me.cboProvisionStaffel.FormattingEnabled = True
Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 36) Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 50)
Me.cboProvisionStaffel.Name = "cboProvisionStaffel" Me.cboProvisionStaffel.Name = "cboProvisionStaffel"
Me.cboProvisionStaffel.Size = New System.Drawing.Size(251, 21) Me.cboProvisionStaffel.Size = New System.Drawing.Size(251, 21)
Me.cboProvisionStaffel.TabIndex = 4 Me.cboProvisionStaffel.TabIndex = 4
@@ -485,7 +485,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtProvisionProzent._WaehrungZeichen = True Me.txtProvisionProzent._WaehrungZeichen = True
Me.txtProvisionProzent.Enabled = False Me.txtProvisionProzent.Enabled = False
Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 85) Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 99)
Me.txtProvisionProzent.MaxLineLength = -1 Me.txtProvisionProzent.MaxLineLength = -1
Me.txtProvisionProzent.MaxLines_Warning = "" Me.txtProvisionProzent.MaxLines_Warning = ""
Me.txtProvisionProzent.MaxLines_Warning_Label = Nothing Me.txtProvisionProzent.MaxLines_Warning_Label = Nothing
@@ -500,7 +500,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffelArt._value = "" Me.cboProvisionStaffelArt._value = ""
Me.cboProvisionStaffelArt.Enabled = False Me.cboProvisionStaffelArt.Enabled = False
Me.cboProvisionStaffelArt.FormattingEnabled = True Me.cboProvisionStaffelArt.FormattingEnabled = True
Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 36) Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 50)
Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt" Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt"
Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21) Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
Me.cboProvisionStaffelArt.TabIndex = 3 Me.cboProvisionStaffelArt.TabIndex = 3
@@ -511,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel2.Controls.Add(Me.Label7) Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter) Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg) Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(297, 60) Me.Panel2.Location = New System.Drawing.Point(210, 83)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59) Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21 Me.Panel2.TabIndex = 21
@@ -654,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr" Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
Me.ksFrachtführerKdNr.ReadOnly = True Me.ksFrachtführerKdNr.ReadOnly = True
Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23) Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
Me.ksFrachtführerKdNr.TabIndex = 3 Me.ksFrachtführerKdNr.TabIndex = 3
' '
'txtPassnummer 'txtPassnummer
@@ -678,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtPassnummer.MaxLines_Warning = "" Me.txtPassnummer.MaxLines_Warning = ""
Me.txtPassnummer.MaxLines_Warning_Label = Nothing Me.txtPassnummer.MaxLines_Warning_Label = Nothing
Me.txtPassnummer.Name = "txtPassnummer" Me.txtPassnummer.Name = "txtPassnummer"
Me.txtPassnummer.Size = New System.Drawing.Size(222, 20) Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
Me.txtPassnummer.TabIndex = 9 Me.txtPassnummer.TabIndex = 9
' '
'txtAuftraggeber 'txtAuftraggeber
@@ -756,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
Me.txtAuftraggeberKdNr.ReadOnly = True Me.txtAuftraggeberKdNr.ReadOnly = True
Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23) Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
Me.txtAuftraggeberKdNr.TabIndex = 13 Me.txtAuftraggeberKdNr.TabIndex = 13
' '
'MyTextBoxLKWKz 'MyTextBoxLKWKz
@@ -810,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
'cbxOP_sofort_buchen 'cbxOP_sofort_buchen
' '
Me.cbxOP_sofort_buchen.AutoSize = True Me.cbxOP_sofort_buchen.AutoSize = True
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280) Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen" Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17) Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
Me.cbxOP_sofort_buchen.TabIndex = 213 Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -829,23 +829,23 @@ Partial Class frmNacherfassungLeihgeld
Me.lblGesperrt.Text = "gesperrt!" Me.lblGesperrt.Text = "gesperrt!"
Me.lblGesperrt.Visible = False Me.lblGesperrt.Visible = False
' '
'cbxProvAnMA 'cbxProvinMAKassa
' '
Me.cbxProvAnMA.AutoSize = True Me.cbxProvinMAKassa.AutoSize = True
Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxProvinMAKassa.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13) Me.cbxProvinMAKassa.Location = New System.Drawing.Point(21, 31)
Me.cbxProvAnMA.Name = "cbxProvAnMA" Me.cbxProvinMAKassa.Name = "cbxProvinMAKassa"
Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17) Me.cbxProvinMAKassa.Size = New System.Drawing.Size(138, 17)
Me.cbxProvAnMA.TabIndex = 22 Me.cbxProvinMAKassa.TabIndex = 22
Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa" Me.cbxProvinMAKassa.Text = "in Mitarbeiter-Kassa"
Me.cbxProvAnMA.UseVisualStyleBackColor = True Me.cbxProvinMAKassa.UseVisualStyleBackColor = True
' '
'frmNacherfassungLeihgeld 'frmNacherfassungLeihgeld
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(525, 526) Me.ClientSize = New System.Drawing.Size(441, 547)
Me.Controls.Add(Me.lblGesperrt) Me.Controls.Add(Me.lblGesperrt)
Me.Controls.Add(Me.cbxOP_sofort_buchen) Me.Controls.Add(Me.cbxOP_sofort_buchen)
Me.Controls.Add(Me.txtOpLeihgeld) Me.Controls.Add(Me.txtOpLeihgeld)
@@ -934,6 +934,6 @@ Partial Class frmNacherfassungLeihgeld
Friend WithEvents Label44 As Label Friend WithEvents Label44 As Label
Public WithEvents cbxOP_sofort_buchen As CheckBox Public WithEvents cbxOP_sofort_buchen As CheckBox
Friend WithEvents lblGesperrt As Label Friend WithEvents lblGesperrt As Label
Friend WithEvents btnWiki As Button Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents cbxProvAnMA As CheckBox Friend WithEvents cbxProvinMAKassa As CheckBox
End Class End Class

39
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -77,8 +77,8 @@ Public Class frmNacherfassungLeihgeld
stammfiliale = "5501" stammfiliale = "5501"
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (5501) ORDER BY FilialenNr ", False, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (5501) ORDER BY FilialenNr ", False, "FMZOLL", True)
Case "ATILLA" Case "ATILLA"
stammfiliale = "4806" stammfiliale = "4813"
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4806) ORDER BY FilialenNr ", False, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4813) ORDER BY FilialenNr ", False, "FMZOLL", True)
cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung
Case Else Case Else
@@ -313,11 +313,18 @@ Public Class frmNacherfassungLeihgeld
Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!' Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
Select Case KundenKontoArchiv Select Case KundenKontoArchiv
Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'inaktiv Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU INAKTIV, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv
Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'nicht vorhanden Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU NICHT vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden
Case Else 'aktiv -> OK Case Else 'aktiv -> OK
End Select End Select
If BELEG.KundenNr > 0 Then
Dim kunden As New cKunde(BELEG.KundenNr)
If Not kunden.hasEntry Then
MsgBox("ACHTUNG, KundenNr existiert nicht!" & vbNewLine & "Der Kunde muss angelegt werden!") : Me.Cursor = Cursors.Default : Exit Sub
End If
End If
End If End If
BELEG.POS.Clear() BELEG.POS.Clear()
@@ -406,7 +413,7 @@ Public Class frmNacherfassungLeihgeld
Dim barbetrag As Double = 0 Dim barbetrag As Double = 0
Dim BelegNrProvision = 0 Dim BelegNrProvision = 0
If cbxProvision.Checked Then If cbxProvision.Checked Then
printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked) printProvision(barbetrag, BelegNrProvision, cbxProvinMAKassa.Checked)
End If End If
@@ -447,16 +454,14 @@ Public Class frmNacherfassungLeihgeld
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then
'create Rechnung für ATILLA
Dim verarbOK As Boolean = True Dim verarbOK As Boolean = True
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr) Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr)
Dim RK_ID As Integer = -1 Dim RK_ID As Integer = -1
If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO, BELEG) Then verarbOK = False
If RK_ID > 0 Then If RK_ID > 0 Then
Dim RECHNUNG As New cRechnungsausgang(RK_ID) Dim RECHNUNG As New cRechnungsausgang(RK_ID)
'rechnungsNr vergeben, aber nicht gedruckt!
If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
RECHNUNG.[DruckDatumZeit] = Nothing RECHNUNG.[DruckDatumZeit] = Nothing
@@ -470,9 +475,9 @@ Public Class frmNacherfassungLeihgeld
MsgBox("Fehler bei Rechnungserstellung!") MsgBox("Fehler bei Rechnungserstellung!")
End If End If
End If
End If End If
End If
End If End If
@@ -489,7 +494,7 @@ Public Class frmNacherfassungLeihgeld
End Try End Try
End Sub End Sub
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double) Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double, ByRef BARBELEG As EABeleg)
Try Try
If KdNr = "" Then Return False If KdNr = "" Then Return False
@@ -586,8 +591,7 @@ Public Class frmNacherfassungLeihgeld
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "Leihgeldauszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")")
allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO))
Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
@@ -612,7 +616,7 @@ Public Class frmNacherfassungLeihgeld
End Function End Function
Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0) Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
Try Try
For Each o In OFFERTE.POSITIONEN For Each o In OFFERTE.POSITIONEN
@@ -621,13 +625,11 @@ Public Class frmNacherfassungLeihgeld
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.LeistungsNr = o.LeistungsNr POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez)
POS.BerechnungsartNr = o.BerechnungsartNr POS.BerechnungsartNr = o.BerechnungsartNr
'POS.Preis = BruttoBetrag
POS.Anzahl = 1 POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA!
POS.BGebBgl = NettoBetrag - UstBetrag POS.BGebBgl = NettoBetrag - UstBetrag
@@ -638,7 +640,6 @@ Public Class frmNacherfassungLeihgeld
POS.SteuerfreierBetrag = BruttoBetrag POS.SteuerfreierBetrag = BruttoBetrag
POS.Preis = BruttoBetrag POS.Preis = BruttoBetrag
End If End If
'POS.NachzahlungsID = nachzahlungsID 'nix gut
POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebLeistungsNr = o.BGebLeistungsNr
POS.BGebProzent = o.BGebProzent POS.BGebProzent = o.BGebProzent
POS.BGebMinBetrag = o.BGebMinBetrag POS.BGebMinBetrag = o.BGebMinBetrag
@@ -1043,7 +1044,7 @@ Public Class frmNacherfassungLeihgeld
txtAuftrProvision.Enabled = sender.checked txtAuftrProvision.Enabled = sender.checked
End Sub End Sub
Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa" Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
Process.Start(webAddress) Process.Start(webAddress)

43
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
View File

@@ -2,6 +2,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports jdk.nashorn.internal.objects.annotations
Public Class cAufschubKonten Public Class cAufschubKonten
Property brgakto_id As Integer Property brgakto_id As Integer
@@ -173,7 +174,7 @@ Public Class cAufschubKonten
Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN") Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
End Function End Function
Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing, Optional showMessage As Boolean = False) As String
Dim StichtagSQLGesamtsicherheit = "" Dim StichtagSQLGesamtsicherheit = ""
@@ -186,23 +187,31 @@ Public Class cAufschubKonten
Dim SaldoString As String = Dim SaldoString As String =
"select " SELECT
SUM(Betrag) AS GesamtSicherheitsSaldo
FROM (
SELECT
CASE
WHEN gs_art = 'OPEN' THEN gs_sicherheitsbetrag * -1
WHEN gs_art = 'CLOSE' THEN gs_sicherheitsbetrag
END AS Betrag
FROM tblGesamtsicherheit
WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0
(select SUM( UNION ALL
case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag
end)
as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+
(select SUM( SELECT
case CASE
when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1) WHEN gsp_art = 'OPEN' THEN gsp_sicherheitsbetrag * -1
when gsp_art = 'Close' then gsp_sicherheitsbetrag WHEN gsp_art = 'CLOSE' THEN gsp_sicherheitsbetrag
end) END
as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")" FROM tblGesamtsicherheitsPositionen
WHERE gsp_gsnr IN (
SELECT gs_gsnr
FROM tblGesamtsicherheit
WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0 )) x;"
Dim dt As New DataTable Dim dt As New DataTable
Dim mrn As Double = 0 Dim mrn As Double = 0
@@ -214,7 +223,7 @@ Public Class cAufschubKonten
If Stichtag.HasValue Then If Stichtag.HasValue Then
brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!! brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!!
brgakto_gs_aktSaldo += mrn brgakto_gs_aktSaldo += mrn
MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2")) If showMessage Then MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
Else Else
brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge.... brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge....
brgakto_gs_aktSaldo += mrn brgakto_gs_aktSaldo += mrn
@@ -233,7 +242,7 @@ Public Class cAufschubKonten
Try Try
Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)