diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb index c555168a..acb81e6c 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb +++ b/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) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb index fa928811..7185e9b9 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb @@ -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" diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb index 7d5c7160..b3ee77eb 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb +++ b/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 diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index c59e6e10..6f4e98cb 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/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')"