MIC, Fahrerdata, Formulare(VM),divers
This commit is contained in:
@@ -1616,7 +1616,9 @@ Public Class cRKSV
|
||||
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
|
||||
Return "Grenze: " & SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
'Return "Grenze: " & SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
Return "Grenze: " & SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) ", "FMZOLL")
|
||||
|
||||
Else
|
||||
Return "Grenze: " & AVISO.Grenzstelle
|
||||
End If
|
||||
|
||||
@@ -1496,7 +1496,10 @@ Public Class usrCntlFaktAbrechnung
|
||||
If SPEDBUCH.Grenzstelle.Replace("???", "") = "" Then
|
||||
If RECHNUNG.AvisoID IsNot Nothing Then
|
||||
Dim Zollstelle = SQL.DLookup("Zollstelle", "AVISO", "AvisoID='" & SPEDBUCH.AvisoID & "'", "AVISO")
|
||||
RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(Zollstelle, "") & "' ", "ATLAS")
|
||||
' RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(Zollstelle, "") & "' ", "ATLAS")
|
||||
RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE WHERE Code='" & If(Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) ", "FMZOLL")
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
Select Case SPEDBUCH.Grenzstelle
|
||||
|
||||
@@ -307,7 +307,10 @@
|
||||
Dim LIST_BGW As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
Try
|
||||
LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS")
|
||||
'LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS")
|
||||
LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [Code],[Description] +' (' +left(Code,2)+')' FROM tbl_DY_ZollDE_C0141_Zollstellen where ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", False, "FMZOLL")
|
||||
|
||||
|
||||
'SetDst(l)
|
||||
Catch ex As Exception
|
||||
MsgBox("Zollstellen konnten nicht von ATLAS geladen werden.")
|
||||
|
||||
@@ -57,6 +57,11 @@
|
||||
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Niederländisch", "NL"))
|
||||
End Select
|
||||
|
||||
cboSprache.Items.Clear()
|
||||
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
|
||||
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
|
||||
|
||||
|
||||
If KdNR > 0 Then
|
||||
' initKdNR(KdNR)
|
||||
End If
|
||||
|
||||
@@ -53,7 +53,7 @@ Public Class frmFahrerDatenSuche
|
||||
End Try
|
||||
|
||||
|
||||
Dim sqlstr As String = "SELECT top 100 fd_id, fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd_passNummer,fd_wohnAdresse,fd_dsId FROM tblData "
|
||||
Dim sqlstr As String = "SELECT top 100 fd_id, fd_fraechter, fd_lkw, fd_fahrerName, fd_tel, fd_passNummer,fd_wohnAdresse,fd_dsId FROM tblFahrerDaten "
|
||||
Dim where As String = ""
|
||||
Dim andstr As String = ""
|
||||
If txtSuche.Text <> "" Then
|
||||
@@ -70,7 +70,7 @@ Public Class frmFahrerDatenSuche
|
||||
If where <> "" Then sqlstr &= " WHERE " & where
|
||||
sqlstr &= " ORDER BY " & sort
|
||||
|
||||
dgvFD.DataSource = SQL.loadDgvBySql(sqlstr, "FD")
|
||||
dgvFD.DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
|
||||
|
||||
setColumns()
|
||||
|
||||
@@ -183,16 +183,16 @@ Public Class cFahrerDaten
|
||||
|
||||
Dim sql = ""
|
||||
If s.fd_id >= 0 Then
|
||||
sql = "UPDATE tblData " &
|
||||
sql = "UPDATE tblFahrerDaten " &
|
||||
" SET fd_fraechter=@fd_fraechter,fd_lkw=@fd_lkw,fd_fahrerName=@fd_fahrerName,fd_tel=@fd_tel,fd_passNummer=@fd_passNummer,fd_wohnAdresse=@fd_wohnAdresse,fd_dsId=@fd_dsId " &
|
||||
" WHERE fd_id=@fd_id "
|
||||
|
||||
Else
|
||||
sql = "INSERT INTO tblData " &
|
||||
sql = "INSERT INTO tblFahrerDaten " &
|
||||
"(fd_fraechter,fd_lkw,fd_fahrerName,fd_tel,fd_passNummer,fd_wohnAdresse,fd_dsId) VALUES " &
|
||||
"(@fd_fraechter,@fd_lkw,@fd_fahrerName,@fd_tel,@fd_passNummer,@fd_wohnAdresse,@fd_dsId)"
|
||||
End If
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFD()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@fd_fraechter", s.fd_fraechter)
|
||||
cmd.Parameters.AddWithValue("@fd_lkw", s.fd_lkw)
|
||||
@@ -220,8 +220,8 @@ Public Class cFahrerDaten
|
||||
End Function
|
||||
|
||||
Public Shared Function delData(ByVal id As Integer) As Boolean
|
||||
Dim sql As String = "DELETE FROM tblData WHERE fd_id = " & id
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFD()
|
||||
Dim sql As String = "DELETE FROM tblFahrerDaten WHERE fd_id = " & id
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
@@ -237,8 +237,8 @@ Public Class cFahrerDaten
|
||||
Public Shared Function LOADByKdNrDate(fd_id As Integer) As cFahrerDaten
|
||||
Try
|
||||
Dim FD As New cFahrerDaten
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFD()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblData WHERE fd_id=@fd_id ", conn)
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblFahrerDaten WHERE fd_id=@fd_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@fd_id", fd_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
|
||||
@@ -1384,7 +1384,7 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1392,9 +1392,9 @@ Public Class FormularManagerNEU
|
||||
End If
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
|
||||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
|
||||
End If
|
||||
|
||||
|
||||
@@ -1553,7 +1553,9 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
' rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
@@ -1889,7 +1891,9 @@ Public Class FormularManagerNEU
|
||||
rpt.txtLKWId.Text = AVISO.AvisoID
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
' rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
@@ -2228,7 +2232,8 @@ Public Class FormularManagerNEU
|
||||
rpt.txtLKWId.Text = AVISO.AvisoID
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
'rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
@@ -3838,8 +3843,18 @@ Public Class FormularManagerNEU
|
||||
|
||||
Shared Function EORI_Antrag(usrCntl As usrcntlEORI_Antrag) As String
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "EORI_Antrag")
|
||||
Return DS.GET_TOP1_PATH(False)
|
||||
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "EORI_Antrag")
|
||||
'Return DS.GET_TOP1_PATH(False)
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "EORI_Antrag_EN")
|
||||
Return DS.GET_TOP1_PATH(False)
|
||||
|
||||
Case Else
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "EORI_Antrag")
|
||||
Return DS.GET_TOP1_PATH(False)
|
||||
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
@@ -377,7 +377,8 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True)
|
||||
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
' cboFilialeHandling.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
|
||||
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
|
||||
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
cboHandlingssatz.fillWithSQL("SELECT [hs_Bezeichnung] FROM [tblHandlingssaetzeIntern] group by [hs_Bezeichnung] ", False, "FMZOLL", True)
|
||||
|
||||
|
||||
@@ -17,9 +17,12 @@
|
||||
Private Sub usrCntlATLAS_AES_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAusgangsZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbAusgangsZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbAusgangsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
|
||||
@@ -17,8 +17,10 @@
|
||||
Private Sub usrCntlATLAS_EZA_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
' sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
|
||||
@@ -27,18 +27,30 @@
|
||||
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
' sbAbgangZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
' sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
|
||||
@@ -17,8 +17,10 @@
|
||||
Private Sub usrCntlATLAS_EZA_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
|
||||
@@ -81,7 +81,7 @@ Public Class cSqlDb
|
||||
|
||||
|
||||
|
||||
Public Shared Function GetNewOpenConnectionFD() As SqlConnection
|
||||
Public Shared Function GetNewOpenConnectionFD___OLD() As SqlConnection
|
||||
Dim cn As New SqlConnection()
|
||||
cn.ConnectionString = GetFDConnectionString()
|
||||
|
||||
|
||||
@@ -166,7 +166,8 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True)
|
||||
|
||||
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
'txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
txtGGDatum._value = Now.ToShortDateString
|
||||
|
||||
|
||||
|
||||
@@ -312,7 +312,7 @@ Public Class cADMIN
|
||||
Return SQL.getValueTxtBySql("SELECT mit_username FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String) As Boolean
|
||||
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String, Optional nlTmp As String = "", Optional switchCompany As Boolean = False) As Boolean
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(firma = "", "VERAG", firma)
|
||||
|
||||
@@ -378,7 +378,7 @@ Public Class cADMIN
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_NAME = getValueTxtBySql("SELECT Firma_Bez FROM tblFirma WHERE Firma_ID= " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID, "FMZOLL")
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA(switchCompany, firma, nlTmp)
|
||||
|
||||
cGlobal.AktiverMitarbeiter = cMitarbeiterAVISO
|
||||
Return True
|
||||
|
||||
@@ -369,7 +369,12 @@ Public Class SQL
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function isNullReturnValue(o, ReturnValue) As Object
|
||||
If o Is Nothing Then Return o
|
||||
If o Is DBNull.Value Then Return ReturnValue
|
||||
If o.ToString = "" Then Return ReturnValue
|
||||
Return o
|
||||
End Function
|
||||
Public Shared Function isNullNothing(o) As Object
|
||||
If o Is Nothing Then Return o
|
||||
If o Is DBNull.Value Then Return Nothing
|
||||
|
||||
@@ -766,7 +766,8 @@ Public Class cSendungen
|
||||
If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
|
||||
|
||||
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
|
||||
adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
|
||||
'adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
|
||||
adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM basncd WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
|
||||
End If
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
|
||||
@@ -102,9 +102,9 @@ Public Class cDATENSERVER
|
||||
Try
|
||||
DATA_LIST = New cDatenserverIDCollectionList
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
'MsgBox("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr AND da_kategorie = '" & Me.da_kategorie & "' And da_ordner ='" & Me.da_ordner & "' AND da_uOrdner1= '" & Me.da_uOrdner1 & "' AND da_uOrdner2= '" & Me.da_uOrdner2 & "' AND da_uOrdner3= '" & Me.da_uOrdner3 & "' AND da_name='" & Me.da_name & "' ")
|
||||
'MsgBox("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = '" & Me.da_KundenNr & "' And da_kategorie = '" & Me.da_kategorie & "' And da_ordner ='" & Me.da_ordner & "' AND da_uOrdner1= '" & Me.da_uOrdner1 & "' AND da_uOrdner2= '" & Me.da_uOrdner2 & "' AND da_uOrdner3= '" & Me.da_uOrdner3 & "' AND da_name='" & Me.da_name & "' ")
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr AND da_kategorie = @da_kategorie AND da_ordner=@da_ordner AND da_uOrdner1= @da_uOrdner1 AND da_uOrdner2= @da_uOrdner2 AND da_uOrdner3= @da_uOrdner3 AND da_name=@da_name ", conn)
|
||||
cmd.Parameters.AddWithValue("@da_KundenNr", Me.da_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@da_KundenNr", Me.da_KundenNr)
|
||||
' cmd.Parameters.AddWithValue("@da_vorlage", Me.da_vorlage)
|
||||
cmd.Parameters.AddWithValue("@da_kategorie", Me.da_kategorie)
|
||||
cmd.Parameters.AddWithValue("@da_ordner", Me.da_ordner)
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
'' ------------------------------------------------------------------------------
|
||||
'' <auto-generated>
|
||||
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
|
||||
'' <NameSpace>MIC_EXPORT_Basic</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
|
||||
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
|
||||
'' <NameSpace>MicCustExportBasicTypes</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net40</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
|
||||
'' </auto-generated>
|
||||
'' ------------------------------------------------------------------------------
|
||||
Imports System
|
||||
@@ -12,15 +12,10 @@ Imports System.Xml.Schema
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Namespace MIC_EXPORT_Basic
|
||||
Namespace MicCustExportBasicTypes
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum ShipmentType
|
||||
|
||||
'''<remarks/>
|
||||
@@ -39,10 +34,6 @@ Namespace MIC_EXPORT_Basic
|
||||
N
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum ContainerCode
|
||||
|
||||
'''<remarks/>
|
||||
@@ -54,10 +45,6 @@ Namespace MIC_EXPORT_Basic
|
||||
Item0
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum PartnerTyp
|
||||
|
||||
'''<remarks/>
|
||||
@@ -73,10 +60,6 @@ Namespace MIC_EXPORT_Basic
|
||||
EV
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum AddCostsSplitType
|
||||
|
||||
'''<remarks/>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
15841
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.designer.vb
generated
Normal file
15841
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1,8 +1,8 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
|
||||
<xs:include schemaLocation="MicCustExportShipment.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="MicMetadata.xsd"/>
|
||||
<!--===== Data Groups Declarations =====-->
|
||||
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
|
||||
<xs:element name="InsertExportShipment">
|
||||
|
||||
20141
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.designer.vb
generated
Normal file
20141
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1,8 +1,8 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" elementFormDefault="qualified" attributeFormDefault="unqualified">
|
||||
<xs:include schemaLocation="MicCustImportShipment.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="MicMetadata.xsd"/>
|
||||
<!--===== Data Groups Declarations =====-->
|
||||
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
|
||||
<xs:element name="InsertImportShipment">
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -31,10 +31,10 @@
|
||||
|
||||
|
||||
|
||||
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner
|
||||
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT.TPartner
|
||||
|
||||
If KdNr > 0 Then
|
||||
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
|
||||
Dim PARTNER As New MIC_IMPORT.TPartner
|
||||
Dim AD As New cAdressen(KdNr)
|
||||
Dim KD As New cKunde(KdNr)
|
||||
PARTNER.partnerType = Type
|
||||
@@ -48,7 +48,7 @@
|
||||
PARTNER.PartnerAddress.addrTin = KD.EORITIN
|
||||
Return PARTNER
|
||||
ElseIf If(NameText, "") <> "" Then
|
||||
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
|
||||
Dim PARTNER As New MIC_IMPORT.TPartner
|
||||
PARTNER.partnerType = Type
|
||||
PARTNER.PartnerAddress.addrName.Add(NameText)
|
||||
Return PARTNER
|
||||
@@ -63,7 +63,7 @@
|
||||
'Dim Interface_VERSION = "003"
|
||||
'Dim ObjectAktion = DY_ACTION
|
||||
|
||||
Dim XML As New MIC_EXPORT_Shipment.ExportShipment
|
||||
Dim XML As New MIC_EXPORT.ExportShipment
|
||||
'Transaktion:
|
||||
XML.ShipmentHead.company = "VERAG"
|
||||
XML.ShipmentHead.plant = "GB/01"
|
||||
@@ -98,48 +98,50 @@
|
||||
Shared Function generateIMPORT(AVISO As cAviso, SENDUNG As cSendungen, ByRef saveFile As String, ByRef BezugsNr As String) As Boolean
|
||||
Dim Interface_VERSION = "000"
|
||||
|
||||
Dim XML As New MIC_IMPORT.ImportShipment
|
||||
Dim XML As New MIC_IMPORT.InsertImportShipment
|
||||
|
||||
Dim XML_IMP = XML.ImportShipmentMessage.ImportShipment
|
||||
'XML.schemaVersion =
|
||||
|
||||
XML.Shipment.company = "VERAG"
|
||||
XML.Shipment.plant = "GB/01"
|
||||
XML.Shipment.shipmentId = BezugsNr
|
||||
XML_IMP.Shipment.company = "VERAG"
|
||||
XML_IMP.Shipment.plant = "GB/01"
|
||||
XML_IMP.Shipment.shipmentId = BezugsNr
|
||||
|
||||
XML.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
|
||||
XML.Shipment.ShipmentHead.customsDate = Now
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
|
||||
XML_IMP.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
|
||||
XML_IMP.Shipment.ShipmentHead.customsDate = Now
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML_IMP.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
|
||||
'XML.Shipment.ShipmentHead.departurePlace = Now
|
||||
XML.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
|
||||
|
||||
Dim INV As New MIC_IMPORT_Invoice.TInvoice
|
||||
Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine
|
||||
Dim INV As New MIC_IMPORT.TInvoice
|
||||
|
||||
Dim ILN As New MIC_IMPORT.TInvoiceLine
|
||||
|
||||
Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "IM")
|
||||
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
|
||||
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
|
||||
|
||||
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
|
||||
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
|
||||
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
|
||||
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
|
||||
|
||||
INV.InvoiceLines.Add(ILN)
|
||||
INV.InvoiceLines.Add(ILN)
|
||||
|
||||
XML.Invoice.Add(INV)
|
||||
XML_IMP.Invoice.Add(INV)
|
||||
|
||||
|
||||
Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText()
|
||||
Dim CF_BezugsNr = New MIC_IMPORT.TCustomerText()
|
||||
CF_BezugsNr.key = 1
|
||||
CF_BezugsNr.value = BezugsNr
|
||||
XML.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
|
||||
CF_BezugsNr.value = BezugsNr
|
||||
XML_IMP.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
|
||||
|
||||
XML.Shipment.ShipmentHead.countryDestination = "UK"
|
||||
XML.Shipment.ShipmentHead.creationDate = Now
|
||||
XML.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
|
||||
XML_IMP.Shipment.ShipmentHead.countryDestination = "UK"
|
||||
XML_IMP.Shipment.ShipmentHead.creationDate = Now
|
||||
XML_IMP.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML_IMP.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
|
||||
|
||||
|
||||
saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
|
||||
@@ -526,14 +526,16 @@
|
||||
<Compile Include="Schnittstellen\IDEV_Intrastat\instat6.2.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\cMIC.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\cMICInterface.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportBasicTypes.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportComponents.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportInvoiceTypes.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportShipment.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustImportInvoiceTypes.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustImportShipment.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicErrorWarningMessage.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicMetadata.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportBasicTypes.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportComponents.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportInvoiceTypes.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustExportShipment.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustImportInvoiceTypes.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicCustImportShipment.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicErrorWarningMessage.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicMetaCustExportShipment.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicMetaCustImportShipment.designer.vb" />
|
||||
<Compile Include="Schnittstellen\MIC\MicMetadata.designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\CC015B_TR_EXT_V4_3.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\Codelists.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\Constraints4.Designer.vb" />
|
||||
|
||||
@@ -66,7 +66,7 @@ Public Class cAllgemein
|
||||
Public Shared FILIALEN As List(Of cFilialen)
|
||||
Public Const LeerDatum As Date = #12/30/1899# 'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date
|
||||
|
||||
Public Shared Sub LOAD_DATA()
|
||||
Public Shared Sub LOAD_DATA(Optional switchCompany = False, Optional firmaTmp = False, Optional NLTmp = "")
|
||||
MITARBEITER = New cMitarbeiter
|
||||
If MITARBEITER.LOAD(USRID) Then
|
||||
USR_NNAME = MITARBEITER.mit_nname
|
||||
@@ -80,7 +80,15 @@ Public Class cAllgemein
|
||||
End Select
|
||||
USR_HrFrNAME &= MITARBEITER.mit_nname
|
||||
|
||||
If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma)
|
||||
|
||||
If switchCompany Then
|
||||
FIRMA = firmaTmp
|
||||
NIEDERLASSUNG = If(NLTmp <> "", NLTmp, MITARBEITER.mit_niederlassung)
|
||||
Else
|
||||
If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128)
|
||||
@@ -115,6 +123,9 @@ Public Class cAllgemein
|
||||
Else
|
||||
MITARBEITER = Nothing
|
||||
End If
|
||||
|
||||
|
||||
|
||||
LOAD_PARAM()
|
||||
LOAD_TRANSLATE()
|
||||
LOAD_FIRMEN()
|
||||
|
||||
Reference in New Issue
Block a user