neu
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
'Imports Gemeinsames
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports Gemeinsames
|
||||
|
||||
Public Class frmNacherfassungNEU
|
||||
|
||||
@@ -65,6 +66,7 @@ Public Class frmNacherfassungNEU
|
||||
Case "IMEX" : sbWhere = " AND Mandant <> 'UNAT' AND Niederlassung <> 'SUA' "'sbWhere = " AND Mandant = 'IMEX' "
|
||||
Case "UNISPED" : sbWhere = " AND Mandant = 'UNAT' "
|
||||
Case "FRONTOFFICE" : sbWhere = " AND Niederlassung <> 'SUA' "
|
||||
Case "VERIMEX" : sbWhere = " AND Mandant <> 'UNAT' "
|
||||
Case Else
|
||||
'If AVISO IsNot Nothing Then
|
||||
' Select Case AVISO.Grenzstelle
|
||||
@@ -578,6 +580,7 @@ Public Class frmNacherfassungNEU
|
||||
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : where = " AND mit_firma IN ('UNISPED','BEIDE') "
|
||||
Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') "
|
||||
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
|
||||
Case "VERIMEX" : cboFiliale._allowedValuesFreiText = {"6001"}
|
||||
Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') "
|
||||
End Select
|
||||
|
||||
@@ -771,6 +774,9 @@ Public Class frmNacherfassungNEU
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
'Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Function validValues() As Boolean
|
||||
@@ -832,7 +838,7 @@ Public Class frmNacherfassungNEU
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
SPEDITIONSBUCH.UNTERPOS.Clear()
|
||||
If SPEDITIONSBUCH.Abfertigungsart = 23 Then
|
||||
@@ -952,7 +958,7 @@ Public Class frmNacherfassungNEU
|
||||
SPEDITIONSBUCH.KdAuftragsNr = txtKdAuftragsnummer.Text
|
||||
SPEDITIONSBUCH.KdAuftragsNrAvisierer = txtKdAuftragsnummerAvisierer.Text
|
||||
SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = txtKdAuftragsnummerEmpfaenger.Text
|
||||
SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text
|
||||
SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text
|
||||
SPEDITIONSBUCH.AuftraggeberBetragKassiert = txtInkasso._value
|
||||
|
||||
|
||||
@@ -989,6 +995,9 @@ Public Class frmNacherfassungNEU
|
||||
|
||||
|
||||
Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged, txtAnzahl.TextChanged
|
||||
|
||||
Button5.Visible = (cboAbfertigungsart._value = "52")
|
||||
|
||||
If sender Is cboAbfertigungsart Then
|
||||
If Not IsNumeric(txtAnzahl.Text) OrElse txtAnzahl.Text = "0" Then txtAnzahl.Text = "1"
|
||||
If cboAbfertigungsart._value = "23" Then
|
||||
@@ -1189,7 +1198,7 @@ Public Class frmNacherfassungNEU
|
||||
txtFraechter._UseFIRMA = FirmaTmp
|
||||
txtEndEmpf._UseFIRMA = FirmaTmp
|
||||
|
||||
If cboFiliale._value = 7001 Then
|
||||
If cboFiliale._value.ToString = "7001" Then
|
||||
cbxEIDR.Visible = True
|
||||
Else
|
||||
cbxEIDR.Visible = False
|
||||
@@ -1574,4 +1583,214 @@ Public Class frmNacherfassungNEU
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click_2(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
cSpedBuch_Aktendeckel.PrintSimpleSpedbuch("PDF", SPEDITIONSBUCH)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Class cSpedBuch_Aktendeckel
|
||||
Shared Sub PrintSimpleSpedbuch(art As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Optional Printername As String = "", Optional TYP As String = "AKT", Optional SendungsAnzahlAviso As Integer = -1)
|
||||
|
||||
|
||||
'TYP --> LAUFZETTEL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
If IsNumeric(SPEDBUCH.AbfertigungsNr) AndAlso CInt(SPEDBUCH.AbfertigungsNr) > 100000 Then
|
||||
Else
|
||||
MsgBox("Abfertigungsnummer angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If SPEDBUCH.Abfertigungsart <= 0 Then
|
||||
MsgBox("Abfertigungsart angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim VALUES As New Gemeinsames.rptSendungenValues
|
||||
|
||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SPEDBUCH.FilialenNr & "-" & SPEDBUCH.AbfertigungsNr & "-" & SPEDBUCH.UnterNr & "/", 1, True, 25)
|
||||
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
||||
Dim barcodeLKW As Image = Nothing
|
||||
|
||||
If If(SPEDBUCH.AvisoID, "") <> "" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then
|
||||
barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & SPEDBUCH.AvisoID & "/", 1, True, 20)
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim abfertArt = ""
|
||||
If SPEDBUCH.Abfertigungsart > 0 Then abfertArt = "" & SPEDBUCH.Abfertigungsart & " - " & SQL.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & SPEDBUCH.Abfertigungsart, "FMZOLL")
|
||||
|
||||
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
|
||||
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
|
||||
|
||||
VALUES.ABF_ART = SPEDBUCH.Abfertigungsart
|
||||
VALUES.Abfertigungsnummer = SPEDBUCH.AbfertigungsNr
|
||||
VALUES.FilialeNr = SPEDBUCH.FilialenNr
|
||||
|
||||
VALUES.Abfertigungsart = abfertArt
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||
VALUES.Grenze = ""
|
||||
Else
|
||||
VALUES.Grenze = SPEDBUCH.Grenzstelle
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'VALUES.Avisierer_KdNr = IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "")
|
||||
'VALUES.Avisierer_Firma = AVISO.Auftraggeber
|
||||
VALUES.Avisierer_KdNr = IIf(SPEDBUCH.AvisiererKundenNr > 0, SPEDBUCH.AvisiererKundenNr, "")
|
||||
VALUES.Avisierer_Firma = SPEDBUCH.Avisierer
|
||||
|
||||
VALUES.Auftraggeber_KdNr = IIf(SPEDBUCH.VermittlerKundenNr > 0, SPEDBUCH.VermittlerKundenNr, "")
|
||||
VALUES.Auftraggeber_Firma = SPEDBUCH.Vermittler
|
||||
VALUES.KdAuftrNr = If(SPEDBUCH.KdAuftragsNr, "")
|
||||
|
||||
|
||||
|
||||
VALUES.Empfaenger_KdNr = IIf(SPEDBUCH.EmpfängerKundenNr > 0, SPEDBUCH.EmpfängerKundenNr, "")
|
||||
VALUES.Empfaenger_Firma = SPEDBUCH.Empfänger
|
||||
|
||||
|
||||
VALUES.Absender_KdNr = IIf(SPEDBUCH.AbsenderKundenNr > 0, SPEDBUCH.AbsenderKundenNr, "")
|
||||
VALUES.Absender_Firma = SPEDBUCH.Absender
|
||||
|
||||
'VALUES.Frachtfuehrer_KdNr = IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "")
|
||||
' VALUES.Frachtfuehrer_Firma = AVISO.Frächter
|
||||
VALUES.Frachtfuehrer_KdNr = IIf(SPEDBUCH.FrachtführerKundenNr > 0, SPEDBUCH.FrachtführerKundenNr, "")
|
||||
VALUES.Frachtfuehrer_Firma = SPEDBUCH.Frachtführer
|
||||
|
||||
VALUES.LKWKennzeichen = SPEDBUCH.LKW_Kennzeichen
|
||||
If If(SPEDBUCH.Packstücke, "").Length > 100 Then
|
||||
VALUES.Warenbezeichnung = SPEDBUCH.Packstücke.Substring(0, 100)
|
||||
Else
|
||||
VALUES.Warenbezeichnung = If(SPEDBUCH.Packstücke, "")
|
||||
End If
|
||||
|
||||
' VALUES.Colli = SPEDBUCH.tblSnd_Colli
|
||||
If SPEDBUCH.Rohmasse IsNot Nothing AndAlso SPEDBUCH.Rohmasse.ToString <> "" Then
|
||||
VALUES.Gewicht = If(SPEDBUCH.Rohmasse Is Nothing, "", SPEDBUCH.Rohmasse & " kg")
|
||||
End If
|
||||
|
||||
' VALUES.Ankunft = IIf(AVISO.Ankunft > VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), "")
|
||||
' VALUES.Abfahrt = IIf(AVISO.Freigabe > VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), "")
|
||||
' VALUES.Anmerkungen = (SPEDBUCH.tblSnd_Anmerkung & vbNewLine & vbNewLine & If(SPEDBUCH.tblSnd_AnmerkungDispoliste, "")).ToString.Trim
|
||||
|
||||
|
||||
VALUES.Tarifposanzahl = SPEDBUCH.Abfertigungsanzahl
|
||||
|
||||
|
||||
VALUES.NCTS_VZAdr = If(SPEDBUCH.NCTS_Verzollungsadresse, "")
|
||||
VALUES.NCTS_VZAdr &= vbNewLine
|
||||
If If(SPEDBUCH.Bestimmungszollstelle, "") <> "" Then VALUES.NCTS_VZAdr &= "Best.Zollst.:" & If(SPEDBUCH.Bestimmungszollstelle, "")
|
||||
|
||||
|
||||
VALUES.NCTS_VZAdr = VALUES.NCTS_VZAdr.Trim
|
||||
|
||||
VALUES.FISKAL_ENDEMPF = If(SPEDBUCH.Endempfänger, "")
|
||||
|
||||
If SPEDBUCH.EmpfängerKundenNr > 0 Then
|
||||
Dim txt = SQL.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE [KundenNr]=" & SPEDBUCH.EmpfängerKundenNr, "FMZOLL")
|
||||
If txt <> "" Then
|
||||
VALUES.DokZuSend_Ueberschrift = "ACHTUNG: Zu sendene Dokumente:"
|
||||
VALUES.DokZuSend_Text = txt
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
VALUES.VG_MA = SQL.DLookup("[Name]", "Personal", "ID='" & SPEDBUCH.Personalnummer & "'", "FMZOLL", "")
|
||||
VALUES.QS_MA = SQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SPEDBUCH.PersonalnummerQS & "'", "ADMIN", "")
|
||||
|
||||
|
||||
|
||||
VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
||||
|
||||
|
||||
|
||||
Try
|
||||
Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess()
|
||||
pc.MaxWorkingSet = pc.MinWorkingSet
|
||||
|
||||
Dim imgpath = ""
|
||||
Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\")
|
||||
|
||||
If SPEDBUCH.FilialenNr = "4839" Then
|
||||
imgpath = resPath & "LEX.png"
|
||||
ElseIf SPEDBUCH.FilialenNr = "5501" Then
|
||||
imgpath = resPath & "IMEX.png"
|
||||
ElseIf SPEDBUCH.FilialenNr = "5601" Then
|
||||
imgpath = resPath & "UNISPED.png"
|
||||
ElseIf SPEDBUCH.FilialenNr = "5701" Then
|
||||
imgpath = resPath & "AMB.png"
|
||||
ElseIf SPEDBUCH.FilialenNr = "6001" Then
|
||||
imgpath = resPath & "VERIMEX.png"
|
||||
ElseIf SPEDBUCH.FilialenNr = "5801" Then
|
||||
imgpath = resPath & "FO.png"
|
||||
Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
||||
Case "SUB"
|
||||
Select Case VALUES.ABTEILUNG
|
||||
Case "QS" : imgpath = resPath & "QS.png"
|
||||
Case Else : imgpath = resPath & "SUB.png"
|
||||
End Select
|
||||
Case "WAI" : imgpath = resPath & "WAI.png"
|
||||
Case "NKD" : imgpath = resPath & "NKD.png"
|
||||
Case "SBG" : imgpath = resPath & "SBG.png"
|
||||
Case Else : imgpath = resPath & "SUB.png"
|
||||
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
If Not ZOLLANMELDUNG.getDataByBezugsnummer(SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr, SPEDBUCH.Abfertigungsart.ToString, (If(SPEDBUCH.AtlasBezNrEZA, "") & If(SPEDBUCH.AtlasBezNrNCTS, "")).Trim) Then
|
||||
ZOLLANMELDUNG = Nothing
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
SPEDBUCH.LOAD_VORKOSTEN()
|
||||
End If
|
||||
|
||||
|
||||
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, Nothing, Nothing)
|
||||
rpt.Document.CacheToDisk = False
|
||||
|
||||
'rpt.Document.CacheToDisk = True
|
||||
' rpt.Document.CacheToDiskLocation = "C:\\Temp"
|
||||
|
||||
If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt
|
||||
Dim printForm As New SDL.frmPrintLayout
|
||||
printForm.Viewer.LoadDocument(rpt)
|
||||
printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
printForm.Show()
|
||||
' printForm.BringToFront()
|
||||
ElseIf art = "PRINT" Or art = "DIALOG" Then
|
||||
|
||||
rpt.Run(False)
|
||||
' If Printername = "" Then rpt.Dispose() : Exit Sub
|
||||
rpt.Document.Printer.PrinterName = Printername
|
||||
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
|
||||
rpt.Dispose()
|
||||
'rpt.Document.Dispose()
|
||||
' rpt.Dispose()
|
||||
' rpt = Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
' If art = "PRINT" Then
|
||||
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
|
||||
' ElseIf art = "DIALOG" Then
|
||||
' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW)
|
||||
' Else
|
||||
' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW)
|
||||
' End If
|
||||
'
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user