MDM Datenverarbeitung, TrdInvoice, USTVA
This commit is contained in:
@@ -447,8 +447,7 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim dt_RE As New DataTable
|
||||
Dim GET_Rechnungen = cTrdInvoice.GET_RECHNUNGEN(dt_RE, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
|
||||
|
||||
Return False
|
||||
|
||||
Dim verarbeitet As Boolean = True
|
||||
If GET_Rechnungen Then
|
||||
|
||||
For Each r As DataRow In dt_RE.Rows
|
||||
@@ -461,82 +460,75 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer")
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
|
||||
Dim dt_Prod As New DataTable
|
||||
Dim GET_Positionen = cTrdProduct.GET_PRODUCTS(dt_Prod, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr)
|
||||
|
||||
If GET_Positionen Then
|
||||
For Each pos As DataRow In dt_RE.Rows
|
||||
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
|
||||
USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH; 4975 Suben"
|
||||
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
|
||||
' USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung
|
||||
|
||||
Dim dt_Prod As New DataTable
|
||||
Dim GET_Positionen = cTrdProduct.GET_PRODUCTS(dt_Prod, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr)
|
||||
|
||||
If GET_Positionen Then
|
||||
For Each pos As DataRow In dt_Prod.Rows
|
||||
|
||||
Select Case pos.Item("Leistungsnummer")
|
||||
Case 135 To 139, 141, 654, 655, 658 To 668, 670 To 678
|
||||
|
||||
|
||||
' Select Case pos.Item("Leistungsnummer")
|
||||
' Case 135 To 139, 141, 654, 655, 658 To 668, 670 To 678
|
||||
If USTV_POS.UStVPo_Leistungsbezeichnung Is Nothing Then
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = pos.Item("Leistungsbezeichnung")
|
||||
Else
|
||||
Dim result As String = Microsoft.VisualBasic.Strings.Left(pos.Item("Leistungsbezeichnung") & vbCrLf & USTV_POS.UStVPo_Leistungsbezeichnung, 255)
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = result
|
||||
End If
|
||||
Case Else
|
||||
' Sonstige Kosten
|
||||
If USTV_POS.UStVPo_Leistungsbezeichnung Is Nothing Then
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = pos.Item("Leistungsbezeichnung")
|
||||
Else
|
||||
Dim result As String = Microsoft.VisualBasic.Strings.Left(USTV_POS.UStVPo_Leistungsbezeichnung & vbCrLf & pos.Item("Leistungsbezeichnung"), 255)
|
||||
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = result
|
||||
End If
|
||||
End Select
|
||||
|
||||
|
||||
' If USTV_POS.UStVPo_Leistungsbezeichnung Is Nothing Then
|
||||
' USTV_POS.UStVPo_Leistungsbezeichnung = pos.Item("Leistungsbezeichnung")
|
||||
' Else
|
||||
' USTV_POS.UStVPo_Leistungsbezeichnung = Left(rstRP!Leistungsbezeichnung & vbCrLf & !UStVPo_Leistungsbezeichnung, 255)
|
||||
' End If
|
||||
'Case Else
|
||||
'' Sonstige Kosten
|
||||
'If IsNull(!UStVPo_Leistungsbezeichnung) Then
|
||||
' !UStVPo_Leistungsbezeichnung = rstRP!Leistungsbezeichnung
|
||||
'Else
|
||||
' !UStVPo_Leistungsbezeichnung = Left(!UStVPo_Leistungsbezeichnung & vbCrLf & rstRP!Leistungsbezeichnung, 255)
|
||||
'End If
|
||||
'End Select
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
'7410 Do Until rstRP.EOF
|
||||
'7420 Select Case rstRP!Leistungsnummer
|
||||
' Case 135 To 139, 141, 654, 655, 658 To 668, 670 To 678
|
||||
' ' Maut und Diesel
|
||||
'7430 If IsNull(!UStVPo_Leistungsbezeichnung) Then
|
||||
'7440 !UStVPo_Leistungsbezeichnung = rstRP!Leistungsbezeichnung
|
||||
'7450 Else
|
||||
'7460 !UStVPo_Leistungsbezeichnung = Left(rstRP!Leistungsbezeichnung & vbCrLf & !UStVPo_Leistungsbezeichnung, 255)
|
||||
'7470 End If
|
||||
'7480 Case Else
|
||||
' ' Sonstige Kosten
|
||||
'7490 If IsNull(!UStVPo_Leistungsbezeichnung) Then
|
||||
'7500 !UStVPo_Leistungsbezeichnung = rstRP!Leistungsbezeichnung
|
||||
'7510 Else
|
||||
'7520 !UStVPo_Leistungsbezeichnung = Left(!UStVPo_Leistungsbezeichnung & vbCrLf & rstRP! , 255)
|
||||
'7530 End If
|
||||
'7540 End Select
|
||||
'7550 rstRP.MoveNext
|
||||
'7560 Loop
|
||||
'7570 rstRP.Close
|
||||
'7580 Set rstRP = Nothing
|
||||
'7590 qryRP.Close
|
||||
'7600 Set qryRP = Nothing
|
||||
' ' Berechnungen
|
||||
'7610 !UStVPo_USteuerbetragEUR = rstRK!SteuerbetragLokal
|
||||
'7620 !UStVPo_Umrechnungskurs = fktEurokurs(Forms!frmUStVAntragserfassung![UStVAn_Währungscode], ![UStVPo_ReDat])
|
||||
'7630 !UStVPo_USteuerbetrag = Int(![UStVPo_USteuerbetragEUR] * !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
|
||||
'Berechnungen
|
||||
Dim umrechKurs As Double = 1
|
||||
Dim UST_EUR = CDbl(r.Item("SteuerbetragLokal"))
|
||||
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR 'Math.Round((UST_org / umrechKurs), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = UST_EUR
|
||||
|
||||
|
||||
USTV_POS.INSERT()
|
||||
Dim sql As New SQL
|
||||
If USTV_POS.INSERT() Then
|
||||
verarbeitet = sql.doSQL("Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & USTV_POS.UStVPo_ReDat & "' And tblTrdinInvoice.Rechnungsnummer = " & USTV_POS.UStVPo_ReNr, "FMZOLL")
|
||||
If Not verarbeitet Then
|
||||
MsgBox("Fehler beim Setzen der UStVAn_ID")
|
||||
Return verarbeitet
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
'Einträge als archivert setzen ' vormals wichtig
|
||||
MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID)
|
||||
Return verarbeitet
|
||||
|
||||
|
||||
End If
|
||||
Return True
|
||||
@@ -997,7 +989,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Case 1 'VERAG 360 GmbH; 4975 Suben
|
||||
'UStV-Antragsnummer im Buchungssatz löschen.
|
||||
sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & " And tblTrdinInvoice.Rechnungsnummer = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr
|
||||
sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And tblTrdinInvoice.Rechnungsnummer = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr
|
||||
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
|
||||
|
||||
Case 2 ' UStV-Antragsnummer im IDSDieseldatenArchiv löschen 'IDS alte Schnittstelle - OK
|
||||
|
||||
Reference in New Issue
Block a user