diff --git a/SDL/Classes/cFiskal_Daten.vb b/SDL/Classes/cFiskal_Daten.vb index 6b56f9ac..ec55872f 100644 --- a/SDL/Classes/cFiskal_Daten.vb +++ b/SDL/Classes/cFiskal_Daten.vb @@ -9,6 +9,10 @@ Public Class cFiskal_Daten Property fisk_schreibenCMR As Boolean = False Property fisk_schreibenFA_Adr As Object = Nothing Property fisk_schreibenSB_Adr As Object = Nothing + Property fisk_schreibenSB_Mail As Object = Nothing + Property fisk_schreibenFA_Mail As Object = Nothing + + Dim SQL As New SQL @@ -24,11 +28,12 @@ Public Class cFiskal_Daten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenCMR", fisk_schreibenCMR)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA_Adr", fisk_schreibenFA_Adr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB_Adr", fisk_schreibenSB_Adr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB_Mail", fisk_schreibenSB_Mail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA_Mail", fisk_schreibenFA_Mail)) Return list End Function - Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index d4bae8d3..9575c3d3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -639,7 +639,6 @@ Public Class cFakturierung cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) Return True Else - If RECHNUNG.[DruckDatumZeit] Is Nothing Then RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt 'ORIGINAL Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) @@ -658,7 +657,11 @@ Public Class cFakturierung MsgBox("Fehler: Kein Rechnugsempfänger gefunden!") Return False End If - + Else + If RECHNUNG.[DruckDatumZeit] Is Nothing Then + RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt + RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen + End If End If 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben @@ -769,10 +772,13 @@ Public Class cFakturierung getSignature &= "
A 4975 Suben, Nr. 15
T +43 7711 2845-0 | @ rechnungsversand@verag.ag | www.verag.ag | FN 288916b
" Case 11 'VERAG CS getSignature &= "" - getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 2777-0 | F +43 7711 31 073 | @ versand@verag.ag | www.verag.ag | FN 406316z
" + getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 2777-0 | F +43 7711 31 073 | @ versand@verag.com | www.verag.ag | FN 406316z
" Case 20 'Imex getSignature &= "" getSignature &= "
A 4975 Suben, Autobahngrenze 15
T +43 7711 31630 | F +43 7711 31630-1 | @ info@imex-group.at | www.imex-group.at | FN 410356s
" + Case 99 'GmbH + getSignature &= "" + getSignature &= "
D 94152 Neuhaus/Inn, Hartham 6
T +43 7711 2777-0 | F +43 7711 31 073 | @ rechnungsversand@verag.ag | www.verag.ag
" End Select getSignature &= "
" diff --git a/SDL/Fakturierung/frmFaktEmail.Designer.vb b/SDL/Fakturierung/frmFaktEmail.Designer.vb index 355ca8c4..fbfd69ca 100644 --- a/SDL/Fakturierung/frmFaktEmail.Designer.vb +++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb @@ -47,9 +47,6 @@ Partial Class frmFaktEmail Me.Label3 = New System.Windows.Forms.Label() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cbxMergePDF = New System.Windows.Forms.CheckBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.lblKunde = New System.Windows.Forms.LinkLabel() Me.clmnLKW = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnStb_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnMitt_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -57,6 +54,14 @@ Partial Class frmFaktEmail Me.clmnStb = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.clmnMitt = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.clmnVBD = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.cbxMergePDF = New System.Windows.Forms.CheckBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.lblKunde = New System.Windows.Forms.LinkLabel() + Me.cbxSteuerberaterEmail = New System.Windows.Forms.CheckBox() + Me.cbxFAEmail = New System.Windows.Forms.CheckBox() + Me.txtSteuerberaterEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFAEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button4 = New System.Windows.Forms.Button() CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit() @@ -302,37 +307,6 @@ Partial Class frmFaktEmail Me.MyDatagridview1.Size = New System.Drawing.Size(537, 390) Me.MyDatagridview1.TabIndex = 19 ' - 'cbxMergePDF - ' - Me.cbxMergePDF.AutoSize = True - Me.cbxMergePDF.Location = New System.Drawing.Point(610, 369) - Me.cbxMergePDF.Name = "cbxMergePDF" - Me.cbxMergePDF.Size = New System.Drawing.Size(135, 17) - Me.cbxMergePDF.TabIndex = 20 - Me.cbxMergePDF.Text = "PDFs zusammenführen" - Me.cbxMergePDF.UseVisualStyleBackColor = True - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(12, 9) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(41, 13) - Me.Label4.TabIndex = 21 - Me.Label4.Text = "Kunde:" - ' - 'lblKunde - ' - Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText - Me.lblKunde.LinkColor = System.Drawing.Color.Black - Me.lblKunde.Location = New System.Drawing.Point(64, 9) - Me.lblKunde.Name = "lblKunde" - Me.lblKunde.Size = New System.Drawing.Size(677, 18) - Me.lblKunde.TabIndex = 22 - Me.lblKunde.TabStop = True - Me.lblKunde.Text = "Kunde" - ' 'clmnLKW ' Me.clmnLKW.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -384,12 +358,126 @@ Partial Class frmFaktEmail Me.clmnVBD.ReadOnly = True Me.clmnVBD.Width = 90 ' + 'cbxMergePDF + ' + Me.cbxMergePDF.AutoSize = True + Me.cbxMergePDF.Location = New System.Drawing.Point(610, 369) + Me.cbxMergePDF.Name = "cbxMergePDF" + Me.cbxMergePDF.Size = New System.Drawing.Size(135, 17) + Me.cbxMergePDF.TabIndex = 20 + Me.cbxMergePDF.Text = "PDFs zusammenführen" + Me.cbxMergePDF.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(41, 13) + Me.Label4.TabIndex = 21 + Me.Label4.Text = "Kunde:" + ' + 'lblKunde + ' + Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText + Me.lblKunde.LinkColor = System.Drawing.Color.Black + Me.lblKunde.Location = New System.Drawing.Point(64, 9) + Me.lblKunde.Name = "lblKunde" + Me.lblKunde.Size = New System.Drawing.Size(677, 18) + Me.lblKunde.TabIndex = 22 + Me.lblKunde.TabStop = True + Me.lblKunde.Text = "Kunde" + ' + 'cbxSteuerberaterEmail + ' + Me.cbxSteuerberaterEmail.AutoSize = True + Me.cbxSteuerberaterEmail.Location = New System.Drawing.Point(70, 795) + Me.cbxSteuerberaterEmail.Name = "cbxSteuerberaterEmail" + Me.cbxSteuerberaterEmail.Size = New System.Drawing.Size(140, 17) + Me.cbxSteuerberaterEmail.TabIndex = 23 + Me.cbxSteuerberaterEmail.Text = "E-Mail an Steuerberater:" + Me.cbxSteuerberaterEmail.UseVisualStyleBackColor = True + ' + 'cbxFAEmail + ' + Me.cbxFAEmail.AutoSize = True + Me.cbxFAEmail.Location = New System.Drawing.Point(70, 820) + Me.cbxFAEmail.Name = "cbxFAEmail" + Me.cbxFAEmail.Size = New System.Drawing.Size(124, 17) + Me.cbxFAEmail.TabIndex = 24 + Me.cbxFAEmail.Text = "E-Mail an Finanzamt:" + Me.cbxFAEmail.UseVisualStyleBackColor = True + ' + 'txtSteuerberaterEmail + ' + Me.txtSteuerberaterEmail._DateTimeOnly = False + Me.txtSteuerberaterEmail._numbersOnly = False + Me.txtSteuerberaterEmail._numbersOnlyKommastellen = "" + Me.txtSteuerberaterEmail._Prozent = False + Me.txtSteuerberaterEmail._ShortDateNew = False + Me.txtSteuerberaterEmail._ShortDateOnly = False + Me.txtSteuerberaterEmail._TimeOnly = False + Me.txtSteuerberaterEmail._value = "" + Me.txtSteuerberaterEmail._Waehrung = False + Me.txtSteuerberaterEmail._WaehrungZeichen = True + Me.txtSteuerberaterEmail.Enabled = False + Me.txtSteuerberaterEmail.ForeColor = System.Drawing.Color.Black + Me.txtSteuerberaterEmail.Location = New System.Drawing.Point(213, 793) + Me.txtSteuerberaterEmail.MaxLineLength = -1 + Me.txtSteuerberaterEmail.MaxLines_Warning = "" + Me.txtSteuerberaterEmail.MaxLines_Warning_Label = Nothing + Me.txtSteuerberaterEmail.Name = "txtSteuerberaterEmail" + Me.txtSteuerberaterEmail.Size = New System.Drawing.Size(391, 20) + Me.txtSteuerberaterEmail.TabIndex = 25 + ' + 'txtFAEmail + ' + Me.txtFAEmail._DateTimeOnly = False + Me.txtFAEmail._numbersOnly = False + Me.txtFAEmail._numbersOnlyKommastellen = "" + Me.txtFAEmail._Prozent = False + Me.txtFAEmail._ShortDateNew = False + Me.txtFAEmail._ShortDateOnly = False + Me.txtFAEmail._TimeOnly = False + Me.txtFAEmail._value = "" + Me.txtFAEmail._Waehrung = False + Me.txtFAEmail._WaehrungZeichen = True + Me.txtFAEmail.Enabled = False + Me.txtFAEmail.ForeColor = System.Drawing.Color.Black + Me.txtFAEmail.Location = New System.Drawing.Point(213, 818) + Me.txtFAEmail.MaxLineLength = -1 + Me.txtFAEmail.MaxLines_Warning = "" + Me.txtFAEmail.MaxLines_Warning_Label = Nothing + Me.txtFAEmail.Name = "txtFAEmail" + Me.txtFAEmail.Size = New System.Drawing.Size(391, 20) + Me.txtFAEmail.TabIndex = 26 + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Image = Global.SDL.My.Resources.Resources.save + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(614, 793) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(131, 45) + Me.Button4.TabIndex = 27 + Me.Button4.Text = "Daten im Kunden-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stamm speichern" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + Me.Button4.Visible = False + ' 'frmFaktEmail ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke - Me.ClientSize = New System.Drawing.Size(753, 792) + Me.ClientSize = New System.Drawing.Size(753, 850) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.txtFAEmail) + Me.Controls.Add(Me.txtSteuerberaterEmail) + Me.Controls.Add(Me.cbxFAEmail) + Me.Controls.Add(Me.cbxSteuerberaterEmail) Me.Controls.Add(Me.lblKunde) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.cbxMergePDF) @@ -459,4 +547,9 @@ Partial Class frmFaktEmail Friend WithEvents clmnStb As DataGridViewCheckBoxColumn Friend WithEvents clmnMitt As DataGridViewCheckBoxColumn Friend WithEvents clmnVBD As DataGridViewCheckBoxColumn + Friend WithEvents cbxSteuerberaterEmail As CheckBox + Friend WithEvents cbxFAEmail As CheckBox + Friend WithEvents txtSteuerberaterEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFAEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button4 As Button End Class diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index d55b6ef5..bca41bc5 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -31,6 +31,7 @@ Public Class frmFaktEmail InitializeComponent() Me.RECHNUNG = RECHNUNG + Me.Firma_ID = RECHNUNG.Firma_ID Me.SPEDBUCH = SPEDBUCH Me.printOriginalRg = printOriginalRg Me.KdNr = RECHNUNG.RechnungsKundenNr @@ -79,10 +80,12 @@ Public Class frmFaktEmail Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen + Dim FISKAL As cFiskal_Daten = Nothing If SR Then AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) + FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr) setMailText(AD.LandKz) initList() cbxStb.Enabled = True : cbxStb.Checked = True @@ -100,7 +103,7 @@ Public Class frmFaktEmail ' wbShowHTML(WebBrowser, cFakturierung.getSignature(RECHNUNG)) AD = New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - + FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr) If printOriginalRg Is Nothing Then cbxOriginalPrint.Visible = False @@ -116,6 +119,12 @@ Public Class frmFaktEmail Dim EMAILTMP = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP) + If FISKAL IsNot Nothing Then + cbxSteuerberaterEmail.Checked = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "") + txtSteuerberaterEmail.Text = If(FISKAL.fisk_schreibenSB_Mail, "") + cbxFAEmail.Checked = (If(FISKAL.fisk_schreibenFA_Mail, "") <> "") + txtFAEmail.Text = If(FISKAL.fisk_schreibenFA_Mail, "") + End If End Sub Private Sub wbShowHTML(ByVal WebBrowser As WebBrowser, ByVal HtmlText As String) @@ -243,6 +252,10 @@ Public Class frmFaktEmail Mail.Display() + '------------------------------------------------------------------------------------------ + ' STB /FA + send_StbFAMail(AD.AdressenNr) + '------------------------------------------------------------------------------------------ End If Catch ex As Exception @@ -291,14 +304,7 @@ Public Class frmFaktEmail 'Steuerbescheid/VDB anfügen '----------------------------------------------------------------- - - If cbxStbMitt.Checked Then 'AT - If cbxStbMitt.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf")) - If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf")) - Else 'DE - If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf")) - End If - If cbxVBD.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Versandschein.pdf")) + getAnhaengeSingle() '----------------------------------------------------------------- 'Anhang an Mail anfügen @@ -308,6 +314,10 @@ Public Class frmFaktEmail Mail.Display() + '------------------------------------------------------------------------------------------ + ' STB /FA + send_StbFAMail(RECHNUNG.RechnungsKundenNr) + '------------------------------------------------------------------------------------------ Catch ex As Exception MsgBox("Fehler beim Öffnen des Mail-Programmes." & ex.Message & ex.StackTrace) @@ -320,9 +330,74 @@ Public Class frmFaktEmail txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr) ATTACHMENTS.Clear() + + End Sub - Sub getAnhaenge() + + Sub send_StbFAMail(KundenNr) + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr) + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) + + If cbxSteuerberaterEmail.Checked Or cbxFAEmail.Checked Then + + Dim outl As New Outlook.Application + Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem + Mail_StbFA = outl.CreateItem(0) + Mail_StbFA.Subject = txtSubject.Text + + + Dim TextHTML = "
" + + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
UID-Nr.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Firma:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Sehr geehrte Damen & Herren!" & "
" + TextHTML &= "
" + TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "
" + TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "
" + TextHTML &= "
" + TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "
" + TextHTML &= "

