MDM, UTA
This commit is contained in:
@@ -320,6 +320,12 @@ Public Class frmMDM_USTVAntrag
|
||||
ContextMenuStrip2.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip2.Items.ContainsKey("verag") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "VERAG", .Name = "verag", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
ContextMenuStrip2.Items.Add(ids)
|
||||
End If
|
||||
|
||||
ContextMenuStrip2.Show(Cursor.Position)
|
||||
|
||||
|
||||
@@ -348,9 +354,15 @@ Public Class frmMDM_USTVAntrag
|
||||
ElseIf item.Name = "ids" Then
|
||||
loadUSTVFrom_IDS(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
|
||||
init()
|
||||
|
||||
ElseIf item.Name = "verag" Then
|
||||
loadUSTVFrom_VERAG(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
|
||||
init()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -428,6 +440,112 @@ Public Class frmMDM_USTVAntrag
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function loadUSTVFrom_VERAG(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
|
||||
Try
|
||||
Dim bytSchnittstellenNr = 1
|
||||
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
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
|
||||
|
||||
If GET_Rechnungen Then
|
||||
|
||||
For Each r As DataRow In dt_RE.Rows
|
||||
|
||||
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 = r.Item("Rechnungsdatum")
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
|
||||
' 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
|
||||
' 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
|
||||
|
||||
|
||||
'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
|
||||
|
||||
|
||||
|
||||
USTV_POS.INSERT()
|
||||
End If
|
||||
Next
|
||||
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)
|
||||
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function loadUSTVFrom_RMC(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
|
||||
Try
|
||||
Dim bytSchnittstellenNr = 7
|
||||
|
||||
Reference in New Issue
Block a user