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

Compare commits

base: edv:e057d69624fc945af468046cc43c8c2ef5e52d5d
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
...
compare: edv:05edf96d955707e8137b70c852d47b172cf035ba
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

2 Commits
e057d69624 ... 05edf96d95

Author SHA1 Message Date
d.breimaier
05edf96d95 BH, nacherfassung leihgeld, etc. 2025-11-04 15:26:49 +01:00
d.breimaier
18b089d9ab Beleg, cFakt. 2025-10-31 14:35:06 +01:00
14 changed files with 3581 additions and 275 deletions
Expand all files Collapse all files

3128
SDL/Classes/cRKSV.vb
View File

File diff suppressed because it is too large Load Diff

19
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
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
Dim dtDataSource As New DataTable
@@ -2228,6 +2229,11 @@ Public Class cFakturierung
'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
If RECHNUNG.Firma_ID = 4 Then
rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht
@@ -2306,7 +2312,8 @@ Public Class cFakturierung
If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then
rpt.lblHandlingATA.Visible = False
End If
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
@@ -2461,16 +2468,14 @@ Public Class cFakturierung
Dim sumSteuerpflichtig As Double = 0
Dim sumSteuerfrei As Double = 0
' Dim Anz As Double = 0
' Dim gesSumBt As Double = 0
' Dim gesAnz As Double = 0
'Dim Anz As Double = 0
'Dim gesSumBt As Double = 0
'Dim gesAnz As Double = 0
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
' rpt.Line10.AnchorBottom = True
' 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 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
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
Exit For
End If
@@ -815,15 +816,15 @@ Public Class frmFaktEmail
'nur bei NICHT VZ!
If Not hasVZ Then
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
If Not ANTR_ERSTATTUNG.hasEntry Then
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
ANTR_ERSTATTUNG.SAVE()
End If
'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
'If Not ANTR_ERSTATTUNG.hasEntry Then
' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
' ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
' ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
' ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
' ANTR_ERSTATTUNG.SAVE()
'End If
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 _LAN = ""
Dim _OPTION = ""
Dim _FIRMAID As Integer = -1
Sub New()
InitializeComponent()
End Sub
@@ -12,12 +15,24 @@ Public Class rptRechnungDruck_MDM
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
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
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.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", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
End If
End Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.8.3")>
<Assembly: AssemblyFileVersion("1.4.8.3")>
<Assembly: AssemblyVersion("1.4.8.4")>
<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.Button14 = New System.Windows.Forms.Button()
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.btnZNBverrechnen = New System.Windows.Forms.Button()
Me.Label51 = New System.Windows.Forms.Label()
@@ -158,9 +161,7 @@ Partial Class usrCntlBH
Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button()
Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btn_fehlendeUID = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox12.SuspendLayout()
@@ -205,6 +206,7 @@ Partial Class usrCntlBH
'TabPage1
'
Me.TabPage1.AutoScroll = True
Me.TabPage1.Controls.Add(Me.btn_fehlendeUID)
Me.TabPage1.Controls.Add(Me.lblUID_zupruefen)
Me.TabPage1.Controls.Add(Me.Label53)
Me.TabPage1.Controls.Add(Me.GroupBox12)
@@ -410,6 +412,59 @@ Partial Class usrCntlBH
Me.GroupBox11.TabIndex = 35
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
'
Me.Label52.AutoSize = True
@@ -1999,58 +2054,18 @@ Partial Class usrCntlBH
Me.Button7.Text = "Importieren"
Me.Button7.UseVisualStyleBackColor = True
'
'txtAbBetragAbrechnen
'btn_fehlendeUID
'
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
'
'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
Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102)
Me.btn_fehlendeUID.Name = "btn_fehlendeUID"
Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20)
Me.btn_fehlendeUID.TabIndex = 35
Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btn_fehlendeUID.UseVisualStyleBackColor = True
'
'usrCntlBH
'
@@ -2239,4 +2254,5 @@ Partial Class usrCntlBH
Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btn_fehlendeUID As Button
End Class

32
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1382,29 +1382,31 @@ Public Class usrCntlBH
Private Sub countIDPruefungen()
btn_fehlendeUID.Tag = ""
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
Dim SQL_FIRMA As String = ""
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 dt As New DataTable
Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2")
Dim Year As Integer = CInt(txtUID_Jahr.Text)
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
@@ -1427,4 +1429,10 @@ Public Class usrCntlBH
End If
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

30
SDL/cProgramFunctions.vb
View File

