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

Essensbestellungen Umbaut, Syska GU-Export für AMBAR -> VERAG, Speditionsbucharchiv

Browse Source
This commit is contained in:
d.breimaier
2024-05-10 15:02:07 +02:00
parent 7ba4fdf8f1
commit 5e3b74a19f
5 changed files with 1354 additions and 737 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -719,6 +719,109 @@ Public Class usrCntlSpeditionsBuchSuche
End If
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
Dim r As DataGridViewRow = DataGridView.SelectedRows(0)
'warum löschen? ev. wurde dieser Eintrag schon verrechnet????
Dim spb As New cSpeditionsbuch(r.Cells("FilialenNr").Value, r.Cells("AbfertigungsNr").Value, r.Cells("UnterNr").Value)
Dim arv As New cSpeditionsbucharchiv
arv.FilialenNr = spb.FilialenNr
arv.AbfertigungsNr = spb.AbfertigungsNr
arv.UnterNr = spb.UnterNr
arv.Abfertigungsdatum = spb.Abfertigungsdatum
arv.Bar = spb.Bar
arv.Fakturiert = spb.Fakturiert
arv.BelegNr = spb.BelegNr
arv.ErfassungsNr = spb.ErfassungsNr
arv.LKW_Kennzeichen = spb.LKW_Kennzeichen
arv.AnzahlZA = spb.AnzahlZA
arv.AnzahlZAFremd = spb.AnzahlZAFremd
arv.AnzahlZnV = spb.AnzahlZnV
arv.AnzahlZnVFremd = spb.AnzahlZnVFremd
arv.AnzahlT1 = spb.AnzahlT1
arv.AnzahlT2 = spb.AnzahlT2
arv.AnzahlAE = spb.AnzahlAE
arv.AnzahlCarnetTIR = spb.AnzahlCarnetTIR
arv.AnzahlBarvorlagen = spb.AnzahlBarvorlagen
arv.AnzahlSonstiges = spb.AnzahlSonstiges
arv.AnzahlGrenzgebühren = spb.AnzahlGrenzgebühren
arv.AvisUhrzeit = spb.AvisUhrzeit
arv.Vermerk = spb.Vermerk
arv.Bemerkungen = spb.Bemerkungen
arv.Währungsschlüssel = spb.Währungsschlüssel
arv.Rechnungsbetrag = spb.Rechnungsbetrag
arv.Umrechnungskurs = spb.Umrechnungskurs
arv.Packstücke = spb.Packstücke
arv.Packstücke_Zoll = spb.Packstücke_Zoll
arv.Rohmasse = spb.Rohmasse
arv.Zahlungsaufschub = spb.Zahlungsaufschub
arv.Löschen = spb.Löschen
arv.Abfertigungsart = spb.Abfertigungsart
arv.Abfertigungsanzahl = spb.Abfertigungsanzahl
arv.AbfertigungsanzahlPos = spb.AbfertigungsanzahlPos
arv.Barzahlungsbetrag = spb.Barzahlungsbetrag
arv.Sachbearbeiter = spb.Sachbearbeiter
arv.Personalnummer = spb.Personalnummer
arv.PersonalnummerQS = spb.PersonalnummerQS
arv.AtlasBezNrEZA = spb.AtlasBezNrEZA
arv.AtlasBezNrNCTS = spb.AtlasBezNrNCTS
arv.AtlasBezNrAES = spb.AtlasBezNrAES
arv.Versendungsland = spb.Versendungsland
arv.SB_CMR = spb.SB_CMR
arv.SB_CMRDatum = spb.SB_CMRDatum
arv.SB_CMRNr = spb.SB_CMRNr
arv.veoerz_basbtg = spb.veoerz_basbtg
arv.Zucker_MRN_Nr = spb.Zucker_MRN_Nr
arv.Zucker_MRN_Datum = spb.Zucker_MRN_Datum
arv.Zucker_Aufschub = spb.Zucker_Aufschub
arv.Zollsystem = spb.Zollsystem
arv.Bestimmungszollstelle = spb.Bestimmungszollstelle
arv.Bürgschaft = spb.Bürgschaft
arv.Sicherheitsbetrag = spb.Sicherheitsbetrag
arv.SgutKompl = spb.SgutKompl
arv.Bestimmungsland = spb.Bestimmungsland
arv.EuFiskalEmpfänger = spb.EuFiskalEmpfänger
arv.QKN = spb.QKN
arv.EndempfängerKundenNr = spb.EndempfängerKundenNr
arv.Endempfänger = spb.Endempfänger
arv.AvisoID = spb.AvisoID
arv.SendungID = spb.SendungID
arv.Grenzstelle = spb.Grenzstelle
arv.KdAuftragsNr = spb.KdAuftragsNr
arv.KdAuftragsNrAvisierer = spb.KdAuftragsNrAvisierer
arv.KdAuftragsNrEmpfaenger = spb.KdAuftragsNrEmpfaenger
arv.KdAuftragsNrFrachtfuehrer = spb.KdAuftragsNrFrachtfuehrer
arv.SB_Zeitstempel = spb.SB_Zeitstempel
arv.NCTS_Verzollungsadresse = spb.NCTS_Verzollungsadresse
arv.NCTS_VerzollungsadresseKdNr = spb.NCTS_VerzollungsadresseKdNr
arv.AuftraggeberBetragKassiert = spb.AuftraggeberBetragKassiert
arv.Lieferantenrechnung = spb.Lieferantenrechnung
arv.DokumentId_Steuerbeleg = spb.DokumentId_Steuerbeleg
arv.DokumentId_Mitteilung = spb.DokumentId_Mitteilung
arv.DokumentId_VBD = spb.DokumentId_VBD
arv.DokumentId_ABD = spb.DokumentId_ABD
arv.DokumentId_AVM = spb.DokumentId_AVM
arv.FilialenNrHandling = spb.FilialenNrHandling
arv.HandlingZuKassieren = spb.HandlingZuKassieren
arv.FilialenNrAbklaerung = spb.FilialenNrAbklaerung
arv.PersonalnummerAbklTR = spb.PersonalnummerAbklTR
arv.UK_EIDR_ausstehend = spb.UK_EIDR_ausstehend
arv.Zollstelle = spb.Zollstelle
arv.Zollsystem_Land = spb.Zollsystem_Land
arv.geloescht_von = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
arv.geloescht_am = Now()
arv.AvisiererKundenNr = spb.AvisiererKundenNr
arv.AbsenderKundenNr = spb.AbsenderKundenNr
arv.AbsenderOffertenNr = spb.AbsenderOffertenNr
arv.EmpfängerKundenNr = spb.EmpfängerKundenNr
arv.EmpfängerOffertenNr = spb.EmpfängerOffertenNr
arv.VermittlerKundenNr = spb.VermittlerKundenNr
arv.VermittlerOffertenNr = spb.VermittlerOffertenNr
arv.FrachtführerKundenNr = spb.FrachtführerKundenNr
If Not arv.SAVE() Then
MsgBox("Eintrag konnte nicht gelöscht werden!")
Exit Sub
End If
SQL.doSQL("DELETE FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Cells("FilialenNr").Value & "' AND [AbfertigungsNr] ='" & r.Cells("AbfertigungsNr").Value & "' AND [UnterNr]='" & r.Cells("UnterNr").Value & "' ", "FMZOLL")
DataGridView.RELOAD()
End If