71 lines
4.3 KiB
VB.net
71 lines
4.3 KiB
VB.net
Public Class frmLKWEingetroffen_nach
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
If txtDatum.Text = "" Then Exit Sub
|
|
If txtUhrzeit.Text = "" Then Exit Sub
|
|
If Not IsDate(txtDatum.Text) Then Exit Sub
|
|
If txtUhrzeit.Text.Length <> 5 And txtUhrzeit.Text.Length <> 8 Then Exit Sub
|
|
|
|
'Dim dt = SQL.loadDgvBySql("SELECT tblSnd_SendungID,FilialenNr,tblSnd_Abfertigungsart_ID,AbfertigungsNr,[Ankunft], LKW_Nr, [Auftraggeber] As Avisierer, [Frächter], [ImEx], Auftraggeber, isnull(tblSnd_Colli,'') as Colli,isnull(tblSnd_Gewicht,'') as Gewicht,isnull(tblSnd_Warenbezeichnung,'') as Ware,isnull(tblSnd_ATANr,'') as ATA
|
|
' From [Aviso] INNER Join tblSendungen On tblSnd_AvisoID=AvisoID
|
|
' Where status IN (3) And Ankunft >'" & txtDatum.Text & " " & txtUhrzeit.Text & "' and Grenzstelle='" & cboNL._value & "' and Firma='VERAG' order by AvisoID, Ankunft", "AVISO")
|
|
Dim dt = SQL.loadDgvBySql("SELECT tblSnd_SendungID,FilialenNr,tblSnd_Abfertigungsart_ID,AbfertigungsNr,[Ankunft], LKW_Nr, [Auftraggeber] As Avisierer, [Frächter], [ImEx], Auftraggeber, isnull(tblSnd_Colli,'') as Colli,isnull(tblSnd_Gewicht,'') as Gewicht,isnull(tblSnd_Warenbezeichnung,'') as Ware,isnull(tblSnd_ATANr,'') as ATA
|
|
From [Aviso] INNER Join tblSendungen On tblSnd_AvisoID=AvisoID
|
|
Where status IN (3,4,5,0) And Datum > DATEADD(week, -2, GETDATE()) and Grenzstelle='" & cboNL._value & "' and Firma='VERAG' order by AvisoID, Ankunft", "AVISO")
|
|
For Each dr In dt.Rows
|
|
For Each dc In dt.Columns
|
|
dc.ReadOnly = False
|
|
Next
|
|
Next
|
|
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
For Each r As DataRow In dt.Rows
|
|
r("ATA") = getATCMRN(r("tblSnd_Abfertigungsart_ID"), r("tblSnd_SendungID"), r("FilialenNr"), r("AbfertigungsNr"))
|
|
Next
|
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True)
|
|
Else
|
|
MsgBox("Keine Daten!")
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub frmLKWEingetroffen_nach_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG", "ATILLA"
|
|
Case Else : Me.Close()
|
|
End Select
|
|
|
|
txtDatum.Text = Now.ToShortDateString
|
|
txtUhrzeit.Text = "14:00:00"
|
|
cboNL.Items.Clear()
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
|
|
cboNL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
|
|
End Sub
|
|
|
|
|
|
|
|
Function getATCMRN(tblSnd_Abfertigungsart_ID, tblSnd_SendungID, FilialenNr, AbfertigungsNr) As String
|
|
getATCMRN = ""
|
|
If tblSnd_Abfertigungsart_ID Is DBNull.Value Then Return ""
|
|
Select Case tblSnd_Abfertigungsart_ID.ToString
|
|
Case "5", "6"
|
|
getATCMRN = SQL.getValueTxtBySql("SELECT TOP 1 isnull(ncts_MRN,ncts_ANR) FROM tblDakosy_Zollanmeldungen INNER JOIN tblDakosy_NCTSOut ON ncts_dyaAnmID=dy_Id where dy_SendungsId = '" & tblSnd_SendungID & "' and ( ncts_MRN is not null or ncts_ANR is not null ) order by dy_id desc", "FMZOLL")
|
|
Case "9", "23", ""
|
|
'NIX..
|
|
Case Else
|
|
getATCMRN = SQL.getValueTxtBySql("SELECT TOP 1 isnull(eza_ANR,'') FROM tblDakosy_Zollanmeldungen INNER JOIN tblDakosy_EZA ON eza_dyaAnmID=dy_Id where dy_SendungsId = '" & tblSnd_SendungID & "' and eza_ANR is not null order by dy_id desc", "FMZOLL")
|
|
If getATCMRN = "" Then
|
|
If AbfertigungsNr > 0 Then
|
|
getATCMRN = SQL.getValueTxtBySql("SELECT TOP 1 isnull(zbant_arbnr,'') FROM [zbant] where zbant_stat BETWEEN 40 AND 71 and zbant_beznr like '" & FilialenNr & "/" & CInt(AbfertigungsNr.ToString.Substring(2)) & "%' order by zbant_beznr desc", "ATLAS")
|
|
End If
|
|
End If
|
|
|
|
End Select
|
|
End Function
|
|
|
|
End Class |