edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -876,6 +876,7 @@ Public Class usrCntlSpeditionsBuchSuche
Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "UNISPED Spedition"
Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "AMBAR"
Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "FRONTOFFICE"
Case "VERIMEX" : rpt.picVERAG.Image = My.Resources.verimex : rpt.Label28.Text = "VERIMEX"
Case Else
End Select
@@ -1084,6 +1085,7 @@ Public Class usrCntlSpeditionsBuchSuche
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 "VERIMEX" : rpt.picVERAG.Image = My.Resources.verimex : rpt.Label28.Text = "VERIMEX"
Case Else
End Select
@@ -1648,25 +1650,35 @@ Public Class usrCntlSpeditionsBuchSuche
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
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
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/VBNR-" & VBNr & "/", 1, True, 25)
rpt.Picture1.Image = barcode
'Gelangensbestätigungs/Verbringungsnachweis-Nr. speichern:
SQL.doSQLVarList("UPDATE Speditionsbuch SET SB_CMRNr='" & VBNr & "' WHERE 1=1 " & getSpedBuchWhere(), "FMZOLL",, getSpedbuchList())
End If
Else
rpt.Label17.Visible = False
End If
Dim AvsioIdNull As String = ""
For Each r In rpt.DataSource.rows
If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
@@ -1683,6 +1695,8 @@ Public Class usrCntlSpeditionsBuchSuche
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
Dim sumAnz As Double = 0
@@ -2214,4 +2228,25 @@ Public Class usrCntlSpeditionsBuchSuche
If dt IsNot Nothing Then DataGridView.DataSource = dt
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
Dim VerbNr = InputBox("Bitte geben Sie die Gelangensbestätigungs-Nr. ein:")
If VerbNr.Trim <> "" AndAlso IsNumeric(VerbNr) Then
Dim cnt = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] where SB_CMRNr ='" & VerbNr & "' ", "FMZOLL")
If cnt > 0 Then
If vbYes = MsgBox(cnt & " Einträge gefunden, fortfahren?", vbYesNoCancel) Then
Dim VerbDat = InputBox("Bitte geben Sie das Datum ein, an dem die Gelangensbestätigung erhalten wurde:")
If VerbDat.Trim <> "" AndAlso IsDate(VerbDat) Then
If SQL.doSQL("UPDATE [Speditionsbuch] SET SB_CMR=1, SB_CMRDatum='" & CDate(VerbDat).ToShortDateString & "' where SB_CMRNr ='" & VerbNr & "' ", "FMZOLL") Then
MsgBox("Erfolgreich eingetragen!")
Else
MsgBox("Fehler beim Eintragen!")
End If
End If
End If
Else
MsgBox("Keine Daten!")
End If
End If
End Sub
End Class