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

BH, nacherfassung leihgeld, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-04 15:26:49 +01:00
parent 18b089d9ab
commit 05edf96d95
12 changed files with 3380 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3128
SDL/Classes/cRKSV.vb
View File

File diff suppressed because it is too large Load Diff

11
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2039,7 +2039,8 @@ Public Class cFakturierung
Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache)
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache, IIf(RECHNUNG.OffertenNr = 95, RECHNUNG.OffertenNr, Nothing), RECHNUNG.Firma_ID)
If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
Dim dtDataSource As New DataTable Dim dtDataSource As New DataTable
@@ -2467,16 +2468,14 @@ Public Class cFakturierung
Dim sumSteuerpflichtig As Double = 0 Dim sumSteuerpflichtig As Double = 0
Dim sumSteuerfrei As Double = 0 Dim sumSteuerfrei As Double = 0
' Dim Anz As Double = 0 'Dim Anz As Double = 0
' Dim gesSumBt As Double = 0 'Dim gesSumBt As Double = 0
' Dim gesAnz As Double = 0 'Dim gesAnz As Double = 0
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) ' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
' rpt.Line10.AnchorBottom = True ' rpt.Line10.AnchorBottom = True
' rpt.Line10.Height = rpt.Detail.Height ' rpt.Line10.Height = rpt.Detail.Height

21
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -800,8 +800,9 @@ Public Class frmFaktEmail
Dim bearbGeb As Double = 0 Dim bearbGeb As Double = 0
Dim hasVZ As Boolean = False Dim hasVZ As Boolean = False
'todo_Prüfung ist zu spät -> früher (vor dem eintragen in die DB)!!!!
For Each pos In USTV_ANTRAG.POSITIONEN For Each pos In USTV_ANTRAG.POSITIONEN
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde! If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) OrElse pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
hasVZ = True hasVZ = True
Exit For Exit For
End If End If
@@ -815,15 +816,15 @@ Public Class frmFaktEmail
'nur bei NICHT VZ! 'nur bei NICHT VZ!
If Not hasVZ Then If Not hasVZ Then
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1) 'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
If Not ANTR_ERSTATTUNG.hasEntry Then 'If Not ANTR_ERSTATTUNG.hasEntry Then
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum ' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr ' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1 ' ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb ' ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb ' ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
ANTR_ERSTATTUNG.SAVE() ' ANTR_ERSTATTUNG.SAVE()
End If 'End If
If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then

23
SDL/Fakturierung/rptRechnungDruck_MDM.vb
View File

@@ -3,6 +3,9 @@ Imports GrapeCity.ActiveReports.Document
Public Class rptRechnungDruck_MDM Public Class rptRechnungDruck_MDM
Public _LAN = "" Public _LAN = ""
Dim _OPTION = ""
Dim _FIRMAID As Integer = -1
Sub New() Sub New()
InitializeComponent() InitializeComponent()
End Sub End Sub
@@ -12,12 +15,24 @@ Public Class rptRechnungDruck_MDM
Me._LAN = _LAN Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Sub New(_LAN, _OPTION, _FIRMAID)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
Me._OPTION = _OPTION
Me._FIRMAID = _FIRMAID
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
End If End If
End Sub End Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.8.3")> <Assembly: AssemblyVersion("1.4.8.4")>
<Assembly: AssemblyFileVersion("1.4.8.3")> <Assembly: AssemblyFileVersion("1.4.8.4")>

124
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

