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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:41:35 +01:00
parent 326c3fcb11
commit 8233a21e83
16 changed files with 4160 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/Classes/cSendungsoptions.vb
View File

@@ -171,8 +171,7 @@ Public Class SendungOptions
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
VALUES.Grenze = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
VALUES.Grenze = ""
@@ -316,6 +315,10 @@ Public Class SendungOptions
End If
VALUES.SchnellAbfertigung = (SendungsAnzahlAviso = 1)
VALUES.VG_MA = VERAGSQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SENDUNG.tblSnd_VG_MA & "'", "ADMIN", "")
VALUES.QS_MA = VERAGSQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SENDUNG.tblSnd_QS_MA & "'", "ADMIN", "")
SENDUNG.LOAD_ABRECHNUNG() 'Daten holen
Dim abfertKostKdnr As Integer = -1
Dim cnt_fr As Integer = 0