Mahnungen, Ust-Antrag, Kundenuebersicht, EORI, etc.
This commit is contained in:
@@ -271,6 +271,7 @@ Public Class frmBU_Mahnlauf
|
||||
Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
|
||||
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
|
||||
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
|
||||
Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing
|
||||
End Select
|
||||
|
||||
Dim ZZTage = 10
|
||||
@@ -349,7 +350,7 @@ Public Class frmBU_Mahnlauf
|
||||
Dim MahnTEXT_NACH = ""
|
||||
Dim MAHNTEXT As String = "Zahlungserinnerung"
|
||||
|
||||
getMahnstufetext(Sprache, MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
|
||||
getMahnstufetext(AD.LandKz, MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
|
||||
|
||||
|
||||
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
|
||||
@@ -487,17 +488,20 @@ Public Class frmBU_Mahnlauf
|
||||
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
Case "A", "AT", "D", "DE", "CH"
|
||||
|
||||
|
||||
|
||||
Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit,
|
||||
an welche zukünftig die Mahnungen versandt werden sollen.<br>
|
||||
Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
|
||||
|
||||
Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
|
||||
Case Else
|
||||
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>attached we send you the invoice reminder."
|
||||
Mail_HTMLBody = "Dear Sear or Madam,<br><br>attached we send you the invoice reminder."
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
|
||||
to which future reminders should be sent.<br>
|
||||
@@ -519,9 +523,9 @@ Public Class frmBU_Mahnlauf
|
||||
Case 5 'MAIL_SEND
|
||||
Dim list As New List(Of String)
|
||||
list.Add(tmpPath)
|
||||
Mail_BCC = "buchhaltung@verag.ag;" & Mail_BCC
|
||||
Mail_BCC = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag") & Mail_BCC
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, "buchhaltung@verag.ag", False, False, Mail_CC, Mail_BCC, list)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag"), False, False, Mail_CC, Mail_BCC, list)
|
||||
|
||||
|
||||
Case Else
|
||||
@@ -536,9 +540,8 @@ Public Class frmBU_Mahnlauf
|
||||
Mail.BCC = Mail_BCC
|
||||
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
|
||||
|
||||
'Mail.Sender = "bewerbung@verag.ag"
|
||||
Try
|
||||
Mail.SentOnBehalfOfName = "buchhaltung@verag.ag"
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
@@ -590,6 +593,12 @@ Public Class frmBU_Mahnlauf
|
||||
|
||||
|
||||
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Case 19 '"VERAG360"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
|
||||
|
||||
Case 21 '"UNISPED"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
@@ -671,39 +680,7 @@ Public Class frmBU_Mahnlauf
|
||||
MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
|
||||
MAHNTEXT = MAHNSTUFE & ". UYARI"
|
||||
End Select
|
||||
Case "EN"
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Subsequent invoices have not yet been paid:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "List - Open accounts"
|
||||
Case -1
|
||||
MahnTEXT_VOR = "The following invoices have not yet been collected:"
|
||||
MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account."
|
||||
MAHNTEXT = "List - Open accounts"
|
||||
Case 0
|
||||
MahnTEXT_VOR = "We request that the following invoices be settled:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "REMINDER"
|
||||
Case 1
|
||||
MahnTEXT_VOR = "We request that the following invoices be settled:"
|
||||
MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant."
|
||||
MAHNTEXT = "1. REMINDER"
|
||||
Case 2
|
||||
MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:"
|
||||
MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
Case 3
|
||||
MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip."
|
||||
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
Case >= 4
|
||||
MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt."
|
||||
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
End Select
|
||||
Case Else
|
||||
|
||||
Case "DE", "D"
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:"
|
||||
@@ -734,6 +711,139 @@ Public Class frmBU_Mahnlauf
|
||||
MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, entweder ein Inkassounternehmen mit der Einziehung der Forderung zu beauftragen oder aber ohne weitere vorherige Ankündigung gerichtliche Schritte einzuleiten."
|
||||
MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
|
||||
End Select
|
||||
|
||||
|
||||
Case "RO"
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Facturile ulterioare nu au fost încă plătite:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Listă - Articole deschise"
|
||||
Case -1
|
||||
MahnTEXT_VOR = "Facturile ulterioare nu au fost încă încasate:"
|
||||
MahnTEXT_NACH = "Sumele menționate mai sus vor fi încasate din contul dumneavoastră bancar specificat prin mandat de debitare directă SEPA."
|
||||
MAHNTEXT = "Listă - Articole deschise"
|
||||
Case 0
|
||||
MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Reamintire de plată"
|
||||
Case 1
|
||||
MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
|
||||
MahnTEXT_NACH = "Considerand ca neefectuarea platii se bazeaza pe o mica problema organizatorica, va rugam sa efectuati platile restante in cel mai scurt timp. In cazul in care platile au fost efectuate, va rugam sa considerati acest inscris nefondat."
|
||||
MAHNTEXT = "1. Memento"
|
||||
Case 2
|
||||
MahnTEXT_VOR = "În ciuda atenționărilor noastre anterioare, facturile enumerate nu au fost încă achitate:"
|
||||
MahnTEXT_NACH = "Presupunem că acest lucru se datorează unei inadvertențe organizaționale. " & vbNewLine & ”Dacă plata a fost deja trimisă către noi, vă rugăm să considerați că acest memento este irelevant."
|
||||
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
|
||||
Case 3
|
||||
MahnTEXT_VOR = "În ciuda a două atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de plată."
|
||||
MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să însărcinăm o agenție de colectare a creanțelor să recupereze datoria, fie să acționăm în justiție fără altă notificare."
|
||||
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
|
||||
Case >= 4
|
||||
MahnTEXT_VOR = "În ciuda mai multor atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de remitere."
|
||||
MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să instruim o agenție de colectare a creanțelor pentru a colecta datoria, fie să acționăm în justiție fără altă notificare.."
|
||||
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
|
||||
End Select
|
||||
|
||||
Case "BG"
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Следните фактури все още не са платени:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Списък - Отворени елементи"
|
||||
Case -1
|
||||
MahnTEXT_VOR = "Следните фактури все още не са събрани:"
|
||||
MahnTEXT_NACH = "Горепосочените суми ще бъдат събрани от посочената от вас банкова сметка чрез SEPA мандат за директен дебит."
|
||||
MAHNTEXT = "Списък - Отворени елементи"
|
||||
Case 0
|
||||
MahnTEXT_VOR = "Искаме уреждане на следните фактури:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Напомняне за плащане"
|
||||
Case 1
|
||||
MahnTEXT_VOR = "Искаме уреждане на следните фактури."
|
||||
MahnTEXT_NACH = "Предполагаме, че това се дължи на организационен пропуск. " & vbNewLine & “Ако плащането ви вече е изпратено до нас, моля, считайте напомнянето за неуместно."
|
||||
MAHNTEXT = "Първо напомняне"
|
||||
Case 2
|
||||
MahnTEXT_VOR = "Въпреки предишното ни напомняне, изброените фактури все още не са уредени.:"
|
||||
MahnTEXT_NACH = "In cazul de fata trebuie sa insistam la efectuarea platilor facturilor sus mentionate, pentru a evita alte costuri si neplaceri. Va rugam sa efectuali platile restante pana le data de" &
|
||||
MAHNTEXT = MAHNSTUFE & ". напомняне"
|
||||
Case 3
|
||||
MahnTEXT_VOR = "Въпреки двете напомняния изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
|
||||
MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
|
||||
MAHNTEXT = MAHNSTUFE & ". напомняне"
|
||||
Case >= 4
|
||||
MahnTEXT_VOR = "Въпреки няколкото напомняния, изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
|
||||
MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
|
||||
MAHNTEXT = MAHNSTUFE & ". напомняне"
|
||||
End Select
|
||||
|
||||
Case "HR", "SRB", "BIH", "MKD"
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Naknadni računi još nisu plaćeni:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Popis - Otvorene stavken"
|
||||
Case -1
|
||||
MahnTEXT_VOR = "Naknadni računi još nisu naplaćeni:"
|
||||
MahnTEXT_NACH = "Gore navedeni iznosi bit će prikupljeni putem SEPA naloga za izravno terećenje s vašeg navedenog bankovnog računa."
|
||||
MAHNTEXT = "Popis - Otvorene stavken"
|
||||
Case 0
|
||||
MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "Podsjetnik za plaćanje"
|
||||
Case 1
|
||||
MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
|
||||
MahnTEXT_NACH = "Vjerujemo da je to zbog organizacijskog propusta. " & vbNewLine & "Ako nam je vaša uplata već poslana, molimo vas da podsjetnik smatrate nevažnim."
|
||||
MAHNTEXT = "1. upozorenje"
|
||||
Case 2
|
||||
MahnTEXT_VOR = "Unatoč našem prethodnom podsjećanju, navedeni računi još uvijek nisu plaćeni:"
|
||||
MahnTEXT_NACH = "Pretpostavljamo da je to zbog organizacijskog propusta, ali sada vas moramo odlučno zamoliti da nam odmah prenesete iznos koji dugujete prema gornjem popisu kako bismo izbjegli daljnje troškove i neugodnosti."
|
||||
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
|
||||
Case 3
|
||||
MahnTEXT_VOR = "Unatoč dvama opomenama, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
|
||||
MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
|
||||
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
|
||||
Case >= 4
|
||||
MahnTEXT_VOR = "Unatoč opetovanim podsjetnicima, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
|
||||
MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
|
||||
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
|
||||
End Select
|
||||
|
||||
|
||||
Case Else
|
||||
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Subsequent invoices have not yet been paid:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "List - Open accounts"
|
||||
Case -1
|
||||
MahnTEXT_VOR = "The following invoices have not yet been collected:"
|
||||
MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account."
|
||||
MAHNTEXT = "List - Open accounts"
|
||||
Case 0
|
||||
MahnTEXT_VOR = "We request that the following invoices be settled:"
|
||||
MahnTEXT_NACH = ""
|
||||
MAHNTEXT = "REMINDER"
|
||||
Case 1
|
||||
MahnTEXT_VOR = "We request that the following invoices be settled:"
|
||||
MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant."
|
||||
MAHNTEXT = "1. REMINDER"
|
||||
Case 2
|
||||
MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:"
|
||||
MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
Case 3
|
||||
MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip."
|
||||
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
Case >= 4
|
||||
MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt."
|
||||
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
|
||||
MAHNTEXT = MAHNSTUFE & ". REMINDER"
|
||||
End Select
|
||||
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
89
SDL/buchhaltung/rptMahnung.Designer.vb
generated
89
SDL/buchhaltung/rptMahnung.Designer.vb
generated
@@ -65,11 +65,11 @@ Partial Public Class rptMahnung
|
||||
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblTelefon = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblFaxNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label25 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
|
||||
@@ -145,11 +145,11 @@ Partial Public Class rptMahnung
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label25, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -400,7 +400,7 @@ Partial Public Class rptMahnung
|
||||
'
|
||||
'ReportHeader1
|
||||
'
|
||||
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Line15, Me.lblFirma, Me.lblRechnung_Land, Me.Label3, Me.Label4, Me.Label5, Me.Label6, Me.Label1, Me.Label7, Me.Label25})
|
||||
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Line15, Me.lblFirma, Me.lblRechnung_Land, Me.Label3, Me.lblTelefon, Me.Label5, Me.lblEmail, Me.Label1, Me.lblFaxNr, Me.Label25})
|
||||
Me.ReportHeader1.Height = 3.470997!
|
||||
Me.ReportHeader1.Name = "ReportHeader1"
|
||||
'
|
||||
@@ -729,17 +729,18 @@ Partial Public Class rptMahnung
|
||||
Me.Label3.Top = 2.193!
|
||||
Me.Label3.Width = 0.9884803!
|
||||
'
|
||||
'Label4
|
||||
'lblTelefon
|
||||
'
|
||||
Me.Label4.Height = 0.1574802!
|
||||
Me.Label4.HyperLink = Nothing
|
||||
Me.Label4.Left = 5.197!
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.Label4.Text = "+43 (0) 7711 / 2777 - 110"
|
||||
Me.Label4.Top = 2.193!
|
||||
Me.Label4.Width = 1.895268!
|
||||
Me.lblTelefon.DataField = ""
|
||||
Me.lblTelefon.Height = 0.1574802!
|
||||
Me.lblTelefon.HyperLink = Nothing
|
||||
Me.lblTelefon.Left = 5.197!
|
||||
Me.lblTelefon.Name = "lblTelefon"
|
||||
Me.lblTelefon.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" &
|
||||
"ign: middle; ddo-char-set: 1"
|
||||
Me.lblTelefon.Text = "+43 (0) 7711 / 2777 - 110"
|
||||
Me.lblTelefon.Top = 2.193!
|
||||
Me.lblTelefon.Width = 1.895268!
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
@@ -753,17 +754,18 @@ Partial Public Class rptMahnung
|
||||
Me.Label5.Top = 2.35!
|
||||
Me.Label5.Width = 0.9884803!
|
||||
'
|
||||
'Label6
|
||||
'lblEmail
|
||||
'
|
||||
Me.Label6.Height = 0.1574802!
|
||||
Me.Label6.HyperLink = Nothing
|
||||
Me.Label6.Left = 5.197479!
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.Label6.Text = "buchhaltung@verag.ag"
|
||||
Me.Label6.Top = 2.35!
|
||||
Me.Label6.Width = 1.895268!
|
||||
Me.lblEmail.DataField = ""
|
||||
Me.lblEmail.Height = 0.1574802!
|
||||
Me.lblEmail.HyperLink = Nothing
|
||||
Me.lblEmail.Left = 5.197479!
|
||||
Me.lblEmail.Name = "lblEmail"
|
||||
Me.lblEmail.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" &
|
||||
"ign: middle; ddo-char-set: 1"
|
||||
Me.lblEmail.Text = "buchhaltung@verag.ag"
|
||||
Me.lblEmail.Top = 2.35!
|
||||
Me.lblEmail.Width = 1.895268!
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
@@ -777,17 +779,18 @@ Partial Public Class rptMahnung
|
||||
Me.Label1.Top = 2.507!
|
||||
Me.Label1.Width = 0.9884806!
|
||||
'
|
||||
'Label7
|
||||
'lblFaxNr
|
||||
'
|
||||
Me.Label7.Height = 0.1574802!
|
||||
Me.Label7.HyperLink = Nothing
|
||||
Me.Label7.Left = 5.19748!
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.Label7.Text = "+43 (0) 7711 / 31600"
|
||||
Me.Label7.Top = 2.507!
|
||||
Me.Label7.Width = 1.895268!
|
||||
Me.lblFaxNr.DataField = ""
|
||||
Me.lblFaxNr.Height = 0.1574802!
|
||||
Me.lblFaxNr.HyperLink = Nothing
|
||||
Me.lblFaxNr.Left = 5.19748!
|
||||
Me.lblFaxNr.Name = "lblFaxNr"
|
||||
Me.lblFaxNr.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" &
|
||||
"ign: middle; ddo-char-set: 1"
|
||||
Me.lblFaxNr.Text = "+43 (0) 7711 / 31600"
|
||||
Me.lblFaxNr.Top = 2.507!
|
||||
Me.lblFaxNr.Width = 1.895268!
|
||||
'
|
||||
'Label25
|
||||
'
|
||||
@@ -1272,11 +1275,11 @@ Partial Public Class rptMahnung
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label25, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -1363,11 +1366,11 @@ Partial Public Class rptMahnung
|
||||
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblTelefon As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblEmail As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblFaxNr As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblRgDat As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
|
||||
Reference in New Issue
Block a user