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

divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-07-18 13:11:37 +02:00
parent bb3ea4424e
commit 6d8a537ee7
5 changed files with 565 additions and 668 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -983,7 +983,12 @@ Public Class frmMitarbDetails
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
cboTeam.Items.Clear()
If cboFirma.Text <> "" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
If cboFirma.Text = "ALLE" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirmaHaupt.Text & "'", False, "ADMIN", True)
Else
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
End If
End If
cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
End Sub

206
UID/usrctlProcedures.vb
View File

@@ -3517,159 +3517,163 @@ Public Class usrctlProcedures
DYIMPORT.ZollRechtlicherStatus = isleernothing((currentRow(34)))
DYIMPORT.Bewilligungsnummer = isleernothing((currentRow(35)))
DYIMPORT.Gesamtgewicht = IIf(isleernothing((currentRow(36))) <> "", CDbl(isleernothing(currentRow(36))), 0)
DYIMPORT.Liefercode = isleernothing((currentRow(37)))
DYIMPORT.Lieferort = isleernothing((currentRow(38)))
DYIMPORT.Lieferkey = isleernothing((currentRow(39)))
DYIMPORT.Geschäftsart = isleernothing((currentRow(40)))
DYIMPORT.Rechnungsbetrag = IIf(isleernothing((currentRow(41))) <> "", CDbl(isleernothing(currentRow(41))), 0)
DYIMPORT.Rechnungswährung = isleernothing((currentRow(42)))
DYIMPORT.Rechnungskurs = IIf(isleernothing((currentRow(43))) <> "", CDbl(isleernothing(currentRow(43))), 0)
DYIMPORT.Zollstelle = isleernothing((currentRow(44)))
DYIMPORT.Aufschubart = isleernothing((currentRow(45)))
DYIMPORT.HZAZoll = isleernothing((currentRow(46)))
DYIMPORT.KontoZoll = isleernothing((currentRow(47)))
DYIMPORT.TextZoll = isleernothing((currentRow(48)))
DYIMPORT.EORIZoll = isleernothing((currentRow(49)))
DYIMPORT.KennzeichenEigenZoll = isleernothing((currentRow(50)))
DYIMPORT.ArtEust = isleernothing((currentRow(51)))
DYIMPORT.HZAEust = isleernothing((currentRow(52)))
DYIMPORT.KontoEusT = isleernothing((currentRow(53)))
DYIMPORT.TextEust = isleernothing((currentRow(54)))
DYIMPORT.EORIEust = isleernothing((currentRow(55)))
DYIMPORT.KennzeichenEigenEust = isleernothing((currentRow(56)))
DYIMPORT.Container = isleernothing((currentRow(57)))
DYIMPORT.Unterlagenzeile = isleernothing((currentRow(58)))
DYIMPORT.Unterlagenbereich = isleernothing((currentRow(59)))
DYIMPORT.Unterlagenart = isleernothing((currentRow(60)))
DYIMPORT.Unterlagennummer = isleernothing((currentRow(61)))
DYIMPORT.Unterlagendatum = isleernothing((currentRow(62)))
DYIMPORT.PositionNo = isleernothing((currentRow(63)))
DYIMPORT.Positionen = isleernothing((currentRow(64)))
DYIMPORT.Vorausstl_Zollabgabe = IIf(isleernothing((currentRow(65))) <> "", CDbl(isleernothing(currentRow(65))), 0)
DYIMPORT.Vorausstl_Zollsatzabgabe = IIf(isleernothing((currentRow(66))) <> "", CDbl(isleernothing(currentRow(66))), 0)
'DYIMPORT.vorsteuerabzug = isleernothing((currentRow(37)))
DYIMPORT.Liefercode = isleernothing((currentRow(38)))
DYIMPORT.Lieferort = isleernothing((currentRow(39)))
DYIMPORT.Lieferkey = isleernothing((currentRow(40)))
DYIMPORT.Geschäftsart = isleernothing((currentRow(41)))
DYIMPORT.Rechnungsbetrag = IIf(isleernothing((currentRow(42))) <> "", CDbl(isleernothing(currentRow(42))), 0)
DYIMPORT.Rechnungswährung = isleernothing((currentRow(43)))
DYIMPORT.Rechnungskurs = IIf(isleernothing((currentRow(44))) <> "", CDbl(isleernothing(currentRow(44))), 0)
DYIMPORT.Zollstelle = isleernothing((currentRow(45)))
DYIMPORT.Aufschubart = isleernothing((currentRow(46)))
DYIMPORT.HZAZoll = isleernothing((currentRow(47)))
DYIMPORT.KontoZoll = isleernothing((currentRow(48)))
DYIMPORT.TextZoll = isleernothing((currentRow(49)))
DYIMPORT.EORIZoll = isleernothing((currentRow(50)))
DYIMPORT.KennzeichenEigenZoll = isleernothing((currentRow(51)))
DYIMPORT.ArtEust = isleernothing((currentRow(52)))
DYIMPORT.HZAEust = isleernothing((currentRow(53)))
DYIMPORT.KontoEusT = isleernothing((currentRow(54)))
DYIMPORT.TextEust = isleernothing((currentRow(55)))
DYIMPORT.EORIEust = isleernothing((currentRow(56)))
DYIMPORT.KennzeichenEigenEust = isleernothing((currentRow(57)))
DYIMPORT.Container = isleernothing((currentRow(58)))
DYIMPORT.Unterlagenzeile = isleernothing((currentRow(59)))
DYIMPORT.Unterlagenbereich = isleernothing((currentRow(60)))
DYIMPORT.Unterlagenart = isleernothing((currentRow(61)))
DYIMPORT.Unterlagennummer = isleernothing((currentRow(62)))
DYIMPORT.Unterlagendatum = isleernothing((currentRow(63)))
DYIMPORT.PositionNo = isleernothing((currentRow(64)))
DYIMPORT.Positionen = isleernothing((currentRow(65)))
DYIMPORT.Vorausstl_Eustabgabe = IIf(isleernothing((currentRow(67))) <> "", CDbl(isleernothing(currentRow(67))), 0)
DYIMPORT.Vorausstl_Zollabgabe = IIf(isleernothing((currentRow(66))) <> "", CDbl(isleernothing(currentRow(66))), 0)
DYIMPORT.Vorausstl_Eustsatzabgabe = IIf(isleernothing((currentRow(68))) <> "", CDbl(isleernothing(currentRow(68))), 0)
DYIMPORT.Vorausstl_Zollsatzabgabe = IIf(isleernothing((currentRow(67))) <> "", CDbl(isleernothing(currentRow(67))), 0)
DYIMPORT.Zollwert = IIf(isleernothing((currentRow(69))) <> "", CDbl(isleernothing(currentRow(69))), 0)
DYIMPORT.Vorausstl_Eustabgabe = IIf(isleernothing((currentRow(68))) <> "", CDbl(isleernothing(currentRow(68))), 0)
DYIMPORT.AbgabeZoll = IIf(isleernothing((currentRow(70))) <> "", CDbl(isleernothing(currentRow(70))), 0)
DYIMPORT.Vorausstl_Eustsatzabgabe = IIf(isleernothing((currentRow(69))) <> "", CDbl(isleernothing(currentRow(69))), 0)
DYIMPORT.AbgabeZollsatz = IIf(isleernothing((currentRow(71))) <> "", CDbl(isleernothing(currentRow(71))), 0)
DYIMPORT.Zollwert = IIf(isleernothing((currentRow(70))) <> "", CDbl(isleernothing(currentRow(70))), 0)
DYIMPORT.Eustwert = IIf(isleernothing((currentRow(72))) <> "", CDbl(isleernothing(currentRow(72))), 0)
DYIMPORT.AbgabeZoll = IIf(isleernothing((currentRow(71))) <> "", CDbl(isleernothing(currentRow(71))), 0)
DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0)
DYIMPORT.AbgabeZollsatz = IIf(isleernothing((currentRow(72))) <> "", CDbl(isleernothing(currentRow(72))), 0)
DYIMPORT.AbgabeEustsatz = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0)
DYIMPORT.AbgabeAntidumping = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(77)))
DYIMPORT.Eustwert = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0)
DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0)
DYIMPORT.AbgabeEustsatz = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumping = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(77))) <> "", CDbl(isleernothing(currentRow(77))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(78)))
DYIMPORT.ArtikelCode = isleernothing((currentRow(78)))
DYIMPORT.Warentarifnummer = isleernothing((currentRow(79)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(81)))
DYIMPORT.ArtikelCode = isleernothing((currentRow(79)))
DYIMPORT.Warentarifnummer = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(81)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(82)))
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(82)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(83)))
DYIMPORT.EU_Code = isleernothing((currentRow(84)))
DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(85))) <> "", CDbl(isleernothing(currentRow(85))), 0)
DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0)
DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0)
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(83)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(84)))
DYIMPORT.EU_Code = isleernothing((currentRow(85)))
DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0)
DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0)
DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(88))) <> "", CDbl(isleernothing(currentRow(88))), 0)
DYIMPORT.Ursprung = isleernothing((currentRow(88)))
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(89)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(90)))
DYIMPORT.Ursprung = isleernothing((currentRow(89)))
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(90)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(91)))
DYIMPORT.Rohmasse = IIf(isleernothing((currentRow(91))) <> "", CDbl(isleernothing(currentRow(91))), 0)
DYIMPORT.Rohmasse = IIf(isleernothing((currentRow(92))) <> "", CDbl(isleernothing(currentRow(92))), 0)
DYIMPORT.Rohmasseeinheit = isleernothing((currentRow(92)))
DYIMPORT.Rohmasseeinheit = isleernothing((currentRow(93)))
DYIMPORT.Eigenmasse = IIf(isleernothing((currentRow(93))) <> "", CDbl(isleernothing(currentRow(93))), 0)
DYIMPORT.Eigenmasse = IIf(isleernothing((currentRow(94))) <> "", CDbl(isleernothing(currentRow(94))), 0)
DYIMPORT.Eigenmasseeinheit = isleernothing((currentRow(94)))
DYIMPORT.Positionszusatz = isleernothing((currentRow(95)))
DYIMPORT.Eigenmasseeinheit = isleernothing((currentRow(95)))
DYIMPORT.Positionszusatz = isleernothing((currentRow(96)))
DYIMPORT.Aussenhandelstatistische_Menge = IIf(isleernothing((currentRow(96))) <> "", CDbl(isleernothing(currentRow(96))), 0)
DYIMPORT.Aussenhandelstatistische_Menge = IIf(isleernothing((currentRow(97))) <> "", CDbl(isleernothing(currentRow(97))), 0)
DYIMPORT.Maßeinheit = isleernothing((currentRow(97)))
DYIMPORT.Maßeinheit = isleernothing((currentRow(98)))
DYIMPORT.AnzahlPackstücke = IIf(isleernothing((currentRow(98))) <> "", CDbl(isleernothing(currentRow(98))), 0)
DYIMPORT.AnzahlPackstücke = IIf(isleernothing((currentRow(99))) <> "", CDbl(isleernothing(currentRow(99))), 0)
DYIMPORT.Packstückart = isleernothing((currentRow(99)))
DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(100)))
DYIMPORT.Packstückart = isleernothing((currentRow(100)))
DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(101)))
'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(101)))
'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(102)))
DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(102))) <> "", CDbl(isleernothing(currentRow(102))), 0)
DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(103))) <> "", CDbl(isleernothing(currentRow(103))), 0)
DYIMPORT.SonderAbgabeEust = IIf(isleernothing((currentRow(103))) <> "", CDbl(isleernothing(currentRow(103))), 0)
DYIMPORT.SonderAbgabeEust = IIf(isleernothing((currentRow(104))) <> "", CDbl(isleernothing(currentRow(104))), 0)
DYIMPORT.AbgabeZusatzzölle = IIf(isleernothing((currentRow(104))) <> "", CDbl(isleernothing(currentRow(104))), 0)
DYIMPORT.AbgabeZusatzzölle = IIf(isleernothing((currentRow(105))) <> "", CDbl(isleernothing(currentRow(105))), 0)
DYIMPORT.SonderAbgabeAntidumping = IIf(isleernothing((currentRow(105))) <> "", CDbl(isleernothing(currentRow(105))), 0)
DYIMPORT.SonderAbgabeAntidumping = IIf(isleernothing((currentRow(106))) <> "", CDbl(isleernothing(currentRow(106))), 0)
DYIMPORT.Verbrauchssteuern = IIf(isleernothing((currentRow(106))) <> "", CDbl(isleernothing(currentRow(106))), 0)
DYIMPORT.Verbrauchssteuern = IIf(isleernothing((currentRow(107))) <> "", CDbl(isleernothing(currentRow(107))), 0)
DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(107)))
DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(111)))
DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(111)))
DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(112)))
'DYIMPORT.Nettokurs= isleernothing((currentRow(113)))
DYIMPORT.DV1Rechnungsbetrag = IIf(isleernothing((currentRow(112))) <> "", CDbl(isleernothing(currentRow(112))), 0)
DYIMPORT.DV1Rechnungsbetrag = IIf(isleernothing((currentRow(114))) <> "", CDbl(isleernothing(currentRow(114))), 0)
DYIMPORT.DV1Währung = isleernothing((currentRow(113)))
DYIMPORT.DV1Währung = isleernothing((currentRow(115)))
DYIMPORT.DV1UmgerechnerterRechnungsbetrag = IIf(isleernothing((currentRow(114))) <> "", CDbl(isleernothing(currentRow(114))), 0)
DYIMPORT.DV1UmgerechnerterRechnungsbetrag = IIf(isleernothing((currentRow(116))) <> "", CDbl(isleernothing(currentRow(116))), 0)
DYIMPORT.DV1UmgerechneteWährung = isleernothing((currentRow(115)))
DYIMPORT.DV1UmgerechneteWährung = isleernothing((currentRow(117)))
DYIMPORT.DV1Versicherung = IIf(isleernothing((currentRow(116))) <> "", CDbl(isleernothing(currentRow(116))), 0)
DYIMPORT.DV1Versicherung = IIf(isleernothing((currentRow(118))) <> "", CDbl(isleernothing(currentRow(118))), 0)
DYIMPORT.DV1Versicherungswährung = isleernothing((currentRow(117)))
DYIMPORT.DV1Versicherungswährung = isleernothing((currentRow(119)))
DYIMPORT.DV1Luftfrachtkosten = IIf(isleernothing((currentRow(118))) <> "", CDbl(isleernothing(currentRow(118))), 0)
DYIMPORT.DV1Luftfrachtkosten = IIf(isleernothing((currentRow(120))) <> "", CDbl(isleernothing(currentRow(120))), 0)
DYIMPORT.DV1Luftfrachtwährung = isleernothing((currentRow(119)))
DYIMPORT.DV1Luftfrachtwährung = isleernothing((currentRow(121)))
DYIMPORT.DV1Frachtkosten = IIf(isleernothing((currentRow(120))) <> "", CDbl(isleernothing(currentRow(120))), 0)
DYIMPORT.DV1Frachtkosten = IIf(isleernothing((currentRow(122))) <> "", CDbl(isleernothing(currentRow(122))), 0)
DYIMPORT.DV1Frachtwährung = isleernothing((currentRow(121)))
DYIMPORT.DV1Frachtwährung = isleernothing((currentRow(123)))
DYIMPORT.DV1Materialien = IIf(isleernothing((currentRow(122))) <> "", CDbl(isleernothing(currentRow(122))), 0)
DYIMPORT.DV1Materialien = IIf(isleernothing((currentRow(124))) <> "", CDbl(isleernothing(currentRow(124))), 0)
DYIMPORT.DV1Materialwährung = isleernothing((currentRow(123)))
DYIMPORT.DV1Materialwährung = isleernothing((currentRow(125)))
DYIMPORT.DV1Provisionen = IIf(isleernothing((currentRow(124))) <> "", CDbl(isleernothing(currentRow(124))), 0)
DYIMPORT.DV1Provisionen = IIf(isleernothing((currentRow(126))) <> "", CDbl(isleernothing(currentRow(126))), 0)
DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(125)))
DYIMPORT.Abflughafen_Code = isleernothing((currentRow(126)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(127)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(128)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(129)))
DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(130)))
DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(127)))
DYIMPORT.Abflughafen_Code = isleernothing((currentRow(128)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(129)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(130)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(131)))
DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(132)))
DYIMPORT.BEAnteil_ZL = IIf(isleernothing((currentRow(131))) <> "", CDbl(isleernothing(currentRow(131))), 0)
DYIMPORT.BEAnteil_ZL = IIf(isleernothing((currentRow(133))) <> "", CDbl(isleernothing(currentRow(133))), 0)
DYIMPORT.BEAnteil_AV = IIf(isleernothing((currentRow(132))) <> "", CDbl(isleernothing(currentRow(132))), 0)
DYIMPORT.BEAnteil_AV = IIf(isleernothing((currentRow(134))) <> "", CDbl(isleernothing(currentRow(134))), 0)
DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(133)))
DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(134)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(135)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(136)))
DYIMPORT.Importstatus = isleernothing((currentRow(137)))
DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(135)))
DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(136)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(137)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(138)))
DYIMPORT.Importstatus = isleernothing((currentRow(139)))
If DYIMPORT.SAVE() Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine
Else