Fiskaluebersicht, Uberstunden, Zollanmeldungen, MDMAuswertungen
This commit is contained in:
@@ -33,6 +33,9 @@ Public Class frmMDMDatenverarbetiung
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : genSummenbericht_PLOSE()
|
||||
Case "ASFINAG" : genSummenbericht_ASFINAG()
|
||||
Case "UTA" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case "IDS" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case "MSE" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case Else : MsgBox("Nicht verfügbar!")
|
||||
End Select
|
||||
End Sub
|
||||
@@ -48,6 +51,9 @@ Public Class frmMDMDatenverarbetiung
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : pruef = pruefData_PLOSE()
|
||||
Case "ASFINAG" : pruef = pruefData_ASFINAG()
|
||||
Case "UTA" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case "IDS" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case "MSE" : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
Case Else : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
End Select
|
||||
|
||||
@@ -78,6 +84,10 @@ Public Class frmMDMDatenverarbetiung
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
Case "ASFINAG" : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
Case "IDS" : MsgBox("Nicht verfügbar!")
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
Case "MSE" : MsgBox("Nicht verfügbar!")
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@@ -96,6 +106,12 @@ Public Class frmMDMDatenverarbetiung
|
||||
' setFakturiertUTA()
|
||||
'End If
|
||||
End If
|
||||
|
||||
Case "IDS"
|
||||
MsgBox("Nicht verfügbar!")
|
||||
Case "MSE"
|
||||
MsgBox("Nicht verfügbar!")
|
||||
|
||||
Case "ASFINAG"
|
||||
Dim abrechnungsDatum As DateTime = Now()
|
||||
If datum = Nothing Then
|
||||
@@ -600,6 +616,14 @@ Public Class frmMDMDatenverarbetiung
|
||||
Panel4.Visible = False
|
||||
pnlAsfinag.Visible = True
|
||||
Exit Sub
|
||||
|
||||
Case "IDS"
|
||||
Panel4.Visible = False
|
||||
MsgBox("Noch nicht verfürbar!")
|
||||
|
||||
Case "MSE"
|
||||
Panel4.Visible = False
|
||||
MsgBox("Noch nicht verfürbar!")
|
||||
End Select
|
||||
|
||||
init()
|
||||
@@ -2480,96 +2504,13 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim found = False
|
||||
Dim results As DataRow()
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
||||
'KUNDEN-NR / PLOSE KD-NR
|
||||
'results = dtAsfinagKartenpruef.Select("PLOSEKundenNr = '" & r.Cells("plose_POLSEKundennummer").Value & "'")
|
||||
'If results.Length > 0 Then
|
||||
' 'Gefunden!
|
||||
' 'r.Cells("VERAGKdNr").Value = results(0)("PLOSEKundenNr")
|
||||
' 'r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
|
||||
' VERAGKdNr = results(0)("AdressenNr")
|
||||
' found = True
|
||||
'Else
|
||||
' r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
|
||||
' pruefData_ASFINAG = False
|
||||
'End If
|
||||
|
||||
'KUNDEN-NR / PLOSE KD-NR
|
||||
'Default -> Nicht gefunden
|
||||
'r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
|
||||
'found = False
|
||||
'For Each k In VERAGKdNr_DT.Rows
|
||||
' If r.Cells("plose_POLSEKundennummer").Value = k("PLOSEKundenNr") Then
|
||||
' 'Gefunden!
|
||||
' r.Cells("VERAGKdNr").Value = k("PLOSEKundenNr")
|
||||
' r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
|
||||
' VERAGKdNr = k("AdressenNr")
|
||||
' found = True
|
||||
' Exit For
|
||||
' End If
|
||||
'Next
|
||||
'If Not found Then pruefData_PLOSE = False
|
||||
|
||||
'VERAG/PLOSE LEISTUNG
|
||||
'results = VERAGLeistungsNr_DT.Select("plp_ProductCode = '" & r.Cells("plose_ProduktCode").Value & "' AND plp_LeistungsNr is not null")
|
||||
'If results.Length > 0 Then
|
||||
' 'Gefunden!
|
||||
' VERAGLeistungsNr = results(0)("plp_LeistungsNr")
|
||||
' r.Cells("VERAGLeistungsNr").Value = results(0)("plp_LeistungsNr")
|
||||
' r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
|
||||
' found = True
|
||||
'Else
|
||||
' r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
|
||||
' pruefData_ASFINAG = False
|
||||
'End If
|
||||
|
||||
|
||||
''VERAG OFFERT 80
|
||||
''Default -> Nicht gefunden
|
||||
'Dim OffertenNr_DT = SQL.loadDgvBySql("SELECT KundenNr,OffertenNr FROM [Offerten] where OffertenNr = 80 AND KundenNr = '" & VERAGKdNr & "'", "FMZOLL")
|
||||
'results = OffertenNr_DT.Select("KundenNr = '" & VERAGKdNr & "'")
|
||||
'If results.Length > 0 Then
|
||||
' 'Gefunden!
|
||||
' r.Cells("KundeOffertenNr").Value = results(0)("OffertenNr")
|
||||
' r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
|
||||
'Else
|
||||
' pruefData_ASFINAG = False
|
||||
' r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
''VERAG LEISTUNGS-NR
|
||||
''Default -> Nicht gefunden
|
||||
'Dim KundeLeistungsNr_DT = SQL.loadDgvBySql("SELECT [LeistungsNr],KundenNr FROM [Offertenpositionen] where OffertenNr = 80 AND KundenNr = '" & VERAGKdNr & "' AND LeistungsNr = '" & VERAGLeistungsNr & "'", "FMZOLL")
|
||||
'results = KundeLeistungsNr_DT.Select("KundenNr = '" & VERAGKdNr & "' AND LeistungsNr = '" & VERAGLeistungsNr & "'")
|
||||
'If results.Length > 0 Then
|
||||
' 'Gefunden!
|
||||
' r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
|
||||
' r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
|
||||
'Else
|
||||
' r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
|
||||
' pruefData_ASFINAG = False
|
||||
'End If
|
||||
|
||||
|
||||
'If cnt Mod 5 = 0 Then
|
||||
' lblProzPruef.Text = CInt(cnt / MyDatagridview1.Rows.Count() * 100) & " %"
|
||||
' lblProzPruef.Refresh()
|
||||
' Me.Refresh()
|
||||
'End If
|
||||
|
||||
cnt += 1
|
||||
|
||||
Next
|
||||
Dim cnt = MyDatagridview1.Rows.Count
|
||||
|
||||
MyDatagridview1.ClearSelection()
|
||||
MyDatagridview1.DataSource = dtAsfinagKartenpruef
|
||||
Dim count = MyDatagridview1.Rows.Count()
|
||||
If count > 0 Then
|
||||
lblProzPruef.Text = CInt(cnt / count * 100) & " %" '100
|
||||
lblProzPruef.Text = CInt(cnt / count * 100) & " %"
|
||||
Else
|
||||
cbxASFINAGAbgerechnet.Checked = True
|
||||
End If
|
||||
@@ -2760,6 +2701,14 @@ Public Class frmMDMDatenverarbetiung
|
||||
initLieferant("ASFINAG", sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
initLieferant("IDS", sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||
initLieferant("MSE", sender)
|
||||
End Sub
|
||||
|
||||
Private Function setFakturiert_ASFINAG() As Boolean
|
||||
'Abrechnungsdatum setzen
|
||||
|
||||
@@ -2901,4 +2850,5 @@ Public Class frmMDMDatenverarbetiung
|
||||
Process.Start(webAddress)
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user