edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BH, Stammref, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-19 15:46:52 +01:00
parent bf46d47e77
commit 27a75fb7ce
4 changed files with 37 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
View File

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

61
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
View File

@@ -131,36 +131,42 @@ Public Class frmDakosyStammreferenzVerwalten
SR.dySr_dy_Niederlassung = fd.cboNL._value
SR.dySr_dy_Standard = fd.cbxStandard.Checked
SR.dyStr_KdNr = fd.KdSearchBox1.KdNrNullInt
If SR.SAVE Then
Dim ZA As New DAKOSY_Worker.cDakosy_Zollanmeldungen() 'dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
ZA.dy_Id = 0
ZA.dy_ART = SR.dySr_Verfahren
ZA.dy_Status = -1
ZA.dy_Status_KEWILL_Equivalent = -1
If ZA.SAVE() Then
DUPLICATE_Verfahren(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value, ZA)
SR.dySr_dyId = ZA.dy_Id
SR.SAVE()
Dim f As New frmZollanmeldung(cboVerfahren._value, ZA)
f.isSTAMMREF = True
f.STAMMREF = SR.dySr_Stammreferenz
f.ShowDialog(Me)
' f.CopyFromZA_Id = dgvStammref.SelectedRows(0).Cells("dySr_Id").Value
' SQL.doSQL("UPDATE [tblDakosy_Stammreferenzen] SET dySr_dyId='" & ZA.dy_Id & "' WHERE dySr_Id='" & dgvStammref.SelectedRows(0).Cells("dySr_Id").Value & "'", "FMZOLL")
End If
initDGV()
If cboVerfahren._value = "AA" Then
SR.dySr_WarenortID = fd.cbxWarenort._value
Else
SR.dySr_WarenortID = -1
End If
' Dim f As New frmZollanmeldung(cboVerfahren._value, New DAKOSY_Worker.cDakosy_Zollanmeldungen)
End If
If SR.SAVE Then
Dim ZA As New DAKOSY_Worker.cDakosy_Zollanmeldungen() 'dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
ZA.dy_Id = 0
ZA.dy_ART = SR.dySr_Verfahren
ZA.dy_Status = -1
ZA.dy_Status_KEWILL_Equivalent = -1
If ZA.SAVE() Then
DUPLICATE_Verfahren(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value, ZA)
SR.dySr_dyId = ZA.dy_Id
SR.SAVE()
Dim f As New frmZollanmeldung(cboVerfahren._value, ZA)
f.isSTAMMREF = True
f.STAMMREF = SR.dySr_Stammreferenz
f.ShowDialog(Me)
' f.CopyFromZA_Id = dgvStammref.SelectedRows(0).Cells("dySr_Id").Value
' SQL.doSQL("UPDATE [tblDakosy_Stammreferenzen] SET dySr_dyId='" & ZA.dy_Id & "' WHERE dySr_Id='" & dgvStammref.SelectedRows(0).Cells("dySr_Id").Value & "'", "FMZOLL")
End If
initDGV()
End If
' Dim f As New frmZollanmeldung(cboVerfahren._value, New DAKOSY_Worker.cDakosy_Zollanmeldungen)
End If
@@ -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"

2
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb
View File

@@ -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

3
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -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')"