@@ -37,6 +37,9 @@ Partial Class usrCntlBH
Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button14 = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button()
Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label52 = New System.Windows.Forms.Label() Me.Label52 = New System.Windows.Forms.Label()
Me.btnZNBverrechnen = New System.Windows.Forms.Button() Me.btnZNBverrechnen = New System.Windows.Forms.Button()
Me.Label51 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label()
@@ -158,9 +161,7 @@ Partial Class usrCntlBH
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button()
Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btn_fehlendeUID = New System.Windows.Forms.Button()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.GroupBox12.SuspendLayout() Me.GroupBox12.SuspendLayout()
@@ -205,6 +206,7 @@ Partial Class usrCntlBH
'TabPage1 'TabPage1
' '
Me.TabPage1.AutoScroll = True Me.TabPage1.AutoScroll = True
Me.TabPage1.Controls.Add(Me.btn_fehlendeUID)
Me.TabPage1.Controls.Add(Me.lblUID_zupruefen) Me.TabPage1.Controls.Add(Me.lblUID_zupruefen)
Me.TabPage1.Controls.Add(Me.Label53) Me.TabPage1.Controls.Add(Me.Label53)
Me.TabPage1.Controls.Add(Me.GroupBox12) Me.TabPage1.Controls.Add(Me.GroupBox12)
@@ -410,6 +412,59 @@ Partial Class usrCntlBH
Me.GroupBox11.TabIndex = 35 Me.GroupBox11.TabIndex = 35
Me.GroupBox11.TabStop = False Me.GroupBox11.TabStop = False
' '
'btnDel_
'
Me.btnDel_.allowBorder = False
Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel_.FlatAppearance.BorderSize = 0
Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel_.ForeColor = System.Drawing.Color.Black
Me.btnDel_.Location = New System.Drawing.Point(814, 42)
Me.btnDel_.Name = "btnDel_"
Me.btnDel_.Size = New System.Drawing.Size(20, 20)
Me.btnDel_.TabIndex = 74
Me.btnDel_.UseVisualStyleBackColor = True
Me.btnDel_.Visible = False
'
'btnWikiStatusmails
'
Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10)
Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
Me.btnWikiStatusmails.TabIndex = 73
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
'
'txtAbBetragAbrechnen
'
Me.txtAbBetragAbrechnen._DateTimeOnly = False
Me.txtAbBetragAbrechnen._numbersOnly = True
Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = ""
Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True
Me.txtAbBetragAbrechnen._Prozent = False
Me.txtAbBetragAbrechnen._ShortDateNew = False
Me.txtAbBetragAbrechnen._ShortDateOnly = False
Me.txtAbBetragAbrechnen._TimeOnly = False
Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False
Me.txtAbBetragAbrechnen._value = "0"
Me.txtAbBetragAbrechnen._Waehrung = False
Me.txtAbBetragAbrechnen._WaehrungZeichen = False
Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black
Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43)
Me.txtAbBetragAbrechnen.MaxLineLength = -1
Me.txtAbBetragAbrechnen.MaxLines_Warning = ""
Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing
Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen"
Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20)
Me.txtAbBetragAbrechnen.TabIndex = 42
Me.txtAbBetragAbrechnen.Text = "20"
Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label52 'Label52
' '
Me.Label52.AutoSize = True Me.Label52.AutoSize = True
@@ -1999,58 +2054,18 @@ Partial Class usrCntlBH
Me.Button7.Text = "Importieren" Me.Button7.Text = "Importieren"
Me.Button7.UseVisualStyleBackColor = True Me.Button7.UseVisualStyleBackColor = True
' '
'txtAbBetragAbrechnen 'btn_fehlendeUID
' '
Me.txtAbBetragAbrechnen._DateTimeOnly = False Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.txtAbBetragAbrechnen._numbersOnly = True Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = "" Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.txtAbBetragAbrechnen._Prozent = False Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102)
Me.txtAbBetragAbrechnen._ShortDateNew = False Me.btn_fehlendeUID.Name = "btn_fehlendeUID"
Me.txtAbBetragAbrechnen._ShortDateOnly = False Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20)
Me.txtAbBetragAbrechnen._TimeOnly = False Me.btn_fehlendeUID.TabIndex = 35
Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.txtAbBetragAbrechnen._value = "0" Me.btn_fehlendeUID.UseVisualStyleBackColor = True
Me.txtAbBetragAbrechnen._Waehrung = False
Me.txtAbBetragAbrechnen._WaehrungZeichen = False
Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black
Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43)
Me.txtAbBetragAbrechnen.MaxLineLength = -1
Me.txtAbBetragAbrechnen.MaxLines_Warning = ""
Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing
Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen"
Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20)
Me.txtAbBetragAbrechnen.TabIndex = 42
Me.txtAbBetragAbrechnen.Text = "20"
Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'btnWikiStatusmails
'
Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10)
Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
Me.btnWikiStatusmails.TabIndex = 73
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
'
'btnDel_
'
Me.btnDel_.allowBorder = False
Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel_.FlatAppearance.BorderSize = 0
Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel_.ForeColor = System.Drawing.Color.Black
Me.btnDel_.Location = New System.Drawing.Point(814, 42)
Me.btnDel_.Name = "btnDel_"
Me.btnDel_.Size = New System.Drawing.Size(20, 20)
Me.btnDel_.TabIndex = 74
Me.btnDel_.UseVisualStyleBackColor = True
Me.btnDel_.Visible = False
' '
'usrCntlBH 'usrCntlBH
' '
@@ -2239,4 +2254,5 @@ Partial Class usrCntlBH
Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnWikiStatusmails As Button Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btn_fehlendeUID As Button
End Class End Class

