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

Import_DY, Prüfung Belege, VAT_ATEZ, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-22 12:26:39 +02:00
parent fd1f235d99
commit 813b23bb12
11 changed files with 166 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

@@ -1,8 +1,4 @@

Imports System.Runtime.Serialization
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports itextsharp.text.pdf
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlCreditsafe

48
SDL/Creditsafe/usrcntlVAT_ATEZ.Designer.vb generated
View File

@@ -39,6 +39,8 @@ Partial Class usrcntlVAT_ATEZ
Me.dgvVAT = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblPagecount = New System.Windows.Forms.Label()
Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService()
Me.bcxOnlySetPrice = New System.Windows.Forms.CheckBox()
CType(Me.dgvVAT, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -47,7 +49,7 @@ Partial Class usrcntlVAT_ATEZ
Me.lblUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblUID.AutoSize = True
Me.lblUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblUID.Location = New System.Drawing.Point(1129, 10)
Me.lblUID.Location = New System.Drawing.Point(1239, 10)
Me.lblUID.Name = "lblUID"
Me.lblUID.Size = New System.Drawing.Size(40, 13)
Me.lblUID.TabIndex = 1
@@ -58,7 +60,7 @@ Partial Class usrcntlVAT_ATEZ
'
Me.txtUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtUID.Location = New System.Drawing.Point(1132, 26)
Me.txtUID.Location = New System.Drawing.Point(1242, 26)
Me.txtUID.Name = "txtUID"
Me.txtUID.Size = New System.Drawing.Size(134, 23)
Me.txtUID.TabIndex = 3
@@ -71,7 +73,7 @@ Partial Class usrcntlVAT_ATEZ
Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtFirma.Location = New System.Drawing.Point(73, 27)
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(633, 23)
Me.txtFirma.Size = New System.Drawing.Size(743, 23)
Me.txtFirma.TabIndex = 1
Me.txtFirma.Visible = False
'
@@ -112,7 +114,7 @@ Partial Class usrcntlVAT_ATEZ
Me.btnUebernehmen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUebernehmen.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUebernehmen.Location = New System.Drawing.Point(1244, 359)
Me.btnUebernehmen.Location = New System.Drawing.Point(1354, 359)
Me.btnUebernehmen.Name = "btnUebernehmen"
Me.btnUebernehmen.Size = New System.Drawing.Size(136, 41)
Me.btnUebernehmen.TabIndex = 9
@@ -123,7 +125,7 @@ Partial Class usrcntlVAT_ATEZ
'
Me.txtStrasse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtStrasse.Location = New System.Drawing.Point(712, 27)
Me.txtStrasse.Location = New System.Drawing.Point(822, 27)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(163, 23)
Me.txtStrasse.TabIndex = 101
@@ -134,7 +136,7 @@ Partial Class usrcntlVAT_ATEZ
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label1.Location = New System.Drawing.Point(709, 11)
Me.Label1.Location = New System.Drawing.Point(819, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(42, 13)
Me.Label1.TabIndex = 100
@@ -145,7 +147,7 @@ Partial Class usrcntlVAT_ATEZ
'
Me.txtPLZ.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtPLZ.Location = New System.Drawing.Point(1042, 26)
Me.txtPLZ.Location = New System.Drawing.Point(1152, 26)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(84, 23)
Me.txtPLZ.TabIndex = 103
@@ -156,7 +158,7 @@ Partial Class usrcntlVAT_ATEZ
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label2.Location = New System.Drawing.Point(1039, 10)
Me.Label2.Location = New System.Drawing.Point(1149, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(27, 13)
Me.Label2.TabIndex = 102
@@ -167,7 +169,7 @@ Partial Class usrcntlVAT_ATEZ
'
Me.txtOrt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtOrt.Location = New System.Drawing.Point(881, 26)
Me.txtOrt.Location = New System.Drawing.Point(991, 26)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(155, 23)
Me.txtOrt.TabIndex = 105
@@ -178,7 +180,7 @@ Partial Class usrcntlVAT_ATEZ
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label3.Location = New System.Drawing.Point(878, 10)
Me.Label3.Location = New System.Drawing.Point(988, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(21, 13)
Me.Label3.TabIndex = 104
@@ -201,7 +203,7 @@ Partial Class usrcntlVAT_ATEZ
Me.dgvVAT.ReadOnly = True
Me.dgvVAT.RowHeadersVisible = False
Me.dgvVAT.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVAT.Size = New System.Drawing.Size(1368, 297)
Me.dgvVAT.Size = New System.Drawing.Size(1478, 297)
Me.dgvVAT.TabIndex = 7
'
'cboLand
@@ -223,18 +225,36 @@ Partial Class usrcntlVAT_ATEZ
Me.lblPagecount.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblPagecount.AutoSize = True
Me.lblPagecount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblPagecount.Location = New System.Drawing.Point(1268, 10)
Me.lblPagecount.Location = New System.Drawing.Point(1378, 10)
Me.lblPagecount.Name = "lblPagecount"
Me.lblPagecount.Size = New System.Drawing.Size(77, 13)
Me.lblPagecount.TabIndex = 106
Me.lblPagecount.Text = "Gesamtseiten: "
'
'CheckVatService1
'
Me.CheckVatService1.Credentials = Nothing
Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
Me.CheckVatService1.UseDefaultCredentials = False
'
'bcxOnlySetPrice
'
Me.bcxOnlySetPrice.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bcxOnlySetPrice.AutoSize = True
Me.bcxOnlySetPrice.Location = New System.Drawing.Point(1214, 372)
Me.bcxOnlySetPrice.Name = "bcxOnlySetPrice"
Me.bcxOnlySetPrice.Size = New System.Drawing.Size(115, 17)
Me.bcxOnlySetPrice.TabIndex = 107
Me.bcxOnlySetPrice.Text = "nur Beträge setzen"
Me.bcxOnlySetPrice.UseVisualStyleBackColor = True
'
'usrcntlVAT_ATEZ
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.bcxOnlySetPrice)
Me.Controls.Add(Me.lblPagecount)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.Label3)
@@ -252,7 +272,7 @@ Partial Class usrcntlVAT_ATEZ
Me.Controls.Add(Me.txtUID)
Me.Controls.Add(Me.lblUID)
Me.Name = "usrcntlVAT_ATEZ"
Me.Size = New System.Drawing.Size(1398, 403)
Me.Size = New System.Drawing.Size(1508, 403)
CType(Me.dgvVAT, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -274,4 +294,6 @@ Partial Class usrcntlVAT_ATEZ
Friend WithEvents txtOrt As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents lblPagecount As Label
Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService
Friend WithEvents bcxOnlySetPrice As CheckBox
End Class

3
SDL/Creditsafe/usrcntlVAT_ATEZ.resx
View File

@@ -117,4 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="CheckVatService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

8
SDL/Creditsafe/usrcntlVAT_ATEZ.vb
View File

@@ -9,6 +9,7 @@ Public Class usrcntlVAT_ATEZ
Public va As VAT
Dim uidDefault As String
Public createCostumer As Boolean = False
Public setAmountOnly As Boolean = False
Sub New()
@@ -17,8 +18,6 @@ Public Class usrcntlVAT_ATEZ
End Sub
Sub New(_UID As String, _name As String, _land As String, _PLZ As String, _Strasse As String, _Ort As String)
InitializeComponent()
@@ -35,8 +34,6 @@ Public Class usrcntlVAT_ATEZ
Private Sub init()
'cboLand.changeItem(land)
'initDataTable()
btnUebernehmen.Enabled = False
@@ -56,6 +53,7 @@ Public Class usrcntlVAT_ATEZ
End If
bcxOnlySetPrice.Checked = setAmountOnly
End Sub
@@ -70,6 +68,8 @@ Public Class usrcntlVAT_ATEZ
Dim pageCpunterCheck = 0
lblPagecount.Text &= dgvVAT.Rows(0).Cells("total_pages").Value
With dgvVAT