From cbdd3fb6909b0bad0becdb1c8c4f3f9c2a44abcf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 May 2024 10:34:37 +0200 Subject: [PATCH] Vorauskasse und Abrechung --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 55 +++++++++++++++---- .../FormulareBaukasten/usrcntlVorauskasse.vb | 12 +++- 2 files changed, 55 insertions(+), 12 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index a82b1f58..a5b386ba 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -509,7 +509,11 @@ Public Class usrCntlFaktAbrechnung GutschriftAnVeragToolStripMenuItem.Visible = False - cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802) ORDER BY FilialenNr ", True, "FMZOLL", True) + Else + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + End If cboSammelrechnung.Items.Clear() @@ -577,6 +581,35 @@ Public Class usrCntlFaktAbrechnung cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty) cboFirma.SelectedIndex = 0 + + '------------------------------------------------------TEST-START + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802) ORDER BY FilialenNr ", True, "FMZOLL", True) + 'Else + ' cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + 'End If + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER And FirmaTmp <> "VERAGIMEX" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + cboFiliale._allowedValuesFreiText = {4801, 4802} + cboFiliale.Enabled = True + Else + cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE} + cboFiliale.Enabled = False + End If + + cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) + + End If + + '------------------------------------------------------TEST-END + + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + + + cboRechnungNotiz.fillWithSQL("SELECT [Notiz],[Notiz] as N2 FROM tblRechnungsnotizen", True, "FMZOLL", True) 'cboWaehrung.fillWithSQL(" SELECT Währungscode, isnull(Währungscode + ' - ' ,'') + LandBez + ' (' + cast(LandNr as varchar(8)) + ')' FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY case when Währungscode is null then 1 else 0 end,LandBez ", False, "FMZOLL", True) cboWaehrung.fillWithSQL(" SELECT Währungsschlüssel, Währungscode FROM Währungstabelle ORDER BY Währungscode,[Währungsschlüssel] DESC ", False, "FMZOLL", True) @@ -1841,23 +1874,23 @@ Public Class usrCntlFaktAbrechnung Sub initFirma() Select Case cboFiliale._value - Case "4805" : cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11 - Case "4801", "4802" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7 - Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20 + Case "4805" : cboFirma.changeItem(11) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 11 + Case "4801", "4802" : cboFirma.changeItem(7) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 7 + Case "5501" : cboFirma.changeItem(20) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 20 '' Case "4819" : cboFirma.changeItem(4) : RECHNUNG.Firma_ID = 4 - Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED - Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG - Case "7002", "7003" : cboFirma.changeItem("26") : RECHNUNG.Firma_ID = 26 'UK AWOR oder UNISPED + Case "5601" : cboFirma.changeItem("") : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = -1 'UNISPED + Case "7001" : cboFirma.changeItem("") : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = -1 'UK oder AG + Case "7002", "7003" : cboFirma.changeItem("26") : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 26 'UK AWOR oder UNISPED 'Case "7002" : cboFirma.changeItem(26) : RECHNUNG.Firma_ID = 26 'UK oder AG - Case "5701" : cboFirma.changeItem(24) : RECHNUNG.Firma_ID = 24'AMBAR - Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE + Case "5701" : cboFirma.changeItem(24) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 24'AMBAR + Case "5801" : cboFirma.changeItem(17) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 17 'FRONT-OFFICE Case Else If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 38 Then 'EV-VZ - cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11 + cboFirma.changeItem(11) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 11 Else - cboFirma.changeItem(1) : RECHNUNG.Firma_ID = 1 + cboFirma.changeItem(1) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 1 End If End Select diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index dc80be2d..1b6d9d96 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -801,7 +801,7 @@ Public Class usrcntlVorauskasse Exit Sub End If - dt = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") + dt = SQL.loadDgvBySql("SELECT [LeistungsNr],[LeistungsBez], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") If dt.Rows.Count = 0 Then If Not warnungunterduecken Then MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!") @@ -836,6 +836,16 @@ Public Class usrcntlVorauskasse If row("LeistungsNr") = 340 Then txtVerzollungskosten._value = row("Preis") If row("LeistungsNr") = 324 Then txtATLAS._value = row("Preis") If row("LeistungsNr") = 440 Then txtPapierePorti._value = row("Preis") + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + + If row("LeistungsNr") = 440 AndAlso row("LeistungsBez").ToString.ToLower.Contains("sonstige kosten") Then + txtSonstigeKosten._value = row("Preis") + txtSonstigeKostenText.Text = row("LeistungsBez") + End If + + End If + Next initBerechnung()