BH, nacherfassung leihgeld, etc.

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -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,19 +428,19 @@ Public Class frmNacherfassungLeihgeld
                 End If
 
 
-                If cbxOP_sofort_buchen.Checked Then
+                'If cbxOP_sofort_buchen.Checked Then
 
-                    If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
-                        MsgBox("Fehler beim Erzeugen des Buchung in der FIBU")
-                    End If
+                '    If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
+                '        MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
+                '    End If
 
-                End If
+                'End If
 
 
                 Me.Close()
-                    Me.DialogResult = Windows.Forms.DialogResult.OK
-                    Me.Cursor = Cursors.Default
-                End If
+                Me.DialogResult = Windows.Forms.DialogResult.OK
+                Me.Cursor = Cursors.Default
+            End If
 
         Catch ex As Exception
             Me.Cursor = Cursors.Default
@@ -797,7 +800,7 @@ 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
@@ -807,18 +810,6 @@ Public Class frmNacherfassungLeihgeld
         txtAuftrProvision.Enabled = sender.checked
     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
 
     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
 
     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