diff --git a/SDL/Resources/KVI_report.xlsx b/SDL/Resources/KVI_report.xlsx
index 1f276e66..50716592 100644
Binary files a/SDL/Resources/KVI_report.xlsx and b/SDL/Resources/KVI_report.xlsx differ
diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 47ba8bbd..43e4562d 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -1446,6 +1446,12 @@
UserControl
+
+ usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
+
+
+ UserControl
+
usrCntlATLAS_EZA_DV1.vb
@@ -3924,6 +3930,9 @@
usrCntlATLAS_EZA.vb
+
+ usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
+
usrCntlATLAS_EZA_DV1.vb
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index 8119fff4..e417bf5a 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -2,6 +2,7 @@
Imports System.Globalization
Imports GrapeCity.ActiveReports.Viewer.Common.Internal
Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
Public Class usrCntlSpeditionsBuchSuche
@@ -3590,7 +3591,7 @@ Class cSpeditionsbuchReport
datei = exclApp.Workbooks.Open(path)
blatt = datei.Worksheets(1)
-
+
CreateGeneralReport(blatt, dt, KDNR, AbfVon, AbfBis)
@@ -3704,7 +3705,7 @@ Class cSpeditionsbuchReport
If(r("FilialenNr"), "").ToString() & "/" &
If(r("AbfertigungsNr"), "").ToString())
End If
-
+ 's
WriteDetailReportRow(blatt, r, cd, cnt, kdnr)
Catch ex As Exception
@@ -3797,6 +3798,7 @@ Class cSpeditionsbuchReport
blatt.Range("AB" & cnt).Value = item.zaItem_MainProcedure & If(Not String.IsNullOrWhiteSpace(item.zaItem_AdditionalProc), "/" & item.zaItem_AdditionalProc, "")
blatt.Range("AC" & cnt).Value = item.zaItem_PreferenceCode
blatt.Range("AD" & cnt).Value = If(IsItemCBAM(item), "Y", "N")
+ blatt.Range("AE" & cnt).Value = item.GetInvoiceListString()
cnt += 1
rowcounter += 1
@@ -3833,6 +3835,7 @@ Class cSpeditionsbuchReport
blatt.Range("AC" & cnt).Value = ""
blatt.Range("AD" & cnt).Value = ""
+
cnt += 1
End If
Else
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
index 98628eab..5c727746 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
@@ -94,7 +94,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
Me.Refresh()
Me.Cursor = Cursors.WaitCursor
- If sentToDakosy OrElse vbYes = MsgBox("Soll die Ankunftsanzeige abgeschickt werden?", vbYesNoCancel) Then
+ If sentToDakosy OrElse vbYes = MsgBox("Soll die Bestätigung der vZA (ATB Ergänzung) abgeschickt werden?", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
'loadDYZollanmeldungen()
Dim dy_Id = -1
@@ -127,7 +127,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
End If
- If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
+ If generateBestaetigungVorzeitigeAnmeldung_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
If saveFile <> "" Then
'-------------------------------------------------------
@@ -135,7 +135,6 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
MsgBox("Gesendet!")
- createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR)
Else
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
MsgBox("Sendefehler!")
@@ -157,43 +156,48 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
- Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
+ Shared Function generateBestaetigungVorzeitigeAnmeldung_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
Dim Interface_VERSION = "003"
Dim ObjectAktion = DY_ACTION
' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
+ Dim Bearbeiter = ""
+ If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
- Dim XML As New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.EingangsanzeigeEATyp
+ Dim XML As New DAKOSY_Worker.BestaetigungVorzeitigeAnmeldung_003.BestaetigungVorzeitigeAnmeldungAZATNTyp
'Transaktion:
- XML.Transaktion = New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.TransaktionNCTSTyp
+ XML.Transaktion = New BestaetigungVorzeitigeAnmeldung_003.TransaktionFreierVerkehrTyp
XML.Transaktion.IOPartner = IOPartner 'SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
XML.Transaktion.IODatumZeit = Now
XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS")
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 '"SUW"
XML.Transaktion.Version = Interface_VERSION
' XML.Transaktion.IODivision3 = IODivision3
- XML.EinzelEingangsanzeige = New EingangsanzeigeNCTSDE_003.EinzelEingangsanzeigeTyp
+ XML.EinzelBestaetigungVorzeitigeAnmeldung = New BestaetigungVorzeitigeAnmeldung_003.EinzelBestaetigungVorzeitigeAnmeldungTyp
'ObjektIdentifizierung:
- XML.EinzelEingangsanzeige.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
- XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp
- XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer
- If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung = New BestaetigungVorzeitigeAnmeldung_003.ObjektIdentifizierungAZATNTyp
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektName = Bezugsnummer
+
+ If BezugsnummerALIAS IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAlias = BezugsnummerALIAS
Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
- XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion
- If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
+ If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.Bearbeiter = Bearbeiter
- If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
+ If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
'TransitOperation:
- XML.EinzelEingangsanzeige.TransitOperation = New EingangsanzeigeNCTSDE_003.TransitOperationEAType
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten = New BestaetigungVorzeitigeAnmeldung_003.KopfdatenBestaetigungVorzeitigeAnmeldungTyp
'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch
- If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1
- XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now
+ 'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.MRN = SND.tblSnd_ATB_T1
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.AnmeldenderBearbeiter = Bearbeiter
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.TelefonnummerBearbeiter = ""
+ XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.StellungAnmeldenderBearbeiter = "Zolldeklarant/in"
- XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N"
+ ' XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.IncidentFlag = "N"
@@ -202,7 +206,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
System.IO.Directory.CreateDirectory(saveDir)
End If
- saveFile = saveDir & "DY_AA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
+ saveFile = saveDir & "DY_BvZA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
XML.SaveToFile(saveFile)
@@ -211,6 +215,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
Return True
End Function
+
Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)
Try
diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
index 0f250c3d..1e6a13d8 100644
--- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
@@ -22,9 +22,9 @@ Partial Class frmBU_Mahnlauf
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
Private Sub InitializeComponent()
- 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.cbxNewDGV = New System.Windows.Forms.CheckBox()
Me.lblBetreuer = New System.Windows.Forms.Label()
Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -43,7 +43,7 @@ Partial Class frmBU_Mahnlauf
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
- Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxMahnsperre = New System.Windows.Forms.CheckBox()
@@ -64,7 +64,8 @@ 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.cbxNewDGV = New System.Windows.Forms.CheckBox()
+ Me.Label10 = New System.Windows.Forms.Label()
+ Me.cboFilterOP = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel1.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -97,6 +98,19 @@ Partial Class frmBU_Mahnlauf
Me.Panel1.Size = New System.Drawing.Size(1514, 132)
Me.Panel1.TabIndex = 0
'
+ 'cbxNewDGV
+ '
+ 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(1225, 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
+ '
'lblBetreuer
'
Me.lblBetreuer.AutoSize = True
@@ -356,8 +370,10 @@ Partial Class frmBU_Mahnlauf
'
'Panel3
'
+ Me.Panel3.Controls.Add(Me.cboFilterOP)
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.cbxMahnsperre)
+ Me.Panel3.Controls.Add(Me.Label10)
Me.Panel3.Controls.Add(Me.btnMail_Intern)
Me.Panel3.Controls.Add(Me.Button7)
Me.Panel3.Controls.Add(Me.btnKunde)
@@ -626,18 +642,25 @@ Partial Class frmBU_Mahnlauf
Me.MyTextBox2.TabIndex = 39
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
- 'cbxNewDGV
+ 'Label10
'
- 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
+ Me.Label10.AutoSize = True
+ Me.Label10.Location = New System.Drawing.Point(391, 33)
+ Me.Label10.Name = "Label10"
+ Me.Label10.Size = New System.Drawing.Size(89, 13)
+ Me.Label10.TabIndex = 52
+ Me.Label10.Text = "Filter Bemerkung:"
+ '
+ 'cboFilterOP
+ '
+ Me.cboFilterOP._allowedValuesFreiText = Nothing
+ Me.cboFilterOP._allowFreiText = True
+ Me.cboFilterOP._value = ""
+ Me.cboFilterOP.FormattingEnabled = True
+ Me.cboFilterOP.Location = New System.Drawing.Point(394, 50)
+ Me.cboFilterOP.Name = "cboFilterOP"
+ Me.cboFilterOP.Size = New System.Drawing.Size(140, 21)
+ Me.cboFilterOP.TabIndex = 53
'
'frmBU_Mahnlauf
'
@@ -704,5 +727,7 @@ Partial Class frmBU_Mahnlauf
Friend WithEvents Label9 As Label
Friend WithEvents lblBetreuer As Label
Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
- Public Shared WithEvents cbxNewDGV As CheckBox
+ Friend WithEvents Label10 As Label
+ Public WithEvents cbxNewDGV As CheckBox
+ Friend WithEvents cboFilterOP As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class
diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb
index 678396b4..2ffd9650 100644
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -280,6 +280,14 @@ Public Class frmBU_Mahnlauf
'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO"))
cbxKontotyp.changeItem("Alle")
+
+ cboFilterOP.Items.Clear()
+ cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+ cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA-LEIHGELD (4813)", "*LG_4813*"))
+ cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA-LEIHGELD (4806/4813)", "*LG_4806_4813*"))
+ cboFilterOP.changeItem("")
+
+
cboBetreuer.Items.Clear()
cboBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True)
@@ -362,15 +370,31 @@ Public Class frmBU_Mahnlauf
and (si_mahnstufe >0 AND si_mahnstufe is not NULL) " & IIf(MahnsperreBeruecksichtigen, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()"
Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0)
End Function
- Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean
+ Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True, Optional bemerkungSrch() As String = Nothing) As Boolean
+ Dim bemerkungFilter As String = ""
+
+ If bemerkungSrch IsNot Nothing AndAlso bemerkungSrch.Length > 0 Then
+ bemerkungFilter = " AND (" &
+ String.Join(" OR ",
+ bemerkungSrch.
+ Where(Function(x) Not String.IsNullOrWhiteSpace(x)).
+ Select(Function(x)
+ Dim val = x.Replace("*", "%").Replace("'", "''")
+ Return "c_bemerkung LIKE '" & val & "'"
+ End Function)
+ ) &
+ ") "
+ End If
Dim sqlStr = "SELECT c_urbelegid OP_Typ,d_rechnung Rechnungsdatum,d_netto Faelligkeit,dec_fremdbrutto Rechnungsbetrag,c_bemerkung Bemerkung,dec_fremdzahlung Zahlung,dec_fremdbrutto+dec_fremdzahlung Ausstand,c_waehrung Währung,si_mahnstufe Mahnstufe
FROM op_debitor OP
WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)
and i_personenkonto='" & KdNr & "'
" & If(hideMahnstopp, " and isnull(si_mahnflags,0) <>(1) ", "") & "
+ " & bemerkungFilter & "
order by d_rechnung"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtDataSource = SQL.loadDgvBySql(sqlStr, "FIBU")
+
If dtDataSource Is Nothing Then
If showErr Then MsgBox("Keine Daten vorhanden!")
Return False
@@ -1339,15 +1363,23 @@ Public Class frmBU_Mahnlauf
i += 1
Next
-
- If sender Is Button5 Then doZahlungserinnerung(Me, "OP", KontoList, cboFirma._value, MyComboBox2._value)
- If sender Is Button4 Then doZahlungserinnerung(Me, "ZE", KontoList, cboFirma._value, MyComboBox2._value)
+ Dim bemerkungSrch = Nothing
+ If cboFilterOP._value <> "" Then
+ Select Case cboFilterOP._value
+ Case "*LG_4813*" : bemerkungSrch = {"%4813/%"}
+ Case "*LG_4806_4813*" : bemerkungSrch = {"%4806/%", "%4813/%"}
+ Case Else
+ bemerkungSrch = {"'" & cboFilterOP._value.Replace("*", "%") & "%'"}
+ End Select
+ End If
+ If sender Is Button5 Then doZahlungserinnerung(Me, "OP", KontoList, cboFirma._value, MyComboBox2._value, bemerkungSrch)
+ If sender Is Button4 Then doZahlungserinnerung(Me, "ZE", KontoList, cboFirma._value, MyComboBox2._value, bemerkungSrch)
End If
Me.Cursor = Cursors.Default
End Sub
- Shared Sub doZahlungserinnerung(MainForm As Control, art As String, KontoList As List(Of String), Firma As String, Mahnstufe As String)
+ Shared Sub doZahlungserinnerung(MainForm As Control, art As String, KontoList As List(Of String), Firma As String, Mahnstufe As String, bemerkungSrch() As String)
Dim fProgBar As New frmBU_Mahnlauf_Ausgabe_Ladebalken
Try
@@ -1355,6 +1387,7 @@ Public Class frmBU_Mahnlauf
Dim srchPrinter = oPS.PrinterName
+
Dim forceMahnstufe As String = -2
Dim hideMahnstopp As String = True
Dim gesAnz As Integer = KontoList.Count
@@ -1367,7 +1400,7 @@ Public Class frmBU_Mahnlauf
Select Case getAusgabe(MainForm, False)
Case "PDF"
If KontoList.Count = 1 Then
- doMahnung(3, KontoList(0), Firma, art,, srchPrinter, forceMahnstufe,, hideMahnstopp)
+ doMahnung(3, KontoList(0), Firma, art,, srchPrinter, forceMahnstufe,, hideMahnstopp, bemerkungSrch)
Else
Dim PDF_LIST As New List(Of String)
fProgBar.Show(MainForm)
@@ -1375,7 +1408,7 @@ Public Class frmBU_Mahnlauf
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
Dim Path = ""
- If doMahnung(4, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp) Then
+ If doMahnung(4, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp, bemerkungSrch) Then
PDF_LIST.Add(Path)
End If
cnt += 1
@@ -1399,7 +1432,7 @@ Public Class frmBU_Mahnlauf
fProgBar.Refresh()
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
Dim Path = ""
- doMahnung(2, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp)
+ doMahnung(2, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp, bemerkungSrch)
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
@@ -1409,7 +1442,7 @@ Public Class frmBU_Mahnlauf
fProgBar.Show(MainForm)
fProgBar.Refresh()
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
- doMahnung(0, konto, Firma, art, , srchPrinter, forceMahnstufe,, hideMahnstopp)
+ doMahnung(0, konto, Firma, art, , srchPrinter, forceMahnstufe,, hideMahnstopp, bemerkungSrch)
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb
index 4b05c4d9..cffe3d10 100644
--- a/SDL/buchhaltung/rptMahnung.Designer.vb
+++ b/SDL/buchhaltung/rptMahnung.Designer.vb
@@ -198,7 +198,7 @@ Partial Public Class rptMahnung
"ar-set: 1"
Me.txtLeistung.Text = "2188888888"
Me.txtLeistung.Top = 0!
- Me.txtLeistung.Width = 0.7429134!
+ Me.txtLeistung.Width = 0.7874016!
'
'Line10
'
@@ -232,7 +232,7 @@ Partial Public Class rptMahnung
'
Me.Label15.Height = 0.1570866!
Me.Label15.HyperLink = Nothing
- Me.Label15.Left = 1.165748!
+ Me.Label15.Left = 1.212599!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" &
"char-set: 1"
@@ -244,7 +244,7 @@ Partial Public Class rptMahnung
'
Me.Label16.Height = 0.1570866!
Me.Label16.HyperLink = Nothing
- Me.Label16.Left = 1.855906!
+ Me.Label16.Left = 1.883071!
Me.Label16.Name = "Label16"
Me.Label16.Style = "color: DarkRed; font-size: 9pt; font-weight: normal; text-align: center; text-jus" &
"tify: auto; ddo-char-set: 1"
@@ -1165,24 +1165,24 @@ Partial Public Class rptMahnung
'
Me.lblRgDat.Height = 0.1811024!
Me.lblRgDat.HyperLink = Nothing
- Me.lblRgDat.Left = 1.165748!
+ Me.lblRgDat.Left = 1.212599!
Me.lblRgDat.Name = "lblRgDat"
Me.lblRgDat.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.lblRgDat.Text = "Rg.datum"
- Me.lblRgDat.Top = 0.791!
+ Me.lblRgDat.Top = 0.7909449!
Me.lblRgDat.Width = 0.6614173!
'
'lblFaelligkeit
'
Me.lblFaelligkeit.Height = 0.1811024!
Me.lblFaelligkeit.HyperLink = Nothing
- Me.lblFaelligkeit.Left = 1.855993!
+ Me.lblFaelligkeit.Left = 1.883158!
Me.lblFaelligkeit.Name = "lblFaelligkeit"
Me.lblFaelligkeit.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.lblFaelligkeit.Text = "Fälligkeit"
- Me.lblFaelligkeit.Top = 0.791!
+ Me.lblFaelligkeit.Top = 0.7909449!
Me.lblFaelligkeit.Width = 0.6614173!
'
'lblReBetrag
diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb
index 8b3b35b5..01dee42b 100644
--- a/SDL/cProgramFunctions.vb
+++ b/SDL/cProgramFunctions.vb
@@ -67,7 +67,10 @@ Public Class cProgramFunctions
rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
End If
+ 'MsgBox(rpt.Document.Printer.PaperKind)
+ 'MsgBox(rpt.Document.Printer.PaperSize.ToString)
+ 'Return False
rpt.Document.Printer.PrinterSettings.Copies = 1
Dim dt1 = Now
@@ -83,9 +86,9 @@ Public Class cProgramFunctions
Return True
Catch ex As Exception
Try
- MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind)
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Catch err2 As Exception
- MsgBox(ex.Message & err2.StackTrace)
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(err2.Message, err2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Try
diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb
index 82456ca0..8248f658 100644
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -2028,7 +2028,7 @@ Public Class frmKundenblatt
Else
Dim KontoList As New List(Of String)
KontoList.Add(KUNDE.KundenNrZentrale)
- frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
+ frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "", {""})
End If
End Sub
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 1659f777..ad3f1deb 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -3525,7 +3525,7 @@ Public Class usrCntlKundenuebersicht
Else
Dim KontoList As New List(Of String)
KontoList.Add(KUNDE.KundenNrZentrale)
- frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
+ frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "", {""})
End If
End Sub
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
index 38256b5d..89172bb7 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
@@ -685,6 +685,27 @@ Public Class cVERAG_CustomsDeclarations
End Sub
+
+ Public Function GetInvoiceListString() As String
+ If Documents Is Nothing OrElse Documents.Count = 0 Then Return ""
+
+ Dim result = Documents.
+ Where(Function(d) Not d Is Nothing AndAlso
+ (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")).
+ Select(Function(d)
+ Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim())
+ Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim())
+
+ ' Format: "Datum Referenz"
+ Return (datum & " " & ref).Trim()
+ End Function).
+ Where(Function(s) Not String.IsNullOrWhiteSpace(s)).
+ Distinct().
+ ToList()
+
+ Return String.Join(", ", result)
+ End Function
+
Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal
Try
If EORI = "" Then Return 0
@@ -1094,6 +1115,28 @@ Public Class cVERAG_CustomsDeclarations_Item
Return result
End Function
+
+
+ Public Function GetInvoiceListString() As String
+ If Documents Is Nothing OrElse Documents.Count = 0 Then Return ""
+
+ Dim result = Documents.
+ Where(Function(d) Not d Is Nothing AndAlso
+ (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")).
+ Select(Function(d)
+ Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim())
+ Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim())
+
+ ' Format: "Datum Referenz"
+ Return (datum & " " & ref).Trim()
+ End Function).
+ Where(Function(s) Not String.IsNullOrWhiteSpace(s)).
+ Distinct().
+ ToList()
+
+ Return String.Join(", ", result)
+ End Function
+
End Class
' ##########################################################