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

MIC, Fahrerdata, Formulare(VM),divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-30 22:19:33 +02:00
parent 89d8f5a9b2
commit 431201cdfc
32 changed files with 79314 additions and 12646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb
View File

@@ -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.")

5
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb
View File

@@ -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

18
SDL/Formulare/KDFormulare/frmFahrerDatenSuche.vb
View File

@@ -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

31
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -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