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
2021-10-27 11:19:22 +02:00
parent 13f28aa1d8
commit f4813a04a9
76 changed files with 9922 additions and 2253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -347,12 +347,12 @@
End Sub
Function Vl(s As VERAG_PROG_ALLGEMEIN.MyTextBox) As Double
If IsNumeric(s._value) Then : Return CDbl(s._value)
If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
Else : s._value = 0 : End If
Return 0
End Function
Function Vl(s As VERAG_PROG_ALLGEMEIN.MyComboBox) As Double
If IsNumeric(s._value) Then : Return CDbl(s._value)
If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
Else : s._value = 0 : End If
Return 0
End Function

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

@@ -2878,26 +2878,63 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function UID_PRUEFUNG_PROTOKOLL(uid_id) As String
Dim UID As New VERAG_PROG_ALLGEMEIN.cUIDPruefung(uid_id)
Dim msgErgebnis = ""
Select Case UID.uid_valid
Case 1 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
Case 0 : msgErgebnis = "UID-Nr. UNGÜLTIG"
End Select
Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1) As String
Dim uid_firma = ""
uid_firma &= If(UID.uid_firma, "") & vbNewLine
uid_firma &= If(UID.uid_adr1, "") & vbNewLine
uid_firma &= If(UID.uid_adr2, "") & vbNewLine
uid_firma &= If(UID.uid_adr3, "") & vbNewLine
uid_firma &= If(UID.uid_adr4, "") & vbNewLine
uid_firma &= If(UID.uid_adr5, "") & vbNewLine
uid_firma &= If(UID.uid_adr6, "")
uid_firma = uid_firma.Trim
If UID.uid_stufe = "1" Then
uid_firma = "*Keine Daten bei Stufe 1 Prüfung*"
End If
Dim Tid = ""
Select Case UID.Firma
Case "VERAG" : Tid = "13390891m005"
Case "IMEX" : Tid = "19435107n654"
Case "FRONTOFFICE" : Tid = "67493371k039"
Case "ATILLA" : Tid = "16626209i537"
'Case "UNISPED" : Tid = "16626209i537"
End Select
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, uid_firma, UID.uid_sessionId, UID.uid_abfrageUid, UID.uid_UstIdKz & UID.uid_UstIdNr, Tid, , , UID.uid_Sachbearbeiter, UID.uid_Datum, UID.uid_stufe)
Return PdfTmp
End Function
Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1, Optional SB = "", Optional abfrageDatum = Nothing, Optional stufe = "2") As String
Try
If abfrageDatum Is Nothing Then abfrageDatum = Now
'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("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
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(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "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(If(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))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(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, "", "UID_Prufung", listTowrite)