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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2024-06-11 15:03:45 +02:00
parent 27a93ad90f
commit 978884cd2b
8 changed files with 140 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/kunden/Berichte/rptFiskalkunde.vb
View File

@@ -93,16 +93,11 @@ Public Class rptFiskalkunde
If BR IsNot Nothing Then
txtBon.Text = "Bonit<EFBFBD>tsklasse"
If AD.LandKz = "AT" Or AD.LandKz = "A" Then
txtBon.Text = "Bonit<EFBFBD>tsscore: "
txtBon.Text &= If(BR.ba_CreditSaveBonitaetsScore, "")
txtBONja.Text = "X"
Else
txtBon.Text = "Bonit<EFBFBD>tsindex: "
txtBon.Text &= If(BR.ba_CreditSaveBonitaetsIndex, "")
txtBONja.Text = "X"
End If
txtBon.Text = "Bonit<EFBFBD>tsscore: "
txtBon.Text &= If(BR.ba_CreditSaveBonitaetsScore, "") & IIf(BR.ba_CreditSaveBonitaetsScore IsNot Nothing AndAlso BR.ba_CreditSaveRisikoklasse IsNot Nothing, "/", "") & If(BR.ba_CreditSaveRisikoklasse, "")
txtBONja.Text = "X"
If IsDate(BR.ba_Datum) Then txtBon.Text &= " - " & CDate(BR.ba_Datum).ToShortDateString
Else

13
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -22,7 +22,6 @@ Partial Class frmKundenblatt
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -163,21 +162,21 @@ Partial Class frmKundenblatt
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.btnAbfVerb = New System.Windows.Forms.Button()
Me.lblAbfVerb = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.mne = New System.Windows.Forms.MenuStrip()
Me.AllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip()
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
@@ -2094,7 +2093,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'