20200108
This commit is contained in:
@@ -714,6 +714,9 @@ Public Class frmFormulare
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
If name = "txtEmail" Then
|
||||
Me.txtEmail.Text = value
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub KDNR_CHANGED(kdnr)
|
||||
@@ -936,7 +939,7 @@ Public Class frmFormulare
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
|
||||
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
|
||||
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
|
||||
'End If
|
||||
@@ -1506,6 +1509,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 &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
|
||||
If anmerkung <> "" Then
|
||||
rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
|
||||
rpt.txtAnmerkung.Text = Regex.Replace(rpt.txtAnmerkung.Text, "\r\n$", String.Empty)
|
||||
@@ -1543,10 +1547,12 @@ Public Class FormularManagerNEU
|
||||
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 SND.tblSnd_NCTSaufDISPO Then
|
||||
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
|
||||
End If
|
||||
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, "")
|
||||
|
||||
@@ -1638,14 +1644,11 @@ Public Class FormularManagerNEU
|
||||
' 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
|
||||
@@ -1679,6 +1682,15 @@ Public Class FormularManagerNEU
|
||||
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 "FRONTOFFICE"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmeninfo_rontoffice.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
|
||||
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"
|
||||
@@ -1725,141 +1737,142 @@ Public Class FormularManagerNEU
|
||||
'MsgBox(tb.Rows.Count)
|
||||
|
||||
rpt.DataSource = tb
|
||||
Dim fiskal_bool = False
|
||||
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
|
||||
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
|
||||
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, "-")
|
||||
rpt.txtPosNr.Text &= vbnewline & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
|
||||
|
||||
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.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
|
||||
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
|
||||
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
|
||||
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, "")
|
||||
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
|
||||
rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
|
||||
|
||||
Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
|
||||
Dim ATAMRN = ""
|
||||
SND.LOAD_HANDLING()
|
||||
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
|
||||
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
|
||||
' 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)
|
||||
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))
|
||||
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
|
||||
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
|
||||
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition)
|
||||
rpt.SubReport.Report = SubRpt
|
||||
|
||||
|
||||
rpt.txtAnmerkung.Visible = False
|
||||
rpt.txtAnmerkung.Visible = False
|
||||
|
||||
'If ATAMRN_List.Count = 0 Then
|
||||
'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
|
||||
' 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
|
||||
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
|
||||
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)
|
||||
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.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
|
||||
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)
|
||||
rpt.Run(False)
|
||||
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
rpt.Dispose()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return tmpPath
|
||||
End Function
|
||||
@@ -2076,6 +2089,10 @@ Public Class FormularManagerNEU
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.Atilla
|
||||
Case "FRONTOFFICE"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmeninfo_rontoffice.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "SBG" : ort = "Bad Reichenhall"
|
||||
@@ -2574,6 +2591,10 @@ Public Class FormularManagerNEU
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
If usrCntl.cbxLKWWartet.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
@@ -2584,21 +2605,45 @@ Public Class FormularManagerNEU
|
||||
'End If
|
||||
End If
|
||||
|
||||
Dim destPath = ""
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
|
||||
Case "IMEX", "UNISPED"
|
||||
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
|
||||
Case Else
|
||||
|
||||
Select Case usrCntl.cboFirma._value
|
||||
Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
|
||||
Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
|
||||
Case "CS" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
|
||||
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
Try
|
||||
If destPath <> "" Then
|
||||
If usrCntl.SENDUNG IsNot Nothing AndAlso usrCntl.AVISO IsNot Nothing Then
|
||||
If vbYes = MsgBox("Soll das Vorauskasse-PDF zu den Sendungs-Anhängen hinzugefügt werden?", vbYesNo) Then
|
||||
saveToDS(usrCntl.AVISO.AvisoID, "Vorauskasse.pdf", destPath, "Vorauskasse", "PDF", ,, , usrCntl.SENDUNG.tblSnd_SendungID)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
Return destPath
|
||||
End Function
|
||||
|
||||
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False)
|
||||
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
|
||||
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
|
||||
da_id = DS.da_id
|
||||
destPath = DS.GET_TOP1_PATH
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
|
||||
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
|
||||
anhId = ANH.anh_id
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
@@ -3577,10 +3622,19 @@ Public Class FormularManagerNEU
|
||||
|
||||
Public Shared Function getUO2() As String
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX", "ATILLA", "UNISPED" : 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)
|
||||
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)
|
||||
Case Else : Return ""
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
|
||||
Try
|
||||
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(usrCntl.KdNR, Now)
|
||||
|
||||
Reference in New Issue
Block a user