@@ -1508,7 +1508,12 @@ Public Class cProgramFunctions
's... SubContainer
'c... Control
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
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 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
GoTo gefunden
Else
If _option = TXT.trs_Option Then
found = search
GoTo gefunden
End If
End If
@@ -1533,9 +1540,11 @@ Public Class cProgramFunctions
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search
GoTo gefunden
Else
If _option = TXT.trs_Option Then
found = search
GoTo gefunden
End If
End If
@@ -1548,22 +1557,23 @@ Public Class cProgramFunctions
Next
' MsgBox(TXT.trs_control)
gefunden:
If found IsNot Nothing Then
' MsgBox("JA")
Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found
If obj IsNot Nothing 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
If dict IsNot Nothing Then
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)
Next
End If
If dict IsNot Nothing Then
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)
Next
End If
End If
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
End If
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text
If dict IsNot Nothing Then

11
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1,12 +1,7 @@
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Imports System.Drawing.Printing
Imports System.Globalization
Imports com.sun.org.apache.xpath.internal.operations
Imports com.sun.xml.internal.ws.api.model
Imports DAKOSY_Worker.DEXPRD
Imports Microsoft.Win32
Imports SDL.RKSVServer
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmBelegNeu
Implements System.ComponentModel.INotifyPropertyChanged
@@ -1050,7 +1045,7 @@ Public Class frmBelegNeu
End Sub
Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnEinnahmeBeleg.Click
If BELEG.POS.Count > 0 Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
Exit Sub
End If
End If
@@ -1063,7 +1058,7 @@ Public Class frmBelegNeu
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAusgabebeleg.Click
If BELEG.POS.Count > 0 Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
Exit Sub
End If
End If

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

