BH, Stammref, etc.

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb

@@ -179,7 +179,7 @@ Public Class usrCntlATLAS_NCTS004
         'End Select
 
         '    FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)?
-        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY)
+        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "NCTS")
         txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "NCTS")
 
         cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "')  and dySr_visible=1", False, "FMZOLL", True)

SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb

@@ -131,6 +131,12 @@ Public Class frmDakosyStammreferenzVerwalten
             SR.dySr_dy_Niederlassung = fd.cboNL._value
             SR.dySr_dy_Standard = fd.cbxStandard.Checked
             SR.dyStr_KdNr = fd.KdSearchBox1.KdNrNullInt
+            If cboVerfahren._value = "AA" Then
+                SR.dySr_WarenortID = fd.cbxWarenort._value
+            Else
+                SR.dySr_WarenortID = -1
+            End If
+
 
             If SR.SAVE Then
                     Dim ZA As New DAKOSY_Worker.cDakosy_Zollanmeldungen() 'dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
@@ -223,6 +229,7 @@ Public Class frmDakosyStammreferenzVerwalten
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
                 cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
+                cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DTB", "DTB"))
                 cboNL.changeItem("")
 
             Case "IMEX"

SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb

@@ -36,7 +36,7 @@
         If KdSearchBox1.KdNrNullInt IsNot Nothing Then where = " AND [dyStr_KdNr]='" & KdSearchBox1.KdNr_value & "'  "
 
 
-        If sql.getValueTxtBySql("SELECT  count(*)  FROM [tblDakosy_Stammreferenzen]  where  [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND [dySr_Bezeichnung]='" & txtBezeichnung.Text & "'" & where, "FMZOLL") > 0 AndAlso id < 1 Then
+        If sql.getValueTxtBySql("SELECT  count(*)  FROM [tblDakosy_Stammreferenzen]  where  [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND [dySr_Bezeichnung]='" & txtBezeichnung.Text & "' AND [dySr_dy_Niederlassung] = '" & nl & "' " & where, "FMZOLL") > 0 AndAlso id < 1 Then
             MsgBox("Bezeichnung existiert bereits!") : Me.DialogResult = Windows.Forms.DialogResult.None
         End If
     End Sub

SDL/buchhaltung/usrCntlBH.vb

@@ -884,8 +884,7 @@ Public Class usrCntlBH
                 AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis 
                 AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis 
                 AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + ISNULL(tblKundenErweitert.kde_abwToleranzTage," & toleranztage & ")), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 
-                AND Left(op_debitor.c_bemerkung,2) <> 'AR' AND Left(op_debitor.c_bemerkung,2) <> 'DA' AND Left(op_debitor.c_bemerkung,2) <> 'AU' AND Left(op_debitor.c_bemerkung,2) <> 'RE' AND Left(op_debitor.c_bemerkung,2) <> 'VI' AND Left(op_debitor.c_bemerkung,2) <> 'Ha'
-				AND op_debitor.c_bemerkung not like '%nicht verzinsen%' 
+                AND LEFT(op_debitor.c_bemerkung, 4) IN (SELECT CAST(FilialenNr AS VARCHAR(4)) FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[dbo].Filialen WHERE FilialenNr between 1000 and 9999)  
                 
                 ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"