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-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -518,6 +518,9 @@ Public Class frmFormulare
AddHandler Me.ShownFIN, Sub()
c.initAVISOID()
End Sub
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Dispoliste"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c)
End If
@@ -940,9 +943,11 @@ Public Class frmFormulare
Mail = outl.CreateItem(0)
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
'End If
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>"
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
End If
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
@@ -1446,6 +1451,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "VERAG Spedition AG")
rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "VERAG Spedition AG")
@@ -1640,11 +1646,15 @@ Public Class FormularManagerNEU
Return LaufzettelZollDE(AVISO, SENDUNG_LIST)
End Function
Shared gesColli As Double = 0
Shared gesGewicht As Double = 0
Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = ""
Try
Dim rpt As New rptLaufzettelZollDE
gesColli = 0
gesGewicht = 0
rpt.txtLKW.Text = AVISO.LKW_Nr
rpt.txtLKWId.Text = AVISO.AvisoID
@@ -1671,6 +1681,13 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_IMEX.Visible = True
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
Case "UNISPED"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirma_UNISPED.Visible = True
rpt.picVERAG.Image = My.Resources.Unisped_logo
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
@@ -1696,6 +1713,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
@@ -1715,23 +1733,22 @@ Public Class FormularManagerNEU
' tb.Columns.Add("AbfArt", GetType(String))
Dim cnt = 1
Dim gesColli As Double = 0
Dim gesGewicht As Double = 0
For Each s In SENDUNGEN
'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
tb.Rows.Add(SENDUNGEN.IndexOf(s))
If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
'If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
'If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
cnt += 1
Next
Try
rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
'Try
' rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
' rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
'Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
'End Try
'MsgBox(tb.Rows.Count)
@@ -1741,6 +1758,12 @@ Public Class FormularManagerNEU
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ZOLLANMELDUNG.getDataByBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
@@ -1749,7 +1772,7 @@ Public Class FormularManagerNEU
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
rpt.txtPosNr.Text &= vbnewline & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
If SND.tblSnd_Abfertigungsart_ID > 0 Then
Select Case SND.tblSnd_Abfertigungsart_ID
@@ -1805,26 +1828,55 @@ Public Class FormularManagerNEU
End If
End If
If ATAMRN_List.Count = 0 Then
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
If ATAMRN_List.Count = 0 Then 'kein Handling
'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
'Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
'Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
'ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef)
Dim Colli As Double = 0
Dim Gewicht As Double = 0
If ZOLLANMELDUNG.num_Colli > 0 Then
Colli = ZOLLANMELDUNG.num_Colli
Else
Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
End If
If ZOLLANMELDUNG.num_Gewicht > 0 Then
Gewicht = CDbl(ZOLLANMELDUNG.num_Gewicht)
Else
Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
End If
ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
End If
If isATZollWithoutUeT(SND, ZOLLANMELDUNG) Then ' prüfen, ob AT-Zoll ohne Ü-T1 --> dann kein Eintrag!
' rpt.Detail.Visible = False
Dim SubRpt As New subRptLaufzettelZollDE_ATZOLL
rpt.SubReport.Report = SubRpt
Else
rpt.Detail.Visible = True
For Each a In ATAMRN_List
gesColli += a.sndhdg_colli
gesGewicht += a.sndhdg_gewicht
Next
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier)
rpt.SubReport.Report = SubRpt
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition)
rpt.SubReport.Report = SubRpt
End If
rpt.txtAnmerkung.Visible = False
'If ATAMRN_List.Count = 0 Then
'If ATAMRN_List.Count = 0 Then
' rpt.txtAnmerkung.Text = ""
' Dim colliGewicht = ""
@@ -1836,16 +1888,37 @@ Public Class FormularManagerNEU
' rpt.txtAnmerkung.Visible = False
'End If
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
Try
rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
AddHandler rpt.Detail.BeforePrint, Sub()
rpt.Shape8.Height = rpt.Detail.Height
rpt.Shape10.Height = rpt.Detail.Height
rpt.Shape11.Height = rpt.Detail.Height
End Sub
'AddHandler rpt.ReportFooter1.Format, Sub()
' End Sub
If printReportElsePDF Then 'NUR DRUCK!!
rpt.Run(False)
@@ -1876,6 +1949,21 @@ Public Class FormularManagerNEU
End Try
Return tmpPath
End Function
Shared Function isATZollWithoutUeT(SND As VERAG_PROG_ALLGEMEIN.cSendungen, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung) As Boolean
If SND IsNot Nothing And ZOLLANMELDUNG IsNot Nothing Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 38, 26 'AT
If Not ZOLLANMELDUNG.isUeT1 Then
Return True
End If
End Select
End If
Return False
End Function
Shared Function DispoListe(usrCntl As usrCntlDispoliste) As String
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
@@ -2089,6 +2177,10 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
rpt.picVERAG.Image = My.Resources.Atilla
Case "UNISPED"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirma_UNISPED.Visible = True
rpt.picVERAG.Image = My.Resources.Unisped_logo
Case "FRONTOFFICE"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmeninfo_rontoffice.Visible = True
@@ -2098,6 +2190,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
End Select
@@ -2271,6 +2364,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
@@ -3176,27 +3270,77 @@ Public Class FormularManagerNEU
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Case "EN"
Mail_Subject_STBFA = "Notification of intra-Community acquisition" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dear Sir Or Madam!<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "We would like to inform you, that we made the customs clearance and subsequent intra-Community supply of goods for the company above-mentioned. (Code 4200). <br>"
MailHTMLText_STBFA &= "The documents are attached.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "This intra-Community acquisition has to be reported to the tax office.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Best regards <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Case "FR"
Mail_Subject_STBFA = "Notification of intra-Community acquisition" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Mesdames, Messieurs!<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Nous vous informons par la présente que, pour la société nommée ci-dessus, nous avons effectué un dédouanement suivi de la livraison intercommunautaire (procédure 4200) selon les documents ci-joints. <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Ceci doit être déclaré au service fiscal comme ""acquisition intercommunautaire"".<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Cordialemen <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
End Select
Select Case usrCntl.cboTEXT._value
@@ -3282,7 +3426,7 @@ Public Class FormularManagerNEU
Case "DE_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "EN"
Case "EN", "FR"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
@@ -3303,6 +3447,7 @@ Public Class FormularManagerNEU
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
End Select
Case "EV"
@@ -3380,13 +3525,25 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= "IMEX Customs Service GmbH<br>"
MailHTMLText &= "Suben 15</b><br>"
MailHTMLText &= "AT-4975 Suben </b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "AT_FISKAL_INDIREKT"
@@ -3401,14 +3558,24 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Wir bitten Sie den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse zu senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn<br>"
MailHTMLText &= "</b><br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= "IMEX Customs Service GmbH<br>"
MailHTMLText &= "Suben 15</b><br>"
MailHTMLText &= "AT-4975 Suben </b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_GB"
@@ -3430,9 +3597,12 @@ Public Class FormularManagerNEU
MailHTMLText &= "Thanks in advance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("GB", 99)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("GB", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_FR"
@@ -3454,7 +3624,32 @@ Public Class FormularManagerNEU
MailHTMLText &= "Merci d'avance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("FR", 99)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("FR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_TR"
Mail_Subject = "Teslimat Belgesini | Nr.: " & VBNW_Nr
MailHTMLText &= "Merhabalar,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Ekte göndermis oldugum Teslimat Belgesini, yükü teslim aldiginiza dair onaylayip, <br>"
MailHTMLText &= "bana ACILEN geri gönderiniz lütfen.<br>"
MailHTMLText &= "<br>"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("TR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
End Select
@@ -3721,7 +3916,10 @@ Public Class FormularManagerNEU
'cVorauskasse.vk_BH_Sachbearbeiter = usrCntl.XXXXXXX
'cVorauskasse.vk_BH_Bemerkung = usrCntl.XXXXXXX
'cVorauskasse.vk_BH_DatumGeldeingang = usrCntl.XXXXXXX
If usrCntl.SENDUNG IsNot Nothing Then
cVorauskasse.vk_SendungId = usrCntl.SENDUNG.tblSnd_SendungID
cVorauskasse.vk_AvisoId = usrCntl.SENDUNG.tblSnd_AvisoID
End If
usrCntl.getValues(cVorauskasse)
If cVorauskasse.SAVE Then
@@ -3729,8 +3927,8 @@ 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)
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId)
cVorauskasse.SAVE() 'VermerkId speichern
Return True
Else
Return False