@@ -24,8 +24,11 @@ Partial Class frmNacherfassungLeihgeld
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
@@ -46,16 +49,16 @@ Partial Class frmNacherfassungLeihgeld
Me.Label11 = New System.Windows.Forms.Label()
Me.cbxProvisionAuftraggeber = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label44 = New System.Windows.Forms.Label()
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAuftrProvision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label44 = New System.Windows.Forms.Label()
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.kdFrachtführer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.ksFrachtführerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -64,10 +67,8 @@ Partial Class frmNacherfassungLeihgeld
Me.txtBarzahlungsbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBoxLKWKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -91,6 +92,33 @@ Partial Class frmNacherfassungLeihgeld
Me.pnl.Size = New System.Drawing.Size(441, 94)
Me.pnl.TabIndex = 0
'
'txtDatum
'
Me.txtDatum._DateTimeOnly = False
Me.txtDatum._numbersOnly = False
Me.txtDatum._numbersOnlyKommastellen = ""
Me.txtDatum._numbersOnlyTrennzeichen = True
Me.txtDatum._Prozent = False
Me.txtDatum._ShortDateNew = False
Me.txtDatum._ShortDateOnly = False
Me.txtDatum._TimeOnly = False
Me.txtDatum._TimeOnly_Seconds = False
Me.txtDatum._value = "01.01.2017"
Me.txtDatum._Waehrung = False
Me.txtDatum._WaehrungZeichen = True
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtDatum.ForeColor = System.Drawing.Color.Black
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
Me.txtDatum.MaxLength = 25
Me.txtDatum.MaxLineLength = -1
Me.txtDatum.MaxLines_Warning = ""
Me.txtDatum.MaxLines_Warning_Label = Nothing
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.ReadOnly = True
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
Me.txtDatum.TabIndex = 4
Me.txtDatum.Text = "01.01.2017"
'
'btnNeueAbfertigungNrVergeben
'
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
@@ -111,6 +139,44 @@ Partial Class frmNacherfassungLeihgeld
Me.Label2.TabIndex = 3
Me.Label2.Text = "Abfertigungsnummer"
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
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.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
Me.txtAbfertigungsnummer.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 280
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.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
@@ -324,87 +390,17 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel1.Size = New System.Drawing.Size(441, 122)
Me.Panel1.TabIndex = 20
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(213, 467)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.Location = New System.Drawing.Point(288, 140)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(127, 13)
Me.Label44.TabIndex = 211
Me.Label44.Text = "Offene Posten - Leihgeld:"
Me.Label44.Visible = False
'
'txtOpLeihgeld
'
Me.txtOpLeihgeld._DateTimeOnly = False
Me.txtOpLeihgeld._numbersOnly = False
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
Me.txtOpLeihgeld._Prozent = False
Me.txtOpLeihgeld._ShortDateNew = False
Me.txtOpLeihgeld._ShortDateOnly = False
Me.txtOpLeihgeld._TimeOnly = False
Me.txtOpLeihgeld._value = Nothing
Me.txtOpLeihgeld._Waehrung = False
Me.txtOpLeihgeld._WaehrungZeichen = True
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
Me.txtOpLeihgeld.MaxLineLength = -1
Me.txtOpLeihgeld.MaxLines_Warning = ""
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
Me.txtOpLeihgeld.ReadOnly = True
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
Me.txtOpLeihgeld.TabIndex = 212
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtOpLeihgeld.Visible = False
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
Me.cboPrinter.TabIndex = 1
'
'cboPrinterProvisionBeleg
'
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
Me.cboPrinterProvisionBeleg._allowFreiText = False
Me.cboPrinterProvisionBeleg._value = ""
Me.cboPrinterProvisionBeleg.Enabled = False
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
Me.cboPrinterProvisionBeleg.TabIndex = 3
'
'txtAuftrProvision
'
Me.txtAuftrProvision._DateTimeOnly = False
Me.txtAuftrProvision._numbersOnly = False
Me.txtAuftrProvision._numbersOnlyKommastellen = ""
Me.txtAuftrProvision._numbersOnlyTrennzeichen = True
Me.txtAuftrProvision._Prozent = True
Me.txtAuftrProvision._ShortDateNew = False
Me.txtAuftrProvision._ShortDateOnly = False
Me.txtAuftrProvision._TimeOnly = False
Me.txtAuftrProvision._TimeOnly_Seconds = False
Me.txtAuftrProvision._value = Nothing
Me.txtAuftrProvision._Waehrung = False
Me.txtAuftrProvision._WaehrungZeichen = True
@@ -423,10 +419,12 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionBetrag._DateTimeOnly = False
Me.cboProvisionBetrag._numbersOnly = False
Me.cboProvisionBetrag._numbersOnlyKommastellen = ""
Me.cboProvisionBetrag._numbersOnlyTrennzeichen = True
Me.cboProvisionBetrag._Prozent = False
Me.cboProvisionBetrag._ShortDateNew = False
Me.cboProvisionBetrag._ShortDateOnly = False
Me.cboProvisionBetrag._TimeOnly = False
Me.cboProvisionBetrag._TimeOnly_Seconds = False
Me.cboProvisionBetrag._value = Nothing
Me.cboProvisionBetrag._Waehrung = True
Me.cboProvisionBetrag._WaehrungZeichen = True
@@ -457,10 +455,12 @@ Partial Class frmNacherfassungLeihgeld
Me.txtProvisionProzent._DateTimeOnly = False
Me.txtProvisionProzent._numbersOnly = False
Me.txtProvisionProzent._numbersOnlyKommastellen = ""
Me.txtProvisionProzent._numbersOnlyTrennzeichen = True
Me.txtProvisionProzent._Prozent = True
Me.txtProvisionProzent._ShortDateNew = False
Me.txtProvisionProzent._ShortDateOnly = False
Me.txtProvisionProzent._TimeOnly = False
Me.txtProvisionProzent._TimeOnly_Seconds = False
Me.txtProvisionProzent._value = Nothing
Me.txtProvisionProzent._Waehrung = False
Me.txtProvisionProzent._WaehrungZeichen = True
@@ -486,15 +486,91 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
Me.cboProvisionStaffelArt.TabIndex = 3
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(213, 467)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
Me.cboPrinter.TabIndex = 1
'
'cboPrinterProvisionBeleg
'
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
Me.cboPrinterProvisionBeleg._allowFreiText = False
Me.cboPrinterProvisionBeleg._value = ""
Me.cboPrinterProvisionBeleg.Enabled = False
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
Me.cboPrinterProvisionBeleg.TabIndex = 3
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.Location = New System.Drawing.Point(288, 140)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(127, 13)
Me.Label44.TabIndex = 211
Me.Label44.Text = "Offene Posten - Leihgeld:"
Me.Label44.Visible = False
'
'txtOpLeihgeld
'
Me.txtOpLeihgeld._DateTimeOnly = False
Me.txtOpLeihgeld._numbersOnly = False
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True
Me.txtOpLeihgeld._Prozent = False
Me.txtOpLeihgeld._ShortDateNew = False
Me.txtOpLeihgeld._ShortDateOnly = False
Me.txtOpLeihgeld._TimeOnly = False
Me.txtOpLeihgeld._TimeOnly_Seconds = False
Me.txtOpLeihgeld._value = Nothing
Me.txtOpLeihgeld._Waehrung = False
Me.txtOpLeihgeld._WaehrungZeichen = True
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
Me.txtOpLeihgeld.MaxLineLength = -1
Me.txtOpLeihgeld.MaxLines_Warning = ""
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
Me.txtOpLeihgeld.ReadOnly = True
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
Me.txtOpLeihgeld.TabIndex = 212
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtOpLeihgeld.Visible = False
'
'txtKdAuftragsnummer
'
Me.txtKdAuftragsnummer._DateTimeOnly = False
Me.txtKdAuftragsnummer._numbersOnly = False
Me.txtKdAuftragsnummer._numbersOnlyKommastellen = ""
Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True
Me.txtKdAuftragsnummer._Prozent = False
Me.txtKdAuftragsnummer._ShortDateNew = False
Me.txtKdAuftragsnummer._ShortDateOnly = False
Me.txtKdAuftragsnummer._TimeOnly = False
Me.txtKdAuftragsnummer._TimeOnly_Seconds = False
Me.txtKdAuftragsnummer._value = Nothing
Me.txtKdAuftragsnummer._Waehrung = False
Me.txtKdAuftragsnummer._WaehrungZeichen = True
@@ -519,6 +595,7 @@ Partial Class frmNacherfassungLeihgeld
Me.kdFrachtführer._displayWoelflKd = False
Me.kdFrachtführer._hideIfListEmpty = True
Me.kdFrachtführer._loadKdData = False
Me.kdFrachtführer._searchName1 = True
Me.kdFrachtführer._UseFIRMA = ""
Me.kdFrachtführer._ValueKdAndName = False
Me.kdFrachtführer.dgvpos = "LEFT"
@@ -534,6 +611,7 @@ Partial Class frmNacherfassungLeihgeld
Me.kdFrachtführer.searchActive = True
Me.kdFrachtführer.Size = New System.Drawing.Size(265, 23)
Me.kdFrachtführer.TabIndex = 2
Me.kdFrachtführer.TIMER_SEARCH = True
Me.kdFrachtführer.usrcntl = Nothing
'
'ksFrachtführerKdNr
@@ -541,10 +619,12 @@ Partial Class frmNacherfassungLeihgeld
Me.ksFrachtführerKdNr._DateTimeOnly = False
Me.ksFrachtführerKdNr._numbersOnly = False
Me.ksFrachtführerKdNr._numbersOnlyKommastellen = ""
Me.ksFrachtführerKdNr._numbersOnlyTrennzeichen = True
Me.ksFrachtführerKdNr._Prozent = False
Me.ksFrachtführerKdNr._ShortDateNew = False
Me.ksFrachtführerKdNr._ShortDateOnly = False
Me.ksFrachtführerKdNr._TimeOnly = False
Me.ksFrachtführerKdNr._TimeOnly_Seconds = False
Me.ksFrachtführerKdNr._value = Nothing
Me.ksFrachtführerKdNr._Waehrung = False
Me.ksFrachtführerKdNr._WaehrungZeichen = True
@@ -563,10 +643,12 @@ Partial Class frmNacherfassungLeihgeld
Me.txtPassnummer._DateTimeOnly = False
Me.txtPassnummer._numbersOnly = False
Me.txtPassnummer._numbersOnlyKommastellen = ""
Me.txtPassnummer._numbersOnlyTrennzeichen = True
Me.txtPassnummer._Prozent = False
Me.txtPassnummer._ShortDateNew = False
Me.txtPassnummer._ShortDateOnly = False
Me.txtPassnummer._TimeOnly = False
Me.txtPassnummer._TimeOnly_Seconds = False
Me.txtPassnummer._value = Nothing
Me.txtPassnummer._Waehrung = False
Me.txtPassnummer._WaehrungZeichen = True
@@ -591,6 +673,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeber._displayWoelflKd = False
Me.txtAuftraggeber._hideIfListEmpty = True
Me.txtAuftraggeber._loadKdData = True
Me.txtAuftraggeber._searchName1 = True
Me.txtAuftraggeber._UseFIRMA = ""
Me.txtAuftraggeber._ValueKdAndName = False
Me.txtAuftraggeber.dgvpos = "LEFT"
@@ -607,6 +690,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeber.searchActive = True
Me.txtAuftraggeber.Size = New System.Drawing.Size(265, 23)
Me.txtAuftraggeber.TabIndex = 12
Me.txtAuftraggeber.TIMER_SEARCH = True
Me.txtAuftraggeber.usrcntl = Nothing
'
'txtBarzahlungsbetrag
@@ -614,10 +698,12 @@ Partial Class frmNacherfassungLeihgeld
Me.txtBarzahlungsbetrag._DateTimeOnly = False
Me.txtBarzahlungsbetrag._numbersOnly = False
Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = ""
Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True
Me.txtBarzahlungsbetrag._Prozent = False
Me.txtBarzahlungsbetrag._ShortDateNew = False
Me.txtBarzahlungsbetrag._ShortDateOnly = False
Me.txtBarzahlungsbetrag._TimeOnly = False
Me.txtBarzahlungsbetrag._TimeOnly_Seconds = False
Me.txtBarzahlungsbetrag._value = Nothing
Me.txtBarzahlungsbetrag._Waehrung = True
Me.txtBarzahlungsbetrag._WaehrungZeichen = True
@@ -635,10 +721,12 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeberKdNr._DateTimeOnly = False
Me.txtAuftraggeberKdNr._numbersOnly = False
Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = ""
Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True
Me.txtAuftraggeberKdNr._Prozent = False
Me.txtAuftraggeberKdNr._ShortDateNew = False
Me.txtAuftraggeberKdNr._ShortDateOnly = False
Me.txtAuftraggeberKdNr._TimeOnly = False
Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False
Me.txtAuftraggeberKdNr._value = Nothing
Me.txtAuftraggeberKdNr._Waehrung = False
Me.txtAuftraggeberKdNr._WaehrungZeichen = True
@@ -657,10 +745,12 @@ Partial Class frmNacherfassungLeihgeld
Me.MyTextBoxLKWKz._DateTimeOnly = False
Me.MyTextBoxLKWKz._numbersOnly = False
Me.MyTextBoxLKWKz._numbersOnlyKommastellen = ""
Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True
Me.MyTextBoxLKWKz._Prozent = False
Me.MyTextBoxLKWKz._ShortDateNew = False
Me.MyTextBoxLKWKz._ShortDateOnly = False
Me.MyTextBoxLKWKz._TimeOnly = False
Me.MyTextBoxLKWKz._TimeOnly_Seconds = False
Me.MyTextBoxLKWKz._value = Nothing
Me.MyTextBoxLKWKz._Waehrung = False
Me.MyTextBoxLKWKz._WaehrungZeichen = True
@@ -674,76 +764,17 @@ Partial Class frmNacherfassungLeihgeld
Me.MyTextBoxLKWKz.Size = New System.Drawing.Size(265, 20)
Me.MyTextBoxLKWKz.TabIndex = 5
'
'txtDatum
'
Me.txtDatum._DateTimeOnly = False
Me.txtDatum._numbersOnly = False
Me.txtDatum._numbersOnlyKommastellen = ""
Me.txtDatum._Prozent = False
Me.txtDatum._ShortDateNew = False
Me.txtDatum._ShortDateOnly = False
Me.txtDatum._TimeOnly = False
Me.txtDatum._value = "01.01.2017"
Me.txtDatum._Waehrung = False
Me.txtDatum._WaehrungZeichen = True
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtDatum.ForeColor = System.Drawing.Color.Black
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
Me.txtDatum.MaxLength = 25
Me.txtDatum.MaxLineLength = -1
Me.txtDatum.MaxLines_Warning = ""
Me.txtDatum.MaxLines_Warning_Label = Nothing
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.ReadOnly = True
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
Me.txtDatum.TabIndex = 4
Me.txtDatum.Text = "01.01.2017"
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
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.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
Me.txtAbfertigungsnummer.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 280
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.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
'
'txtFahrer
'
Me.txtFahrer._DateTimeOnly = False
Me.txtFahrer._numbersOnly = False
Me.txtFahrer._numbersOnlyKommastellen = ""
Me.txtFahrer._numbersOnlyTrennzeichen = True
Me.txtFahrer._Prozent = False
Me.txtFahrer._ShortDateNew = False
Me.txtFahrer._ShortDateOnly = False
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._TimeOnly_Seconds = False
Me.txtFahrer._value = Nothing
Me.txtFahrer._Waehrung = False
Me.txtFahrer._WaehrungZeichen = True
@@ -757,12 +788,25 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer.Size = New System.Drawing.Size(265, 20)
Me.txtFahrer.TabIndex = 8
'
'cbxOP_sofort_buchen
'
Me.cbxOP_sofort_buchen.AutoSize = True
Me.cbxOP_sofort_buchen.Checked = True
Me.cbxOP_sofort_buchen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(117, 17)
Me.cbxOP_sofort_buchen.TabIndex = 213
Me.cbxOP_sofort_buchen.Text = "OP sofort erzeugen"
Me.cbxOP_sofort_buchen.UseVisualStyleBackColor = True
'
'frmNacherfassungLeihgeld
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(441, 526)
Me.Controls.Add(Me.cbxOP_sofort_buchen)
Me.Controls.Add(Me.txtOpLeihgeld)
Me.Controls.Add(Me.Label44)
Me.Controls.Add(Me.Label11)
@@ -848,4 +892,5 @@ Partial Class frmNacherfassungLeihgeld
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents txtOpLeihgeld As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label44 As Label
Public WithEvents cbxOP_sofort_buchen As CheckBox
End Class

