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-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1104,6 +1104,7 @@ Public Class frmFormulare
Case FormularVorlagenGruppe.NeukundeDEFiskal
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Fiskal)
addForm(FormularManagerArten.DE_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
addForm(FormularManagerArten.VUB_AG)
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1130,6 +1131,7 @@ Public Class frmFormulare
Case FormularVorlagenGruppe.NeukundeDEFiskal_IMEX
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Fiskal)
addForm(FormularManagerArten.DE_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
addForm(FormularManagerArten.VUB_IMEX)
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1530,6 +1532,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 &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
If anmerkung <> "" Then
rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
@@ -1562,6 +1565,7 @@ Public Class FormularManagerNEU
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
End Select
rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
@@ -2438,6 +2442,38 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1) As String
Try
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAbfrage, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prufung", listTowrite)
Return PdfTmp
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return ""
End Try
End Function
Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -3288,6 +3324,12 @@ Public Class FormularManagerNEU
posNr = " Pos.Nr.: " & posNr
End If
'LKW/Constainer-Nr. im Betreff angebgen:
If usrCntl.txtLKWContainer.Text <> "" Then
posNr &= " | LKW/Container.: " & usrCntl.txtLKWContainer.Text
End If
Dim bool_StbFA = False
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"