Vorauskasse und Abrechung
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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()
|
||||
|
||||
Reference in New Issue
Block a user