Vollmachten
This commit is contained in:
@@ -256,8 +256,9 @@ Public Class frmFormulare
|
||||
|
||||
Case Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", FormularManagerArten.MDM_Vollmacht_PDF))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_Word))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
@@ -390,8 +391,8 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_PDF
|
||||
Dim c As New usrcntlVollmacht_MDM_PDF
|
||||
Case FormularManagerArten.MDM_Vollmacht_BHI
|
||||
Dim c As New usrcntlVollmacht_MDM_BHI
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
@@ -403,8 +404,8 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_Word
|
||||
Dim c As New usrcntlVollmacht_MDM_Word
|
||||
Case FormularManagerArten.MDM_Vollmacht_EU
|
||||
Dim c As New usrcntlVollmacht_MDM_EU
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
@@ -415,6 +416,20 @@ Public Class frmFormulare
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_NICHT_EU
|
||||
Dim c As New usrcntlVollmacht_MDM_NICHT_EU
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.DE_Fiskal
|
||||
Dim c As New usrcntlVollmacht_DE_Fiskal
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
@@ -1459,11 +1474,14 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntlEinfuhrverbot).ToString
|
||||
retStr = FormularManagerNEU.Einfuhrverbot(c)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_PDF).ToString
|
||||
retStr = FormularManagerNEU.VM_MDM_PDF(c)
|
||||
Case GetType(usrcntlVollmacht_MDM_BHI).ToString
|
||||
retStr = FormularManagerNEU.VM_MDM_BHI(c)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_Word).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_WORD(c, printReportElsePdf, printerName, openWord)
|
||||
Case GetType(usrcntlVollmacht_MDM_EU).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_EU(c, printReportElsePdf, printerName, openWord)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord)
|
||||
|
||||
End Select
|
||||
If retStr <> "" Then
|
||||
@@ -1609,26 +1627,17 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function VM_MDM_PDF(usrCntl As usrcntlVollmacht_MDM_PDF) As String
|
||||
Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String
|
||||
|
||||
'aktuell nur als PDF
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value)
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 70, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text, 70, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxLandKz.Text, 70, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 70, 115, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 30, 197, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 122, 197, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
For Each item In list
|
||||
|
||||
Select Case item.Text.ToLower().Trim()
|
||||
@@ -1639,9 +1648,9 @@ Public Class FormularManagerNEU
|
||||
Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
|
||||
Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
|
||||
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
|
||||
|
||||
@@ -1655,28 +1664,21 @@ Public Class FormularManagerNEU
|
||||
'place
|
||||
'c_mailcontact
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Select Case usrCntl.cbxVMArt._value
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
|
||||
Case Else
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function VM_MDM_WORD(usrCntl As usrcntlVollmacht_MDM_Word, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
|
||||
Shared Function VM_MDM_NICHT_EU(usrCntl As usrcntlVollmacht_MDM_NICHT_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
Dim striList As New List(Of String)
|
||||
|
||||
|
||||
Try
|
||||
|
||||
'aktuell immer nur WORD
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
@@ -1684,10 +1686,129 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim docBez As String = ""
|
||||
|
||||
Select Case usrCntl.cbxVMArt._value
|
||||
Case "EU" : docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
Case "RO" : docBez = "GENERALVOLLMACHT_" & usrCntl.cbxVMArt._value & "_" & usrCntl.cbxSprache._value
|
||||
End Select
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
|
||||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||||
|
||||
Dim cGenWord As New cGenWord
|
||||
|
||||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||||
If odoc Is Nothing Then Return striList
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
For Each item In odoc.FormFields
|
||||
|
||||
Dim fieldName = item.Name.ToLower().Trim()
|
||||
|
||||
Select Case fieldName
|
||||
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
|
||||
Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
|
||||
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text
|
||||
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
|
||||
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
|
||||
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
|
||||
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
|
||||
Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name3" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name4" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name5" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
|
||||
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
|
||||
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
|
||||
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
|
||||
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text
|
||||
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
|
||||
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
|
||||
|
||||
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
|
||||
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
|
||||
'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
|
||||
'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
|
||||
'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
'Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
|
||||
'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
|
||||
|
||||
End Select
|
||||
|
||||
Next
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If openWord Then
|
||||
oWord.Visible = True
|
||||
Return New List(Of String)
|
||||
ElseIf printReportElsePDF Then
|
||||
|
||||
oWord.DisplayAlerts = False
|
||||
oWord.PrintOut()
|
||||
Try
|
||||
oWord.Documents.Close()
|
||||
'Quit word application
|
||||
oWord.Quit()
|
||||
|
||||
'Release
|
||||
oWord = Nothing
|
||||
Catch ex As Exception
|
||||
'NIX, kann sein, dass noch offen..
|
||||
End Try
|
||||
|
||||
Else
|
||||
'oWord.Visible = True
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
|
||||
|
||||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||||
|
||||
Try
|
||||
odoc.Close()
|
||||
oWord.Quit()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
striList.Add(path)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return striList
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function VM_MDM_EU(usrCntl As usrcntlVollmacht_MDM_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
Dim striList As New List(Of String)
|
||||
|
||||
|
||||
Try
|
||||
|
||||
'aktuell immer nur WORD
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
|
||||
|
||||
Dim docBez As String = ""
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
|
||||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||||
@@ -1775,7 +1896,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
Else
|
||||
'oWord.Visible = True
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
|
||||
|
||||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||||
|
||||
@@ -6247,8 +6368,9 @@ Public Class FormularManagerArten
|
||||
Shared Property AT_Fiskal = "AT_Fiskal"
|
||||
Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
|
||||
Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
|
||||
Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF"
|
||||
Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word"
|
||||
Shared Property MDM_Vollmacht_BHI = "MDM_Vollmacht_BHI"
|
||||
Shared Property MDM_Vollmacht_EU = "MDM_Vollmacht_EU"
|
||||
Shared Property MDM_Vollmacht_NICHT_EU = "MDM_Vollmacht_NICHT_EU"
|
||||
Shared Property Vollmacht_FA = "Vollmacht_FA"
|
||||
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
|
||||
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
|
||||
|
||||
Reference in New Issue
Block a user