32
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1382,29 +1382,31 @@ Public Class usrCntlBH
Private Sub countIDPruefungen() Private Sub countIDPruefungen()
btn_fehlendeUID.Tag = ""
If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then
If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then
Dim SQL_FIRMA As String = "" Dim dt As New DataTable
Select Case cbxFirmaUID._value
Case "AMBAR" : SQL_FIRMA = " And Filialen.FilialenNr IN (5701)"
Case "IMEX" : SQL_FIRMA = " And Filialen.FilialenNr IN (5501)"
Case "ATILLA" : SQL_FIRMA = " And Filialen.FilialenNr IN (4801)"
Case "UNISPED" : SQL_FIRMA = " AND Filialen.firma='UNISPED' "
Case "VERAG" : SQL_FIRMA = " AND Filialen.firma='VERAG' "
Case Else : SQL_FIRMA = ""
End Select
Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2") Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2")
Dim Year As Integer = CInt(txtUID_Jahr.Text) Dim Year As Integer = CInt(txtUID_Jahr.Text)
Dim datum = CDate("15." & Month & "." & Year).AddMonths(-1) Dim datum = CDate("15." & Month & "." & Year).AddMonths(-1)
Dim SQL_UID_zupruefen As String = "Select count(*) From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr where(UstIdGeprüft <= '" & datum & "' OR UstIdGeprüft is null) and (Adressen.UstIdKz is not null And Auswahl='A'" & SQL_FIRMA & ")" dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.get_zupruefendeKunden(-1, datum, cbxFirmaUID._value)
lblUID_zupruefen.Text = "nicht geprüft: " & dt.Rows.Count
If dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "fehlende UID-Prüfungen_" & IIf(cbxFirmaUID._value <> "", cbxFirmaUID._value, "ALLE") & "_" & datum.ToShortDateString)
btn_fehlendeUID.Tag = path
btn_fehlendeUID.Visible = True
Else
btn_fehlendeUID.Visible = False
End If
lblUID_zupruefen.Text = "nicht geprüft: " & SQL.getValueTxtBySql(SQL_UID_zupruefen, "FMZOLL",,, "0")
End If End If
@@ -1427,4 +1429,10 @@ Public Class usrCntlBH
End If End If
End Sub End Sub
Private Sub btn_fehlendeUID_Click(sender As Object, e As EventArgs) Handles btn_fehlendeUID.Click
If sender.tag <> "" Then
Try : Process.Start(sender.tag) : Catch : End Try
End If
End Sub
End Class End Class

30
SDL/cProgramFunctions.vb
View File

@@ -1508,7 +1508,12 @@ Public Class cProgramFunctions
's... SubContainer 's... SubContainer
'c... Control 'c... Control
Dim MEname = reportName 'rpt.Name (geht ned) '"rptRechnungDruck" Dim MEname = reportName 'rpt.Name (geht ned) '"rptRechnungDruck"
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan) 'Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list _
.Where(Function(x) x.trs_object = MEname AndAlso x.trs_sprache = lan) _
.OrderBy(Function(x) If(IsDBNull(x.trs_Option) OrElse x.trs_Option Is Nothing, IIf(_option <> "", 0, 1), IIf(_option <> "", 1, 0))) _
.ThenBy(Function(x) x.trs_Option) _
.ToList()
If TextTmp IsNot Nothing Then If TextTmp IsNot Nothing Then
For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp
@@ -1518,11 +1523,13 @@ Public Class cProgramFunctions
If Not IsDBNull(TXT.trs_FirmaID) AndAlso TXT.trs_FirmaID > 0 Then If Not IsDBNull(TXT.trs_FirmaID) AndAlso TXT.trs_FirmaID > 0 Then
If TXT.trs_FirmaID = _firmenid Then If TXT.trs_FirmaID = _firmenid Then
If IsDBNull(TXT.trs_Option) AndAlso TXT.trs_Option = "" Then If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search found = search
GoTo gefunden
Else Else
If _option = TXT.trs_Option Then If _option = TXT.trs_Option Then
found = search found = search
GoTo gefunden
End If End If
End If End If
@@ -1533,9 +1540,11 @@ Public Class cProgramFunctions
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search found = search
GoTo gefunden
Else Else
If _option = TXT.trs_Option Then If _option = TXT.trs_Option Then
found = search found = search
GoTo gefunden
End If End If
End If End If
@@ -1548,22 +1557,23 @@ Public Class cProgramFunctions
Next Next
' MsgBox(TXT.trs_control) gefunden:
If found IsNot Nothing Then If found IsNot Nothing Then
' MsgBox("JA") ' MsgBox("JA")
Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found
If obj IsNot Nothing Then If obj IsNot Nothing Then
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then
'If DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text
If dict IsNot Nothing Then If dict IsNot Nothing Then
For Each pair In dict For Each pair In dict
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text.ToString.Replace("%" & pair.Key & "%", pair.Value) DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
Next Next
End If End If
End If End If
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text
If dict IsNot Nothing Then If dict IsNot Nothing Then

