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

MDM, Mahnungen, EORI, Kundenblatt, MSEAPI, UTA, Zollanmeldungen_Import_Dakosy

Browse Source
This commit is contained in:
d.breimaier
2024-10-17 16:45:23 +02:00
parent 152ce4c892
commit f062f1a0d7
22 changed files with 2416 additions and 474 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3838,16 +3838,21 @@ Public Class FormularManagerNEU
Shared Function EORI_PRUEFUNG(ErgebnisTXT, firma, sessionID, txtEORI, Optional AvisoId = -1, Optional SendungsId = -1) As String
Shared Function EORI_PRUEFUNG(ErgebnisTXT As String, firma As String, sessionID As String, txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional time_ As DateTime = Nothing, Optional usrName As String = "", Optional FirmaID As Integer = 0) As String
Try
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
If FirmaID = 0 Then FirmaID = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID 'Fallback, wenn FirmenID nicht gespeichert wurde!
Dim MANDANT = New cFirmen(FirmaID)
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(IIf(time_ = Nothing, time_.ToShortDateString, Now.ToShortDateString) & " " & IIf(time_ = Nothing, time_.ToShortTimeString, Now.ToShortTimeString) & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 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))
@@ -3855,11 +3860,12 @@ Public Class FormularManagerNEU
' 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, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrName <> "", usrName, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 158, 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_FO, "", "EORI_Prufung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO(MANDANT.Firma_Bez), "", "EORI_Prufung", listTowrite)
Return PdfTmp
@@ -6215,6 +6221,13 @@ Public Class FormularManagerNEU
End Select
End Function
Public Shared Function getUO2_FO(FIRMA As String) As String
Select Case FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2(FilialenNr As String) As String
If FilialenNr = "" Then Return getUO2()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)