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/SDL.vbproj b/SDL/SDL.vbproj index e10e42c8..2ceeebfc 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -792,6 +792,12 @@ UserControl + + usrcntlVerzollungsunterlagen_BAR.vb + + + UserControl + usrcntlVerzollungsunterlagen.vb @@ -2409,6 +2415,9 @@ usrcntlVerbundenheit.vb + + usrcntlVerzollungsunterlagen_BAR.vb + usrcntlVerzollungsunterlagen.vb @@ -3590,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/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