X
This commit is contained in:
@@ -262,8 +262,12 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
If MyTextBox14.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
|
||||
If cbxBar.CheckState = CheckState.Checked Then sqlstr &= " AND Bar=1 "
|
||||
If cbxFakturiert.CheckState = CheckState.Checked Then sqlstr &= " AND Fakturiert=1 "
|
||||
If cbxCMR.CheckState = CheckState.Checked Then sqlstr &= " AND SB_CMR=1 "
|
||||
If cbxBar.CheckState = CheckState.Unchecked Then sqlstr &= " AND Bar=0 "
|
||||
If cbxFakturiert.CheckState = CheckState.Unchecked Then sqlstr &= " AND Fakturiert=0 "
|
||||
If cbxCMR.CheckState = CheckState.Unchecked Then sqlstr &= " AND SB_CMR=0 "
|
||||
|
||||
|
||||
|
||||
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
|
||||
If cboSB_Qs._value <> "" Then sqlstr &= " AND [PersonalnummerQS] = @PersonalnummerQS "
|
||||
@@ -1296,4 +1300,202 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
||||
Dim kdnrTmp = -1
|
||||
Dim FirmaTmp = ""
|
||||
If kdtxtAuftraggeber.KdNr_value > 0 Then kdnrTmp = kdtxtAuftraggeber.KdNr_value : FirmaTmp = kdtxtAuftraggeber.Text
|
||||
If kdtxtEmpfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEmpfaenger.KdNr_value : FirmaTmp = kdtxtEmpfaenger.Text
|
||||
If kdtxtEndempfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEndempfaenger.KdNr_value : FirmaTmp = kdtxtEndempfaenger.Text
|
||||
If kdtxtAvisierer.KdNr_value > 0 Then kdnrTmp = kdtxtAvisierer.KdNr_value : FirmaTmp = kdtxtAvisierer.Text
|
||||
Dim VBNr = -1
|
||||
Dim path = getGelangensbestätigung(FirmaTmp, kdnrTmp,, VBNr)
|
||||
If path <> "" Then
|
||||
|
||||
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gelangensbestaetigung, kdnrTmp, {kdnrTmp, path, VBNr})
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function getGelangensbestätigung(Firma As String, kdnrTmp As Integer, Optional showDok As Boolean = False, Optional ByRef VBNr As Integer = -1) As String
|
||||
Dim displayFilter = cbxFilterInBericht.Checked
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
|
||||
Dim sqlstr As String = ""
|
||||
' If CheckBox1.Checked Then
|
||||
|
||||
Dim sql_KdAuftragsNr = "" '",Speditionsbuch.KdAuftragsNr as KdAuftragsNr"
|
||||
|
||||
|
||||
sqlstr &= " SELECT FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger,EndEmpfänger,EndEmpfängerKundenNr, VermittlerKundenNr, Vermittler, "
|
||||
sqlstr &= " FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen],"
|
||||
sqlstr &= " Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen "
|
||||
sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart "
|
||||
sqlstr &= " LEFT JOIN Währungstabelle on Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 "
|
||||
sqlstr &= getSpedBuchWhere()
|
||||
' sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
|
||||
sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "Gelangensbestätigung"
|
||||
|
||||
Dim rpt As New rptSpeditionsbericht_Gelangensbestaetigung
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
|
||||
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
|
||||
Case Else
|
||||
End Select
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
If vbYes = MsgBox("Neue Gelangensbestätigungs-Nr. vergeben?", MsgBoxStyle.YesNo) Then
|
||||
Dim GBST = New VERAG_PROG_ALLGEMEIN.cGelangensbestaetigung(Firma, kdnrTmp)
|
||||
If GBST.SAVE Then
|
||||
rpt.lblNr.Text = GBST.gb_nr
|
||||
VBNr = GBST.gb_nr
|
||||
End If
|
||||
|
||||
Else
|
||||
rpt.Label17.Visible = False
|
||||
End If
|
||||
|
||||
If rpt.DataSource.rows.count = 0 Then
|
||||
rpt.Dispose() : print.Dispose()
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Return ""
|
||||
End If
|
||||
|
||||
Dim AvsioIdNull As String = ""
|
||||
For Each r In rpt.DataSource.rows
|
||||
If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
|
||||
AvsioIdNull &= r("FilialenNr") & " " & r("AbfertigungsNr") & " " & r("UnterNr") & " - " & r("Abfertigungsdatum") & " - " & r("LKW Kennzeichen") & vbNewLine
|
||||
End If
|
||||
Next
|
||||
If AvsioIdNull <> "" Then
|
||||
MsgBox("Achtung: folgende Sendungen sind keinem LKW/Aviso zugeordnet:" & vbNewLine & AvsioIdNull)
|
||||
|
||||
End If
|
||||
Dim sum = 0
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
Dim sumAnz As Double = 0
|
||||
Dim sumBar As Double = 0
|
||||
Dim sumRg As Double = 0
|
||||
Dim gesSumAnz As Double = 0
|
||||
Dim gesSumBar As Double = 0
|
||||
Dim gesSumRg As Double = 0
|
||||
Dim gesgesSumAnz As Double = 0
|
||||
Dim gesgesSumBar As Double = 0
|
||||
Dim gesgesSumRg As Double = 0
|
||||
Dim SumAnzLKW As Double = 0
|
||||
Dim gesSumAnzLKW As Double = 0
|
||||
Dim gesgesSumAnzLKW As Double = 0
|
||||
|
||||
Dim sumAbfBez = ""
|
||||
Dim gesFilBez = ""
|
||||
|
||||
' Dim gesgesAbfBez = ""
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
|
||||
rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
|
||||
rpt.lblAbfDatum.Text = "Datum: " & rpt.Fields.Item("Abfertigungsdatum").Value
|
||||
rpt.lblBezugsNr.Text = checkNull(rpt.Fields.Item("BelegNr").Value)
|
||||
rpt.lblRohmasse.Text = "Rohmasse: " & checkNull(rpt.Fields.Item("Rohmasse").Value, "0") & "kg"
|
||||
rpt.txtVermerk.Text = checkNull(rpt.Fields.Item("Vermerk").Value)
|
||||
rpt.txtPackstücke.Text = checkNull(rpt.Fields.Item("Packstücke").Value)
|
||||
If cbxSpedDetailBem.Checked Then
|
||||
If checkNull(rpt.Fields.Item("Bemerkungen").Value) <> "" Then
|
||||
rpt.txtPackstücke.Text = (rpt.txtPackstücke.Text & vbNewLine & vbNewLine & checkNull(rpt.Fields.Item("Bemerkungen").Value)).trim
|
||||
End If
|
||||
End If
|
||||
|
||||
rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value)
|
||||
rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
|
||||
rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
|
||||
rpt.lblEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
|
||||
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EndEmpfängerKundenNr").Value)
|
||||
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
|
||||
rpt.lblAuftrKdNr.Text = checkNull(rpt.Fields.Item("VermittlerKundenNr").Value)
|
||||
rpt.lblAuftr.Text = checkNull(rpt.Fields.Item("Vermittler").Value)
|
||||
rpt.lblFrachtfKdNr.Text = checkNull(rpt.Fields.Item("FrachtführerKundenNr").Value)
|
||||
rpt.lblFrachtf.Text = checkNull(rpt.Fields.Item("Frachtführer").Value)
|
||||
' rpt.lblLKWNr.Text = rpt.Fields.Item("AvisiererKundenNr").Value
|
||||
' rpt.lblLKWNr.Text = rpt.Fields.Item("Avisierer").Value
|
||||
'lblGesgesWaehrung.te
|
||||
|
||||
' rpt.lblKdAuftragNr.Text = checkNull(rpt.Fields.Item("KdAuftragsNr").Value)
|
||||
'If rpt.lblKdAuftragNr.Text <> "" Then rpt.lblKdAuftragNr.Text = "Auftrag: " & rpt.lblKdAuftragNr.Text
|
||||
|
||||
Dim bar As Double = 0
|
||||
Dim rg As Double = 0
|
||||
Dim anz As Double = 0
|
||||
If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
|
||||
If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
|
||||
|
||||
' rpt.lblRechnungsbetragInEur.Text = rpt.Fields.Item("Rechnungsbetrag").Value * rpt.Fields.Item("Umrechnungskurs").Value
|
||||
|
||||
rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
|
||||
rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
|
||||
rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
|
||||
' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
|
||||
|
||||
' rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")
|
||||
|
||||
'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
|
||||
If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)
|
||||
|
||||
sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
|
||||
|
||||
gesgesSumAnz += anz
|
||||
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblGesGesSumAnzahl.Text = gesgesSumAnz.ToString("N0")
|
||||
|
||||
End Sub
|
||||
If showDok Then
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
Else
|
||||
|
||||
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Verbringungsnachweis_" & Firma & ".pdf", ".pdf", True, False)
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
Return tmpPath
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
||||
Dim SQLStr = "SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[LKW Kennzeichen],[EmpfängerKundenNr],[Empfänger],Abfertigungsart,AtlasBezNrEZA as BezugsNr
|
||||
, isnull((SELECT SUM(Betrag) FROM Zkteing WHERE Bezugsnummer=AtlasBezNrEZA) ,'') as EUST
|
||||
FROM [VERAG].[dbo].[Speditionsbuch]
|
||||
where Abfertigungsart IN (26,28) AND Abfertigungsdatum > DATEADD(Month,-6 ,getdate()) AND isnull(SB_CMR ,0)=0 AND FilialenNr NOT IN (5501)
|
||||
order by Abfertigungsdatum ASC"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(SQLStr, "FMZOLL")
|
||||
|
||||
cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2)})
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user