63
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 SDL
Imports VERAG_PROG_ALLGEMEIN
Public Class frmNacherfassungLeihgeld
Dim cOptionenDAL As New cOptionenDAL
@@ -30,6 +31,7 @@ Public Class frmNacherfassungLeihgeld
End Sub
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
txtDatum.Text = Now.ToShortDateString
@@ -52,7 +54,7 @@ Public Class frmNacherfassungLeihgeld
txtAbfertigungsnummer.Enabled = False
' txtUnterNr.Enabled = False
txtAuftraggeber.Enabled = False
txtAuftraggeber.Enabled = False
MyTextBoxLKWKz.Enabled = False
txtFahrer.Enabled = False
txtPassnummer.Enabled = False
@@ -137,7 +139,8 @@ Public Class frmNacherfassungLeihgeld
End If
End Sub
End Sub
@@ -150,7 +153,7 @@ Public Class frmNacherfassungLeihgeld
txtDatum.Text = BELEG.BelegDat.ToShortDateString
btnNeueAbfertigungNrVergeben.Visible = False
MyTextBoxLKWKz.Text = BELEG.LKW_Kennzeichen
txtFahrer.Text = BELEG.Fahrer
txtPassnummer.Text = BELEG.Passnummer
@@ -321,7 +324,7 @@ Public Class frmNacherfassungLeihgeld
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
End If
@@ -425,6 +428,15 @@ Public Class frmNacherfassungLeihgeld
End If
'If cbxOP_sofort_buchen.Checked Then
' If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
' MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
' End If
'End If
Me.Close()
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Cursor = Cursors.Default
@@ -497,7 +509,7 @@ Public Class frmNacherfassungLeihgeld
's f.Visible = False
f.defaultPrinter = cboPrinterProvisionBeleg.Text
f.warnClose = False
AddHandler f.Shown, Sub()
If f.AddLeihgeld(True, BELEG_Prov, BELEG_Prov_POS) Then
@@ -514,6 +526,8 @@ Public Class frmNacherfassungLeihgeld
' f.Close()
End Function
Sub printLGAktendeckel(art, Optional barbetrag = Nothing, Optional BelegNrProvision = Nothing)
Try
Dim imgpath = ""
@@ -786,11 +800,11 @@ Public Class frmNacherfassungLeihgeld
If cboProvisionStaffel.Text.Trim.EndsWith("%") Then
txtProvisionProzent._value = getProvFromString(cboProvisionStaffel.Text) / 100
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
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProvisionAuftraggeber.CheckedChanged
txtAuftrProvision.Enabled = sender.checked
@@ -803,4 +817,35 @@ Public Class frmNacherfassungLeihgeld
Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged
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

1
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -824,6 +824,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "FIBU" : conn = GetNewOpenConnectionSYSKA()
End Select
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_FirmaID = dr("trs_FirmaID")
T.trs_Option = dr("trs_Option")
T.trs_textDE = dr("trs_textDE")
list.Add(T)
End While
dr.Close()
@@ -49,6 +50,7 @@ Public Class cTranslate
Property trs_subControl As Object = Nothing
Property trs_sprache As String
Property trs_text As String
Property trs_textDE As String
Property trs_Option 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
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 = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.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
'Dim where = ""
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.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 (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null) " &
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
'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")
dt = get_zupruefendeKunden(MaxEintraege, datum)
If dt IsNot Nothing Then
If dt.Rows.Count = 0 Then Return Nothing
@@ -296,6 +298,41 @@ Public Class cUIDPruefung
Return dt
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