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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Formulare/Einheitspapier/frmEinheitspapier.Designer.vb generated
View File

@@ -260,6 +260,7 @@ Partial Class frmEinheitspapier
Me.txtSuchbegriff._TimeOnly = False
Me.txtSuchbegriff._value = Nothing
Me.txtSuchbegriff._Waehrung = False
Me.txtSuchbegriff._WaehrungZeichen = True
Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
Me.txtSuchbegriff.Location = New System.Drawing.Point(18, 42)
Me.txtSuchbegriff.MaxLength = 80

8
SDL/Formulare/Einheitspapier/frmEinheitspapier.vb
View File

@@ -118,7 +118,7 @@ Public Class frmEinheitspapier
' c.cboPraeferenz.changeItem(If(EPBES.Präferenz, ""))
c.cboPraeferenz.Text = If(EPBES.Präferenz, "")
c.txtKontingent.Text = If(EPBES.Kontingent, "")
' c.txtEigenmasse.Text = If(EPBES.Eigenmasse, "") --> varialer Wert, nicht laden
c.txtEigenmasse.Text = If(EPBES.Eigenmasse, "") 'FRÜHER::- -> varialer Wert, nicht laden
c.txtWtNr1.Text = If(EPBES.Warennummer1, "")
c.txtWtNr2.Text = If(EPBES.Warennummer2, "")
c.txtWtNr3.Text = If(EPBES.Warennummer3, "")
@@ -199,7 +199,7 @@ Public Class frmEinheitspapier
p.Warennummer5 = usr.txtWtNr5.Text
p.UrsprungslandCode = If(IsNumeric(usr.cboUrsprungsland._value), usr.cboUrsprungsland._value, Nothing)
' p.Rohmasse = usr.txtrohmasse.Text
'p.Rohmasse = usr.roh.Text
p.Kontingent = If(IsNumeric(usr.txtKontingent.Text), usr.txtKontingent.Text, Nothing)
p.Verfahren = usr.txtVerfahren.Text.Replace(" ", "")
@@ -647,4 +647,8 @@ Public Class frmEinheitspapier
Private Sub UsrCntlEinheitspapier1_Load(sender As Object, e As EventArgs) Handles UsrCntlEinheitspapier1.Load
End Sub
Private Sub cboSearch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSearch.SelectedIndexChanged
End Sub
End Class

15
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -154,6 +154,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -176,7 +177,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(10).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -194,7 +195,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
@@ -213,10 +214,10 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("CS")
@@ -239,6 +240,7 @@
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("AG")
@@ -275,6 +277,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -297,7 +300,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(10).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -326,6 +329,7 @@
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
@@ -338,6 +342,7 @@
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("CS")
@@ -360,6 +365,7 @@
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("AG")
@@ -379,6 +385,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))

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

@@ -184,7 +184,7 @@ Public Class frmFormulare
End Try
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText'", False, "FMZOLL", True)
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -345,6 +345,10 @@ Public Class frmFormulare
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal DE"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.AT_Vollmacht
@@ -381,6 +385,10 @@ Public Class frmFormulare
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal AT"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.ATILLA_EXPORT
@@ -957,8 +965,8 @@ Public Class frmFormulare
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature() & "</div>"
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "</div>"
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
End If
@@ -1145,7 +1153,7 @@ Public Class frmFormulare
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged
cboTextKonserveSprache.Items.Clear()
If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' ", False, "FMZOLL", True)
If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
End Sub
End Class
@@ -3335,6 +3343,21 @@ Public Class FormularManagerNEU
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
Dim Firma_idI_Sig_AT = -1
Dim Firma_idI_Sig_DE = -1
Dim Firma_idI_Sig_EV = -1
Dim Postfach_DE = "VERAG CUSTOMS SERVICE GMBH<br>POSTFACH 1013<br>D 94152 NEUHAUS AM INN<br>"
Dim SonderUID_AT = "ATU68374145"
Dim SonderUID_DE = "DE813667748"
Select Case usrCntl.cboFiliale._value
Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG
End Select
Select Case usrCntl.cboSprache._value
Case "DE", ""
@@ -3421,7 +3444,7 @@ Public Class FormularManagerNEU
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 &= "mit unser <b>Sonder - UID-Nr.: " & SonderUID_AT & " 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>"
@@ -3438,16 +3461,17 @@ Public Class FormularManagerNEU
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 &= "VERAG CUSTOMS SERVICE GMBH<br>"
'MailHTMLText &= "POSTFACH 1013<br>"
'MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= Postfach_DE
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
MailHTMLText &= cFakturierung.getSignature("D", Firma_idI_Sig_AT) '11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_AT)' 11)
Case "EN"
Mail_Subject = "intra-community acquisition" & posNr
@@ -3458,7 +3482,7 @@ Public Class FormularManagerNEU
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 &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number " & SonderUID_AT & ".</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
@@ -3475,16 +3499,17 @@ Public Class FormularManagerNEU
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 &= "VERAG CUSTOMS SERVICE GMBH<br>"
'MailHTMLText &= "POSTFACH 1013<br>"
'MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= Postfach_DE
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_AT) '11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_AT) ' 11)
End Select
@@ -3500,8 +3525,7 @@ Public Class FormularManagerNEU
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 &= "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 " & SonderUID_DE & ".</b> <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
@@ -3509,8 +3533,8 @@ Public Class FormularManagerNEU
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_DE) '99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_DE) '99)
End Select
@@ -3527,7 +3551,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
MailHTMLText &= cFakturierung.getSignature("D", Firma_idI_Sig_EV)'11)
Case "EN"
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Dear Sir / Madam,<br>"
@@ -3538,7 +3562,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_EV) '11)
End Select
@@ -3992,7 +4016,7 @@ Public Class FormularManagerNEU
usrCntl.lblCRsaved.ForeColor = Color.Green
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag)
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag, cVorauskasse.vk_id)
cVorauskasse.SAVE() 'VermerkId speichern
Return True
Else