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