321 lines
14 KiB
VB.net
321 lines
14 KiB
VB.net
Public Class frmMDM_USTVAntrag
|
|
|
|
Dim UStVAn_ID As Integer
|
|
Dim Antrag_LandKz As String = ""
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
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_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_USteuerbetrag],[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"
|
|
.Columns("UStVPo_ID").Width = 40
|
|
|
|
|
|
|
|
.Columns("UStVPo_ReDat").HeaderText = "Rg-Datum"
|
|
.Columns("UStVPo_ReDat").Width = 80
|
|
|
|
.Columns("UStVPo_ReNr").HeaderText = "Rechnungs-Nr"
|
|
.Columns("UStVPo_ReNr").Width = 180
|
|
|
|
.Columns("UStVPo_USteuerbetrag").HeaderText = "USt-Betrag"
|
|
.Columns("UStVPo_USteuerbetrag").Width = 110
|
|
.Columns("UStVPo_USteuerbetrag").DefaultCellStyle.Format = "N2"
|
|
.Columns("UStVPo_USteuerbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
|
|
|
.Columns("UStVPo_Leistungsbezeichnung").HeaderText = "Leistungsbezeichnung"
|
|
.Columns("UStVPo_Leistungsbezeichnung").Width = 200
|
|
|
|
|
|
.Columns("UStVPo_Leistender").HeaderText = "Leistender"
|
|
.Columns("UStVPo_Leistender").Width = 220
|
|
|
|
|
|
.Columns("UStVPo_Schnittstelle").HeaderText = "API"
|
|
.Columns("UStVPo_Schnittstelle").Width = 30
|
|
|
|
.Columns("UStVPo_SchnittstellenNr").HeaderText = "API-Nr"
|
|
.Columns("UStVPo_SchnittstellenNr").Width = 40
|
|
|
|
|
|
.Columns("UStVPo_Umrechnungskurs").HeaderText = "Umrechnungskurs"
|
|
.Columns("UStVPo_Umrechnungskurs").Width = 60
|
|
.Columns("UStVPo_Umrechnungskurs").DefaultCellStyle.Format = "N2"
|
|
.Columns("UStVPo_Umrechnungskurs").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
|
.Columns("UStVPo_USteuerbetragEUR").HeaderText = "USt-Betrag EUR"
|
|
.Columns("UStVPo_USteuerbetragEUR").Width = 110
|
|
.Columns("UStVPo_USteuerbetragEUR").DefaultCellStyle.Format = "N2"
|
|
.Columns("UStVPo_USteuerbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
|
.Columns("UStVPo_Sachbearbeiter").HeaderText = "Sachbearbeiter"
|
|
.Columns("UStVPo_Sachbearbeiter").MinimumWidth = 150
|
|
.Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
End If
|
|
|
|
End With
|
|
|
|
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
|
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
|
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
|
|
|
|
|
|
|
|
lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
|
lblLand.Text = Antrag_LandKz
|
|
lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
|
|
|
|
|
|
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, Antrag_LandKz, 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
|
|
' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2"))
|
|
|
|
|
|
USTV_POS.INSERT()
|
|
Next
|
|
|
|
' NOCH NICHT''''' 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 |