Fakt. Druckroutine, Ustva
This commit is contained in:
@@ -2,6 +2,7 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Documents
|
||||
Imports com.sun.tools.corba.se.idl.constExpr
|
||||
Imports itextsharp.text.pdf
|
||||
Imports itextsharp.text.pdf.parser
|
||||
Imports Microsoft.Office.Interop
|
||||
@@ -315,39 +316,39 @@ Public Class frmMDM_USTVAntrag
|
||||
If txtEingereichtAm.Text = "" Then USTV_ANTRAG.UStVAn_AntragEingereichtAm = Nothing
|
||||
|
||||
If ADR IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
|
||||
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
|
||||
USTV_ANTRAG.UStVAn_Straße = ADR.Straße
|
||||
USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
|
||||
USTV_ANTRAG.UStVAn_Ort = ADR.Ort
|
||||
USTV_ANTRAG.UStVAn_Steuernummer = ADR.Steuernummer
|
||||
End If
|
||||
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
|
||||
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
|
||||
USTV_ANTRAG.UStVAn_Straße = ADR.Straße
|
||||
USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
|
||||
USTV_ANTRAG.UStVAn_Ort = ADR.Ort
|
||||
USTV_ANTRAG.UStVAn_Steuernummer = ADR.Steuernummer
|
||||
End If
|
||||
|
||||
|
||||
If FIRMA IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_Kontoinhaber = FIRMA.Firma_Bez & "; " & FIRMA.Firma_Straße & ";" & FIRMA.Firma_Ort
|
||||
USTV_ANTRAG.UStVAn_Bankverbindung = FIRMA.Firma_Bankverbindung1
|
||||
USTV_ANTRAG.UStVAn_BLZ = FIRMA.Firma_BLZ1
|
||||
USTV_ANTRAG.UStVAn_KTO = FIRMA.Firma_KTO1
|
||||
If FIRMA IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_Kontoinhaber = FIRMA.Firma_Bez & "; " & FIRMA.Firma_Straße & ";" & FIRMA.Firma_Ort
|
||||
USTV_ANTRAG.UStVAn_Bankverbindung = FIRMA.Firma_Bankverbindung1
|
||||
USTV_ANTRAG.UStVAn_BLZ = FIRMA.Firma_BLZ1
|
||||
USTV_ANTRAG.UStVAn_KTO = FIRMA.Firma_KTO1
|
||||
|
||||
'fallback laut FM-ZOLL
|
||||
If USTV_ANTRAG.UStVAn_Kontoinhaber Is Nothing Then USTV_ANTRAG.UStVAn_Kontoinhaber = "VERAG 360 GmbH; 4975 Suben"
|
||||
If USTV_ANTRAG.UStVAn_Bankverbindung Is Nothing Then USTV_ANTRAG.UStVAn_Bankverbindung = "Raiba Suben"
|
||||
If USTV_ANTRAG.UStVAn_KTO Is Nothing Then USTV_ANTRAG.UStVAn_KTO = "4210225"
|
||||
If USTV_ANTRAG.UStVAn_BLZ Is Nothing Then USTV_ANTRAG.UStVAn_BLZ = "34620"
|
||||
If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer"
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport"
|
||||
If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben"
|
||||
'fallback laut FM-ZOLL
|
||||
If USTV_ANTRAG.UStVAn_Kontoinhaber Is Nothing Then USTV_ANTRAG.UStVAn_Kontoinhaber = "VERAG 360 GmbH; 4975 Suben"
|
||||
If USTV_ANTRAG.UStVAn_Bankverbindung Is Nothing Then USTV_ANTRAG.UStVAn_Bankverbindung = "Raiba Suben"
|
||||
If USTV_ANTRAG.UStVAn_KTO Is Nothing Then USTV_ANTRAG.UStVAn_KTO = "4210225"
|
||||
If USTV_ANTRAG.UStVAn_BLZ Is Nothing Then USTV_ANTRAG.UStVAn_BLZ = "34620"
|
||||
If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer"
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport"
|
||||
If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben"
|
||||
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False
|
||||
If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Function Me_Validate() As Boolean
|
||||
If Not IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
|
||||
@@ -743,8 +744,14 @@ Public Class frmMDM_USTVAntrag
|
||||
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")
|
||||
If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
|
||||
USTV_POS.UStVPo_daId = 0
|
||||
Dim rkID = sql.getValueTxtBySql("SELECT TOP(1) isnull(RK_ID,0) 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")
|
||||
If rkID <> "" AndAlso IsNumeric(rkID) Then USTV_POS.UStVPo_daId = rkID
|
||||
If USTV_POS.UStVPo_daId > 0 Then
|
||||
USTV_POS.UStVPo_daId_loeschbar = False
|
||||
Else
|
||||
USTV_POS.UStVPo_daId_loeschbar = True
|
||||
End If
|
||||
|
||||
|
||||
Dim dt_Prod As New DataTable
|
||||
@@ -1694,15 +1701,15 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
|
||||
|
||||
Dim pdf As String = ""
|
||||
Dim pdf As String = ""
|
||||
pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1))
|
||||
|
||||
If pdf <> "" Then list.Add(pdf)
|
||||
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
If list.Count > 1 Then
|
||||
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
|
||||
@@ -1760,7 +1767,7 @@ Public Class frmMDM_USTVAntrag
|
||||
If dsID < 0 Then Return ""
|
||||
|
||||
'Anschrift Nummerierung:
|
||||
Dim x = 200
|
||||
Dim x = 100
|
||||
Dim y = 10
|
||||
Dim width = 300
|
||||
Dim height = 10
|
||||
|
||||
Reference in New Issue
Block a user