neu

SDL/kassenbuch/frmBelegNeu.vb

@@ -256,7 +256,11 @@ Public Class frmBelegNeu
         If defaultPrinter <> "" Then
             cProgramFunctions.initDrucker(cboPrinter, defaultPrinter)
         Else
-            cProgramFunctions.initDrucker(cboPrinter, If(EA = "E", "EPSON", ""))
+            If EA = "E" Then
+                cProgramFunctions.initBONDrucker(cboPrinter, "EPSON") ' Eingangsbeleg --> BON
+            Else
+                cProgramFunctions.initDrucker(cboPrinter) ' Ausgangsbeleg --> A4
+            End If
         End If
         initTabCntlPreislisten()
 

SDL/kassenbuch/frmFremdbeleg.vb

@@ -54,7 +54,7 @@ Public Class frmFremdbeleg
     End Sub
 
     Private Sub frmFremdbeleg_Load(sender As Object, e As EventArgs) Handles Me.Load
-        cProgramFunctions.initDrucker(cboPrinter, "EPSON")
+        cProgramFunctions.initBONDrucker(cboPrinter, "EPSON")
 
         If BELEG Is Nothing Then
             BELEG = New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -33,7 +33,7 @@ Public Class frmNacherfassungLeihgeld
     Private Sub frmNacherfassungLeihgeld_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         txtDatum.Text = Now.ToShortDateString
         cProgramFunctions.initDrucker(cboPrinter)
-        cProgramFunctions.initDrucker(cboPrinterProvisionBeleg, "EPSON")
+        cProgramFunctions.initBONDrucker(cboPrinterProvisionBeleg, "EPSON")
 
         cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", False)
         'cbxProvision.Checked = True