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
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -740,11 +740,11 @@ Public Class frmKundenUebersichtZOLL
With dgvVollmachten
.Columns.Clear()
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
End Select
Dim where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
' Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
'End Select
.DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where &
@@ -1164,7 +1164,7 @@ Public Class frmKundenUebersichtZOLL
txtOPFaellig.ForeColor = Color.Black
End If
If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C")
If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = ""
'If sumGes > 0 Then
' txtOffenePosten.Text = sumGes.ToString("C")
'Else
@@ -2152,16 +2152,16 @@ Public Class frmKundenUebersichtZOLL
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie, kdNr, {})
End Sub
Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht, kdNr, {})
'cFormularManager.fillVollmacht(-1, "ZVM_DE")
End Sub
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {})
End Sub
@@ -2171,47 +2171,47 @@ Public Class frmKundenUebersichtZOLL
End Sub
Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal, kdNr, {})
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht, kdNr, {})
End Sub
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal, kdNr, {})
End Sub
Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV, kdNr, {})
End Sub
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {})
End Sub
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {})
End Sub
Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, kdNr, {})
End Sub
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise, kdNr, {})
End Sub
Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG, kdNr, {})
End Sub
Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS, kdNr, {})
End Sub
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft, kdNr)
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft, kdNr, {})
End Sub