MDM -> EU, NICHT EU Kunde MWST Kopie
This commit is contained in:
@@ -188,60 +188,18 @@ Public Class usrcntlFakturierung
|
||||
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], RechnungsausgangAnhaenge.Bezeichnung ", "FMZOLL",, 0)
|
||||
|
||||
If rechnungenMitGesamtmautanhantPDF <> "" Then
|
||||
MsgBox("Bei " & rechnungenMitGesamtmautanhantPDF & " Rechnungen befindet sich noch eine PDF-Gesamtmaut" & vbNewLine & "Diesen bitte vorher entfernen über MAUTBERICHTE ENTFERNEN " & vbNewLine & "Vorang wird abgebrochen!")
|
||||
MsgBox("Bei " & rechnungenMitGesamtmautanhantPDF & " Rechnungen befindet sich noch eine PDF-Gesamtmaut" & vbNewLine & "Diesen bitte vorher entfernen über MAUTBERICHTE ENTFERNEN, weil erst im Zuge der RE-Pos-Berechnung die Gesamtmaut angehängt wird." & vbNewLine & "Vorang wird abgebrochen!")
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
If rechnungenMitGesamtmautanhantCSV <> "" Then
|
||||
MsgBox("Bei " & rechnungenMitGesamtmautanhantCSV & " Rechnungen befindet sich noch eine CSV-Gesamtmaut" & vbNewLine & "Diesen bitte vorher entfernen über MAUTBERICHTE ENTFERNEN " & vbNewLine & "Vorang wird abgebrochen!")
|
||||
MsgBox("Bei " & rechnungenMitGesamtmautanhantCSV & " Rechnungen befindet sich noch eine CSV-Gesamtmaut" & vbNewLine & "Diesen bitte vorher entfernen über MAUTBERICHTE ENTFERNEN, weil erst im Zuge der RE-Pos-Berechnung die Gesamtmaut angehängt wird." & vbNewLine & "Vorang wird abgebrochen!")
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'---------------DONE
|
||||
' ' Sachbearbeiter im RK eintragen.
|
||||
'140 Call SysCmd(acSysCmdSetStatus, "Sachbearbeiter im RK eintragen...")
|
||||
'150 Call ReDruSchnSachbearbeiter
|
||||
'Update [Rechnungsausgang] SET [Sachbearbeiter] = @Sachbearbeiter WHERE([Firma_ID] = 1 Or [Firma_ID] = 15) And [Status] = 0 And [Sammelrechnung] = 6 And [Sachbearbeiter] <> @Sachbearbeiter And (SteuerpflichtigerGesamtbetrag <> 0 Or SteuerfreierGesamtbetrag <> 0);
|
||||
|
||||
|
||||
'---------------DONE
|
||||
' ' Firma_ID im RK eintragen.
|
||||
'180 Call SysCmd(acSysCmdSetStatus, "Firma_ID im RK eintragen...")
|
||||
'190 Call ReDruSchnFirma_ID
|
||||
'Update [Rechnungsausgang] SET [Firma_ID] = @Firma_ID WHERE [Firma_ID] <> @Firma_ID And [Status] = 0 And [Sammelrechnung] = 6 And [Sachbearbeiter] = @Sachbearbeiter And (SteuerpflichtigerGesamtbetrag <> 0 Or SteuerfreierGesamtbetrag <> 0);
|
||||
|
||||
|
||||
' ' Rechnung oder Gutschrift im RK eintragen.
|
||||
'220 Call SysCmd(acSysCmdSetStatus, "Re/Gu im RK eintragen...")
|
||||
'230 Call ReDruSumReGu
|
||||
|
||||
'---------------DONE
|
||||
' ' Rechnungstext im RK eintragen.
|
||||
'260 Call SysCmd(acSysCmdSetStatus, "Text im RK eintragen...")
|
||||
'270 Call Rechnungstext
|
||||
|
||||
'---------------DONE
|
||||
' ' Porto/Papiere berechnen.
|
||||
'300 Call SysCmd(acSysCmdSetStatus, "Porto/Papiere berechnen...")
|
||||
'310 Call ReDruSchnPP
|
||||
|
||||
'---------------DONE
|
||||
' ' Banküberweisung/Bankspesen berechnen
|
||||
'340 Call SysCmd(acSysCmdSetStatus, "Banküberweisung/Bankspesen berechnen...")
|
||||
'350 Call ReDruSchnBB
|
||||
|
||||
|
||||
' ' Druckinformationen im RK eintragen----- ALTER..........
|
||||
'380 Call SysCmd(acSysCmdSetStatus, "Druckinformationen im RK eintragen...")
|
||||
'390 varDatumZeit = Now 'Druckdatum/Uhrzeit merken.
|
||||
' ' Parameter übergeben: Firma_ID, Status, Sammelrechnung, Sachbearbeiter, Buchungsjahr, Rechnungsdatum, DruckDatumZeit.
|
||||
'400 strParameter = ParameterBereitstellen(Me![Firma_ID], 0, 6, Me![fldSachbearbeiter], Year(Me!fldRechnungsDatum), Me![fldRechnungsDatum], varDatumZeit)
|
||||
'410 Set qdf = dbs.CreateQueryDef("")
|
||||
|
||||
|
||||
|
||||
'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....)
|
||||
'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL")
|
||||
@@ -252,6 +210,15 @@ Public Class usrcntlFakturierung
|
||||
|
||||
If Not ok Then Exit Sub
|
||||
|
||||
|
||||
Dim rechnungenMitAbwAbfDat As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
|
||||
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL",, 0))
|
||||
|
||||
If rechnungenMitAbwAbfDat > 0 Then
|
||||
If Not vbYes = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Dim dtREGU As DataTable = SQL.loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, Sum([SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag]) AS Sammelrechnungsbetrag
|
||||
FROM Rechnungsausgang
|
||||
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
@@ -1033,7 +1000,7 @@ Public Class usrcntlFakturierung
|
||||
Else
|
||||
|
||||
If rowRE("keinMWSTKunde") Then
|
||||
'kein MWST Kunde -> OROGINAL-RE
|
||||
'kein MWST Kunde -> ORIGINAL-RE
|
||||
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , ,,, cbxMautanh.Checked, False)
|
||||
Else
|
||||
'MWST Kunde -> wenn ohne MWST-BEtrag ->Original sonst Kopie!
|
||||
@@ -1522,7 +1489,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
|
||||
.Columns.Clear()
|
||||
.SET_SQL("SELECT [Datenquelle] as Lieferant,format(sum([Net Amount]),'#,#.00', 'de-de') as Netto,format(sum([VAT Amount]), '#,#.00', 'de-de') as VAT,format(sum([Total Amount]), '#,#.00', 'de-de') as Brutto
|
||||
.SET_SQL("SELECT [Datenquelle] as Lieferant,sum([Net Amount]) as Netto,sum([VAT Amount]) as VAT,sum([Total Amount]) as Brutto
|
||||
FROM [VERAG].[dbo].[tblMautbericht]
|
||||
where cast([Billingdate] as date) = '" & cbxDateMautbericht._value & "'
|
||||
group by [Datenquelle]", "FMZOLL")
|
||||
@@ -1689,7 +1656,7 @@ Public Class usrcntlFakturierung
|
||||
sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
|
||||
|
||||
'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
|
||||
Button14.Enabled = sammelrechnung0vorhanden
|
||||
Button14.Enabled = True 'sammelrechnung0vorhanden
|
||||
Button20.Enabled = sammelrechnung0vorhanden
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user