76
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -1,6 +1,7 @@
 Imports com.sun.tools.javac.util
Imports com.sun.xml.internal.ws.api.pipe
Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports
Imports SDL Imports VERAG_PROG_ALLGEMEIN
Public Class frmNacherfassungLeihgeld Public Class frmNacherfassungLeihgeld
Dim cOptionenDAL As New cOptionenDAL Dim cOptionenDAL As New cOptionenDAL
@@ -30,6 +31,7 @@ Public Class frmNacherfassungLeihgeld
End Sub End Sub
Dim SQL As New SQL Dim SQL As New SQL
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmNacherfassungLeihgeld_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmNacherfassungLeihgeld_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtDatum.Text = Now.ToShortDateString txtDatum.Text = Now.ToShortDateString
@@ -52,7 +54,7 @@ Public Class frmNacherfassungLeihgeld
txtAbfertigungsnummer.Enabled = False txtAbfertigungsnummer.Enabled = False
' txtUnterNr.Enabled = False ' txtUnterNr.Enabled = False
txtAuftraggeber.Enabled = False txtAuftraggeber.Enabled = False
MyTextBoxLKWKz.Enabled = False MyTextBoxLKWKz.Enabled = False
txtFahrer.Enabled = False txtFahrer.Enabled = False
txtPassnummer.Enabled = False txtPassnummer.Enabled = False
@@ -137,7 +139,8 @@ Public Class frmNacherfassungLeihgeld
End If End If
End Sub End Sub
End Sub End Sub
@@ -150,7 +153,7 @@ Public Class frmNacherfassungLeihgeld
txtDatum.Text = BELEG.BelegDat.ToShortDateString txtDatum.Text = BELEG.BelegDat.ToShortDateString
btnNeueAbfertigungNrVergeben.Visible = False btnNeueAbfertigungNrVergeben.Visible = False
MyTextBoxLKWKz.Text = BELEG.LKW_Kennzeichen MyTextBoxLKWKz.Text = BELEG.LKW_Kennzeichen
txtFahrer.Text = BELEG.Fahrer txtFahrer.Text = BELEG.Fahrer
txtPassnummer.Text = BELEG.Passnummer txtPassnummer.Text = BELEG.Passnummer
@@ -321,7 +324,7 @@ Public Class frmNacherfassungLeihgeld
Dim JournalNr = 0 Dim JournalNr = 0
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1) Then If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1,, cbxOP_sofort_buchen.Checked) Then
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
End If End If
@@ -425,19 +428,19 @@ Public Class frmNacherfassungLeihgeld
End If End If
If cbxOP_sofort_buchen.Checked Then 'If cbxOP_sofort_buchen.Checked Then
If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then ' If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
MsgBox("Fehler beim Erzeugen des Buchung in der FIBU") ' MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
End If ' End If
End If 'End If
Me.Close() Me.Close()
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If End If
Catch ex As Exception Catch ex As Exception
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
@@ -797,7 +800,7 @@ Public Class frmNacherfassungLeihgeld
If cboProvisionStaffel.Text.Trim.EndsWith("%") Then If cboProvisionStaffel.Text.Trim.EndsWith("%") Then
txtProvisionProzent._value = getProvFromString(cboProvisionStaffel.Text) / 100 txtProvisionProzent._value = getProvFromString(cboProvisionStaffel.Text) / 100
End If End If
If IsNumeric(txtBarzahlungsbetrag._value) And IsNumeric(txtProvisionProzent._value) Then If IsNumeric(txtBarzahlungsbetrag._value) And IsNumeric(txtProvisionProzent._value) Then
cboProvisionBetrag._value = txtBarzahlungsbetrag._value * txtProvisionProzent._value cboProvisionBetrag._value = txtBarzahlungsbetrag._value * txtProvisionProzent._value
End If End If
End Sub End Sub
@@ -807,18 +810,6 @@ Public Class frmNacherfassungLeihgeld
txtAuftrProvision.Enabled = sender.checked txtAuftrProvision.Enabled = sender.checked
End Sub End Sub
Private Function createSyskaBuchung(personal As cPersonal, beleg As EABeleg, Stapelbuchung As Boolean) As Boolean
If Stapelbuchung Then
Else
End If
End Function
Private Sub cboPrintAktendeckel_CheckedChanged(sender As Object, e As EventArgs) Handles cboPrintAktendeckel.CheckedChanged Private Sub cboPrintAktendeckel_CheckedChanged(sender As Object, e As EventArgs) Handles cboPrintAktendeckel.CheckedChanged
End Sub End Sub
@@ -826,4 +817,35 @@ Public Class frmNacherfassungLeihgeld
Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged
End Sub End Sub
Private Function getSachkonto(pos As EABelegPositionen)
' Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL
' Dim RE As New cRechnungsausgang(pos.RK_ID)
' If RE.RechnungsLandKz Is Nothing OrElse RE.RechnungsLandKz Is DBNull.Value OrElse RE.RechnungsLandKz.trim = "" _
' OrElse RE.RechnungsLandKz = "A" _
' OrElse RE.RechnungsLandKz = "AT" Then
' If CBool(pos.Steuerpflichtig) Then
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' Else
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' Else
' If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & RE.RechnungsLandKz & "'", "FMZOLL", False) Then
' If pos.LeistungsNr Then
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' Else
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' Else
' getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' End If
' If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT!
End Function
End Class End Class

