Mahnlauf, FaktAbrechnung, Fremdrechnungen, MDM-Functions
This commit is contained in:
@@ -565,14 +565,18 @@ Public Class usrCntlFaktAbrechnung
|
||||
cboRechnungSprache.changeItem(0)
|
||||
|
||||
cboRgArt.Items.Clear()
|
||||
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
|
||||
Else
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
|
||||
End If
|
||||
cboRgArt.changeItem(0)
|
||||
|
||||
If FirmaTmp = "VERAG360" Then
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
|
||||
Else
|
||||
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
|
||||
Else
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
|
||||
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
|
||||
End If
|
||||
cboRgArt.changeItem(0)
|
||||
End If
|
||||
|
||||
'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
|
||||
cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.5.1.3")>
|
||||
<Assembly: AssemblyFileVersion("1.5.1.3")>
|
||||
<Assembly: AssemblyVersion("1.5.1.4")>
|
||||
<Assembly: AssemblyFileVersion("1.5.1.4")>
|
||||
|
||||
@@ -2287,7 +2287,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel,,, True)
|
||||
filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW_(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True,,,, openExcel)
|
||||
Return True
|
||||
Else
|
||||
If feedback Then MsgBox("keine Daten vorhanden!")
|
||||
|
||||
60
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
60
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
@@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lblBetreuer = New System.Windows.Forms.Label()
|
||||
Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox()
|
||||
@@ -62,8 +64,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblBetreuer = New System.Windows.Forms.Label()
|
||||
Me.cbxNewDGV = New System.Windows.Forms.CheckBox()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -73,6 +74,7 @@ Partial Class frmBU_Mahnlauf
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.cbxNewDGV)
|
||||
Me.Panel1.Controls.Add(Me.lblBetreuer)
|
||||
Me.Panel1.Controls.Add(Me.cboBetreuer)
|
||||
Me.Panel1.Controls.Add(Me.cbxKontotyp)
|
||||
@@ -95,6 +97,28 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Panel1.Size = New System.Drawing.Size(1514, 132)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'lblBetreuer
|
||||
'
|
||||
Me.lblBetreuer.AutoSize = True
|
||||
Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
|
||||
Me.lblBetreuer.Name = "lblBetreuer"
|
||||
Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
|
||||
Me.lblBetreuer.TabIndex = 50
|
||||
Me.lblBetreuer.Text = "Betreuer:"
|
||||
Me.lblBetreuer.Visible = False
|
||||
'
|
||||
'cboBetreuer
|
||||
'
|
||||
Me.cboBetreuer._allowedValuesFreiText = Nothing
|
||||
Me.cboBetreuer._allowFreiText = False
|
||||
Me.cboBetreuer._value = ""
|
||||
Me.cboBetreuer.FormattingEnabled = True
|
||||
Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
|
||||
Me.cboBetreuer.Name = "cboBetreuer"
|
||||
Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
|
||||
Me.cboBetreuer.TabIndex = 49
|
||||
Me.cboBetreuer.Visible = False
|
||||
'
|
||||
'cbxKontotyp
|
||||
'
|
||||
Me.cbxKontotyp._allowedValuesFreiText = Nothing
|
||||
@@ -602,27 +626,18 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.MyTextBox2.TabIndex = 39
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'cboBetreuer
|
||||
'cbxNewDGV
|
||||
'
|
||||
Me.cboBetreuer._allowedValuesFreiText = Nothing
|
||||
Me.cboBetreuer._allowFreiText = False
|
||||
Me.cboBetreuer._value = ""
|
||||
Me.cboBetreuer.FormattingEnabled = True
|
||||
Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
|
||||
Me.cboBetreuer.Name = "cboBetreuer"
|
||||
Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
|
||||
Me.cboBetreuer.TabIndex = 49
|
||||
Me.cboBetreuer.Visible = False
|
||||
'
|
||||
'lblBetreuer
|
||||
'
|
||||
Me.lblBetreuer.AutoSize = True
|
||||
Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
|
||||
Me.lblBetreuer.Name = "lblBetreuer"
|
||||
Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
|
||||
Me.lblBetreuer.TabIndex = 50
|
||||
Me.lblBetreuer.Text = "Betreuer:"
|
||||
Me.lblBetreuer.Visible = False
|
||||
Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cbxNewDGV.AutoSize = True
|
||||
Me.cbxNewDGV.Checked = True
|
||||
Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54)
|
||||
Me.cbxNewDGV.Name = "cbxNewDGV"
|
||||
Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17)
|
||||
Me.cbxNewDGV.TabIndex = 51
|
||||
Me.cbxNewDGV.Text = "neue Ansicht"
|
||||
Me.cbxNewDGV.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmBU_Mahnlauf
|
||||
'
|
||||
@@ -689,4 +704,5 @@ Partial Class frmBU_Mahnlauf
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents lblBetreuer As Label
|
||||
Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbxNewDGV As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -8,10 +8,10 @@ Public Class frmBU_Mahnlauf
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim listOfTextconserven As cTextkonserve_LIST
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
initDGV(cbxZahlungseingaenge.Checked)
|
||||
initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
|
||||
End Sub
|
||||
|
||||
Sub initDGV(Optional zahlungseingaenge As Boolean = False)
|
||||
Sub initDGV(Optional zahlungseingaenge As Boolean = False, Optional newDGV As Boolean = False)
|
||||
With MyDatagridview1
|
||||
.Columns.Clear()
|
||||
|
||||
@@ -45,6 +45,57 @@ Public Class frmBU_Mahnlauf
|
||||
" & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
|
||||
ORDER BY KTO.c_name"
|
||||
|
||||
Dim sqlStr_New = "WITH EmailCTE AS (
|
||||
SELECT
|
||||
kkd_KundenNr," & IIf(Firma_ID = 7, "MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung
|
||||
FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt]
|
||||
WHERE kkd_kkaId IN (" & IIf(Firma_ID = 7, "10, 18", "10") & ")
|
||||
GROUP BY kkd_KundenNr
|
||||
)
|
||||
SELECT
|
||||
OP.i_personenkonto AS Konto,
|
||||
KTO.c_name,
|
||||
KTO.c_landid AS Land,
|
||||
KTO.c_plz + ' ' + KTO.c_ort AS Ort,
|
||||
COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, '') AS Email,
|
||||
ISNULL(K.VK, '') AS VK,
|
||||
KTO.c_zahlziel AS Zahlungsziel,
|
||||
COUNT(*) AS Anzahl,
|
||||
SUM(OP.eur_bruttobetrag + OP.eur_zahlung) AS Ausstand,
|
||||
MIN(OP.d_netto) AS Faelligkeit,
|
||||
MAX(OP.si_mahnstufe) AS Mahnstufe,
|
||||
CAST(MAX(OP.d_mahnung) AS date) AS Mahndatum," &
|
||||
If(cbxNurFaellig.Checked, "", "SUM(CASE WHEN OP.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig,") & "
|
||||
CAST(ISNULL(si_mahnung,0) AS bit) AS mahnbar
|
||||
FROM op_debitor OP
|
||||
JOIN fibu_konto KTO
|
||||
ON OP.i_personenkonto = KTO.i_konto
|
||||
AND OP.i_firm_refid = KTO.i_firm_refid
|
||||
LEFT JOIN EmailCTE E ON E.kkd_KundenNr = OP.i_personenkonto
|
||||
LEFT JOIN (
|
||||
SELECT KundenNr, Vorkasse AS VK
|
||||
FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden
|
||||
) K
|
||||
ON K.KundenNr = OP.i_personenkonto
|
||||
WHERE OP.i_firm_refid = '" & Firma_ID & "'
|
||||
AND OP.dt_geloescht IS NULL" & If(cbxNurFaellig.Checked, " AND OP.d_netto <= GETDATE() AND ISNULL(si_mahnflags,0) <> 1 ", "") & "
|
||||
" & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
|
||||
" & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
|
||||
GROUP BY
|
||||
OP.i_personenkonto,
|
||||
KTO.c_name,
|
||||
KTO.c_landid,
|
||||
KTO.c_plz,
|
||||
KTO.c_ort,
|
||||
KTO.c_zahlziel,
|
||||
ISNULL(si_mahnung,0),
|
||||
COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, ''),
|
||||
ISNULL(K.VK,'')
|
||||
HAVING SUM(OP.eur_bruttobetrag + OP.eur_zahlung) > '" & MyTextBox1._value & "'
|
||||
ORDER BY KTO.c_name;"
|
||||
|
||||
|
||||
|
||||
Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */ " &
|
||||
"sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min(d_rechnung)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V,
|
||||
|
||||
@@ -94,7 +145,7 @@ Public Class frmBU_Mahnlauf
|
||||
|
||||
|
||||
'MsgBox(sqlStr)
|
||||
Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), sqlStr), "FIBU")
|
||||
Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), IIf(newDGV, sqlStr_New, sqlStr)), "FIBU")
|
||||
|
||||
.DataSource = dt_OP
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
@@ -1524,12 +1575,14 @@ Public Class frmBU_Mahnlauf
|
||||
cbxZahlungseingaenge.Visible = True
|
||||
cboBetreuer.Visible = True
|
||||
lblBetreuer.Visible = True
|
||||
cbxNewDGV.Visible = False
|
||||
|
||||
Else
|
||||
cbxZahlungseingaenge.Visible = False
|
||||
cbxZahlungseingaenge.Checked = False
|
||||
cboBetreuer.Visible = False
|
||||
lblBetreuer.Visible = False
|
||||
cbxNewDGV.Visible = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
@@ -1541,7 +1594,7 @@ Public Class frmBU_Mahnlauf
|
||||
If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then
|
||||
MsgBox("Fehler beim aktualisieren der OPs aus Syska!")
|
||||
Else
|
||||
initDGV(cbxZahlungseingaenge.Checked)
|
||||
initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : genSummenbericht_PLOSE()
|
||||
Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE()
|
||||
Case "ASFINAG" : genSummenbericht_ASFINAG()
|
||||
Case "UTA" : genSummenbericht_UTA()
|
||||
Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked)
|
||||
@@ -303,6 +303,100 @@ Public Class frmMDMDatenverarbetiung
|
||||
print.Show()
|
||||
End Sub
|
||||
|
||||
Sub genSummenbericht_nachLand_PLOSE()
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
sqlstr = "SELECT
|
||||
COUNT(*) AS Anzahl,
|
||||
[plInv_SupplierCountry],
|
||||
SUM([plInv_Nettobetrag]) AS plose_Nettobetrag,
|
||||
SUM([plInv_MWSTBetrag]) AS plose_MWSTBetrag,
|
||||
SUM([plInv_Bruttobetrag]) AS plose_Bruttobetrag,
|
||||
isnull([plInv_Currency],'EUR') AS Währung
|
||||
FROM [tblPLOSE_Inv_Data]
|
||||
WHERE [plInv_SupplierRechnungsDatum] >= (
|
||||
SELECT MIN(plose_RechnungsDatum)
|
||||
FROM tblPLOSE_Details
|
||||
WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
|
||||
AND plose_Fakturiert = 0
|
||||
AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ")
|
||||
)
|
||||
GROUP BY
|
||||
[plInv_SupplierCountry],
|
||||
[plInv_Currency]
|
||||
ORDER BY
|
||||
[plInv_SupplierCountry]"
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'DataGridView.DataSource = dt
|
||||
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "PLOSE"
|
||||
|
||||
Dim rpt As New rptPLOSE_TransaktionenSumary
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
|
||||
'If cbxProdukt.Checked Then
|
||||
' rpt.GroupHeader2.DataField = "prod_descr"
|
||||
'Else
|
||||
' rpt.GroupHeader2.Visible = False
|
||||
' rpt.GroupFooter2.Visible = False
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Dim sum = 0
|
||||
rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
|
||||
|
||||
Dim sumPreis As Double = 0
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
Dim sumMenge As Double = 0
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
|
||||
rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plInv_SupplierCountry").Value, "")
|
||||
rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "")
|
||||
' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
|
||||
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "")
|
||||
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
|
||||
rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "")
|
||||
|
||||
|
||||
|
||||
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0)
|
||||
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
|
||||
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblSumMenge.Text = sumMenge.ToString("N0")
|
||||
'rpt.lblSumPreis.Text = sumPreis.ToString("N2")
|
||||
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
End Sub
|
||||
|
||||
Sub genSummenbericht_ASFINAG()
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
70
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
70
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btnSDL_Alle = New System.Windows.Forms.Button()
|
||||
@@ -37,7 +37,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_RMC = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbxTest = New System.Windows.Forms.CheckBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
@@ -66,10 +65,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -81,14 +77,14 @@ Partial Class usrcntlFremdrechnungen
|
||||
CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.cntxtExcel.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DetailsAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem"
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Text = "Details anzeigen"
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.DetailsAnzeigenToolStripMenuItem.Text = "PDF hochladen"
|
||||
'
|
||||
'FlowLayoutPanel
|
||||
'
|
||||
@@ -268,15 +264,9 @@ Partial Class usrcntlFremdrechnungen
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.KundenblattAnzeigenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 48)
|
||||
'
|
||||
'KundenblattAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.KundenblattAnzeigenToolStripMenuItem.Name = "KundenblattAnzeigenToolStripMenuItem"
|
||||
Me.KundenblattAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
|
||||
Me.KundenblattAnzeigenToolStripMenuItem.Text = "Kundenblatt anzeigen"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48)
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
@@ -489,7 +479,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(5, 322)
|
||||
Me.Button1.Location = New System.Drawing.Point(11, 322)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(50, 44)
|
||||
Me.Button1.TabIndex = 45
|
||||
@@ -606,8 +596,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvLFRechnung.AllowUserToDeleteRows = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeColumns = False
|
||||
Me.dgvLFRechnung.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
|
||||
@@ -624,8 +614,8 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvDetails.AllowUserToDeleteRows = False
|
||||
Me.dgvDetails.AllowUserToResizeColumns = False
|
||||
Me.dgvDetails.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
|
||||
@@ -644,29 +634,12 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel4.Size = New System.Drawing.Size(1356, 108)
|
||||
Me.Panel4.TabIndex = 11
|
||||
'
|
||||
'cntxtExcel
|
||||
'PDFLöschenToolStripMenuItem
|
||||
'
|
||||
Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6})
|
||||
Me.cntxtExcel.Name = "cntxtExcel"
|
||||
Me.cntxtExcel.Size = New System.Drawing.Size(211, 48)
|
||||
Me.cntxtExcel.Text = "Excel"
|
||||
'
|
||||
'ToolStripMenuItem3
|
||||
'
|
||||
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
|
||||
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem3.Text = "Einfach"
|
||||
'
|
||||
'ToolStripMenuItem6
|
||||
'
|
||||
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
|
||||
'
|
||||
'ContextMenuStrip2
|
||||
'
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
|
||||
Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
|
||||
'
|
||||
'usrcntlFremdrechnungen
|
||||
'
|
||||
@@ -689,7 +662,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel4.ResumeLayout(False)
|
||||
Me.cntxtExcel.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -702,7 +674,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Friend WithEvents btnSDL_FREJUS As System.Windows.Forms.Button
|
||||
Friend WithEvents btnSDL_Hugo As System.Windows.Forms.Button
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents KundenblattAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button8 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
@@ -710,9 +681,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents cntxtExcel As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents lblEinträge As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxMax1000Eintrage As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
@@ -736,6 +704,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
|
||||
Friend WithEvents cbxTest As CheckBox
|
||||
Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -120,10 +120,4 @@
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>807, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>913, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -1,4 +1,6 @@
|
||||
Imports System.Reflection
|
||||
Imports com.sun.tools.corba.se.idl
|
||||
Imports DocumentFormat.OpenXml.VariantTypes
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -378,18 +380,18 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
Dim invToCustomer As String = ""
|
||||
|
||||
Select Case cbx.CheckState
|
||||
Select Case cbx.CheckState
|
||||
' Case CheckState.Unchecked : invToCustomer = "0" Hier alle anzeigen!!!
|
||||
Case CheckState.Checked : invToCustomer = "1"
|
||||
End Select
|
||||
End Select
|
||||
|
||||
If invToCustomer <> "" Then
|
||||
If invToCustomer <> "" Then
|
||||
|
||||
Select Case aktLieferant
|
||||
Select Case aktLieferant
|
||||
'Case "IDS" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "PLOSE" : SQLWhere &= " AND isnull(plInv_InvToCustomer,0) =" & invToCustomer
|
||||
Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "UTA" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
|
||||
Case "VERAG" : SQLWhere &= " AND 1 <> " & invToCustomer
|
||||
Case "_" : SQLWhere &= " AND 1 <> " & invToCustomer
|
||||
@@ -397,7 +399,7 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
End Select
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
|
||||
@@ -1195,13 +1197,13 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
||||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
||||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV_NEW(dgvLFRechnung, True)
|
||||
Me.Cursor = Cursors.Default
|
||||
@@ -1554,4 +1556,76 @@ Public Class usrcntlFremdrechnungen
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click
|
||||
|
||||
If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
|
||||
|
||||
|
||||
|
||||
|
||||
Dim ReNr As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsnummer").Value
|
||||
Dim ReDat As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsdatum").Value
|
||||
Dim interneKundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value
|
||||
Dim KundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("Kundennummer").Value
|
||||
Dim LieferlandISO2 As String = dgvLFRechnung.SelectedRows(0).Cells("Land").Value
|
||||
|
||||
If LieferlandISO2 = "" Then MsgBox("Land kann nicht ermittelt werden") : Exit Sub
|
||||
If KundenNr = "" OrElse Not IsNumeric(KundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
|
||||
If ReDat = "" OrElse Not IsDate(ReDat) Then MsgBox("Rechnungsdatum kann nicht ermittelt werden") : Exit Sub
|
||||
If interneKundenNr = "" OrElse Not IsNumeric(interneKundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
|
||||
|
||||
Select Case aktLieferant
|
||||
|
||||
Case "UTA"
|
||||
Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", aktLieferant & "_MANUELL", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2)
|
||||
|
||||
If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then
|
||||
SQL.doSQL("Update [tblUTAImportNew] SET [daId]=" & DS_Import.da_id & ", daIdgesetztDatum = getdate(), PDFsetmanually = getdate() where Rechnungsnummer_pro_Lieferland = '" & ReNr & "' AND cast(Rechnungsdatum as Date) = '" & CDate(ReDat).ToShortDateString & "' AND Kundennummer =" & KundenNr & " and Lieferland_ISO2 ='" & LieferlandISO2 & "' and daId is null", "FMZOLL")
|
||||
MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString)
|
||||
SET_SDL(aktLieferant)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
MsgBox("Funktion nicht implementiert!")
|
||||
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvLFRechnung_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvLFRechnung.CellMouseClick
|
||||
|
||||
|
||||
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
||||
If e.ColumnIndex < 0 Then Exit Sub
|
||||
|
||||
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
||||
If e.Button = MouseButtons.Right Then
|
||||
|
||||
If dgvLFRechnung.SelectedCells.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
||||
dgvLFRechnung.CurrentCell = dgvLFRechnung.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
||||
|
||||
|
||||
If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
|
||||
|
||||
DetailsAnzeigenToolStripMenuItem.Visible = True
|
||||
Else
|
||||
|
||||
DetailsAnzeigenToolStripMenuItem.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -199,13 +199,32 @@ Public Class usrcntlFakturierung
|
||||
Select Case res
|
||||
Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
|
||||
Case MsgBoxResult.No
|
||||
Case MsgBoxResult.Cancel : Exit Sub
|
||||
Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'START--------------------------- Zur Sicherheit!! - Kann ab nächsten Sammelrechnunsglauf deaktiviert werden! - 21.01.2026
|
||||
Dim rechnungenMitRE_KZ As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
|
||||
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' AND Rechnungsart <> 'RG' ", "FMZOLL",, 0))
|
||||
|
||||
If rechnungenMitAbwAbfDat > 0 Then
|
||||
Dim res As MsgBoxResult
|
||||
res = MsgBox("Es gibt noch " & rechnungenMitRE_KZ & " Rechnungen deren Rechnungsart nicht auf Standard-Rechnung gesetzt ist" & vbNewLine & "Möchten Sie fortfahren (Rechnungsart wird auf Standard gesetzt) ?", vbYesNoCancel)
|
||||
Select Case res
|
||||
Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Rechnungsart = 'RG' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' AND Rechnungsart <> 'RG' ", "FMZOLL")
|
||||
Case MsgBoxResult.No
|
||||
Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'ENDE---------------------------
|
||||
|
||||
|
||||
|
||||
Dim rechnungenMitGesamtmautanhangCSV As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
|
||||
inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID
|
||||
@@ -240,7 +259,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
|
||||
If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
|
||||
Exit Sub
|
||||
MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
|
||||
End If
|
||||
|
||||
'RECHNUNG ODER GUTSCHRIFT
|
||||
@@ -1180,14 +1199,16 @@ Public Class usrcntlFakturierung
|
||||
|
||||
If dtSammelrechnungenGruppiert.Rows.Count > 0 Then
|
||||
|
||||
If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub
|
||||
If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then
|
||||
MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
|
||||
End If
|
||||
|
||||
Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert, cbxStatusAUTOMAIL.Checked)
|
||||
|
||||
showPic(reNrisSet, PictureBox8)
|
||||
|
||||
If Not reNrisSet Then
|
||||
MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Vorgang wird abgebrochen!")
|
||||
MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Rechnungslauf wird abgebrochen!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
@@ -1155,10 +1155,15 @@ Public Class cMDMFunctionsAllgemein
|
||||
Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
|
||||
If Antrag_LandKz <> "" Then
|
||||
header1 = "Statement itemising VAT amounts relating to the period covered by this application"
|
||||
header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
|
||||
End If
|
||||
|
||||
Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
|
||||
If USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatVon) AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatBis) Then
|
||||
header1 &= " (" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString & ")"
|
||||
End If
|
||||
|
||||
header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
|
||||
End If
|
||||
|
||||
Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Reference in New Issue
Block a user