Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -1,12 +1,18 @@
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Documents
|
||||
Imports com.sun.org.apache.xml.internal.resolver
|
||||
Imports com.sun.tools.internal.ws.wsdl.framework
|
||||
Imports DocumentFormat.OpenXml.Office2010.Drawing.Charts
|
||||
Imports itextsharp.text.pdf
|
||||
Imports itextsharp.text.pdf.parser
|
||||
Imports java.text.Normalizer
|
||||
Imports jdk.nashorn.internal.objects.annotations
|
||||
'Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports org.BouncyCastle.Pqc.Crypto
|
||||
Imports sun.swing
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmMDM_USTVAntrag
|
||||
@@ -67,7 +73,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If UStVAn_ID <= 0 Then Exit Sub
|
||||
|
||||
.SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter]
|
||||
.SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId]
|
||||
FROM [tblUStVPositionen]
|
||||
left join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
|
||||
where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
|
||||
@@ -138,6 +144,8 @@ Public Class frmMDM_USTVAntrag
|
||||
.Columns("UStVPo_Sachbearbeiter").MinimumWidth = 100
|
||||
.Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("UStVPo_daId").Visible = False
|
||||
|
||||
|
||||
Dim c As New DataGridViewImageColumn
|
||||
c.Name = "clmnPDF" : c.HeaderText = "RE"
|
||||
@@ -152,7 +160,14 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
|
||||
Dim da_id = getDaID(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value)
|
||||
Dim da_id As Integer
|
||||
|
||||
If Not IsDBNull(r.Cells("UStVPo_daId").Value) Then
|
||||
da_id = r.Cells("UStVPo_daId").Value
|
||||
Else
|
||||
da_id = getDaID_OLD(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value)
|
||||
End If
|
||||
|
||||
|
||||
If da_id > 0 Then
|
||||
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
@@ -455,7 +470,7 @@ Public Class frmMDM_USTVAntrag
|
||||
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
End If
|
||||
|
||||
If False Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
|
||||
If USTV_ANTRAG.UStVAn_ReDatVon.year >= 2025 Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
|
||||
If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
|
||||
Dim plose = New ToolStripMenuItem() With {.Text = "Plose NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip2.Items.Add(plose)
|
||||
@@ -536,7 +551,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Shared Function alreadyExists(USTVAn_KuNr As Integer, UStVAn_LandNr As String, USTV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) As Boolean
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim cnt = SQL.getValueTxtBySql(" SELECT count(*) FROM [tblUStVAntrag] inner join [tblUStVPositionen] on tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
|
||||
Dim cnt = SQL.getValueTxtBySql(" Select count(*) FROM [tblUStVAntrag] inner join [tblUStVPositionen] On tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
|
||||
WHERE USTVAn_KuNr='" & USTVAn_KuNr & "' AND UStVPo_SchnittstellenNr='" & USTV_POS.UStVPo_SchnittstellenNr & "' AND UStVPo_ReNr = '" & USTV_POS.UStVPo_ReNr & "' AND UStVPo_ReDat='" & USTV_POS.UStVPo_ReDat & "' AND UStVAn_LandNr='" & UStVAn_LandNr & "'", "FMZOLL")
|
||||
Return (cnt > 0)
|
||||
End Function
|
||||
@@ -565,15 +580,10 @@ Public Class frmMDM_USTVAntrag
|
||||
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, ArchivierteEintracheNochmalsEinarbetien, MWSTSummenAusBeleg)
|
||||
|
||||
|
||||
|
||||
If GET_Antraege IsNot Nothing Then
|
||||
|
||||
'Return True
|
||||
|
||||
|
||||
For Each ANTRAG In GET_Antraege
|
||||
|
||||
Dim sql As New SQL
|
||||
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
|
||||
USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
|
||||
USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
|
||||
@@ -584,6 +594,12 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
If MWSTSummenAusBeleg AndAlso ANTRAG.plose_daId IsNot Nothing Then
|
||||
USTV_POS.UStVPo_daId = ANTRAG.plose_daId
|
||||
Else
|
||||
USTV_POS.UStVPo_daId = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & USTV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & USTV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL")
|
||||
End If
|
||||
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
|
||||
USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
|
||||
@@ -593,6 +609,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
USTV_POS.UStVPo_daId = ANTRAG.plose_daId
|
||||
' Berechnungen
|
||||
If Not MWSTSummenAusBeleg Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR")
|
||||
@@ -602,10 +619,44 @@ Public Class frmMDM_USTVAntrag
|
||||
' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2"))
|
||||
Else
|
||||
'TODO - hier Umrechnungslogik von FRMDW und EUR und EUR/FRMDWR für Belegsebene
|
||||
Dim umrechKurs As Double = 1
|
||||
|
||||
If USTV_ANTRAG.UStVAn_Währungscode = ANTRAG.plose_WaehrungAbbuchung Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung
|
||||
USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
|
||||
USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
|
||||
|
||||
Else
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
Dim UST_EUR = ANTRAG.plose_MWSTBetrag
|
||||
Dim UST_org = ANTRAG.plose_MWSTBetrag
|
||||
|
||||
If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" AndAlso ANTRAG.plose_WaehrungAbbuchung = "EUR" Then
|
||||
|
||||
UST_org = Math.Round(kurs.EXCHANGE_EURTOCUR(UST_EUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
|
||||
ElseIf USTV_ANTRAG.UStVAn_Währungscode = "EUR" AndAlso ANTRAG.plose_WaehrungAbbuchung <> "EUR" Then
|
||||
|
||||
UST_EUR = Math.Round(kurs.EXCHANGE_CURTOEUR(UST_org, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then
|
||||
umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
|
||||
End If
|
||||
|
||||
|
||||
If UST_org > 0 Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = UST_org
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
USTV_POS.INSERT()
|
||||
End If
|
||||
Next
|
||||
@@ -647,15 +698,14 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
|
||||
|
||||
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
Dim sql As New SQL
|
||||
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_daId = sql.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & USTV_POS.UStVPo_ReDat & "' and Rechnungsausgang.RechnungsNr='" & USTV_POS.UStVPo_ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
|
||||
|
||||
Dim dt_Prod As New DataTable
|
||||
Dim GET_Positionen = cTrdProduct.GET_PRODUCTS(dt_Prod, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr)
|
||||
@@ -697,7 +747,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = UST_EUR
|
||||
|
||||
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
|
||||
@@ -741,6 +791,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum")
|
||||
USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
USTV_POS.UStVPo_daId = r.Item("rmc_daId")
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
@@ -806,6 +857,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReDat = r.Item("invoice_date")
|
||||
USTV_POS.UStVPo_ReNr = r.Item("invoice_number") & " - " & kdNr & IIf(Antrag_LandKz = "BE", "/Belgium", "")
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
USTV_POS.UStVPo_daId = r.Item("daId")
|
||||
|
||||
If Not alreadyExistsMitLeistungsBez(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
@@ -871,6 +923,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReDat = r.Item("Rechnungsdatum")
|
||||
USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer").ToString
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
USTV_POS.UStVPo_daId = r.Item("daId")
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
@@ -928,7 +981,7 @@ Public Class frmMDM_USTVAntrag
|
||||
If GET_Antraege Then
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
Dim sql As New SQL
|
||||
Dim kdnr = r.Item("Kundennummer")
|
||||
|
||||
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
|
||||
@@ -938,6 +991,8 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer").ToString
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
|
||||
USTV_POS.UStVPo_daId = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & USTV_POS.UStVPo_ReDat & "' AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & USTV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL")
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
@@ -1432,45 +1487,105 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim schnnittstellenNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value
|
||||
Dim ReNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value
|
||||
Dim ReDat = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value
|
||||
Dim dsID
|
||||
|
||||
Dim dsID = getDaID(schnnittstellenNr, ReDat, ReNr)
|
||||
If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso IsNumeric(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value > 0 Then
|
||||
dsID = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value
|
||||
Else
|
||||
dsID = getDaID_OLD(schnnittstellenNr, ReDat, ReNr)
|
||||
|
||||
End If
|
||||
|
||||
Select Case schnnittstellenNr
|
||||
Case 1
|
||||
|
||||
If dsID > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 3)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
Case 8
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
||||
|
||||
'If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) Then
|
||||
' ds.OPEN_SINGLE()
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
Dim path_src As String = ds.OPEN_SINGLE(False)
|
||||
If path_src = "" Then Exit Sub
|
||||
|
||||
Try
|
||||
|
||||
Dim fi As New System.IO.DirectoryInfo(path_src)
|
||||
Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(path_src)
|
||||
|
||||
Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension,, True, "IDS-Rechnungen")
|
||||
Dim srcDoc As New itextsharp.text.Document()
|
||||
Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TMP_Path_New, System.IO.FileMode.Create))
|
||||
PdfCopyProvider.SetFullCompression()
|
||||
srcDoc.Open()
|
||||
PdfReader.unethicalreading = True
|
||||
Dim pages As New List(Of Integer)()
|
||||
|
||||
For page As Integer = 1 To pdfReader.NumberOfPages
|
||||
|
||||
Dim strategy As ITextExtractionStrategy = New SimpleTextExtractionStrategy()
|
||||
Dim currentpagetext As String = PdfTextExtractor.GetTextFromPage(pdfReader, page, strategy)
|
||||
Dim searchtext As String = ReNr
|
||||
Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
|
||||
|
||||
If (currentpagetext.Contains(searchtext)) Then
|
||||
|
||||
If page > pdfReader.NumberOfPages Then
|
||||
MsgBox("Seitenanzahl überschritten!")
|
||||
srcDoc.Close() : pdfReader.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
|
||||
impPage = PdfCopyProvider.GetImportedPage(pdfReader, page)
|
||||
' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
|
||||
PdfCopyProvider.SetPageSize(New itextsharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, pdfReader.GetPageRotation(page)))
|
||||
' ----- PDF Seite in das neue Dokument einfügen
|
||||
If impPage IsNot Nothing Then PdfCopyProvider.AddPage(impPage)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
srcDoc.Close()
|
||||
pdfReader.Close()
|
||||
|
||||
If IO.File.Exists(TMP_Path_New) Then
|
||||
Process.Start(TMP_Path_New)
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Case Else
|
||||
If dsID > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function getDaID(SchnittstellenNr, reDat, reNr)
|
||||
|
||||
Private Function getDaID_OLD(SchnittstellenNr, reDat, reNr)
|
||||
Dim da_id = -1
|
||||
|
||||
Select Case If(SchnittstellenNr, -1)
|
||||
@@ -1496,7 +1611,12 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.Rows
|
||||
|
||||
Dim da_id = getDaID(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value)
|
||||
Dim da_id
|
||||
If Not IsDBNull(r.Cells("UStVPo_daId").Value) Then
|
||||
da_id = r.Cells("UStVPo_daId").Value
|
||||
Else
|
||||
da_id = getDaID_OLD(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value)
|
||||
End If
|
||||
If da_id > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
Next
|
||||
|
||||
|
||||
Reference in New Issue
Block a user