1
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -824,6 +824,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB() Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "FIBU" : conn = GetNewOpenConnectionSYSKA()
End Select End Select
Using cmd As New SqlCommand(sql, conn) Using cmd As New SqlCommand(sql, conn)

2
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
View File

@@ -28,6 +28,7 @@ Public Class cTranslate_LIST
T.trs_text = dr("trs_text") T.trs_text = dr("trs_text")
T.trs_FirmaID = dr("trs_FirmaID") T.trs_FirmaID = dr("trs_FirmaID")
T.trs_Option = dr("trs_Option") T.trs_Option = dr("trs_Option")
T.trs_textDE = dr("trs_textDE")
list.Add(T) list.Add(T)
End While End While
dr.Close() dr.Close()
@@ -49,6 +50,7 @@ Public Class cTranslate
Property trs_subControl As Object = Nothing Property trs_subControl As Object = Nothing
Property trs_sprache As String Property trs_sprache As String
Property trs_text As String Property trs_text As String
Property trs_textDE As String
Property trs_Option As Object = Nothing Property trs_Option As Object = Nothing
Property trs_FirmaID As Object = Nothing Property trs_FirmaID As Object = Nothing

71
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -154,25 +154,27 @@ Public Class cUIDPruefung
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) As DataTable Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) As DataTable
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1) 'If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = "" 'Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)" ' Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)" ' Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)" ' Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' " ' Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)" ' Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
End Select 'End Select
Dim Top = "" 'Dim Top = ""
If MaxEintraege > 0 Then 'If MaxEintraege > 0 Then
Top = " TOP " & MaxEintraege ' Top = " TOP " & MaxEintraege
End If 'End If
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " & 'dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " & ' " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null) " & ' " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " &
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") ' " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
dt = get_zupruefendeKunden(MaxEintraege, datum)
If dt IsNot Nothing Then If dt IsNot Nothing Then
If dt.Rows.Count = 0 Then Return Nothing If dt.Rows.Count = 0 Then Return Nothing
@@ -296,6 +298,41 @@ Public Class cUIDPruefung
Return dt Return dt
End Function End Function
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "") As DataTable
Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = ""
If Firma = "" Then
Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
End If
Select Case Firma
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
End Select
Dim Top = ""
If MaxEintraege > 0 Then
Top = " TOP " & MaxEintraege
End If
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " &
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
Return dt
End Function
Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Art = "") As cUIDPruefung Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Art = "") As cUIDPruefung