neu

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -0,0 +1,264 @@
+Public Class frmMDM_USTVAntrag
+
+    Dim UStVAn_ID As Integer
+
+    Sub New(UStVAn_ID)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.UStVAn_ID = UStVAn_ID
+
+    End Sub
+
+    Sub init()
+        pnlFilter.AutoScroll = False
+
+        With dgvUSTVPositionen
+            .ClearSelection()
+
+            If UStVAn_ID <= 0 Then Exit Sub
+
+            .SET_SQL("SELECT  [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_USteuerbetrag],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter] 
+                      FROM [tblUStVPositionen]
+                      where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
+            .LOAD()
+            .RowTemplate.Height = 20
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeRows = False
+
+            If .Columns.Count > 0 Then
+
+                .Columns("UStVAn_ID").Visible = False
+                .Columns("UStVPo_ID").HeaderText = "Pos"
+            End If
+
+        End With
+
+
+        Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
+        Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, False)
+
+        If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
+            lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
+        Else
+            lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
+        End If
+
+
+    End Sub
+
+    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        lblPLOSE_EintrageVerarbetiet.Text = ""
+        init()
+
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        loadUSTVFrom_PLOSE()
+
+        init()
+    End Sub
+
+
+    Function loadUSTVFrom_PLOSE() As Boolean
+        Try
+            Dim bytSchnittstellenNr = 6 'glaube noch frei?
+            Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
+            Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
+
+            If GET_Antraege IsNot Nothing Then
+
+                For Each ANTRAG In GET_Antraege
+                    Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
+                    USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
+                    USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
+                    USTV_POS.UStVPo_ReDat = ANTRAG.plose_RechnungsDatum
+                    USTV_POS.UStVPo_ReNr = ANTRAG.plose_RechnungsNr.ToString
+                    USTV_POS.UStVPo_Schnittstelle = True
+                    USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
+                    USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
+                    USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
+                    USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                    USTV_POS.UStVPo_Zeitstempel = Now()
+                    ' Berechnungen
+                    USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR")
+                    'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum)
+                    USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetragWaehrungAbbuchung / ANTRAG.plose_MWSTBetrag
+                    USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
+                    USTV_POS.INSERT()
+                Next
+
+                MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
+
+            End If
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+    '    Private Sub cmdITMautÜbernehmen_Click()
+
+    '        Dim wrk As DAO.Workspace
+    '        Dim qry1 As DAO.QueryDef
+    '        Dim qry2 As DAO.QueryDef
+    '        Dim rst1 As DAO.Recordset
+    '        Dim rstUStVPositionen As DAO.Recordset
+    '        Dim bytSchnittstellenNr As Byte
+    '        Dim fInTransaktion As Boolean
+    '        Dim intUStVPo_ID As Integer
+
+    '1380     On Error GoTo PROC_Error
+
+    '1390     If Eingabefehler Then Exit Sub
+    '1400     If Me!UStVAn_LandNr <> 5 Then
+    '1410         MsgBox "Datenübernahme nicht möglich (Land ist nicht Italien).", vbInformation, "Eingabeprüfung"
+    '1420         Exit Sub
+    '1430     End If
+
+    '         ' Wenn Daten in Formular geändert wurden, Speichern auslösen.
+    '1440     If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
+    '1450     DoCmd.Hourglass True
+
+    '         ' Italienisches Mautarchiv lesen.
+    '1460     Set wrk = DBEngine.Workspaces(0)
+    '1470     Set qry1 = dbs.QueryDefs("qryUStVMautITLesen")
+    '1480     qry1.Parameters("[Param1]") = Me![UStVAn_ReDatVon]
+    '1490     qry1.Parameters("[Param2]") = Me![UStVAn_ReDatBis]
+    '1500     qry1.Parameters("[Param3]") = Me![UStVAn_KuNr]
+    '1510     Set rst1 = qry1.OpenRecordset(dbOpenSnapshot)
+    '1520     If Not rst1.EOF Then
+    '1530         bytSchnittstellenNr = 3
+    '1540         intUStVPo_ID = UStVPo_ID_zuordnen(Me![UStVAn_ID])
+    '1550         Set rstUStVPositionen = dbs.OpenRecordset("tblUStVPositionen", dbOpenDynaset, dbAppendOnly)
+    '1560         wrk.BeginTrans
+    '1570         fInTransaktion = True
+    '1580         Do Until rst1.EOF
+    '1590             If RechnungÜbernehmen(rst1!RechnungsDatum, CStr(rst1!Rechnungsnummer), bytSchnittstellenNr, Me!UStVAn_KuNr, Me!UStVAn_LandNr) Then
+    '1600                 intUStVPo_ID = intUStVPo_ID + 1
+    '                     ' Schreiben der Umsatzsteuerdaten in die Tabelle.
+    '1610                 With rstUStVPositionen
+    '1620                     .AddNew
+    '1630                     !UStVAn_ID = Me![UStVAn_ID]
+    '1640                     !UStVPo_ID = intUStVPo_ID
+    '1650                     !UStVPo_ReDat = rst1!RechnungsDatum
+    '1660                     !UStVPo_ReNr = CStr(rst1!Rechnungsnummer)
+    '1670                     !UStVPo_Schnittstelle = True
+    '1680                     !UStVPo_SchnittstellenNr = bytSchnittstellenNr
+    '1690                     !UStVPo_Leistungsbezeichnung = "Maut"
+    '1700                     !UStVPo_Leistender = "Telepass"
+    '1710                     !UStVPo_Sachbearbeiter = CurrentUser()
+    '1720                     !UStVPo_Zeitstempel = Now()
+    '                         ' Berechnungen
+    '1730                     !UStVPo_USteuerbetragEUR = rst1!MWStBetrag
+    '1740                     !UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat])
+    '1750                     !UStVPo_USteuerbetrag = Int(![UStVPo_USteuerbetragEUR] * !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
+    '1760                     .Update
+    '1770                 End With
+    '                     ' UStV-Antragsnummer im Archiv eintragen.
+    '1780                 Set qry2 = dbs.QueryDefs("qryUStVMautITAntragsNrEintragen")
+    '1790                 qry2.Parameters("[prmUStVAn_ID]") = Me![UStVAn_ID]
+    '1800                 qry2.Parameters("[prmVerrechnungsdatum]") = rst1!RechnungsDatum
+    '1810                 qry2.Parameters("[prmCode_Adressat_des_Kontoauszugs]") = rst1!Rechnungsnummer
+    '1820                 qry2.Execute dbFailOnError
+    '1830                 qry2.Close
+    '1840                 Set qry2 = Nothing
+    '1850             End If
+    '1860             rst1.MoveNext
+    '1870         Loop
+    '1880         wrk.CommitTrans
+    '1890         fInTransaktion = False
+    '1900         Me!tblUStVPositionen.Requery
+    '1910     End If
+
+    'PROC_Exit:
+    '1920     On Error Resume Next
+    '1930     If Not rstUStVPositionen Is Nothing Then
+    '1940         rstUStVPositionen.Close
+    '1950         Set rstUStVPositionen = Nothing
+    '1960     End If
+    '1970     If Not rst1 Is Nothing Then
+    '1980         rst1.Close
+    '1990         Set rst1 = Nothing
+    '2000     End If
+    '2010     If Not qry2 Is Nothing Then
+    '2020         qry2.Close
+    '2030         Set qry2 = Nothing
+    '2040     End If
+    '2050     If Not qry1 Is Nothing Then
+    '2060         qry1.Close
+    '2070         Set qry1 = Nothing
+    '2080     End If
+    '2090     If Not wrk Is Nothing Then
+    '2100         Set wrk = Nothing
+    '2110     End If
+    '2120     DoCmd.Hourglass False
+    '2130     Exit Sub
+
+    'PROC_Error:
+    '2140     If fInTransaktion Then
+    '2150         wrk.Rollback
+    '2160         fInTransaktion = False
+    '2170     End If
+    '2180     DoCmd.Hourglass False
+    '2190     ErrNotify Err, "Form_frmUStVAntragserfassung", "cmdITMautÜbernehmen_Click", eNormalError
+    '2200     Resume PROC_Exit
+
+    '     End Sub
+
+
+
+
+    '    Private Function RechnungÜbernehmen(
+    '          ByRef varUStVPo_ReDat As Variant,
+    '          ByRef varUStVPo_ReNr As Variant,
+    '          ByRef varUStVPo_SchnittstellenNr As Variant,
+    '          ByRef varUStVAn_KuNr,
+    '          ByRef varUStVAn_LandNr) As Boolean
+
+    '        Dim fResult As Boolean
+    '        Dim qry As DAO.QueryDef
+    '        Dim rst As DAO.Recordset
+
+    '12000     On Error GoTo PROC_Error
+
+    '12010     Set qry = dbs.QueryDefs("qryUStVRechnungÜbernehmen")
+    '12020     qry.Parameters("[prmUStVPo_ReDat]") = varUStVPo_ReDat
+    '12030     qry.Parameters("[prmUStVPo_ReNr]") = varUStVPo_ReNr
+    '12040     qry.Parameters("[prmUStVPo_SchnittstellenNr]") = varUStVPo_SchnittstellenNr
+    '12050     qry.Parameters("[prmUStVAn_KuNr]") = varUStVAn_KuNr
+    '12060     qry.Parameters("[prmUStVAn_LandNr]") = varUStVAn_LandNr
+    '12070     Set rst = qry.OpenRecordset(dbOpenSnapshot)
+    '12080     If rst.EOF Then fResult = True Else fResult = False
+
+    'PROC_Exit:
+    '12090     On Error Resume Next
+    '12100     If Not rst Is Nothing Then
+    '12110         rst.Close
+    '12120         Set rst = Nothing
+    '12130     End If
+    '12140     If Not qry Is Nothing Then
+    '12150         qry.Close
+    '12160         Set qry = Nothing
+    '12170     End If
+    '12180     RechnungÜbernehmen = fResult
+    '12190     Exit Function
+
+    'PROC_Error:
+    '12200     Select Case ErrHandler(Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen")
+    '              Case 0
+    '12210             Resume
+    '12220         Case 1
+    '12230             ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eNormalError
+    '12240         Case 2
+    '12250             ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eHiddenError
+    '12260     End Select
+    '12270     fResult = False
+    '12280     Resume PROC_Exit
+
+    '      End Function
+
+
+End Class