Vorauskasse und Abrechung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -509,7 +509,11 @@ Public Class usrCntlFaktAbrechnung
 
         GutschriftAnVeragToolStripMenuItem.Visible = False
 
+        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 "4805" : cboFirma.changeItem(11) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 11
-            Case "4801", "4802" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7
+            Case "4801", "4802" : cboFirma.changeItem(7) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 7
-            Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20
+            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 "5601" : cboFirma.changeItem("") : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = -1 'UNISPED
-            Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG
+            Case "7001" : cboFirma.changeItem("") : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = -1 'UK oder AG
-            Case "7002", "7003" : cboFirma.changeItem("26") : RECHNUNG.Firma_ID = 26 'UK AWOR oder UNISPED
+            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 "5701" : cboFirma.changeItem(24) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 24'AMBAR
-            Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE
+            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
 

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()