edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

14.08.2019

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-14 08:59:04 +02:00
parent d98d9950c3
commit 19cc980474
15 changed files with 1502 additions and 344 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Classes/cFiskal_Daten.vb
View File

@@ -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()

12
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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 &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> rechnungsversand@verag.ag | www.verag.ag | FN 288916b</div>"
Case 11 'VERAG CS
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> versand@verag.ag | www.verag.ag | FN 406316z</div>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> versand@verag.com | www.verag.ag | FN 406316z</div>"
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> info@imex-group.at | www.imex-group.at | FN 410356s</div>"
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> rechnungsversand@verag.ag | www.verag.ag </div>"
End Select
getSignature &= "<br>"

163
SDL/Fakturierung/frmFaktEmail.Designer.vb generated
View File

@@ -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

118
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -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 = "<div style=""font-family:Calibri, Arial"">"
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Firma:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Sehr geehrte Damen & Herren!" & "<br>"
TextHTML &= "<br>"
TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "<br>"
TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "<br>"
TextHTML &= "<br>"
TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Freundliche Grüße"
TextHTML &= "<br><br>"
TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID)
TextHTML &= "</div>"
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

566
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb generated
View File

@@ -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

337
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb generated Normal file
View File

@@ -0,0 +1,337 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVerzollungsunterlagen_BAR
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
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.
<System.Diagnostics.DebuggerStepThrough()>
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

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

252
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb Normal file
View File

@@ -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

159
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -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 = "" '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
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 = "<div style=""font-family:Calibri, Arial"">"
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 &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>"
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. <br>"
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• GUT LESBAR<br>"
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "intra-community acquisition"
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
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. <br>"
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please ensure the following:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
End Select
Case "DE_FISKAL"
Select Case usrCntl.cboSprache._value
Case "EN"
Mail_Subject = "intra-community acquisition"
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
End Select
'MailHTMLText &= cFakturierung.getSignature(11)
End Select
MailHTMLText &= "</div>"
'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"

13
SDL/SDL.vbproj
View File

@@ -792,6 +792,12 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_BAR.Designer.vb">
<DependentUpon>usrcntlVerzollungsunterlagen_BAR.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_BAR.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen.Designer.vb">
<DependentUpon>usrcntlVerzollungsunterlagen.vb</DependentUpon>
</Compile>
@@ -2409,6 +2415,9 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.resx">
<DependentUpon>usrcntlVerbundenheit.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_BAR.resx">
<DependentUpon>usrcntlVerzollungsunterlagen_BAR.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen.resx">
<DependentUpon>usrcntlVerzollungsunterlagen.vb</DependentUpon>
</EmbeddedResource>
@@ -3590,7 +3599,9 @@
<None Include="Resources\beleg_rot.png" />
<None Include="Resources\hsk.gif" />
<None Include="Resources\belegEUR1.jpg" />
<None Include="Resources\Verag-Spedition-GMBH-Logo1.png" />
<None Include="Resources\Verag-Spedition-GMBH-Logo1.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Verag-Spedition-GMBH-Logo.png" />
<None Include="Resources\Verag-Customs-Service-GMBH-Logo2.png" />
<None Include="Resources\Verag-Customs-Service-GMBH-Logo.png">

79
SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb generated
View File

@@ -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

5
SDL/kunden/usrCntlKundeFiskaldaten.vb
View File

@@ -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

4
SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.Designer.vb generated
View File

@@ -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)

4
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb generated
View File

@@ -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)

7
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -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