" + TextHTML &= "Freundliche Grüße" + TextHTML &= "

" + + + TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID) + TextHTML &= "
" + + Mail_StbFA.HTMLBody = TextHTML + Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff + + If txtSteuerberaterEmail.Text <> "" Then + Mail_StbFA.To = txtSteuerberaterEmail.Text + Mail_StbFA.CC = txtFAEmail.Text + Else + Mail_StbFA.To = txtFAEmail.Text + End If + + '----------------------------------------------------------------- + 'Steuerbescheid anfügen + '----------------------------------------------------------------- + getAnhaenge(False) + + 'Anhang an Mail anfügen + '----------------------------------------------------------------- + addAttachments(Mail_StbFA, RECHNUNG.RechnungsNr, cbxMergePDF.Checked) + '----------------------------------------------------------------- + + Mail_StbFA.Display() + End If + + End Sub + + Sub getAnhaenge(Optional vbd As Boolean = True) ATTACHMENTS.Clear() For Each r As DataGridViewRow In MyDatagridview1.Rows @@ -333,11 +408,22 @@ Public Class frmFaktEmail Else 'DE If cbxStb.Checked And IsNumeric(r.Cells("clmnStb_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnStb_docID").Value), bez & "_Steuerbescheid.pdf")) End If - If cbxVBD.Checked And IsNumeric(r.Cells("clmnVBD_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnVBD_docID").Value), bez & "_Versandschein.pdf")) - + If vbd Then + If cbxVBD.Checked And IsNumeric(r.Cells("clmnVBD_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnVBD_docID").Value), bez & "_Versandschein.pdf")) + End If Next End Sub + Sub getAnhaengeSingle() + ATTACHMENTS.Clear() + If cbxStbMitt.Checked Then 'AT + If cbxStbMitt.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf")) + If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf")) + Else 'DE + If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf")) + End If + If cbxVBD.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Versandschein.pdf")) + End Sub @@ -422,6 +508,14 @@ Public Class frmFaktEmail DS.OPEN_SINGLE() End If End Sub + + Private Sub cbxSteuerberaterEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSteuerberaterEmail.CheckedChanged + txtSteuerberaterEmail.Enabled = sender.checked + End Sub + + Private Sub cbxFAEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFAEmail.CheckedChanged + txtFAEmail.Enabled = sender.checked + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb index 9eac0f8b..16e1c7e4 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb @@ -25,11 +25,8 @@ Partial Class usrcntlVerzollungsunterlagen Me.lblVollmachtDE = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label11 = New System.Windows.Forms.Label() Me.pic = New System.Windows.Forms.PictureBox() Me.btnDown = New System.Windows.Forms.Button() Me.btnUp = New System.Windows.Forms.Button() @@ -38,21 +35,24 @@ Partial Class usrcntlVerzollungsunterlagen Me.Label12 = New System.Windows.Forms.Label() Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBearbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Label1 = New System.Windows.Forms.Label() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBearbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtAnlage1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnlage2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnlage3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -85,26 +85,6 @@ Partial Class usrcntlVerzollungsunterlagen Me.Label6.TabIndex = 26 Me.Label6.Text = "Pos.Nr::" ' - 'txtPosNr - ' - Me.txtPosNr._DateTimeOnly = False - Me.txtPosNr._numbersOnly = False - Me.txtPosNr._numbersOnlyKommastellen = "" - Me.txtPosNr._Prozent = False - Me.txtPosNr._ShortDateNew = False - Me.txtPosNr._ShortDateOnly = False - Me.txtPosNr._TimeOnly = False - Me.txtPosNr._value = Nothing - Me.txtPosNr._Waehrung = False - Me.txtPosNr.ForeColor = System.Drawing.Color.Black - Me.txtPosNr.Location = New System.Drawing.Point(254, 136) - Me.txtPosNr.MaxLineLength = -1 - Me.txtPosNr.MaxLines_Warning = "" - Me.txtPosNr.MaxLines_Warning_Label = Nothing - Me.txtPosNr.Name = "txtPosNr" - Me.txtPosNr.Size = New System.Drawing.Size(310, 20) - Me.txtPosNr.TabIndex = 27 - ' 'txtAdresse2 ' Me.txtAdresse2._DateTimeOnly = False @@ -116,6 +96,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse2._TimeOnly = False Me.txtAdresse2._value = Nothing Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black Me.txtAdresse2.Location = New System.Drawing.Point(254, 91) Me.txtAdresse2.MaxLineLength = -1 @@ -136,6 +117,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse1._TimeOnly = False Me.txtAdresse1._value = Nothing Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black Me.txtAdresse1.Location = New System.Drawing.Point(254, 72) Me.txtAdresse1.MaxLineLength = -1 @@ -145,38 +127,9 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) Me.txtAdresse1.TabIndex = 12 ' - 'txtAnlage1 - ' - Me.txtAnlage1._DateTimeOnly = False - Me.txtAnlage1._numbersOnly = False - Me.txtAnlage1._numbersOnlyKommastellen = "" - Me.txtAnlage1._Prozent = False - Me.txtAnlage1._ShortDateNew = False - Me.txtAnlage1._ShortDateOnly = False - Me.txtAnlage1._TimeOnly = False - Me.txtAnlage1._value = Nothing - Me.txtAnlage1._Waehrung = False - Me.txtAnlage1.ForeColor = System.Drawing.Color.Black - Me.txtAnlage1.Location = New System.Drawing.Point(254, 162) - Me.txtAnlage1.MaxLineLength = -1 - Me.txtAnlage1.MaxLines_Warning = "" - Me.txtAnlage1.MaxLines_Warning_Label = Nothing - Me.txtAnlage1.Name = "txtAnlage1" - Me.txtAnlage1.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage1.TabIndex = 29 - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(170, 165) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(49, 13) - Me.Label11.TabIndex = 28 - Me.Label11.Text = "Anlagen:" - ' 'pic ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.pic.Cursor = System.Windows.Forms.Cursors.Hand Me.pic.Location = New System.Drawing.Point(5, 5) @@ -188,7 +141,7 @@ Partial Class usrcntlVerzollungsunterlagen 'btnDown ' Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDown.BackgroundImage = Global.SDL.My.Resources.pfeil_unten + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDown.Location = New System.Drawing.Point(976, 42) @@ -200,7 +153,7 @@ Partial Class usrcntlVerzollungsunterlagen 'btnUp ' Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnUp.BackgroundImage = Global.SDL.My.Resources.pfeil_oben + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUp.Location = New System.Drawing.Point(976, 22) @@ -212,7 +165,7 @@ Partial Class usrcntlVerzollungsunterlagen 'btnDel ' Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.BackgroundImage = Global.SDL.My.Resources.del + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDel.Location = New System.Drawing.Point(976, -1) @@ -252,6 +205,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse3._TimeOnly = False Me.txtAdresse3._value = Nothing Me.txtAdresse3._Waehrung = False + Me.txtAdresse3._WaehrungZeichen = True Me.txtAdresse3.ForeColor = System.Drawing.Color.Black Me.txtAdresse3.Location = New System.Drawing.Point(254, 110) Me.txtAdresse3.MaxLineLength = -1 @@ -272,6 +226,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtFirma2._TimeOnly = False Me.txtFirma2._value = Nothing Me.txtFirma2._Waehrung = False + Me.txtFirma2._WaehrungZeichen = True Me.txtFirma2.ForeColor = System.Drawing.Color.Black Me.txtFirma2.Location = New System.Drawing.Point(254, 53) Me.txtFirma2.MaxLineLength = -1 @@ -281,165 +236,49 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtFirma2.Size = New System.Drawing.Size(709, 20) Me.txtFirma2.TabIndex = 38 ' - 'txtAnlage2 + 'PictureBox1 ' - Me.txtAnlage2._DateTimeOnly = False - Me.txtAnlage2._numbersOnly = False - Me.txtAnlage2._numbersOnlyKommastellen = "" - Me.txtAnlage2._Prozent = False - Me.txtAnlage2._ShortDateNew = False - Me.txtAnlage2._ShortDateOnly = False - Me.txtAnlage2._TimeOnly = False - Me.txtAnlage2._value = Nothing - Me.txtAnlage2._Waehrung = False - Me.txtAnlage2.ForeColor = System.Drawing.Color.Black - Me.txtAnlage2.Location = New System.Drawing.Point(254, 181) - Me.txtAnlage2.MaxLineLength = -1 - Me.txtAnlage2.MaxLines_Warning = "" - Me.txtAnlage2.MaxLines_Warning_Label = Nothing - Me.txtAnlage2.Name = "txtAnlage2" - Me.txtAnlage2.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage2.TabIndex = 39 + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.word + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox1.Location = New System.Drawing.Point(5, 53) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(32, 32) + Me.PictureBox1.TabIndex = 52 + Me.PictureBox1.TabStop = False ' - 'txtAnlage4 + 'txtFirma ' - Me.txtAnlage4._DateTimeOnly = False - Me.txtAnlage4._numbersOnly = False - Me.txtAnlage4._numbersOnlyKommastellen = "" - Me.txtAnlage4._Prozent = False - Me.txtAnlage4._ShortDateNew = False - Me.txtAnlage4._ShortDateOnly = False - Me.txtAnlage4._TimeOnly = False - Me.txtAnlage4._value = Nothing - Me.txtAnlage4._Waehrung = False - Me.txtAnlage4.ForeColor = System.Drawing.Color.Black - Me.txtAnlage4.Location = New System.Drawing.Point(254, 219) - Me.txtAnlage4.MaxLineLength = -1 - Me.txtAnlage4.MaxLines_Warning = "" - Me.txtAnlage4.MaxLines_Warning_Label = Nothing - Me.txtAnlage4.Name = "txtAnlage4" - Me.txtAnlage4.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage4.TabIndex = 41 + Me.txtFirma._AllowSetValue = True + Me.txtFirma._autoSizeGross = False + Me.txtFirma._display_Name1 = True + Me.txtFirma._displayAVISO_Email = False + Me.txtFirma._displayFullName = False + Me.txtFirma._displayWoelflKd = False + Me.txtFirma._hideIfListEmpty = True + Me.txtFirma._loadKdData = True + Me.txtFirma._ValueKdAndName = False + Me.txtFirma.dgvpos = "LEFT" + Me.txtFirma.KdName = Nothing + Me.txtFirma.KdNr = "-1" + Me.txtFirma.kdNrField = Nothing + Me.txtFirma.KdNrNullInt = Nothing + Me.txtFirma.Location = New System.Drawing.Point(254, 35) + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.nurAktive = True + Me.txtFirma.searchActive = True + Me.txtFirma.Size = New System.Drawing.Size(709, 20) + Me.txtFirma.TabIndex = 53 + Me.txtFirma.usrcntl = Nothing ' - 'txtAnlage3 + 'Label1 ' - Me.txtAnlage3._DateTimeOnly = False - Me.txtAnlage3._numbersOnly = False - Me.txtAnlage3._numbersOnlyKommastellen = "" - Me.txtAnlage3._Prozent = False - Me.txtAnlage3._ShortDateNew = False - Me.txtAnlage3._ShortDateOnly = False - Me.txtAnlage3._TimeOnly = False - Me.txtAnlage3._value = Nothing - Me.txtAnlage3._Waehrung = False - Me.txtAnlage3.ForeColor = System.Drawing.Color.Black - Me.txtAnlage3.Location = New System.Drawing.Point(254, 200) - Me.txtAnlage3.MaxLineLength = -1 - Me.txtAnlage3.MaxLines_Warning = "" - Me.txtAnlage3.MaxLines_Warning_Label = Nothing - Me.txtAnlage3.Name = "txtAnlage3" - Me.txtAnlage3.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage3.TabIndex = 40 - ' - 'txtAnlage6 - ' - Me.txtAnlage6._DateTimeOnly = False - Me.txtAnlage6._numbersOnly = False - Me.txtAnlage6._numbersOnlyKommastellen = "" - Me.txtAnlage6._Prozent = False - Me.txtAnlage6._ShortDateNew = False - Me.txtAnlage6._ShortDateOnly = False - Me.txtAnlage6._TimeOnly = False - Me.txtAnlage6._value = Nothing - Me.txtAnlage6._Waehrung = False - Me.txtAnlage6.ForeColor = System.Drawing.Color.Black - Me.txtAnlage6.Location = New System.Drawing.Point(254, 257) - Me.txtAnlage6.MaxLineLength = -1 - Me.txtAnlage6.MaxLines_Warning = "" - Me.txtAnlage6.MaxLines_Warning_Label = Nothing - Me.txtAnlage6.Name = "txtAnlage6" - Me.txtAnlage6.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage6.TabIndex = 43 - ' - 'txtAnlage5 - ' - Me.txtAnlage5._DateTimeOnly = False - Me.txtAnlage5._numbersOnly = False - Me.txtAnlage5._numbersOnlyKommastellen = "" - Me.txtAnlage5._Prozent = False - Me.txtAnlage5._ShortDateNew = False - Me.txtAnlage5._ShortDateOnly = False - Me.txtAnlage5._TimeOnly = False - Me.txtAnlage5._value = Nothing - Me.txtAnlage5._Waehrung = False - Me.txtAnlage5.ForeColor = System.Drawing.Color.Black - Me.txtAnlage5.Location = New System.Drawing.Point(254, 238) - Me.txtAnlage5.MaxLineLength = -1 - Me.txtAnlage5.MaxLines_Warning = "" - Me.txtAnlage5.MaxLines_Warning_Label = Nothing - Me.txtAnlage5.Name = "txtAnlage5" - Me.txtAnlage5.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage5.TabIndex = 42 - ' - 'txtBearbeiter - ' - Me.txtBearbeiter._DateTimeOnly = False - Me.txtBearbeiter._numbersOnly = False - Me.txtBearbeiter._numbersOnlyKommastellen = "" - Me.txtBearbeiter._Prozent = False - Me.txtBearbeiter._ShortDateNew = False - Me.txtBearbeiter._ShortDateOnly = False - Me.txtBearbeiter._TimeOnly = False - Me.txtBearbeiter._value = Nothing - Me.txtBearbeiter._Waehrung = False - Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black - Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219) - Me.txtBearbeiter.MaxLineLength = -1 - Me.txtBearbeiter.MaxLines_Warning = "" - Me.txtBearbeiter.MaxLines_Warning_Label = Nothing - Me.txtBearbeiter.Name = "txtBearbeiter" - Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20) - Me.txtBearbeiter.TabIndex = 48 - ' - 'txtEmail - ' - Me.txtEmail._DateTimeOnly = False - Me.txtEmail._numbersOnly = False - Me.txtEmail._numbersOnlyKommastellen = "" - Me.txtEmail._Prozent = False - Me.txtEmail._ShortDateNew = False - Me.txtEmail._ShortDateOnly = False - Me.txtEmail._TimeOnly = False - Me.txtEmail._value = Nothing - Me.txtEmail._Waehrung = False - Me.txtEmail.ForeColor = System.Drawing.Color.Black - Me.txtEmail.Location = New System.Drawing.Point(653, 200) - Me.txtEmail.MaxLineLength = -1 - Me.txtEmail.MaxLines_Warning = "" - Me.txtEmail.MaxLines_Warning_Label = Nothing - Me.txtEmail.Name = "txtEmail" - Me.txtEmail.Size = New System.Drawing.Size(310, 20) - Me.txtEmail.TabIndex = 47 - ' - 'txtFax - ' - Me.txtFax._DateTimeOnly = False - Me.txtFax._numbersOnly = False - Me.txtFax._numbersOnlyKommastellen = "" - Me.txtFax._Prozent = False - Me.txtFax._ShortDateNew = False - Me.txtFax._ShortDateOnly = False - Me.txtFax._TimeOnly = False - Me.txtFax._value = Nothing - Me.txtFax._Waehrung = False - Me.txtFax.ForeColor = System.Drawing.Color.Black - Me.txtFax.Location = New System.Drawing.Point(653, 181) - Me.txtFax.MaxLineLength = -1 - Me.txtFax.MaxLines_Warning = "" - Me.txtFax.MaxLines_Warning_Label = Nothing - Me.txtFax.Name = "txtFax" - Me.txtFax.Size = New System.Drawing.Size(310, 20) - Me.txtFax.TabIndex = 46 + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(580, 165) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(46, 13) + Me.Label1.TabIndex = 44 + Me.Label1.Text = "Telefon:" ' 'txtTel ' @@ -452,6 +291,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtTel._TimeOnly = False Me.txtTel._value = Nothing Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black Me.txtTel.Location = New System.Drawing.Point(653, 162) Me.txtTel.MaxLineLength = -1 @@ -461,14 +301,68 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtTel.Size = New System.Drawing.Size(310, 20) Me.txtTel.TabIndex = 45 ' - 'Label1 + 'txtFax ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(580, 165) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(46, 13) - Me.Label1.TabIndex = 44 - Me.Label1.Text = "Telefon:" + Me.txtFax._DateTimeOnly = False + Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._Prozent = False + Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False + Me.txtFax._TimeOnly = False + Me.txtFax._value = Nothing + Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True + Me.txtFax.ForeColor = System.Drawing.Color.Black + Me.txtFax.Location = New System.Drawing.Point(653, 181) + Me.txtFax.MaxLineLength = -1 + Me.txtFax.MaxLines_Warning = "" + Me.txtFax.MaxLines_Warning_Label = Nothing + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(310, 20) + Me.txtFax.TabIndex = 46 + ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(653, 200) + Me.txtEmail.MaxLineLength = -1 + Me.txtEmail.MaxLines_Warning = "" + Me.txtEmail.MaxLines_Warning_Label = Nothing + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(310, 20) + Me.txtEmail.TabIndex = 47 + ' + 'txtBearbeiter + ' + Me.txtBearbeiter._DateTimeOnly = False + Me.txtBearbeiter._numbersOnly = False + Me.txtBearbeiter._numbersOnlyKommastellen = "" + Me.txtBearbeiter._Prozent = False + Me.txtBearbeiter._ShortDateNew = False + Me.txtBearbeiter._ShortDateOnly = False + Me.txtBearbeiter._TimeOnly = False + Me.txtBearbeiter._value = Nothing + Me.txtBearbeiter._Waehrung = False + Me.txtBearbeiter._WaehrungZeichen = True + Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black + Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219) + Me.txtBearbeiter.MaxLineLength = -1 + Me.txtBearbeiter.MaxLines_Warning = "" + Me.txtBearbeiter.MaxLines_Warning_Label = Nothing + Me.txtBearbeiter.Name = "txtBearbeiter" + Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20) + Me.txtBearbeiter.TabIndex = 48 ' 'Label2 ' @@ -497,40 +391,161 @@ Partial Class usrcntlVerzollungsunterlagen Me.Label4.TabIndex = 51 Me.Label4.Text = "Bearbeiter:" ' - 'PictureBox1 + 'Label11 ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.word - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox1.Location = New System.Drawing.Point(5, 53) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(32, 32) - Me.PictureBox1.TabIndex = 52 - Me.PictureBox1.TabStop = False + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(170, 165) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(49, 13) + Me.Label11.TabIndex = 28 + Me.Label11.Text = "Anlagen:" ' - 'txtFirma + 'txtAnlage1 ' - Me.txtFirma._AllowSetValue = True - Me.txtFirma._autoSizeGross = False - Me.txtFirma._display_Name1 = True - Me.txtFirma._displayAVISO_Email = False - Me.txtFirma._displayFullName = False - Me.txtFirma._displayWoelflKd = False - Me.txtFirma._hideIfListEmpty = True - Me.txtFirma._loadKdData = True - Me.txtFirma._ValueKdAndName = False - Me.txtFirma.dgvpos = "LEFT" - Me.txtFirma.KdName = Nothing - Me.txtFirma.KdNr = "-1" - Me.txtFirma.kdNrField = Nothing - Me.txtFirma.KdNrNullInt = 0 - Me.txtFirma.Location = New System.Drawing.Point(254, 35) - Me.txtFirma.Name = "txtFirma" - Me.txtFirma.nurAktive = True - Me.txtFirma.searchActive = True - Me.txtFirma.Size = New System.Drawing.Size(709, 20) - Me.txtFirma.TabIndex = 53 - Me.txtFirma.usrcntl = Nothing + Me.txtAnlage1._DateTimeOnly = False + Me.txtAnlage1._numbersOnly = False + Me.txtAnlage1._numbersOnlyKommastellen = "" + Me.txtAnlage1._Prozent = False + Me.txtAnlage1._ShortDateNew = False + Me.txtAnlage1._ShortDateOnly = False + Me.txtAnlage1._TimeOnly = False + Me.txtAnlage1._value = Nothing + Me.txtAnlage1._Waehrung = False + Me.txtAnlage1._WaehrungZeichen = True + Me.txtAnlage1.ForeColor = System.Drawing.Color.Black + Me.txtAnlage1.Location = New System.Drawing.Point(254, 162) + Me.txtAnlage1.MaxLineLength = -1 + Me.txtAnlage1.MaxLines_Warning = "" + Me.txtAnlage1.MaxLines_Warning_Label = Nothing + Me.txtAnlage1.Name = "txtAnlage1" + Me.txtAnlage1.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage1.TabIndex = 29 + ' + 'txtAnlage2 + ' + Me.txtAnlage2._DateTimeOnly = False + Me.txtAnlage2._numbersOnly = False + Me.txtAnlage2._numbersOnlyKommastellen = "" + Me.txtAnlage2._Prozent = False + Me.txtAnlage2._ShortDateNew = False + Me.txtAnlage2._ShortDateOnly = False + Me.txtAnlage2._TimeOnly = False + Me.txtAnlage2._value = Nothing + Me.txtAnlage2._Waehrung = False + Me.txtAnlage2._WaehrungZeichen = True + Me.txtAnlage2.ForeColor = System.Drawing.Color.Black + Me.txtAnlage2.Location = New System.Drawing.Point(254, 181) + Me.txtAnlage2.MaxLineLength = -1 + Me.txtAnlage2.MaxLines_Warning = "" + Me.txtAnlage2.MaxLines_Warning_Label = Nothing + Me.txtAnlage2.Name = "txtAnlage2" + Me.txtAnlage2.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage2.TabIndex = 39 + ' + 'txtAnlage3 + ' + Me.txtAnlage3._DateTimeOnly = False + Me.txtAnlage3._numbersOnly = False + Me.txtAnlage3._numbersOnlyKommastellen = "" + Me.txtAnlage3._Prozent = False + Me.txtAnlage3._ShortDateNew = False + Me.txtAnlage3._ShortDateOnly = False + Me.txtAnlage3._TimeOnly = False + Me.txtAnlage3._value = Nothing + Me.txtAnlage3._Waehrung = False + Me.txtAnlage3._WaehrungZeichen = True + Me.txtAnlage3.ForeColor = System.Drawing.Color.Black + Me.txtAnlage3.Location = New System.Drawing.Point(254, 200) + Me.txtAnlage3.MaxLineLength = -1 + Me.txtAnlage3.MaxLines_Warning = "" + Me.txtAnlage3.MaxLines_Warning_Label = Nothing + Me.txtAnlage3.Name = "txtAnlage3" + Me.txtAnlage3.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage3.TabIndex = 40 + ' + 'txtAnlage4 + ' + Me.txtAnlage4._DateTimeOnly = False + Me.txtAnlage4._numbersOnly = False + Me.txtAnlage4._numbersOnlyKommastellen = "" + Me.txtAnlage4._Prozent = False + Me.txtAnlage4._ShortDateNew = False + Me.txtAnlage4._ShortDateOnly = False + Me.txtAnlage4._TimeOnly = False + Me.txtAnlage4._value = Nothing + Me.txtAnlage4._Waehrung = False + Me.txtAnlage4._WaehrungZeichen = True + Me.txtAnlage4.ForeColor = System.Drawing.Color.Black + Me.txtAnlage4.Location = New System.Drawing.Point(254, 219) + Me.txtAnlage4.MaxLineLength = -1 + Me.txtAnlage4.MaxLines_Warning = "" + Me.txtAnlage4.MaxLines_Warning_Label = Nothing + Me.txtAnlage4.Name = "txtAnlage4" + Me.txtAnlage4.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage4.TabIndex = 41 + ' + 'txtAnlage5 + ' + Me.txtAnlage5._DateTimeOnly = False + Me.txtAnlage5._numbersOnly = False + Me.txtAnlage5._numbersOnlyKommastellen = "" + Me.txtAnlage5._Prozent = False + Me.txtAnlage5._ShortDateNew = False + Me.txtAnlage5._ShortDateOnly = False + Me.txtAnlage5._TimeOnly = False + Me.txtAnlage5._value = Nothing + Me.txtAnlage5._Waehrung = False + Me.txtAnlage5._WaehrungZeichen = True + Me.txtAnlage5.ForeColor = System.Drawing.Color.Black + Me.txtAnlage5.Location = New System.Drawing.Point(254, 238) + Me.txtAnlage5.MaxLineLength = -1 + Me.txtAnlage5.MaxLines_Warning = "" + Me.txtAnlage5.MaxLines_Warning_Label = Nothing + Me.txtAnlage5.Name = "txtAnlage5" + Me.txtAnlage5.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage5.TabIndex = 42 + ' + 'txtAnlage6 + ' + Me.txtAnlage6._DateTimeOnly = False + Me.txtAnlage6._numbersOnly = False + Me.txtAnlage6._numbersOnlyKommastellen = "" + Me.txtAnlage6._Prozent = False + Me.txtAnlage6._ShortDateNew = False + Me.txtAnlage6._ShortDateOnly = False + Me.txtAnlage6._TimeOnly = False + Me.txtAnlage6._value = Nothing + Me.txtAnlage6._Waehrung = False + Me.txtAnlage6._WaehrungZeichen = True + Me.txtAnlage6.ForeColor = System.Drawing.Color.Black + Me.txtAnlage6.Location = New System.Drawing.Point(254, 257) + Me.txtAnlage6.MaxLineLength = -1 + Me.txtAnlage6.MaxLines_Warning = "" + Me.txtAnlage6.MaxLines_Warning_Label = Nothing + Me.txtAnlage6.Name = "txtAnlage6" + Me.txtAnlage6.Size = New System.Drawing.Size(310, 20) + Me.txtAnlage6.TabIndex = 43 + ' + 'txtPosNr + ' + Me.txtPosNr._DateTimeOnly = False + Me.txtPosNr._numbersOnly = False + Me.txtPosNr._numbersOnlyKommastellen = "" + Me.txtPosNr._Prozent = False + Me.txtPosNr._ShortDateNew = False + Me.txtPosNr._ShortDateOnly = False + Me.txtPosNr._TimeOnly = False + Me.txtPosNr._value = Nothing + Me.txtPosNr._Waehrung = False + Me.txtPosNr._WaehrungZeichen = True + Me.txtPosNr.ForeColor = System.Drawing.Color.Black + Me.txtPosNr.Location = New System.Drawing.Point(254, 136) + Me.txtPosNr.MaxLineLength = -1 + Me.txtPosNr.MaxLines_Warning = "" + Me.txtPosNr.MaxLines_Warning_Label = Nothing + Me.txtPosNr.Name = "txtPosNr" + Me.txtPosNr.Size = New System.Drawing.Size(310, 20) + Me.txtPosNr.TabIndex = 27 ' 'usrcntlVerzollungsunterlagen ' @@ -581,10 +596,7 @@ Partial Class usrcntlVerzollungsunterlagen Friend WithEvents lbl As System.Windows.Forms.Label Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents txtAnlage1 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents pic As System.Windows.Forms.PictureBox Friend WithEvents btnDown As System.Windows.Forms.Button Friend WithEvents btnUp As System.Windows.Forms.Button @@ -593,20 +605,22 @@ Partial Class usrcntlVerzollungsunterlagen Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtFirma2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAnlage2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAnlage3 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtBearbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox - + Friend WithEvents Label1 As Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBearbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label11 As Label + Friend WithEvents txtAnlage1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnlage2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnlage3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb new file mode 100644 index 00000000..d110511d --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb @@ -0,0 +1,337 @@ + +Partial Class usrcntlVerzollungsunterlagen_BAR + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblVollmachtDE + ' + Me.lblVollmachtDE.AutoSize = True + Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(197, 20) + Me.lblVollmachtDE.TabIndex = 2 + Me.lblVollmachtDE.Text = "Verzoll.unterlagen BAR" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 63) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(78, 13) + Me.lbl.TabIndex = 11 + Me.lbl.Text = "Firmenwortlaut:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(170, 37) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(76, 13) + Me.Label6.TabIndex = 5 + Me.Label6.Text = "Filiale/Pos.Nr::" + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(254, 80) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 14 + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 30 + Me.pic.TabStop = False + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 10 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 4 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'txtFirma + ' + Me.txtFirma._AllowSetValue = True + Me.txtFirma._autoSizeGross = False + Me.txtFirma._display_Name1 = True + Me.txtFirma._displayAVISO_Email = False + Me.txtFirma._displayFullName = False + Me.txtFirma._displayWoelflKd = False + Me.txtFirma._hideIfListEmpty = True + Me.txtFirma._loadKdData = True + Me.txtFirma._ValueKdAndName = False + Me.txtFirma.dgvpos = "LEFT" + Me.txtFirma.KdName = Nothing + Me.txtFirma.KdNr = "-1" + Me.txtFirma.kdNrField = Nothing + Me.txtFirma.KdNrNullInt = Nothing + Me.txtFirma.Location = New System.Drawing.Point(254, 61) + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.nurAktive = True + Me.txtFirma.searchActive = True + Me.txtFirma.Size = New System.Drawing.Size(709, 20) + Me.txtFirma.TabIndex = 12 + Me.txtFirma.usrcntl = Nothing + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 200 + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(254, 34) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(67, 21) + Me.cboFiliale.TabIndex = 6 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(320, 34) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Multiline = True + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(244, 21) + Me.txtAbfertigungsnummer.TabIndex = 7 + ' + 'cboRechnungAn + ' + Me.cboRechnungAn._allowedValuesFreiText = Nothing + Me.cboRechnungAn._allowFreiText = False + Me.cboRechnungAn._value = "" + Me.cboRechnungAn.FormattingEnabled = True + Me.cboRechnungAn.Location = New System.Drawing.Point(780, 34) + Me.cboRechnungAn.Name = "cboRechnungAn" + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) + Me.cboRechnungAn.TabIndex = 9 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(733, 37) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Kunde:" + ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(563, 34) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 31 + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.Transparent + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.Location = New System.Drawing.Point(639, 21) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(83, 34) + Me.Button1.TabIndex = 32 + Me.Button1.Text = "Daten laden" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(170, 109) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(31, 13) + Me.Label2.TabIndex = 33 + Me.Label2.Text = "Text:" + ' + 'cboTEXT + ' + Me.cboTEXT._allowedValuesFreiText = Nothing + Me.cboTEXT._allowFreiText = False + Me.cboTEXT._value = "" + Me.cboTEXT.FormattingEnabled = True + Me.cboTEXT.Location = New System.Drawing.Point(254, 106) + Me.cboTEXT.Name = "cboTEXT" + Me.cboTEXT.Size = New System.Drawing.Size(183, 21) + Me.cboTEXT.TabIndex = 34 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(44, 44) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 35 + Me.Label12.Text = "Sprache:" + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 60) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 36 + ' + 'usrcntlVerzollungsunterlagen_BAR + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cboTEXT) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.cboSpedBuchUnterNr) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.cboRechnungAn) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Controls.Add(Me.cboFiliale) + Me.Controls.Add(Me.txtAbfertigungsnummer) + Me.Controls.Add(Me.Label6) + Me.Name = "usrcntlVerzollungsunterlagen_BAR" + Me.Size = New System.Drawing.Size(1000, 147) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Public WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboRechnungAn As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label1 As Label + Friend WithEvents cboSpedBuchUnterNr As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button1 As Button + Friend WithEvents Label2 As Label + Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label12 As Label + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb new file mode 100644 index 00000000..31d53d34 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb @@ -0,0 +1,252 @@ +Public Class usrcntlVerzollungsunterlagen_BAR + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + 'initKdNR(kdnr) + txtFirma.KdNr = kdnr + End Sub + + 'Dim KdNR As Integer = -1 + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + + + + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + + initSprache() + + txtFirma.initKdBox(Me.FindForm) + AddHandler txtFirma.PropertyChanged, Sub() + Me.KdNR = txtFirma.KdNr_value + If txtFirma.KdNr_value > 0 Then + If txtFirma.KdData_ADRESSEN IsNot Nothing Then + Dim ADRESSE = txtFirma.KdData_ADRESSEN + txtFirma.Text = If(ADRESSE.Name_1, ADRESSE.Ordnungsbegriff) + txtAdresse1.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + End If + End If + RaiseEvent KDNR_CHANGED(KdNR) + End Sub + initControlsHandler() + + If KdNR > 0 Then txtFirma.KdNr = KdNR + + + + cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal", "AT_FISKAL")) + cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal", "DE_FISKAL")) + + + ' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) + + + cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Absender", "1")) + cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Empfänger", "2")) + cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Auftraggeber", "3")) + cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Avisierer", "4")) + + + loaded = True + End Sub + + Sub initSprache() + If cboTEXT._value = "DE_FISKAL" Then + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cboSprache.changeItem("EN") + Else + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cboSprache.changeItem("DE") + End If + + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) + FormularManagerNEU.genPDF(Me, , , , True) + End Sub + + Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged + Select Case cboRechnungAn._value + Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr) + Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr) + Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr) + Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr) + Case Else : loadAdressen(-1) + End Select + End Sub + + Sub loadAdressen(KdNr) + Me.KdNR = KdNr + If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) + txtFirma.Text = If(AD.Name_1, "") + ' txtFirma2.Text = If(AD.Name_2, "") + txtAdresse1.Text = If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") + + Else + txtFirma.Text = "" + ' txtFirma2.Text = "" + txtAdresse1.Text = "" + End If + + + + End Sub + + Private Sub txtAbfertigungsNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave + If txtAbfertigungsnummer.Text.Length >= 8 And cboFiliale._value <> "" Then + If cboRechnungAn._value = "" Then cboRechnungAn.changeItem("2") + + End If + + End Sub + + Sub loadData() + Dim Spedbuch As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch() + End Sub + + + Private Sub txtAbfertigungsnummer_Leave(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave + If IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text.Length <= 6 Then + txtAbfertigungsnummer.Text = Now.ToString("yy") & CInt(txtAbfertigungsnummer.Text).ToString("000000") + End If + End Sub + + Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.TextChanged, cboFiliale.TextChanged + If cboFiliale.Text.StartsWith("/") Then + If cboFiliale.Text.EndsWith("/") And cboFiliale.Text.Contains("-") Then + Dim t As String = cboFiliale.Text + t = t.Replace("/", "") + Dim v() = t.Split("-") + If v.Length > 1 Then + txtAbfertigungsnummer.Text = v(1) + + loadedFilAbf = False 'damit changeItem kein erneuters laden verursachts + cboFiliale.changeItem(v(0)) + loadedFilAbf = True + + getFilialeAbfertNUrnterNr(v(0), v(1)) + + End If + End If + Else + getFilialeAbfertNUrnterNr(cboFiliale._value, txtAbfertigungsnummer.Text) + End If + End Sub + Dim loaded = False + Dim loadedFilAbf = True + Sub getFilialeAbfertNUrnterNr(FilialenNr, AbfertigungsNr) + If Not loadedFilAbf Then Exit Sub + If FilialenNr <> String.Empty And AbfertigungsNr.Length >= 8 Then + cboSpedBuchUnterNr.fillWithSQL("SELECT [UnterNr], convert(varchar(10),[Abfertigungsdatum], 104) + ' | ' + cast(Abfertigungsarten.Abfertigungsart as varchar(2)) + ' ' + Abfertigungsarten.Abfertigungsbezeichnung + ' - ' + isnull(cast(EmpfängerKundenNr as varchar(10)),'') + ' ' + isnull(Empfänger,'') " & + " FROM [Speditionsbuch] inner join Abfertigungsarten on Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart where FilialenNr='" & FilialenNr & "' and AbfertigungsNr='" & AbfertigungsNr & "'", True, "FMZOLL", False) + If loaded Then + If cboSpedBuchUnterNr.Items.Count = 1 Then + cboSpedBuchUnterNr.SelectedIndex = 0 + Button1.PerformClick() + End If + End If + Else + cboSpedBuchUnterNr.Items.Clear() + End If + End Sub + + + Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave + 'If cboFiliale.Text.StartsWith("/") Then + ' loadedFilAbf = False 'damit changeItem kein erneuters laden verursachts + ' cboFiliale.changeItem(RECHNUNG.FilialenNr) + ' loadedFilAbf = True + 'End If + + 'If cboSpedBuchUnterNr.Items.Count = 1 Then + ' cboSpedBuchUnterNr.SelectedIndex = 0 + 'ElseIf cboSpedBuchUnterNr.Items.Count > 1 Then + ' cboSpedBuchUnterNr.DroppedDown = True + ' cboSpedBuchUnterNr.Focus() + 'End If + End Sub + + + Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value) 'txtUnterNr.Text) + If Not SPEDBUCH.hasEntry Then Exit Sub + Dim FORMULARE As frmFormulare = Me.FindForm + + If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing AndAlso SPEDBUCH.DokumentId_Steuerbeleg.ToString <> "" Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Steuerbeleg) + FORMULARE.addForm("Sonst_PDF", {DS.OPEN_SINGLE(False)}) + End If + If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing AndAlso SPEDBUCH.DokumentId_Mitteilung.ToString <> "" Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Mitteilung) + FORMULARE.addForm("Sonst_PDF", {DS.OPEN_SINGLE(False)}) + End If + txtFirma.Focus() ' Leave + + Select Case SPEDBUCH.Abfertigungsart + Case "26", "38" + cboTEXT.changeItem("AT_FISKAL") + Case "28" 'DE + cboTEXT.changeItem("DE_FISKAL") + End Select + End Sub + + Private Sub cboTEXT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTEXT.SelectedIndexChanged + initSprache() + End Sub +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index e7c2f764..6aebeffa 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -301,7 +301,7 @@ Public Class frmFormulare End Sub - Sub addForm(valueTMP As String, Optional param() As Object = Nothing) + Public Sub addForm(valueTMP As String, Optional param() As Object = Nothing) Try Select Case valueTMP Case FormularManagerArten.DE_Vollmacht @@ -551,6 +551,15 @@ Public Class frmFormulare AddHandler c.MOVE_UP, AddressOf ControlMoveUp AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown MyFlowLayoutPanel1.Controls.Add(c) + Case FormularManagerArten.VerzollungsunterlagenBAR + ' If param Is Nothing Then Exit Sub + Dim c As New usrcntlVerzollungsunterlagen_BAR() + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) Case FormularManagerArten.AT_InformationsblattFiskalverzollung, FormularManagerArten.DE_InformationsblattFiskalverzollung Dim displayName = "" ' If param Is Nothing Then Exit Sub @@ -707,6 +716,13 @@ Public Class frmFormulare Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click, btnPrint.Click Me.Cursor = Cursors.WaitCursor + Dim MailHTMLText = "" + Dim Mail_To = "" + Dim Mail_CC = "" + Dim Mail_Subject = "" + + + Try 'VALIDIERUNG: @@ -728,13 +744,13 @@ Public Class frmFormulare If isSingleForm And sender Is btnPrint Then 'Sofortdruck --> wir bei ActiveRepots benötigt --> schneller, als zuerst pdf.... If Not MyFlowLayoutPanel1.Controls.Count = 1 Then Me.Cursor = Cursors.Default : Exit Sub 'funkt. nur bei genau 1 Control - FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString) + FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject) Else Dim list As New List(Of String) ' Sammlung PDFs For Each c In MyFlowLayoutPanel1.Controls - Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c) + Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject) For Each pfad In pfadList If pfad <> "" Then list.Add(pfad) Next @@ -819,7 +835,7 @@ Public Class frmFormulare ' MailMessage.From = New MailAddress("someone@yourdomain.com") MailMessage.Subject = "" ' "Your subject here" MailMessage.IsBodyHtml = True - MailMessage.Body = "" '"My HTML formatted body" + MailMessage.Body = MailHTMLText '"My HTML formatted body" MailMessage.Attachments.Add(New Attachment(dest_path)) @@ -854,6 +870,10 @@ Public Class frmFormulare Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) + If MailHTMLText <> "" Then Mail.HTMLBody = MailHTMLText + If Mail_To <> "" Then Mail.To = Mail_To + If Mail_CC <> "" Then Mail.CC = Mail_CC + If Mail_Subject <> "" Then Mail.Subject = Mail_Subject Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf") @@ -1035,7 +1055,7 @@ End Class Public Class FormularManagerNEU Shared VSQL As New VERAG_PROG_ALLGEMEIN.SQL - Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False) As List(Of String) + Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef MailHTMLText As String = "", Optional ByRef Mail_To As String = "", Optional ByRef Mail_CC As String = "", Optional ByRef Mail_Subject As String = "") As List(Of String) Dim retStr = "" Dim striList As New List(Of String) Select Case c.GetType.ToString @@ -1081,6 +1101,8 @@ Public Class FormularManagerNEU retStr = FormularManagerNEU.FiskalInfoschreiben(c) Case GetType(usrcntlVerzollungsunterlagen).ToString striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord) + Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString + striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, MailHTMLText, Mail_To, Mail_CC, Mail_Subject) Case GetType(usrcntlQS_UeDok).ToString retStr = FormularManagerNEU.QS_UeDok(c) @@ -2702,6 +2724,132 @@ Public Class FormularManagerNEU End Function + Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef MailHTMLText As String, ByRef Mail_To As String, ByRef Mail_CC As String, ByRef Mail_Subject As String) As List(Of String) + Try + + MailHTMLText = "
" + + If usrCntl.KdNR > 0 Then + Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR) + If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "") + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR) + If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "") + End If + + Select Case usrCntl.cboTEXT._value + Case "AT_FISKAL" + Select Case usrCntl.cboSprache._value + Case "DE", "" + Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" + MailHTMLText &= "!!! DRINGENDE ZOLLSACHE !!!
" + MailHTMLText &= "
" + MailHTMLText &= "Sehr geehrte Damen und Herren,
" + MailHTMLText &= "
" + MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.
" + MailHTMLText &= "
" + MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als ""innergemeinschaftlichen Erwerb""
" + MailHTMLText &= "mit unser Sonder - UID-Nr.: ATU 68374145 an.
" + MailHTMLText &= "
" + MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine Intrastat Anmeldung zu machen ist!
" + MailHTMLText &= "
" + MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen.
" + MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!
" + MailHTMLText &= "
" + MailHTMLText &= "Bitte:
" + MailHTMLText &= "
" + MailHTMLText &= "• GUT LESBAR
" + MailHTMLText &= "• VERMERK: WAREN ERHALTEN
" + MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME
" + MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL
" + MailHTMLText &= "• ORIGINAL UNTERSCHRIFT
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Post Adresse:
" + MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" + MailHTMLText &= "POSTFACH 1013
" + MailHTMLText &= "D 94152 NEUHAUS AM INN
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Freundlichen Grüßen
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("D", 11) + Case "EN" + + Mail_Subject = "intra-community acquisition" + MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" + MailHTMLText &= "
" + MailHTMLText &= "Dear Sir / Madam,
" + MailHTMLText &= "
" + MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" + MailHTMLText &= "
" + MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as
" + MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." + MailHTMLText &= "
" + MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat decleration!
" + MailHTMLText &= "
" + MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading.
" + MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!
" + MailHTMLText &= "
" + MailHTMLText &= "Please ensure the following:
" + MailHTMLText &= "
" + MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE
" + MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED
" + MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS
" + MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP
" + MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Adress:
" + MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" + MailHTMLText &= "POSTFACH 1013
" + MailHTMLText &= "D 94152 NEUHAUS AM INN
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Yours faithfully,
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("EN", 11) + + End Select + + Case "DE_FISKAL" + Select Case usrCntl.cboSprache._value + Case "EN" + + Mail_Subject = "intra-community acquisition" + MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" + MailHTMLText &= "
" + MailHTMLText &= "Dear Sir / Madam,
" + MailHTMLText &= "
" + MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" + MailHTMLText &= "
" + MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""intra-Community acquisition"" with our special value added tax identification number DE 813667748.
" + MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." + MailHTMLText &= "
" + MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Yours faithfully,
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("EN", 99) + + End Select + + 'MailHTMLText &= cFakturierung.getSignature(11) + End Select + + MailHTMLText &= "
" + 'MAIL?? + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + Return New List(Of String) + End Function + + Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager @@ -3158,6 +3306,7 @@ Public Class FormularManagerArten Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung" Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung" Shared Property Verzollungsunterlagen = "Verzollungsunterlagen" + Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR" Shared Property QS_UeDok = "QS_UeDok" Shared Property SA_Gestellung = "SA_Gestellung" Shared Property Importaviso = "Importaviso" diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index ef74b2ce..131a1c78 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1693,6 +1693,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property String1dasdasasdasd() As String + Get + Return ResourceManager.GetString("String1dasdasasdasd", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1952,7 +1961,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.0.9 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.0 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 7ecb37e0..93989388 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -713,7 +713,7 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.0.9 + 1.1.1.0 ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -724,4 +724,7 @@ ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + \ No newline at end of file diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 487b5ac0..2ceeebfc 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -201,6 +201,7 @@ + @@ -791,6 +792,12 @@ UserControl + + usrcntlVerzollungsunterlagen_BAR.vb + + + UserControl + usrcntlVerzollungsunterlagen.vb @@ -2408,6 +2415,9 @@ usrcntlVerbundenheit.vb + + usrcntlVerzollungsunterlagen_BAR.vb + usrcntlVerzollungsunterlagen.vb @@ -3589,7 +3599,9 @@ - + + Always + diff --git a/SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb b/SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb index 199ebe6c..e605df07 100644 --- a/SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb +++ b/SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb @@ -30,6 +30,10 @@ Partial Class usrCntlKundeFiskaldaten Me.cbxCMR = New System.Windows.Forms.CheckBox() Me.cbxSB = New System.Windows.Forms.CheckBox() Me.cbxFA = New System.Windows.Forms.CheckBox() + Me.txtEmail_Stb = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtEmail_FA = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.SuspendLayout() ' 'txtAbweichndeFiskalAdresse @@ -56,7 +60,7 @@ Partial Class usrCntlKundeFiskaldaten Me.txtFA.Location = New System.Drawing.Point(12, 201) Me.txtFA.Multiline = True Me.txtFA.Name = "txtFA" - Me.txtFA.Size = New System.Drawing.Size(305, 90) + Me.txtFA.Size = New System.Drawing.Size(305, 73) Me.txtFA.TabIndex = 51 ' 'txtSB @@ -65,7 +69,7 @@ Partial Class usrCntlKundeFiskaldaten Me.txtSB.Location = New System.Drawing.Point(12, 81) Me.txtSB.Multiline = True Me.txtSB.Name = "txtSB" - Me.txtSB.Size = New System.Drawing.Size(305, 90) + Me.txtSB.Size = New System.Drawing.Size(305, 72) Me.txtSB.TabIndex = 50 ' 'Label34 @@ -111,11 +115,77 @@ Partial Class usrCntlKundeFiskaldaten Me.cbxFA.Text = "Schreiben an Finanzamt" Me.cbxFA.UseVisualStyleBackColor = True ' + 'txtEmail_Stb + ' + Me.txtEmail_Stb._DateTimeOnly = False + Me.txtEmail_Stb._numbersOnly = False + Me.txtEmail_Stb._numbersOnlyKommastellen = "" + Me.txtEmail_Stb._Prozent = False + Me.txtEmail_Stb._ShortDateNew = False + Me.txtEmail_Stb._ShortDateOnly = False + Me.txtEmail_Stb._TimeOnly = False + Me.txtEmail_Stb._value = "" + Me.txtEmail_Stb._Waehrung = False + Me.txtEmail_Stb._WaehrungZeichen = True + Me.txtEmail_Stb.ForeColor = System.Drawing.Color.Black + Me.txtEmail_Stb.Location = New System.Drawing.Point(54, 152) + Me.txtEmail_Stb.MaxLineLength = -1 + Me.txtEmail_Stb.MaxLines_Warning = "" + Me.txtEmail_Stb.MaxLines_Warning_Label = Nothing + Me.txtEmail_Stb.Name = "txtEmail_Stb" + Me.txtEmail_Stb.Size = New System.Drawing.Size(263, 20) + Me.txtEmail_Stb.TabIndex = 58 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(9, 155) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 13) + Me.Label1.TabIndex = 59 + Me.Label1.Text = "E-Mail:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(9, 276) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(39, 13) + Me.Label2.TabIndex = 61 + Me.Label2.Text = "E-Mail:" + ' + 'txtEmail_FA + ' + Me.txtEmail_FA._DateTimeOnly = False + Me.txtEmail_FA._numbersOnly = False + Me.txtEmail_FA._numbersOnlyKommastellen = "" + Me.txtEmail_FA._Prozent = False + Me.txtEmail_FA._ShortDateNew = False + Me.txtEmail_FA._ShortDateOnly = False + Me.txtEmail_FA._TimeOnly = False + Me.txtEmail_FA._value = "" + Me.txtEmail_FA._Waehrung = False + Me.txtEmail_FA._WaehrungZeichen = True + Me.txtEmail_FA.ForeColor = System.Drawing.Color.Black + Me.txtEmail_FA.Location = New System.Drawing.Point(54, 273) + Me.txtEmail_FA.MaxLineLength = -1 + Me.txtEmail_FA.MaxLines_Warning = "" + Me.txtEmail_FA.MaxLines_Warning_Label = Nothing + Me.txtEmail_FA.Name = "txtEmail_FA" + Me.txtEmail_FA.Size = New System.Drawing.Size(263, 20) + Me.txtEmail_FA.TabIndex = 60 + ' 'usrCntlKundeFiskaldaten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtEmail_FA) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtEmail_Stb) Me.Controls.Add(Me.txtAbweichndeFiskalAdresse) Me.Controls.Add(Me.Label43) Me.Controls.Add(Me.txtFA) @@ -138,5 +208,8 @@ Partial Class usrCntlKundeFiskaldaten Friend WithEvents cbxCMR As System.Windows.Forms.CheckBox Friend WithEvents cbxSB As System.Windows.Forms.CheckBox Friend WithEvents cbxFA As System.Windows.Forms.CheckBox - + Friend WithEvents txtEmail_Stb As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents txtEmail_FA As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrCntlKundeFiskaldaten.vb b/SDL/kunden/usrCntlKundeFiskaldaten.vb index fbece1df..d41a6e67 100644 --- a/SDL/kunden/usrCntlKundeFiskaldaten.vb +++ b/SDL/kunden/usrCntlKundeFiskaldaten.vb @@ -30,6 +30,8 @@ FISKAL.fisk_schreibenSB = cbxSB.Checked FISKAL.fisk_schreibenSB_Adr = txtSB.Text FISKAL.fisk_schreibenFA_Adr = txtFA.Text + FISKAL.fisk_schreibenFA_Mail = txtEmail_FA.Text + FISKAL.fisk_schreibenSB_Mail = txtEmail_Stb.Text ' ----- Kd-Daten ----- KUNDE_ERW.kde_FirmenwortlautFiskal = txtAbweichndeFiskalAdresse.Text @@ -44,6 +46,9 @@ txtSB.Text = FISKAL.fisk_schreibenSB_Adr txtFA.Text = FISKAL.fisk_schreibenFA_Adr + + txtEmail_FA.Text = FISKAL.fisk_schreibenFA_Mail + txtEmail_Stb.Text = FISKAL.fisk_schreibenSB_Mail End If diff --git a/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.Designer.vb b/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.Designer.vb index 14dd77d0..c218785b 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.Designer.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.Designer.vb @@ -129,8 +129,6 @@ Partial Class usrCntlAuswertungenFiskal_IntrastatMeldung 'CheckBox2 ' Me.CheckBox2.AutoSize = True - Me.CheckBox2.Checked = True - Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox2.Location = New System.Drawing.Point(148, 84) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(172, 17) @@ -141,8 +139,6 @@ Partial Class usrCntlAuswertungenFiskal_IntrastatMeldung 'CheckBox1 ' Me.CheckBox1.AutoSize = True - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.Location = New System.Drawing.Point(148, 61) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(172, 17) diff --git a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb index 30ca6093..83dfb3e9 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb @@ -142,8 +142,6 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 'CheckBox2 ' Me.CheckBox2.AutoSize = True - Me.CheckBox2.Checked = True - Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox2.Location = New System.Drawing.Point(148, 84) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(172, 17) @@ -154,8 +152,6 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 'CheckBox1 ' Me.CheckBox1.AutoSize = True - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.Location = New System.Drawing.Point(148, 61) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(172, 17) diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index 19a29af7..ddefff3a 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -63,7 +63,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label19 = New System.Windows.Forms.Label() Me.cboEZOLLMandant = New System.Windows.Forms.ComboBox() Me.Label29 = New System.Windows.Forms.Label() - Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox + Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboEZOLLStatus = New System.Windows.Forms.ComboBox() Me.Label20 = New System.Windows.Forms.Label() Me.datEZOLLBis = New System.Windows.Forms.DateTimePicker() @@ -113,6 +113,22 @@ Partial Class usrCntlZOLLAuswertungen Me.Label35 = New System.Windows.Forms.Label() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Label52 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Label54 = New System.Windows.Forms.Label() + Me.txtStatEZoll_TC_Bis = New System.Windows.Forms.TextBox() + Me.txtStatEZoll_TC_Von = New System.Windows.Forms.TextBox() + Me.Label56 = New System.Windows.Forms.Label() + Me.Button12 = New System.Windows.Forms.Button() + Me.Label53 = New System.Windows.Forms.Label() + Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label55 = New System.Windows.Forms.Label() + Me.datEZOLL_TC_Bis = New System.Windows.Forms.DateTimePicker() + Me.Label57 = New System.Windows.Forms.Label() + Me.Label58 = New System.Windows.Forms.Label() + Me.datEZOLL_TC_Von = New System.Windows.Forms.DateTimePicker() + Me.Label59 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.Button11 = New System.Windows.Forms.Button() @@ -141,14 +157,15 @@ Partial Class usrCntlZOLLAuswertungen Me.datVonImex = New System.Windows.Forms.DateTimePicker() Me.Label43 = New System.Windows.Forms.Label() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.pnl = New System.Windows.Forms.Panel() Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung() Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang() + Me.TabPage3 = New System.Windows.Forms.TabPage() Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung() Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200() + Me.TabPage4 = New System.Windows.Forms.TabPage() Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste() + Me.pnl = New System.Windows.Forms.Panel() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() @@ -163,6 +180,8 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox5.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() Me.GroupBox7.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtJahrAmbar, System.ComponentModel.ISupportInitialize).BeginInit() @@ -173,6 +192,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() Me.pnl.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label3 @@ -214,7 +234,7 @@ Partial Class usrCntlZOLLAuswertungen ' Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button4.Image = Global.SDL.My.Resources.Excel_logo + Me.Button4.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button4.Location = New System.Drawing.Point(6, 49) Me.Button4.Name = "Button4" @@ -377,7 +397,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label8.AutoSize = True Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label8.Location = New System.Drawing.Point(8, 413) + Me.Label8.Location = New System.Drawing.Point(8, 581) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(211, 17) Me.Label8.TabIndex = 12 @@ -397,7 +417,7 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox2.Controls.Add(Me.datVonDurmaz) Me.GroupBox2.Controls.Add(Me.Label14) Me.GroupBox2.Controls.Add(Me.btnNCTSDurmaz) - Me.GroupBox2.Location = New System.Drawing.Point(7, 425) + Me.GroupBox2.Location = New System.Drawing.Point(7, 593) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(705, 97) Me.GroupBox2.TabIndex = 11 @@ -416,8 +436,8 @@ Partial Class usrCntlZOLLAuswertungen ' 'picDurmaz ' - Me.picDurmaz.Image = Global.SDL.My.Resources.durmaz - Me.picDurmaz.InitialImage = Global.SDL.My.Resources.durmaz + Me.picDurmaz.Image = Global.SDL.My.Resources.Resources.durmaz + Me.picDurmaz.InitialImage = Global.SDL.My.Resources.Resources.durmaz Me.picDurmaz.Location = New System.Drawing.Point(470, 12) Me.picDurmaz.Name = "picDurmaz" Me.picDurmaz.Size = New System.Drawing.Size(221, 44) @@ -523,7 +543,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label16.AutoSize = True Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label16.Location = New System.Drawing.Point(8, 239) + Me.Label16.Location = New System.Drawing.Point(8, 269) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(264, 17) Me.Label16.TabIndex = 14 @@ -547,7 +567,7 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox3.Controls.Add(Me.datEZOLLVon) Me.GroupBox3.Controls.Add(Me.Label24) Me.GroupBox3.Controls.Add(Me.Button1) - Me.GroupBox3.Location = New System.Drawing.Point(7, 251) + Me.GroupBox3.Location = New System.Drawing.Point(7, 281) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(705, 93) Me.GroupBox3.TabIndex = 13 @@ -568,7 +588,7 @@ Partial Class usrCntlZOLLAuswertungen ' Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button9.Image = Global.SDL.My.Resources.Excel_logo + Me.Button9.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button9.Location = New System.Drawing.Point(6, 49) Me.Button9.Name = "Button9" @@ -621,6 +641,9 @@ Partial Class usrCntlZOLLAuswertungen ' 'cboEZOLLBrg ' + Me.cboEZOLLBrg._allowedValuesFreiText = Nothing + Me.cboEZOLLBrg._allowFreiText = False + Me.cboEZOLLBrg._value = "" Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboEZOLLBrg.DropDownWidth = 350 Me.cboEZOLLBrg.FormattingEnabled = True @@ -715,7 +738,7 @@ Partial Class usrCntlZOLLAuswertungen ' 'pic ' - Me.pic.Image = Global.SDL.My.Resources.flagge_D + Me.pic.Image = Global.SDL.My.Resources.Resources.flagge_D Me.pic.Location = New System.Drawing.Point(278, 19) Me.pic.Name = "pic" Me.pic.Size = New System.Drawing.Size(29, 16) @@ -725,8 +748,8 @@ Partial Class usrCntlZOLLAuswertungen ' 'PictureBox1 ' - Me.PictureBox1.Image = Global.SDL.My.Resources.flagge_A - Me.PictureBox1.Location = New System.Drawing.Point(278, 240) + Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.flagge_A + Me.PictureBox1.Location = New System.Drawing.Point(278, 270) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(29, 16) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -738,7 +761,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label17.AutoSize = True Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label17.Location = New System.Drawing.Point(8, 538) + Me.Label17.Location = New System.Drawing.Point(8, 706) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(198, 17) Me.Label17.TabIndex = 18 @@ -759,7 +782,7 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox4.Controls.Add(Me.datVonATILLA) Me.GroupBox4.Controls.Add(Me.Label28) Me.GroupBox4.Controls.Add(Me.Button2) - Me.GroupBox4.Location = New System.Drawing.Point(7, 550) + Me.GroupBox4.Location = New System.Drawing.Point(7, 718) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(705, 147) Me.GroupBox4.TabIndex = 17 @@ -789,8 +812,8 @@ Partial Class usrCntlZOLLAuswertungen ' 'PictureBox2 ' - Me.PictureBox2.Image = Global.SDL.My.Resources.Atilla - Me.PictureBox2.InitialImage = Global.SDL.My.Resources.durmaz + Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.Atilla + Me.PictureBox2.InitialImage = Global.SDL.My.Resources.Resources.durmaz Me.PictureBox2.Location = New System.Drawing.Point(494, 12) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(166, 44) @@ -893,7 +916,7 @@ Partial Class usrCntlZOLLAuswertungen ' 'PictureBox3 ' - Me.PictureBox3.Image = Global.SDL.My.Resources.flagge_D + Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.flagge_D Me.PictureBox3.Location = New System.Drawing.Point(349, 129) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(29, 16) @@ -960,7 +983,7 @@ Partial Class usrCntlZOLLAuswertungen ' Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button8.Image = Global.SDL.My.Resources.Excel_logo + Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button8.Location = New System.Drawing.Point(6, 49) Me.Button8.Name = "Button8" @@ -1119,12 +1142,16 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr.Location = New System.Drawing.Point(0, 57) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(949, 1070) + Me.tbcntr.Size = New System.Drawing.Size(915, 1270) Me.tbcntr.TabIndex = 22 ' 'TabPage1 ' Me.TabPage1.AutoScroll = True + Me.TabPage1.Controls.Add(Me.PictureBox7) + Me.TabPage1.Controls.Add(Me.Label52) + Me.TabPage1.Controls.Add(Me.PictureBox6) + Me.TabPage1.Controls.Add(Me.GroupBox8) Me.TabPage1.Controls.Add(Me.Label46) Me.TabPage1.Controls.Add(Me.GroupBox7) Me.TabPage1.Controls.Add(Me.Label45) @@ -1148,17 +1175,184 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(941, 1044) + Me.TabPage1.Size = New System.Drawing.Size(907, 1244) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.UseVisualStyleBackColor = True + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label52.Location = New System.Drawing.Point(8, 393) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(351, 17) + Me.Label52.TabIndex = 27 + Me.Label52.Text = "NCTS Gestellungskontrolle E-ZOLL - TELOTEC" + ' + 'PictureBox6 + ' + Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.flagge_A + Me.PictureBox6.Location = New System.Drawing.Point(365, 393) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(29, 16) + Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox6.TabIndex = 28 + Me.PictureBox6.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Label54) + Me.GroupBox8.Controls.Add(Me.txtStatEZoll_TC_Bis) + Me.GroupBox8.Controls.Add(Me.txtStatEZoll_TC_Von) + Me.GroupBox8.Controls.Add(Me.Label56) + Me.GroupBox8.Controls.Add(Me.Button12) + Me.GroupBox8.Controls.Add(Me.Label53) + Me.GroupBox8.Controls.Add(Me.cboBrgEZollTC) + Me.GroupBox8.Controls.Add(Me.Label55) + Me.GroupBox8.Controls.Add(Me.datEZOLL_TC_Bis) + Me.GroupBox8.Controls.Add(Me.Label57) + Me.GroupBox8.Controls.Add(Me.Label58) + Me.GroupBox8.Controls.Add(Me.datEZOLL_TC_Von) + Me.GroupBox8.Controls.Add(Me.Label59) + Me.GroupBox8.Location = New System.Drawing.Point(7, 405) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(705, 93) + Me.GroupBox8.TabIndex = 26 + Me.GroupBox8.TabStop = False + ' + 'Label54 + ' + Me.Label54.AutoSize = True + Me.Label54.Location = New System.Drawing.Point(366, 76) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(10, 13) + Me.Label54.TabIndex = 25 + Me.Label54.Text = "-" + ' + 'txtStatEZoll_TC_Bis + ' + Me.txtStatEZoll_TC_Bis.Location = New System.Drawing.Point(376, 68) + Me.txtStatEZoll_TC_Bis.Name = "txtStatEZoll_TC_Bis" + Me.txtStatEZoll_TC_Bis.Size = New System.Drawing.Size(23, 20) + Me.txtStatEZoll_TC_Bis.TabIndex = 24 + Me.txtStatEZoll_TC_Bis.Text = "50" + ' + 'txtStatEZoll_TC_Von + ' + Me.txtStatEZoll_TC_Von.Location = New System.Drawing.Point(342, 68) + Me.txtStatEZoll_TC_Von.Name = "txtStatEZoll_TC_Von" + Me.txtStatEZoll_TC_Von.Size = New System.Drawing.Size(23, 20) + Me.txtStatEZoll_TC_Von.TabIndex = 23 + Me.txtStatEZoll_TC_Von.Text = "50" + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Location = New System.Drawing.Point(338, 54) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(40, 13) + Me.Label56.TabIndex = 22 + Me.Label56.Text = "Status:" + ' + 'Button12 + ' + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button12.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(6, 13) + Me.Button12.Name = "Button12" + Me.Button12.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) + Me.Button12.Size = New System.Drawing.Size(121, 38) + Me.Button12.TabIndex = 20 + Me.Button12.Text = "Excel" + Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button12.UseVisualStyleBackColor = True + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Location = New System.Drawing.Point(434, 54) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(167, 13) + Me.Label53.TabIndex = 13 + Me.Label53.Text = "Bürgschaft (keine Auswahl = alle):" + ' + 'cboBrgEZollTC + ' + Me.cboBrgEZollTC._allowedValuesFreiText = Nothing + Me.cboBrgEZollTC._allowFreiText = False + Me.cboBrgEZollTC._value = "" + Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboBrgEZollTC.DropDownWidth = 350 + Me.cboBrgEZollTC.FormattingEnabled = True + Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"}) + Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68) + Me.cboBrgEZollTC.Name = "cboBrgEZollTC" + Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21) + Me.cboBrgEZollTC.TabIndex = 12 + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Location = New System.Drawing.Point(569, 31) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(23, 13) + Me.Label55.TabIndex = 10 + Me.Label55.Text = "bis:" + ' + 'datEZOLL_TC_Bis + ' + Me.datEZOLL_TC_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datEZOLL_TC_Bis.Location = New System.Drawing.Point(598, 28) + Me.datEZOLL_TC_Bis.Name = "datEZOLL_TC_Bis" + Me.datEZOLL_TC_Bis.Size = New System.Drawing.Size(93, 20) + Me.datEZOLL_TC_Bis.TabIndex = 9 + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Location = New System.Drawing.Point(436, 12) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(125, 13) + Me.Label57.TabIndex = 8 + Me.Label57.Text = "Anmeldungsdatum (Frist):" + ' + 'Label58 + ' + Me.Label58.AutoSize = True + Me.Label58.Location = New System.Drawing.Point(436, 31) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(28, 13) + Me.Label58.TabIndex = 8 + Me.Label58.Text = "von:" + ' + 'datEZOLL_TC_Von + ' + Me.datEZOLL_TC_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datEZOLL_TC_Von.Location = New System.Drawing.Point(470, 28) + Me.datEZOLL_TC_Von.Name = "datEZOLL_TC_Von" + Me.datEZOLL_TC_Von.Size = New System.Drawing.Size(93, 20) + Me.datEZOLL_TC_Von.TabIndex = 7 + ' + 'Label59 + ' + Me.Label59.AutoSize = True + Me.Label59.Location = New System.Drawing.Point(145, 12) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(278, 39) + Me.Label59.TabIndex = 5 + Me.Label59.Text = "Liefert eine Liste der nocht nicht gestellten Abfertigungen," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "wobei nach dem Gest" & + "llungsdatum im definierten Zeitraum" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "eingeschränkt wird." ' 'Label46 ' Me.Label46.AutoSize = True Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label46.Location = New System.Drawing.Point(10, 834) + Me.Label46.Location = New System.Drawing.Point(10, 1002) Me.Label46.Name = "Label46" Me.Label46.Size = New System.Drawing.Size(199, 17) Me.Label46.TabIndex = 25 @@ -1177,7 +1371,7 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox7.Controls.Add(Me.Label50) Me.GroupBox7.Controls.Add(Me.datVonAmbar) Me.GroupBox7.Controls.Add(Me.Label51) - Me.GroupBox7.Location = New System.Drawing.Point(7, 849) + Me.GroupBox7.Location = New System.Drawing.Point(7, 1017) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(705, 102) Me.GroupBox7.TabIndex = 24 @@ -1196,7 +1390,7 @@ Partial Class usrCntlZOLLAuswertungen ' 'PictureBox5 ' - Me.PictureBox5.Image = Global.SDL.My.Resources.ambar_simple + Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.ambar_simple Me.PictureBox5.Location = New System.Drawing.Point(494, 12) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(166, 44) @@ -1291,7 +1485,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label45.AutoSize = True Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label45.Location = New System.Drawing.Point(8, 386) + Me.Label45.Location = New System.Drawing.Point(8, 554) Me.Label45.Name = "Label45" Me.Label45.Size = New System.Drawing.Size(409, 17) Me.Label45.TabIndex = 23 @@ -1302,7 +1496,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label44.AutoSize = True Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label44.Location = New System.Drawing.Point(10, 705) + Me.Label44.Location = New System.Drawing.Point(10, 873) Me.Label44.Name = "Label44" Me.Label44.Size = New System.Drawing.Size(182, 17) Me.Label44.TabIndex = 22 @@ -1321,7 +1515,7 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox6.Controls.Add(Me.Label42) Me.GroupBox6.Controls.Add(Me.datVonImex) Me.GroupBox6.Controls.Add(Me.Label43) - Me.GroupBox6.Location = New System.Drawing.Point(7, 720) + Me.GroupBox6.Location = New System.Drawing.Point(7, 888) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(705, 102) Me.GroupBox6.TabIndex = 18 @@ -1340,8 +1534,8 @@ Partial Class usrCntlZOLLAuswertungen ' 'PictureBox4 ' - Me.PictureBox4.Image = Global.SDL.My.Resources.IMEX_LOGO_simple - Me.PictureBox4.InitialImage = Global.SDL.My.Resources.durmaz + Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple + Me.PictureBox4.InitialImage = Global.SDL.My.Resources.Resources.durmaz Me.PictureBox4.Location = New System.Drawing.Point(494, 12) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(166, 44) @@ -1438,42 +1632,11 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(958, 1044) + Me.TabPage2.Size = New System.Drawing.Size(924, 1244) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Kunden" Me.TabPage2.UseVisualStyleBackColor = True ' - 'TabPage3 - ' - Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1) - Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskalvertretung_42001) - Me.TabPage3.Location = New System.Drawing.Point(4, 22) - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage3.Size = New System.Drawing.Size(958, 1044) - Me.TabPage3.TabIndex = 2 - Me.TabPage3.Text = "Fiskalvertretung" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'TabPage4 - ' - Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(958, 1044) - Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "Aufschubdaten" - Me.TabPage4.UseVisualStyleBackColor = True - ' - 'pnl - ' - Me.pnl.Controls.Add(Me.Label2) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(949, 57) - Me.pnl.TabIndex = 23 - ' 'UsrCntlAuswertungenUIDPruefung1 ' Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White @@ -1492,6 +1655,18 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235) Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0 ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1) + Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskalvertretung_42001) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(924, 1244) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "Fiskalvertretung" + Me.TabPage3.UseVisualStyleBackColor = True + ' 'UsrCntlAuswertungenFiskal_IntrastatMeldung1 ' Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White @@ -1508,6 +1683,16 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234) Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0 ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(924, 1244) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Aufschubdaten" + Me.TabPage4.UseVisualStyleBackColor = True + ' 'UsrCntlAuswertungenAufschub_Abgabenliste1 ' Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White @@ -1516,6 +1701,26 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180) Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0 ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(915, 57) + Me.pnl.TabIndex = 23 + ' + 'PictureBox7 + ' + Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple + Me.PictureBox7.InitialImage = Global.SDL.My.Resources.Resources.durmaz + Me.PictureBox7.Location = New System.Drawing.Point(579, 387) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(133, 24) + Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox7.TabIndex = 26 + Me.PictureBox7.TabStop = False + ' 'usrCntlZOLLAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1525,7 +1730,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlZOLLAuswertungen" - Me.Size = New System.Drawing.Size(949, 926) + Me.Size = New System.Drawing.Size(915, 926) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) @@ -1546,6 +1751,9 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() Me.GroupBox7.ResumeLayout(False) Me.GroupBox7.PerformLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() @@ -1559,6 +1767,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage4.ResumeLayout(False) Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1689,4 +1898,21 @@ Partial Class usrCntlZOLLAuswertungen Friend WithEvents datVonAmbar As DateTimePicker Friend WithEvents Label51 As Label Friend WithEvents Label45 As Label + Friend WithEvents Label52 As Label + Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents GroupBox8 As GroupBox + Friend WithEvents Button12 As Button + Friend WithEvents Label53 As Label + Friend WithEvents cboBrgEZollTC As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label55 As Label + Friend WithEvents datEZOLL_TC_Bis As DateTimePicker + Friend WithEvents Label57 As Label + Friend WithEvents Label58 As Label + Friend WithEvents datEZOLL_TC_Von As DateTimePicker + Friend WithEvents Label59 As Label + Friend WithEvents Label54 As Label + Friend WithEvents txtStatEZoll_TC_Bis As TextBox + Friend WithEvents txtStatEZoll_TC_Von As TextBox + Friend WithEvents Label56 As Label + Friend WithEvents PictureBox7 As PictureBox End Class diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index 0aacdbe8..fe7dcdae 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -143,6 +143,14 @@ Public Class usrCntlZOLLAuswertungen cboBrgDy.SelectedIndex = 0 End Select + + cboBrgEZollTC.Items.Clear() + cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6")) + cboBrgEZollTC.SelectedIndex = 0 + + datEZOLL_TC_Von.Value = Now ' d.AddMonths(-3) + datEZOLL_TC_Bis.Value = Now.AddDays(3) + End Sub @@ -215,6 +223,20 @@ Public Class usrCntlZOLLAuswertungen End Function + Function getSQL_NCTS_EZOLL_TELOTEC(datVon As Date, datBis As Date, StatVon As String, StatBis As String, brg As String) ', Optional Warenbezeichnung As Boolean = False, Optional Gesamtrohmasse As Boolean = False + If brg <> "" Then + brg = " AND GRN = '" & brg & "' " + End If + + Dim sqlStr As String = "SELECT dec_CreateDate as Datum, Refs_LRN,telanm_CRN as CRN,telanm_Status as Status,([GVal]) as Betrag, telanm_ID as ID, telanm_ART as Art,GRN,ConeeTra_TIN as EORI,ConeeTra_Na as Empfänger,Represent_Na as Bearbeiter , convert(date,CtrlRslt_DLimit ,104) as Gestellungsfrist,GVal as Garantiewert + FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId + WHERE [tblTelotec_Anmeldung].[CtrlRslt_DLimit] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1 " & brg & " + ORDER BY convert(datetime, [CtrlRslt_DLimit], 103) ASC,convert(datetime, [dec_CreateDate], 103) ASC " + Return sqlStr + + End Function + + Public Function genDocAndExport_TKontrolleEZOLL(datvon As Date, datbis As Date, stat As String, brg As String, bestimmungszollstelleErreicht As Boolean, operatorId As String, Optional exportPDF As String = "", Optional exportEXCEL As String = "") As Boolean Dim sqlStr = getSQL_NCTS_EZOLL(datEZOLLVon.Text, datEZOLLBis.Text, DirectCast(cboEZOLLStatus.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, cboEZOLLBrg._value, cbxBestimmungszollstelleErreicht.CheckState, operatorId) @@ -468,7 +490,20 @@ Public Class usrCntlZOLLAuswertungen datBisAmbar.Value = d.AddMonths(1).AddDays(-1) End Sub - Private Sub UsrCntlAuswertungenAufschub_Abgabenliste1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenAufschub_Abgabenliste1.Load + + Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click + Dim sqlStr = getSQL_NCTS_EZOLL_TELOTEC(datEZOLL_TC_Von.Value, datEZOLL_TC_Bis.Value, txtStatEZoll_TC_Von.Text, txtStatEZoll_TC_Bis.Text, cboBrgEZollTC._value) + Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL") + If dt IsNot Nothing Then + cProgramFunctions.genExcelFromDT_NEW(dt) + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb index 8270a929..68d385c4 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb @@ -61,7 +61,7 @@ Partial Class frmPDFScanList Me.cntxtMulti.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.cntxtMulti.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiScannenToolStripMenuItem, Me.DateiHochladenToolStripMenuItem, Me.ToolStripSeparator1, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem, Me.ToolStripSeparator2, Me.ArchivierenToolStripMenuItem}) Me.cntxtMulti.Name = "cntxt" - Me.cntxtMulti.Size = New System.Drawing.Size(218, 148) + Me.cntxtMulti.Size = New System.Drawing.Size(218, 126) ' 'DateiScannenToolStripMenuItem ' diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb index 081a9df5..2494a885 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb @@ -60,5 +60,4 @@ Public Class frmPDFScanList If Me IsNot Form.ActiveForm Then Me.Close() End Sub - End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb index 84399b87..8d7d3884 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb @@ -266,7 +266,7 @@ Public Class usrcntlPDFScan Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, ii.coll_bezeichnung & ".pdf") Mail.Display() Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index d0ff2d39..9ab378e4 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -286,6 +286,13 @@ Public Class cRechnungsausgang Return RK_ID > 0 End Function + Public Function SAVE_DruckDatumZeit() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID) " + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub doVorzeichen() Dim vz = If(Vorzeichen = "-", -1, 1) Me.SteuerfreierGesamtbetrag *= vz