neu
This commit is contained in:
@@ -1271,7 +1271,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||
@@ -1314,7 +1314,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
@@ -1377,16 +1377,16 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function DispSendungslisteoListe(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||||
Shared Function DispSendungslisteoListe(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String
|
||||
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
|
||||
If AVISO Is Nothing Then Return ""
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
|
||||
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
|
||||
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST)
|
||||
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn)
|
||||
End Function
|
||||
|
||||
Shared Function DispSendungslisteoListe(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
|
||||
Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String
|
||||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim tmpPath = ""
|
||||
Try
|
||||
@@ -1452,6 +1452,12 @@ Public Class FormularManagerNEU
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
End Select
|
||||
|
||||
Select Case RechnugnAn
|
||||
Case "AVISERER" : rpt.TextBox32.Text = "Avisierer (*):"
|
||||
Case "FRACHTF" : rpt.TextBox32.Text = "Frächter (*):"
|
||||
Case "AUFTR" : rpt.TextBox32.Text = "Avisierer (*):"
|
||||
|
||||
End Select
|
||||
|
||||
Dim tb As New DataTable
|
||||
tb.Columns.Add("Nr", GetType(Integer))
|
||||
@@ -1554,7 +1560,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
If SND.ABRECHNUNG IsNot Nothing Then
|
||||
For Each a In SND.ABRECHNUNG
|
||||
If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then
|
||||
If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = RechnugnAn Then '"AVISIERER" Then
|
||||
rpt.txtAbrechnung.Text = "X"
|
||||
End If
|
||||
|
||||
@@ -1619,7 +1625,244 @@ Public Class FormularManagerNEU
|
||||
End Try
|
||||
Return tmpPath
|
||||
End Function
|
||||
Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||||
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
|
||||
If AVISO Is Nothing Then Return ""
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
|
||||
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
|
||||
Return LaufzettelZollDE(AVISO, SENDUNG_LIST)
|
||||
End Function
|
||||
|
||||
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
|
||||
|
||||
|
||||
rpt.txtLKW.Text = AVISO.LKW_Nr
|
||||
rpt.txtLKWId.Text = AVISO.AvisoID
|
||||
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
|
||||
Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
|
||||
Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
|
||||
Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
|
||||
End Select
|
||||
End If
|
||||
|
||||
rpt.txtDatum.Text = Now.ToShortDateString
|
||||
rpt.txtSB.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
|
||||
Dim ort = "Suben"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
|
||||
Case "ATILLA"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.Atilla
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "SBG" : ort = "Bad Reichenhall"
|
||||
Case "WAI" : ort = "Waidhaus"
|
||||
Case "NKD" : ort = "Nickelsdorf"
|
||||
End Select
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
End Select
|
||||
|
||||
|
||||
rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
|
||||
rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
|
||||
|
||||
|
||||
|
||||
Dim tb As New DataTable
|
||||
tb.Columns.Add("Nr", GetType(Integer))
|
||||
' tb.Columns.Add("Nr", GetType(String))
|
||||
' tb.Columns.Add("PosNr", GetType(String))
|
||||
' 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
|
||||
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
|
||||
|
||||
|
||||
'MsgBox(tb.Rows.Count)
|
||||
|
||||
rpt.DataSource = tb
|
||||
Dim fiskal_bool = False
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
|
||||
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
|
||||
|
||||
|
||||
If SND.tblSnd_Fremdspedition Then
|
||||
rpt.txtAbfertigungsart.Text = "FREMD"
|
||||
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
|
||||
Else
|
||||
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
|
||||
|
||||
If SND.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung"
|
||||
Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr."
|
||||
Case 26, 28
|
||||
rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
|
||||
fiskal_bool = True
|
||||
Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
|
||||
End Select
|
||||
Else
|
||||
rpt.txtAbfertigungsart.Text = "-"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
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
|
||||
rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim
|
||||
|
||||
Dim NCTS_VZAdr = ""
|
||||
NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
|
||||
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
|
||||
NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
|
||||
NCTS_VZAdr &= vbNewLine
|
||||
If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " "
|
||||
' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")
|
||||
|
||||
|
||||
rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
|
||||
|
||||
Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
|
||||
Dim ATAMRN = ""
|
||||
SND.LOAD_HANDLING()
|
||||
|
||||
If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then
|
||||
If SND.HANDLING.Count > 0 Then
|
||||
ATAMRN_List = SND.HANDLING
|
||||
|
||||
' Else
|
||||
' ATAMRN = SND.tblSnd_ATANr
|
||||
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
|
||||
' End If
|
||||
'Else
|
||||
' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
|
||||
' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
|
||||
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)
|
||||
|
||||
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))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List)
|
||||
rpt.SubReport.Report = SubRpt
|
||||
|
||||
|
||||
rpt.txtAnmerkung.Visible = False
|
||||
|
||||
'If ATAMRN_List.Count = 0 Then
|
||||
|
||||
' rpt.txtAnmerkung.Text = ""
|
||||
' Dim colliGewicht = ""
|
||||
' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
|
||||
' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
|
||||
' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
|
||||
' rpt.txtAnmerkung.Visible = True
|
||||
'Else
|
||||
' rpt.txtAnmerkung.Visible = False
|
||||
'End If
|
||||
|
||||
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
|
||||
|
||||
If printReportElsePDF Then 'NUR DRUCK!!
|
||||
rpt.Run(False)
|
||||
|
||||
rpt.Document.Printer.PrinterName = printername
|
||||
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
|
||||
rpt.Document.Printer.OriginAtMargins = False
|
||||
|
||||
rpt.Document.Print((printername = ""), False)
|
||||
rpt.Dispose()
|
||||
Else
|
||||
|
||||
|
||||
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False)
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return tmpPath
|
||||
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
|
||||
@@ -2049,7 +2292,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||||
@@ -2092,7 +2335,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
@@ -2134,7 +2377,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||||
@@ -2182,7 +2425,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
@@ -2219,7 +2462,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
@@ -2270,7 +2513,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
@@ -2374,7 +2617,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
@@ -2441,21 +2684,32 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
|
||||
Case "FR"
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite)
|
||||
Case Else
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite)
|
||||
End Select
|
||||
|
||||
Reference in New Issue
Block a user