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

TIMOCOM, Anpassung Auftrag Kopieren

Browse Source
This commit is contained in:
ms
2019-12-05 11:49:37 +01:00
parent 8cbc8c3728
commit 64db243fb3
17 changed files with 563 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
UID/frmMain/usrcntlAuftraege.vb
View File

@@ -524,7 +524,7 @@ WHERE " & where & ""
AUFTRAG.atr_id = -1
AUFTRAG.atr_datum = Now
AUFTRAG.atr_frachtpos = Nothing
AUFTRAG.LADUNGEN.Clear()
' AUFTRAG.LADUNGEN.Clear()
AUFTRAG.BH_rechnungen.Clear()
AUFTRAG.SAVE()
@@ -538,22 +538,24 @@ WHERE " & where & ""
a.atr_frachtpos = DISPO.getFrachtpos
a.atr_datum = Now
a.atr_abliefernachweis = False
a.atr_ladungen = New List(Of cLadungen)
'a.atr_ladungen = New List(Of cLadungen)
a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
a.cmr_ausl_land = ""
a.cmr_ausl_ort = ""
a.cmr_beigefDok = ""
a.cmr_anwAbs = ""
a.cmr_rueckerst = ""
a.cmr_frZahlanwFrei = ""
a.cmr_frZahlanwUnfrei = ""
a.cmr_besVereinb = ""
a.cmr_ausgefIn = ""
a.cmr_uebergabe_land = ""
a.cmr_uebergabe_ort = ""
a.cmr_uebergabe_datum = ""
a.cmr_vorbehFrachtf = ""
'lt. Mestan CMR übernehmen (20191204)
'a.cmr_ausl_land = ""
'a.cmr_ausl_ort = ""
'a.cmr_beigefDok = ""
'a.cmr_anwAbs = ""
'a.cmr_rueckerst = ""
'a.cmr_frZahlanwFrei = ""
'a.cmr_frZahlanwUnfrei = ""
'a.cmr_besVereinb = ""
'a.cmr_ausgefIn = ""
'a.cmr_uebergabe_land = ""
'a.cmr_uebergabe_ort = ""
'a.cmr_uebergabe_datum = ""
'a.cmr_vorbehFrachtf = ""
a.bh_mon = ""

2
UID/frmMain/usrcntlFirmen.vb
View File

@@ -202,7 +202,7 @@ Public Class usrcntlFirmen
search = "%"
End If
where &= " WHERE (kd_firma LIKE '%" & search & "%' OR (kd_str + ' ' + kd_strnr) LIKE '%" & search & "%' OR (kd_plz + ' - ' + kd_ort) LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%')"
where &= " WHERE (kd_firma LIKE '%" & search & "%' OR (kd_str + ' ' + kd_strnr) LIKE '%" & search & "%' OR (kd_plz + ' - ' + kd_ort) LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%' OR kd_TIMOCOM LIKE '%" & search & "%')"
If cboRolle._value IsNot "-1" And cboRolle._value IsNot "" Then
where &= " AND kd_rolle = '" & cboRolle._value & "'"
End If