ms Änderungen RS Marvin
This commit is contained in:
parent
2aefc23b8c
commit
135e31f0d1
1
.gitignore
vendored
1
.gitignore
vendored
@ -154,3 +154,4 @@ $RECYCLE.BIN/
|
|||||||
|
|
||||||
# Mac desktop service store files
|
# Mac desktop service store files
|
||||||
.DS_Store
|
.DS_Store
|
||||||
|
/SchaumKommiCollo/.vs/KommiCollo/v15/Server/sqlite3
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -11,6 +11,8 @@
|
|||||||
providerName="System.Data.SqlClient" />
|
providerName="System.Data.SqlClient" />
|
||||||
<add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd"
|
<add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd"
|
||||||
providerName="System.Data.SqlClient" />
|
providerName="System.Data.SqlClient" />
|
||||||
|
<add name="SCHAUM_IID_Connection" connectionString="XpoProvider=MSSqlServer;data source=192.168.13.101;user id=sa;password=dd;initial catalog=SCHAUM_IID;Persist Security Info=true" />
|
||||||
|
<add name="192.168.13.101_SCHAUM_IID_Connection" connectionString="XpoProvider=MSSqlServer;data source=192.168.13.101;user id=sa;password=dd;initial catalog=SCHAUM_IID;Persist Security Info=true" />
|
||||||
</connectionStrings>
|
</connectionStrings>
|
||||||
<system.diagnostics>
|
<system.diagnostics>
|
||||||
<sources>
|
<sources>
|
||||||
|
|||||||
Binary file not shown.
@ -285,8 +285,7 @@
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
Sub Refresh_Grid()
|
||||||
Private Sub cmbMandant_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMandant.SelectedIndexChanged
|
|
||||||
VWAbschlussDataGridView.Visible = False
|
VWAbschlussDataGridView.Visible = False
|
||||||
VWAbschlussDataGridView.Dock = DockStyle.None
|
VWAbschlussDataGridView.Dock = DockStyle.None
|
||||||
VWHUP_REPORT1DataGridView.Visible = False
|
VWHUP_REPORT1DataGridView.Visible = False
|
||||||
@ -310,6 +309,9 @@
|
|||||||
btnAbschluss.Text = "Mandanten '" & cmbMandant.Text & "' abschliessen"
|
btnAbschluss.Text = "Mandanten '" & cmbMandant.Text & "' abschliessen"
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
End Sub
|
||||||
|
Private Sub cmbMandant_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMandant.SelectedIndexChanged
|
||||||
|
Refresh_Grid()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@ -336,4 +338,8 @@
|
|||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmAbschluss_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||||
|
Refresh_Grid()
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
@ -1,7 +1,7 @@
|
|||||||
Public Class frmAdressChange
|
Public Class frmAdressChange
|
||||||
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
|
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
|
||||||
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET NAME1 = '{0}', NAME2 = '{1}', STRASSE = '{2}', PLZ = '{3}', ORT = '{4}' WHERE GUID = {5}",
|
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET NAME1 = '{0}', NAME2 = '{1}', STRASSE = '{2}', PLZ = '{3}', ORT = '{4}' WHERE GUID = {5}",
|
||||||
txtName1.Text, txtName1.Text, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, CURRENT_SENDUNG)
|
txtName1.Text, txtName2.Text, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, CURRENT_SENDUNG)
|
||||||
If ClassDatabase.Execute_non_Query(upd) = True Then
|
If ClassDatabase.Execute_non_Query(upd) = True Then
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End If
|
End If
|
||||||
|
|||||||
@ -118,30 +118,34 @@ Public Class frmMain
|
|||||||
_EDV_no = ""
|
_EDV_no = ""
|
||||||
End Try
|
End Try
|
||||||
Try
|
Try
|
||||||
_LS_no = split(1)
|
_LS_no = RTrim(LTrim(split(1)))
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
_LS_no = ""
|
_LS_no = ""
|
||||||
End Try
|
End Try
|
||||||
If _EDV_no <> String.Empty And _LS_no <> String.Empty Then
|
If _EDV_no <> String.Empty And _LS_no <> String.Empty Then
|
||||||
Dim getMERC_SELECT = String.Format("select TOP 1 vkkopf_kunde FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
Dim sql = String.Format("SELECT MIN(GUID) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
||||||
|
Dim GUID As Integer = ClassDatabase.Execute_Scalar_CS(sql, My.Settings.ConfigConnStringMercator, True)
|
||||||
|
Dim getMERC_SELECT = String.Format("select TOP 1 vkkopf_kunde FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_KDNR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_KDNR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
If MERC_KDNR Is Nothing Then
|
If MERC_KDNR Is Nothing Then
|
||||||
MsgBox("Für diese Kombination aus Lieferschein und EDV-Nr konnten keine Werte aus mercator geholt werden!", MsgBoxStyle.Exclamation)
|
|
||||||
|
|
||||||
|
MsgBox("Für diese Kombination aus Lieferschein und EDV-Nr konnten keine Werte aus Merkator geholt werden!", MsgBoxStyle.Exclamation)
|
||||||
Return False
|
Return False
|
||||||
End If
|
End If
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_name1])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_name1])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFADR1 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFADR1 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_name2])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_name2])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFADR2 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFADR2 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_strasse])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_strasse])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFSTR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFSTR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_land_nr])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_land_nr])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFLAND = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFLAND = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_ldplz])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_ldplz])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFPLZ = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFPLZ = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_ort])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_liefadr_ort])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_LIEFORT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_LIEFORT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_gew_netto])) FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
|
getMERC_SELECT = String.Format("select TOP 1 LTRIM(RTRIM([vkkopf_gew_netto])) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
|
||||||
Dim MERC_GEWICHT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
Dim MERC_GEWICHT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
|
||||||
|
|
||||||
If CURR_LIEFADR = "" And CURR_Ort = "" Then
|
If CURR_LIEFADR = "" And CURR_Ort = "" Then
|
||||||
@ -190,7 +194,7 @@ Public Class frmMain
|
|||||||
txtFreitext.Text = ClassDatabase.Execute_Scalar("SELECT BEMERKUNG FROM TBKOMMCOLLI_SENDUNGEN WHERE GUID = " & CURRENT_SENDUNG, True)
|
txtFreitext.Text = ClassDatabase.Execute_Scalar("SELECT BEMERKUNG FROM TBKOMMCOLLI_SENDUNGEN WHERE GUID = " & CURRENT_SENDUNG, True)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
deactivate_Error()
|
deactivate_Error()
|
||||||
|
|
||||||
|
|||||||
@ -100,6 +100,9 @@ Partial Class frmPrintOptions
|
|||||||
Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
|
Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
|
||||||
Me.DocumentViewerEx1 = New KommiCollo.DocumentViewerEx()
|
Me.DocumentViewerEx1 = New KommiCollo.DocumentViewerEx()
|
||||||
Me.btnUebernahme = New System.Windows.Forms.Button()
|
Me.btnUebernahme = New System.Windows.Forms.Button()
|
||||||
|
Me.Button2 = New System.Windows.Forms.Button()
|
||||||
|
Me.txtNVE = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
@ -839,12 +842,45 @@ Partial Class frmPrintOptions
|
|||||||
Me.btnUebernahme.Text = "Übernahmebestätigung"
|
Me.btnUebernahme.Text = "Übernahmebestätigung"
|
||||||
Me.btnUebernahme.UseVisualStyleBackColor = True
|
Me.btnUebernahme.UseVisualStyleBackColor = True
|
||||||
'
|
'
|
||||||
|
'Button2
|
||||||
|
'
|
||||||
|
Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Button2.Image = Global.KommiCollo.My.Resources.Resources.BarCodeHS
|
||||||
|
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
Me.Button2.Location = New System.Drawing.Point(766, 55)
|
||||||
|
Me.Button2.Name = "Button2"
|
||||||
|
Me.Button2.Size = New System.Drawing.Size(154, 28)
|
||||||
|
Me.Button2.TabIndex = 26
|
||||||
|
Me.Button2.Text = "Testetikett"
|
||||||
|
Me.Button2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'txtNVE
|
||||||
|
'
|
||||||
|
Me.txtNVE.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtNVE.Location = New System.Drawing.Point(766, 102)
|
||||||
|
Me.txtNVE.Name = "txtNVE"
|
||||||
|
Me.txtNVE.Size = New System.Drawing.Size(275, 22)
|
||||||
|
Me.txtNVE.TabIndex = 31
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(763, 86)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(53, 13)
|
||||||
|
Me.Label2.TabIndex = 32
|
||||||
|
Me.Label2.Text = "Test NVE:"
|
||||||
|
'
|
||||||
'frmPrintOptions
|
'frmPrintOptions
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
Me.CancelButton = Me.Cancel_Button
|
Me.CancelButton = Me.Cancel_Button
|
||||||
Me.ClientSize = New System.Drawing.Size(1070, 699)
|
Me.ClientSize = New System.Drawing.Size(1070, 699)
|
||||||
|
Me.Controls.Add(Me.Label2)
|
||||||
|
Me.Controls.Add(Me.txtNVE)
|
||||||
|
Me.Controls.Add(Me.Button2)
|
||||||
Me.Controls.Add(Me.DocumentViewerEx1)
|
Me.Controls.Add(Me.DocumentViewerEx1)
|
||||||
Me.Controls.Add(Me.btnUebernahme)
|
Me.Controls.Add(Me.btnUebernahme)
|
||||||
Me.Controls.Add(Me.Cancel_Button)
|
Me.Controls.Add(Me.Cancel_Button)
|
||||||
@ -951,4 +987,7 @@ Partial Class frmPrintOptions
|
|||||||
Friend WithEvents PrintPreviewBarCheckItem17 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
|
Friend WithEvents PrintPreviewBarCheckItem17 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
|
||||||
Friend WithEvents DocumentViewerEx1 As DocumentViewerEx
|
Friend WithEvents DocumentViewerEx1 As DocumentViewerEx
|
||||||
Friend WithEvents btnUebernahme As Button
|
Friend WithEvents btnUebernahme As Button
|
||||||
|
Friend WithEvents Button2 As Button
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents txtNVE As TextBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@ -136,7 +136,7 @@
|
|||||||
<data name="DocumentViewerBarManager1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="DocumentViewerBarManager1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
|
||||||
MTUuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhDAMAAABR
|
MTYuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhDAMAAABR
|
||||||
U3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlU
|
U3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlU
|
||||||
b2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAoRGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25T
|
b2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAoRGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25T
|
||||||
dHJlYW1lcgIAAAAJSW1hZ2VTaXplBERhdGEEBxNTeXN0ZW0uRHJhd2luZy5TaXplAwAAAAICAAAABfz/
|
dHJlYW1lcgIAAAAJSW1hZ2VTaXplBERhdGEEBxNTeXN0ZW0uRHJhd2luZy5TaXplAwAAAAICAAAABfz/
|
||||||
|
|||||||
@ -25,6 +25,9 @@ Public Class frmPrintOptions
|
|||||||
SQL = "SELECT * FROM TBKOMMCOLLI_SDG_LHM where SENDUNGNR = " & CURRENT_SENDUNG
|
SQL = "SELECT * FROM TBKOMMCOLLI_SDG_LHM where SENDUNGNR = " & CURRENT_SENDUNG
|
||||||
Dim DTKOMMCOLLI_SDG_LHM As DataTable = ClassDatabase.Return_Datatable(SQL)
|
Dim DTKOMMCOLLI_SDG_LHM As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||||
If DTKOMMCOLLI_SDG_LHM.Rows.Count > 0 Then
|
If DTKOMMCOLLI_SDG_LHM.Rows.Count > 0 Then
|
||||||
|
SQL = "SELECT COUNT(*) FROM TBKOMMCOLLI_SDG_LHM where SENDUNGNR = " & CURRENT_SENDUNG
|
||||||
|
Dim PS = ClassDatabase.Execute_Scalar(SQL, True)
|
||||||
|
|
||||||
For Each row As DataRow In DTKOMMCOLLI_SDG_LHM.Rows
|
For Each row As DataRow In DTKOMMCOLLI_SDG_LHM.Rows
|
||||||
Dim NAME1 = DTSENDUNG.Rows(0).Item("NAME1").ToString.Trim
|
Dim NAME1 = DTSENDUNG.Rows(0).Item("NAME1").ToString.Trim
|
||||||
Dim STRASSE = DTSENDUNG.Rows(0).Item("STRASSE").ToString.Trim
|
Dim STRASSE = DTSENDUNG.Rows(0).Item("STRASSE").ToString.Trim
|
||||||
@ -32,6 +35,7 @@ Public Class frmPrintOptions
|
|||||||
Dim LKZ = DTSENDUNG.Rows(0).Item("LKZ").ToString.Trim
|
Dim LKZ = DTSENDUNG.Rows(0).Item("LKZ").ToString.Trim
|
||||||
Dim ORT = DTSENDUNG.Rows(0).Item("ORT").ToString.Trim
|
Dim ORT = DTSENDUNG.Rows(0).Item("ORT").ToString.Trim
|
||||||
Dim NVE = row.Item("NVE")
|
Dim NVE = row.Item("NVE")
|
||||||
|
'Dim PS = row.Item("PACKSTUECKANZAHL")
|
||||||
If IsDBNull(NVE) Then
|
If IsDBNull(NVE) Then
|
||||||
MsgBox("Es wurden noch keine NVE's erzeugt. Schliessen Sie die Sendung ab!")
|
MsgBox("Es wurden noch keine NVE's erzeugt. Schliessen Sie die Sendung ab!")
|
||||||
Dim result As MsgBoxResult = MsgBox("Wollen Sie ein Beispieletikett drucken?", MsgBoxStyle.YesNo, "Bitte bestätigen")
|
Dim result As MsgBoxResult = MsgBox("Wollen Sie ein Beispieletikett drucken?", MsgBoxStyle.YesNo, "Bitte bestätigen")
|
||||||
@ -40,7 +44,7 @@ Public Class frmPrintOptions
|
|||||||
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, "123456789101112", 1)
|
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, "123456789101112", 1)
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, NVE, Me.txtAnzahl.Text)
|
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, NVE, Me.txtAnzahl.Text, PS)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
Next
|
||||||
@ -53,7 +57,8 @@ Public Class frmPrintOptions
|
|||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Sub PrintViaIP(IP As String, empname As String, empStrasse As String, empPLZ As String, empLKZ As String, empOrt As String, _NVE As String, Optional Anz As Integer = 1)
|
Sub PrintViaIP(IP As String, empname As String, empStrasse As String, empPLZ As String, empLKZ As String, empOrt As String, _NVE As String,
|
||||||
|
Optional Anz As Integer = 1, Optional Packstueck As Integer = 1)
|
||||||
Try
|
Try
|
||||||
Dim ipAddress As String = IP
|
Dim ipAddress As String = IP
|
||||||
Dim port As Integer = 9100
|
Dim port As Integer = 9100
|
||||||
@ -82,7 +87,7 @@ Public Class frmPrintOptions
|
|||||||
|
|
||||||
pText.AppendLine("^FO405,600^GB1,500,3^FS")
|
pText.AppendLine("^FO405,600^GB1,500,3^FS")
|
||||||
pText.AppendLine("^AT^^FO360,610^CI27^^FDAnzahl Packstücke:^FS")
|
pText.AppendLine("^AT^^FO360,610^CI27^^FDAnzahl Packstücke:^FS")
|
||||||
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
|
pText.AppendLine("^AT^^FO360,950^FD" & Packstueck.ToString & "^FS") 'Anzahl Packstücke Linie
|
||||||
pText.AppendLine("^FO330,600^GB1,500,3^FS")
|
pText.AppendLine("^FO330,600^GB1,500,3^FS")
|
||||||
pText.AppendLine("^AT^FO290,610^CI27^^FDEmpfänger:^FS")
|
pText.AppendLine("^AT^FO290,610^CI27^^FDEmpfänger:^FS")
|
||||||
pText.AppendLine("^AU^FO230,610^CI27^^FD" & empname & "^FS")
|
pText.AppendLine("^AU^FO230,610^CI27^^FD" & empname & "^FS")
|
||||||
@ -130,4 +135,15 @@ Public Class frmPrintOptions
|
|||||||
report.CreateDocument(False)
|
report.CreateDocument(False)
|
||||||
DocumentViewerEx1.Source = report
|
DocumentViewerEx1.Source = report
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||||
|
If txtNVE.Text <> "" Then
|
||||||
|
PrintViaIP(CURR_IP_PRINTER, "Hans Mustermann", "Musermannstrasse 1", "12345", "DE", "Musterstadt", txtNVE.Text, 1)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub txtAnzahl_TextChanged(sender As Object, e As EventArgs) Handles txtAnzahl.TextChanged
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -952,6 +952,8 @@ E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debu
|
|||||||
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
|
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
|
||||||
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
|
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
|
||||||
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
|
E:\SchreiberM\Visual Studio\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
|
||||||
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAbschluss.resources
|
||||||
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmLabel.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\Testreport.rdlc
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\Testreport.rdlc
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\KommiCollo.exe.config
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\KommiCollo.exe.config
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\KommiCollo.exe
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\KommiCollo.exe
|
||||||
@ -1130,10 +1132,8 @@ E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debu
|
|||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\ru\DevExpress.Pdf.v15.2.Core.resources.dll
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\bin\Debug\ru\DevExpress.Pdf.v15.2.Core.resources.dll
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbprojResolveAssemblyReference.cache
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbprojResolveAssemblyReference.cache
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.DocumentViewerEx.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.DocumentViewerEx.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAbschluss.resources
|
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAdressChange.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAdressChange.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmConnection.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmConnection.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmLabel.resources
|
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmMain.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmMain.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmPrintOptions.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmPrintOptions.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmStammdatenverwaltung.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmStammdatenverwaltung.resources
|
||||||
@ -1141,6 +1141,7 @@ E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\
|
|||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.reportUebergabe.resources
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.reportUebergabe.resources
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbproj.GenerateResource.Cache
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbproj.GenerateResource.Cache
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe.licenses
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe.licenses
|
||||||
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbproj.CoreCompileInputs.cache
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
|
||||||
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
|
E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user