From 984a341b6ea9a48e53323e8089319dff482b8c1b Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 21 Dec 2022 14:53:31 +0100 Subject: [PATCH] Auswertung VERIMEX Korr., Laufzettel SA-Gestellung --- Aviso/Auswertung/usrctlStatVERIMEX.vb | 22 +- Aviso/Aviso.vbproj | 1 + Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/Resources/Flender_Bocholt.xlsx | Bin 0 -> 8165 bytes Aviso/frmAbfertigungTR_ExportAnz.Designer.vb | 15 + Aviso/frmAbfertigungTR_ExportAnz.vb | 8 +- Aviso/frmLaufzettel.Designer.vb | 444 ++++++++++--------- Aviso/frmLaufzettel.resx | 18 +- Aviso/frmLaufzettel.vb | 29 +- Aviso/frmSendungsdetailsNEU.vb | 6 - 10 files changed, 293 insertions(+), 254 deletions(-) create mode 100644 Aviso/Resources/Flender_Bocholt.xlsx diff --git a/Aviso/Auswertung/usrctlStatVERIMEX.vb b/Aviso/Auswertung/usrctlStatVERIMEX.vb index 1edf6db..ec1a3c9 100644 --- a/Aviso/Auswertung/usrctlStatVERIMEX.vb +++ b/Aviso/Auswertung/usrctlStatVERIMEX.vb @@ -203,28 +203,28 @@ Public Class usrctlStatVERIMEX Try - Dim whereFiliale = "" Dim innerJoinFiliale = "" - Select Case cboFirma._value + Select Case cboAbfFirma._value Case "" Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 " + Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr='4801' " + Case Else - whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' " + whereFiliale = " and tblSendungen.FilialenNr<>'4801' and Filialen.Firma='" & cboAbfFirma._value & "' " innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr" End Select - - Dim sqlstr = "SELECT (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma, - mit_vname + ' ' + mit_nname as Mitarbeiter, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSnd_Empfaenger as Empfänger, tblSnd_Colli Colli, tblSnd_Gewicht Gewicht, tblSnd_Abfertigungsart_ID Abfertigungsart, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe - FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA - " & innerJoinFiliale & " - where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null - " & whereFiliale & " - ORDER BY Firma, Mitarbeiter,Auftraggeber,LKW_Nr,tblSnd_PosUnterNr" + Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,tblSnd_anzahlHandling as AnzahlVersandscheine ,tblSnd_anzahlHandlingPos as AnzahlPositionen, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe + FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA + " & innerJoinFiliale & " + where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null + " & whereFiliale & " ORDER BY mit_nname, tblSnd_AbfertigungTR" SDL.cProgramFunctions.genExcelFromDT_NEW(SQL.loadDgvBySql(sqlstr, "AVISO")) + + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index c51c688..e3f36fa 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -1354,6 +1354,7 @@ My Settings.Designer.vb + Always diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 7132f64..14d581b 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/Resources/Flender_Bocholt.xlsx b/Aviso/Resources/Flender_Bocholt.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..ac241a5ff901f1c9abad66998a57dee430674497 GIT binary patch literal 8165 zcmeHMg;$j8_8vmw&?3!9BON2%B`GN&DF_Zo$IvM?fPgT>z|bi@2+|!QAQDP<2?Ej$ z62I}>dw!ndIrlHP_nWo8cg>o4_L_OW=h=I|&(>1Iz`O&%0^k4u00uz*qwXOMGynhx z696Cu;Gi4JJ2|?69o@`yy`8}jQywn|d-_~Vbhc~&I_mrXyZ(!Jpe&(Zql=ID!Kw14 z{1@(*b5$}pg4@A8w;S2$%$HRx#(2GFKVM6do>t1_kl6}XS`5uXB=2W_6dJ!{7g5ww zI++q{fQCF#ZK}1%imE$+k)`B6`s{^GHiKR@b#!7?HHp<8Tm{rGQ)8FF4RXiUXFNrt z%@B|>LaYndGWPng8xx=AeF`aRQCrkO_z(zXG|MnOW+khjnVuJoG>;=2YHH8a+gm9s|tOsZq3gY5v+S_QifFg%NnRk*@}wIv(( zf~;Sp)MD*TgNJepdq*q0kI-yfnJ%*eC3BZA1vaY9+)fq+Uc-;9WK8WMfS- zwykUsp%`>?g8|U`iwtY@_?V7RpFBjV3=btkGgq)ZgqP>X{eSZNFV@_j{(4!wx@H$2 zK6F?4GQ9V6Y%Y#iPR&zRxrsqH;DyR8QB6!9GtFGvJz8R2>JSX2z?Oi^4>NNTF`K;% zC(8n5QMd1iGu3*QLz6FD+_5=WUEzu@WlQf!JjRa4P7q3}-fSK%u^grKMLBAH3rvb5 z`wErBLp+bEaY+kkq2!W?Afxx{hVvF@NVGAzN89DlH+90Zpzg~NW<8x}gN6$rV-dJS1iZObdJ+p5=R7h(hz4GJMNbl8Q6u5l`8dBE1+4KHOC!S8O zb{0-fc0a1sADTf!l`K@0|L&^{)^GcJ$_~2@N%5ET_^lwZcPde?w)+ae5KH$C9%>ao z9%!}{JSU?pG=+o2nu9PqcuKEiYusr#)sTm+X7?JJog&Bf^!z1Sf-U%wLLr{{PZ^=6 z=Vx!O@;j8p-kH)F6p;5&i^2Awy|sCtoYycK1Z@0hWAZ7D@!#Kls8-*1ND+M_o-OfB z_q&n&?8H!Z2|M$_w&Q|8OM$0TER$%%3mLeLGKE%BBzGjVEuBTFz5i@Laz8#ZO#gz` zpoJ!*RmjjA_;)gl|w0#rBjaDoG;76K8@#D|TDAO}` zO5>yS&#Jz8;Z;c4Y05&T5LRDBg!ngSx>uBuvaww7jnJ+D=dy-IVn9geZ@py2Vu{&XvXGasPSd{#h8^M{ zB*1hZUPD$4ChAm)WErNoK6p2%ly9LX23A>u79q%8+`KE}Uj8AsyVi=fLM_h! zjmdWV(*B|o1KZZqdnsa5CAn1A!46-jWYQ!zNUz92+~3AXXf=iw{gq$!^#S$x{Vcj$ zh^h`U-!xnE;rUY!pxe1WiCo;1idd6!d3(Hn4uyYdtV2T6*07Pf`KqRzm2oy2EPa-9 z;XE@5k1?7ZSh=~Mjw|N1j}Po8WF(vP_hHo)m;}MFz3QnlDW;J|xbKx!RlH(Y5LHIO zM6r!h-x>&gjrg4FJswX-SH21^8_J!@A6(LioEcj^I0>WM zFFwENfQdW;sSi&@q-zget}ZlH?dl@)^o>`$D7JAk|jK7iZdn9&y^W=)mqLQ zMpI;(a1Pee22Npx_G_3*XB3dqi_9+E#O;eIDRn6+RC4hpbG~{D^z%XXS_R*#FQUNo z>j=fLgLv6p{-Z32@vMakP_ocP$%5ctvVgdG+k+uL(q+Ehg53-saRA*`AhC}pxT!K3 za|Uc<%Vy7~jP0vuFG?~NOW%ihTY2MuPdt)TtoBo@LgC>?)9#Kq`;_UuThsR~8}vnA zIm$(+l(-FyvG$l{eK3CsbJrcyectWrXHLFAwz~ix2VxpKP(g6$69@Lk8|Ko9jU5pA zCyKi%!Mrg-@nVyy1eM}l&mFE9*p+Fa?65>m3Hp!VV`=*M)UO^Cx<)%iD|S5f;ztIQ zeYV&2+S9`|fD%)I9J0;a(RW4n3z=I^AKdNZ%qw@CC0M*YC(vxcyD``sJ#4Fh{$+yU z0WR)J>9qKvYCbN%{ZNZveJ^!+`hz6LBngm&a7A!~@LESoa zF}4A`MAksE17Kt6j@7xH$)FeM1Z;&Ca%GoCfp*9@O<2YH@XwOtqEO#2Y0jXWxIEEC z0-D&sNFnn!DsuM$K`Htt!>x?|8nMmuqEC)J=SKO&m58ey8=Ot9fR zqKMwE%2Q#FIP(**)^Xul^;u9cCw%XAH5}{|X})pa$826gTQ@6X3@H_?L(jy8aGe+| z+aAdZ_YBCiW$9%5_xY0-F7+_~7IGjI9ju~S*dfrO9t?_H28$U=FoRt?B)wPVN#fb4 zGif!Y5aK+D#m)RNl^iwR2+WzbJF*(8ar?X3XDGVF-|zfCSiNO95Je+=r;Xx58Xw|$DYz2LGQT)vpD@S#EF+P&rglqP|2`P;Ruw*Gmr#Y{vWmd(IX1fy?HAzwgGI=Cr0yW*^ zh81oh_;xQoR}jv%_*59x?m@3NQwO%S{JEO33NAtfFU^N<@fvv%sO~ROOKk~=OB%Of z6`V~|w?45w4Q?zj3t?1^?-F!lFVk!4A4AfUDte~xSyAF|CO!0i6>M(+PENJxyxqV) zVd0j%j|R9C$Eb2!lgG*{STU~6RG|;;-aHRNG0y9LA|F~;fvSyGNoU|O?vXH1yE+WU zP`-t(_HH_^s)v+G!>Vf446VEs&3k`q>M&e0OZsyAJWpwe?mB*;T+h%|oDGrcS`l!0 zvAf&0cYSdj{y4TxrBEu8g7tcJ$gK79Dt4kcoa`&oYkxZ-Su?BoY^PK@&}VCSer>%y zlt?8y%#(o5SJ)6A&uuc6=xl=-O2P=od?`~W?{20@zBi4oO@Rz?pqO842k|Vfo}2cM zUquYDxP0^ze966d*Rr~+egy6DmP$8X%DjtIq=9&Y%EpI~3gTXKg zcRF$O1uB}B?kq9U;Lf0HhwsZjMx%SY$CQ*tc@-cL3iBf5eK(+s7CVp?ybm2R0owlJ0TK$d*P#M|0vw8~)gjC`Zx zL8m!|<$FSYFTy$~o^oG3wL*5Zd^GIQpi05S#`-Yk6DF-Q*;bJZSJM}SOby@Ds^=r( z+&zk|mj)+p)h(Y2`Qo3f&W-G-#dQ?I(JTV(7Vt@GSbIsWBC^|^KXFGGEDb#vZ7Atp z(`blnu{q?EdHQTjoL^<$;4+=fw==MC%Y}l^T5GSKtWC4{ZKRHe#vPF~=bMhI*Wqh@ z1o-#*#H=$O3x3s$xoNAg71~}sG+Jwhi&lV5oXqI*;eGuSMfL|gu{-DQXpE&u?LySaA!`nWhY$2J=xvn zMZ9DT$@^!uBzoZ_$E)-TOYVy6Ng0u3>fvMr1p!ng;5(0zfDwJ|pvR6xPezRcDD#2O zp1+s%meO}oP3!AlFIh~t$rlz)NTmX>oPaP6l!cSZX_5=|lV498D@=nrm4#<;m zNCvA$>>IMcWoh2Z+=q#r@FoV~y!kWYN_}S6V4CL^pj+zAD{!+?sB;!b?k!w8=oPEnyM7-5x49V)o5ecQ#>Th2wj4tOoRO1I2X1{+rn-tH61dz(U z3_GrJT};8L7hx-$rzNe&H6}6447^A9I@)8Plr2MkLnQYt4*1?nl{I#gg!K=!SJekW z`-$aLw2eERA;n_m3*Sfm54FoBtmCW#tc=QXHPnR>0rm3pZ#bkCxJz|5$9G2=zc#ML zf1}sVD11kwF;^!-j6ZVF$2F4J{Y{`uM4YBZUA!x}eNVw5WI^9LbcA%*=OARZuS^g7 zT@`XPvVymNz}UgVnW8rj`!pQF5k|-|YY4%7VCI8?_>5%_^97ZXETsv5&0k&M4cpE( z#%&7IVcMbyw$~*o*vjd^Vlr-`rf# zz-QqC+u%IU6*4iKLiK^1zD`AsYyPo-joAu4tO47%k2nQNw`CdD-KoQ@>c-iRZ0CHO zhQC2$))s?yfi}*=NRJSsHtnLMra3t+PWD5Z0XfMc-D%mDxpnMqY(pvxPR$Lb!&~)_ zXKJqg*{Wi+_oAOfovcSO007FLr!2^GFxU;k`}^{H4Ngx`k3w~p(A}_W?3^a)l}VR~ zx6jg2cXG6*9ev@emE0C8iaJ8L1vf30;m`1%GL*q&sckY5uz5pCTCnDmc7q%}StjXx z%sUe`S`M;Vf$;g@+uu@33@ga)9AUzx%A^AffYnn|gzY5EY{tWb4Ns{s;hyw}<72>Y zp41M^ka__Jb8L*V%=Bk;@1CY$#p6C03N2^|&q-5sp0sUE&Yq>R$hIattjnO>3S&K& z6zTiuDD7p^k4BQT9wx4?rOIq3RijFye{68duS$7ODTL{Lpa<^#DJMpij+oj;7peFV z$Y9;-SJ}IK0W5RlffTH&=oq{fe(jHSFIy9H&y&d7I<0m?3m#8;nOZeaxXa!of)QVz zrhBCsQu(T+gwE%FyxTGqYtuNDe`p9_4cze2!}D9JEUy4Q+Fv zUOGG}m=@TP>+Ry7#IJ4uUYydUjwUt7(A0tRW#nZ*QqAqB2$^eOo@~6198ATBN^iSU zt9To4rN7??!WY>JUoB%%ZU#m8Fk55j?5a>93zIPuOQX zR2E~|*vgCCD{RG`HSLw^4UDK0W?IJ8dUm#za7P-og@0!s-+S_%3>5qLP`QZs&+L2Z z?EF9Sp|7!im`NcX4v+Q&;oZ zk6bx8UO&n6j)W7o^a$wLVGt%uXiY5M=J4hy!VV2UaK7QU8T*tgFVA4r*Lonv`=B-` zRMLt;EP`Bu-*G{RReoz)L3`mnfsrcB=_wJ3B1?mvF4Xy=L!fry$nW{$VsoW1rHz5e zS1xYRhi#i=3Ky8ZQr&kc71v1$LkYyfS4P>FoLw`I2mPs1$uEP#ERRMm7B-5xyMV;4 z4#&+!pFDSK>2t*nh#E5QjL}31N%x-# z6%Cym@SjGqe>}oJ)_)k#YN`D-z+Z<+e*k~1;V7N_X|(h!@UI5@pMhm4@900L+*w?|1M|^XgaVug<_v=v%^n^a*|q@M~}LGXRME|9|-3 zI-Osm{Iw?ji~#`1pc0 sein." + Me.lblError.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblError.Visible = False + ' 'frmAbfertigungTR_ExportAnz ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -196,4 +210,5 @@ Partial Class frmAbfertigungTR_ExportAnz Friend WithEvents Label1 As Label Friend WithEvents txtAnzPos As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAnz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblError As Label End Class diff --git a/Aviso/frmAbfertigungTR_ExportAnz.vb b/Aviso/frmAbfertigungTR_ExportAnz.vb index ed31f2e..89745e7 100644 --- a/Aviso/frmAbfertigungTR_ExportAnz.vb +++ b/Aviso/frmAbfertigungTR_ExportAnz.vb @@ -19,8 +19,12 @@ End Sub Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click - If txtAnz._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub - If txtAnzPos._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub + lblError.Visible = False + If txtAnz._value = "" OrElse Not IsNumeric(txtAnz._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub + If txtAnzPos._value = "" OrElse Not IsNumeric(txtAnzPos._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub + + If CInt(txtAnz._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub + If CInt(txtAnzPos._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub Me.DialogResult = DialogResult.OK diff --git a/Aviso/frmLaufzettel.Designer.vb b/Aviso/frmLaufzettel.Designer.vb index 42482ef..8a54c6e 100644 --- a/Aviso/frmLaufzettel.Designer.vb +++ b/Aviso/frmLaufzettel.Designer.vb @@ -22,40 +22,40 @@ Partial Class frmLaufzettel 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLaufzettel)) Me.lbl = New System.Windows.Forms.Label() - Me.cbxDokumenteDrucken = New System.Windows.Forms.CheckBox() - Me.cbxDigitalLZ = New System.Windows.Forms.CheckBox() - Me.CheckBox2 = New System.Windows.Forms.CheckBox() - Me.CheckBox3 = New System.Windows.Forms.CheckBox() - Me.CheckBox4 = New System.Windows.Forms.CheckBox() - Me.dgvLaufzettelDruck = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnLzPrint_ID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnLzPrint_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.PrintDocId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.printTyp = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvDigitalMailanfügen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnLzMail_ID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnLzMail_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DocId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.btnLaufzettelDrucken = New System.Windows.Forms.Button() - Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.pnl = New System.Windows.Forms.Panel() + Me.btn = New System.Windows.Forms.Button() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel() + Me.Button4 = New System.Windows.Forms.Button() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxVPSplit = New System.Windows.Forms.CheckBox() Me.pnlZumZoll = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() + Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.CheckBox3 = New System.Windows.Forms.CheckBox() + Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() Me.btnDIGITAL = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() - Me.pnl = New System.Windows.Forms.Panel() - Me.btn = New System.Windows.Forms.Button() - Me.Button4 = New System.Windows.Forms.Button() - CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.btnLaufzettelDrucken = New System.Windows.Forms.Button() + Me.cbxDokumenteDrucken = New System.Windows.Forms.CheckBox() + Me.dgvDigitalMailanfügen = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.clmnLzMail_ID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnLzMail_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DocId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.dgvLaufzettelDruck = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.clmnLzPrint_ID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnLzPrint_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.PrintDocId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.printTyp = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cbxDigitalLZ = New System.Windows.Forms.CheckBox() + Me.cbxSAAbfertigung = New System.Windows.Forms.CheckBox() + Me.pnl.SuspendLayout() Me.MyPanel1.SuspendLayout() Me.pnlZumZoll.SuspendLayout() - Me.pnl.SuspendLayout() + CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'lbl @@ -69,166 +69,32 @@ Partial Class frmLaufzettel Me.lbl.TabIndex = 0 Me.lbl.Text = "Laufzettel" ' - 'cbxDokumenteDrucken + 'pnl ' - Me.cbxDokumenteDrucken.AutoSize = True - Me.cbxDokumenteDrucken.Checked = True - Me.cbxDokumenteDrucken.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxDokumenteDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cbxDokumenteDrucken.Location = New System.Drawing.Point(17, 25) - Me.cbxDokumenteDrucken.Name = "cbxDokumenteDrucken" - Me.cbxDokumenteDrucken.Size = New System.Drawing.Size(189, 24) - Me.cbxDokumenteDrucken.TabIndex = 1 - Me.cbxDokumenteDrucken.Text = "Dokumente drucken" - Me.cbxDokumenteDrucken.UseVisualStyleBackColor = True + Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.lbl) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(564, 45) + Me.pnl.TabIndex = 10 ' - 'cbxDigitalLZ + 'btn ' - Me.cbxDigitalLZ.AutoSize = True - Me.cbxDigitalLZ.Enabled = False - Me.cbxDigitalLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cbxDigitalLZ.Location = New System.Drawing.Point(284, 25) - Me.cbxDigitalLZ.Name = "cbxDigitalLZ" - Me.cbxDigitalLZ.Size = New System.Drawing.Size(239, 24) - Me.cbxDigitalLZ.TabIndex = 2 - Me.cbxDigitalLZ.Text = "DIGITAL: An Mail anfügen" - Me.cbxDigitalLZ.UseVisualStyleBackColor = True - ' - 'CheckBox2 - ' - Me.CheckBox2.AutoSize = True - Me.CheckBox2.Checked = True - Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.CheckBox2.Location = New System.Drawing.Point(18, 14) - Me.CheckBox2.Name = "CheckBox2" - Me.CheckBox2.Size = New System.Drawing.Size(230, 24) - Me.CheckBox2.TabIndex = 3 - Me.CheckBox2.Text = """zum Zoll"" Zettel drucken" - Me.CheckBox2.UseVisualStyleBackColor = True - ' - 'CheckBox3 - ' - Me.CheckBox3.AutoSize = True - Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.CheckBox3.Location = New System.Drawing.Point(284, 14) - Me.CheckBox3.Name = "CheckBox3" - Me.CheckBox3.Size = New System.Drawing.Size(77, 24) - Me.CheckBox3.TabIndex = 4 - Me.CheckBox3.Text = "AT Zoll" - Me.CheckBox3.UseVisualStyleBackColor = True - ' - 'CheckBox4 - ' - Me.CheckBox4.AutoSize = True - Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.CheckBox4.Location = New System.Drawing.Point(376, 14) - Me.CheckBox4.Name = "CheckBox4" - Me.CheckBox4.Size = New System.Drawing.Size(80, 24) - Me.CheckBox4.TabIndex = 5 - Me.CheckBox4.Text = "DE Zoll" - Me.CheckBox4.UseVisualStyleBackColor = True - ' - 'dgvLaufzettelDruck - ' - Me.dgvLaufzettelDruck.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvLaufzettelDruck.AllowUserToAddRows = False - Me.dgvLaufzettelDruck.AllowUserToResizeColumns = False - Me.dgvLaufzettelDruck.AllowUserToResizeRows = False - Me.dgvLaufzettelDruck.BackgroundColor = System.Drawing.Color.White - Me.dgvLaufzettelDruck.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvLaufzettelDruck.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzPrint_ID, Me.clmnLzPrint_Name, Me.PrintDocId, Me.printTyp}) - Me.dgvLaufzettelDruck.Location = New System.Drawing.Point(18, 53) - Me.dgvLaufzettelDruck.Name = "dgvLaufzettelDruck" - Me.dgvLaufzettelDruck.ReadOnly = True - Me.dgvLaufzettelDruck.RowHeadersVisible = False - Me.dgvLaufzettelDruck.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLaufzettelDruck.Size = New System.Drawing.Size(260, 266) - Me.dgvLaufzettelDruck.TabIndex = 6 - ' - 'clmnLzPrint_ID - ' - Me.clmnLzPrint_ID.HeaderText = "Column1" - Me.clmnLzPrint_ID.Name = "clmnLzPrint_ID" - Me.clmnLzPrint_ID.ReadOnly = True - Me.clmnLzPrint_ID.Visible = False - ' - 'clmnLzPrint_Name - ' - Me.clmnLzPrint_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnLzPrint_Name.HeaderText = "Datei" - Me.clmnLzPrint_Name.Name = "clmnLzPrint_Name" - Me.clmnLzPrint_Name.ReadOnly = True - ' - 'PrintDocId - ' - Me.PrintDocId.HeaderText = "printDocId" - Me.PrintDocId.Name = "PrintDocId" - Me.PrintDocId.ReadOnly = True - Me.PrintDocId.Visible = False - ' - 'printTyp - ' - Me.printTyp.HeaderText = "printTyp" - Me.printTyp.Name = "printTyp" - Me.printTyp.ReadOnly = True - Me.printTyp.Visible = False - ' - 'dgvDigitalMailanfügen - ' - Me.dgvDigitalMailanfügen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvDigitalMailanfügen.AllowUserToAddRows = False - Me.dgvDigitalMailanfügen.AllowUserToResizeColumns = False - Me.dgvDigitalMailanfügen.AllowUserToResizeRows = False - Me.dgvDigitalMailanfügen.BackgroundColor = System.Drawing.Color.White - Me.dgvDigitalMailanfügen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvDigitalMailanfügen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzMail_ID, Me.clmnLzMail_Name, Me.DocId}) - Me.dgvDigitalMailanfügen.Enabled = False - Me.dgvDigitalMailanfügen.Location = New System.Drawing.Point(284, 53) - Me.dgvDigitalMailanfügen.Name = "dgvDigitalMailanfügen" - Me.dgvDigitalMailanfügen.ReadOnly = True - Me.dgvDigitalMailanfügen.RowHeadersVisible = False - Me.dgvDigitalMailanfügen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvDigitalMailanfügen.Size = New System.Drawing.Size(260, 365) - Me.dgvDigitalMailanfügen.TabIndex = 7 - ' - 'clmnLzMail_ID - ' - Me.clmnLzMail_ID.HeaderText = "Column1" - Me.clmnLzMail_ID.Name = "clmnLzMail_ID" - Me.clmnLzMail_ID.ReadOnly = True - Me.clmnLzMail_ID.Visible = False - ' - 'clmnLzMail_Name - ' - Me.clmnLzMail_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnLzMail_Name.HeaderText = "Datei" - Me.clmnLzMail_Name.Name = "clmnLzMail_Name" - Me.clmnLzMail_Name.ReadOnly = True - ' - 'DocId - ' - Me.DocId.HeaderText = "DocId" - Me.DocId.Name = "DocId" - Me.DocId.ReadOnly = True - Me.DocId.Visible = False - ' - 'btnLaufzettelDrucken - ' - Me.btnLaufzettelDrucken.BackColor = System.Drawing.Color.PapayaWhip - Me.btnLaufzettelDrucken.Enabled = False - Me.btnLaufzettelDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnLaufzettelDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.btnLaufzettelDrucken.Image = Global.AVISO.My.Resources.Resources.printer - Me.btnLaufzettelDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLaufzettelDrucken.Location = New System.Drawing.Point(18, 424) - Me.btnLaufzettelDrucken.Name = "btnLaufzettelDrucken" - Me.btnLaufzettelDrucken.Padding = New System.Windows.Forms.Padding(10, 0, 20, 0) - Me.btnLaufzettelDrucken.Size = New System.Drawing.Size(260, 69) - Me.btnLaufzettelDrucken.TabIndex = 8 - Me.btnLaufzettelDrucken.Text = "Laufzettel drucken" - Me.btnLaufzettelDrucken.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnLaufzettelDrucken.UseVisualStyleBackColor = False + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn.BackColor = System.Drawing.Color.Red + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(483, -1) + Me.btn.Margin = New System.Windows.Forms.Padding(0) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(80, 45) + Me.btn.TabIndex = 0 + Me.btn.Text = "X" + Me.btn.UseVisualStyleBackColor = False ' 'MyPanel1 ' @@ -245,12 +111,23 @@ Partial Class frmLaufzettel Me.MyPanel1.Controls.Add(Me.dgvDigitalMailanfügen) Me.MyPanel1.Controls.Add(Me.dgvLaufzettelDruck) Me.MyPanel1.Controls.Add(Me.cbxDigitalLZ) + Me.MyPanel1.Controls.Add(Me.cbxSAAbfertigung) Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.MyPanel1.Location = New System.Drawing.Point(0, 45) Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Size = New System.Drawing.Size(564, 571) Me.MyPanel1.TabIndex = 9 ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(205, 363) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 36) + Me.Button4.TabIndex = 24 + Me.Button4.Text = "Kopieren" + Me.Button4.UseVisualStyleBackColor = True + ' 'cboPrinter ' Me.cboPrinter._allowedValuesFreiText = Nothing @@ -298,6 +175,41 @@ Partial Class frmLaufzettel Me.Button2.Text = "nur z.Zoll drucken" Me.Button2.UseVisualStyleBackColor = True ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.Checked = True + Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.CheckBox2.Location = New System.Drawing.Point(18, 14) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(230, 24) + Me.CheckBox2.TabIndex = 3 + Me.CheckBox2.Text = """zum Zoll"" Zettel drucken" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'CheckBox3 + ' + Me.CheckBox3.AutoSize = True + Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.CheckBox3.Location = New System.Drawing.Point(284, 14) + Me.CheckBox3.Name = "CheckBox3" + Me.CheckBox3.Size = New System.Drawing.Size(77, 24) + Me.CheckBox3.TabIndex = 4 + Me.CheckBox3.Text = "AT Zoll" + Me.CheckBox3.UseVisualStyleBackColor = True + ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.CheckBox4.Location = New System.Drawing.Point(376, 14) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(80, 24) + Me.CheckBox4.TabIndex = 5 + Me.CheckBox4.Text = "DE Zoll" + Me.CheckBox4.UseVisualStyleBackColor = True + ' 'Button3 ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -335,42 +247,143 @@ Partial Class frmLaufzettel Me.Button1.Text = "Laufzettel anzeigen" Me.Button1.UseVisualStyleBackColor = True ' - 'pnl + 'btnLaufzettelDrucken ' - Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.btn) - Me.pnl.Controls.Add(Me.lbl) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(564, 45) - Me.pnl.TabIndex = 10 + Me.btnLaufzettelDrucken.BackColor = System.Drawing.Color.PapayaWhip + Me.btnLaufzettelDrucken.Enabled = False + Me.btnLaufzettelDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnLaufzettelDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnLaufzettelDrucken.Image = Global.AVISO.My.Resources.Resources.printer + Me.btnLaufzettelDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnLaufzettelDrucken.Location = New System.Drawing.Point(18, 424) + Me.btnLaufzettelDrucken.Name = "btnLaufzettelDrucken" + Me.btnLaufzettelDrucken.Padding = New System.Windows.Forms.Padding(10, 0, 20, 0) + Me.btnLaufzettelDrucken.Size = New System.Drawing.Size(260, 69) + Me.btnLaufzettelDrucken.TabIndex = 8 + Me.btnLaufzettelDrucken.Text = "Laufzettel drucken" + Me.btnLaufzettelDrucken.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnLaufzettelDrucken.UseVisualStyleBackColor = False ' - 'btn + 'cbxDokumenteDrucken ' - Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btn.BackColor = System.Drawing.Color.Red - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btn.ForeColor = System.Drawing.Color.White - Me.btn.Location = New System.Drawing.Point(483, -1) - Me.btn.Margin = New System.Windows.Forms.Padding(0) - Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(80, 45) - Me.btn.TabIndex = 0 - Me.btn.Text = "X" - Me.btn.UseVisualStyleBackColor = False + Me.cbxDokumenteDrucken.AutoSize = True + Me.cbxDokumenteDrucken.Checked = True + Me.cbxDokumenteDrucken.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxDokumenteDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cbxDokumenteDrucken.Location = New System.Drawing.Point(17, 25) + Me.cbxDokumenteDrucken.Name = "cbxDokumenteDrucken" + Me.cbxDokumenteDrucken.Size = New System.Drawing.Size(189, 24) + Me.cbxDokumenteDrucken.TabIndex = 1 + Me.cbxDokumenteDrucken.Text = "Dokumente drucken" + Me.cbxDokumenteDrucken.UseVisualStyleBackColor = True ' - 'Button4 + 'dgvDigitalMailanfügen ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(205, 363) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(73, 36) - Me.Button4.TabIndex = 24 - Me.Button4.Text = "Kopieren" - Me.Button4.UseVisualStyleBackColor = True + Me.dgvDigitalMailanfügen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvDigitalMailanfügen.AllowUserToAddRows = False + Me.dgvDigitalMailanfügen.AllowUserToResizeColumns = False + Me.dgvDigitalMailanfügen.AllowUserToResizeRows = False + Me.dgvDigitalMailanfügen.BackgroundColor = System.Drawing.Color.White + Me.dgvDigitalMailanfügen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvDigitalMailanfügen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzMail_ID, Me.clmnLzMail_Name, Me.DocId}) + Me.dgvDigitalMailanfügen.Enabled = False + Me.dgvDigitalMailanfügen.Location = New System.Drawing.Point(284, 53) + Me.dgvDigitalMailanfügen.Name = "dgvDigitalMailanfügen" + Me.dgvDigitalMailanfügen.ReadOnly = True + Me.dgvDigitalMailanfügen.RowHeadersVisible = False + Me.dgvDigitalMailanfügen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvDigitalMailanfügen.Size = New System.Drawing.Size(260, 365) + Me.dgvDigitalMailanfügen.TabIndex = 7 + ' + 'clmnLzMail_ID + ' + Me.clmnLzMail_ID.HeaderText = "Column1" + Me.clmnLzMail_ID.Name = "clmnLzMail_ID" + Me.clmnLzMail_ID.ReadOnly = True + Me.clmnLzMail_ID.Visible = False + ' + 'clmnLzMail_Name + ' + Me.clmnLzMail_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnLzMail_Name.HeaderText = "Datei" + Me.clmnLzMail_Name.Name = "clmnLzMail_Name" + Me.clmnLzMail_Name.ReadOnly = True + ' + 'DocId + ' + Me.DocId.HeaderText = "DocId" + Me.DocId.Name = "DocId" + Me.DocId.ReadOnly = True + Me.DocId.Visible = False + ' + 'dgvLaufzettelDruck + ' + Me.dgvLaufzettelDruck.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvLaufzettelDruck.AllowUserToAddRows = False + Me.dgvLaufzettelDruck.AllowUserToResizeColumns = False + Me.dgvLaufzettelDruck.AllowUserToResizeRows = False + Me.dgvLaufzettelDruck.BackgroundColor = System.Drawing.Color.White + Me.dgvLaufzettelDruck.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvLaufzettelDruck.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzPrint_ID, Me.clmnLzPrint_Name, Me.PrintDocId, Me.printTyp}) + Me.dgvLaufzettelDruck.Location = New System.Drawing.Point(18, 53) + Me.dgvLaufzettelDruck.Name = "dgvLaufzettelDruck" + Me.dgvLaufzettelDruck.ReadOnly = True + Me.dgvLaufzettelDruck.RowHeadersVisible = False + Me.dgvLaufzettelDruck.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvLaufzettelDruck.Size = New System.Drawing.Size(260, 266) + Me.dgvLaufzettelDruck.TabIndex = 6 + ' + 'clmnLzPrint_ID + ' + Me.clmnLzPrint_ID.HeaderText = "Column1" + Me.clmnLzPrint_ID.Name = "clmnLzPrint_ID" + Me.clmnLzPrint_ID.ReadOnly = True + Me.clmnLzPrint_ID.Visible = False + ' + 'clmnLzPrint_Name + ' + Me.clmnLzPrint_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnLzPrint_Name.HeaderText = "Datei" + Me.clmnLzPrint_Name.Name = "clmnLzPrint_Name" + Me.clmnLzPrint_Name.ReadOnly = True + ' + 'PrintDocId + ' + Me.PrintDocId.HeaderText = "printDocId" + Me.PrintDocId.Name = "PrintDocId" + Me.PrintDocId.ReadOnly = True + Me.PrintDocId.Visible = False + ' + 'printTyp + ' + Me.printTyp.HeaderText = "printTyp" + Me.printTyp.Name = "printTyp" + Me.printTyp.ReadOnly = True + Me.printTyp.Visible = False + ' + 'cbxDigitalLZ + ' + Me.cbxDigitalLZ.AutoSize = True + Me.cbxDigitalLZ.Enabled = False + Me.cbxDigitalLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cbxDigitalLZ.Location = New System.Drawing.Point(284, 25) + Me.cbxDigitalLZ.Name = "cbxDigitalLZ" + Me.cbxDigitalLZ.Size = New System.Drawing.Size(239, 24) + Me.cbxDigitalLZ.TabIndex = 2 + Me.cbxDigitalLZ.Text = "DIGITAL: An Mail anfügen" + Me.cbxDigitalLZ.UseVisualStyleBackColor = True + ' + 'cbxSAAbfertigung + ' + Me.cbxSAAbfertigung.AutoSize = True + Me.cbxSAAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cbxSAAbfertigung.Location = New System.Drawing.Point(284, 492) + Me.cbxSAAbfertigung.Name = "cbxSAAbfertigung" + Me.cbxSAAbfertigung.Size = New System.Drawing.Size(255, 24) + Me.cbxSAAbfertigung.TabIndex = 14 + Me.cbxSAAbfertigung.Text = "SA-Abfertigungs E-Mail (Suben)" + Me.cbxSAAbfertigung.UseVisualStyleBackColor = True + Me.cbxSAAbfertigung.Visible = False ' 'frmLaufzettel ' @@ -385,14 +398,14 @@ Partial Class frmLaufzettel Me.Name = "frmLaufzettel" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Laufzettel" - CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.pnlZumZoll.ResumeLayout(False) Me.pnlZumZoll.PerformLayout() - Me.pnl.ResumeLayout(False) - Me.pnl.PerformLayout() + CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -424,4 +437,5 @@ Partial Class frmLaufzettel Friend WithEvents Button2 As Button Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button4 As Button + Friend WithEvents cbxSAAbfertigung As CheckBox End Class diff --git a/Aviso/frmLaufzettel.resx b/Aviso/frmLaufzettel.resx index 154a8b5..3b1dc45 100644 --- a/Aviso/frmLaufzettel.resx +++ b/Aviso/frmLaufzettel.resx @@ -117,6 +117,15 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + True + + + True + True @@ -129,15 +138,6 @@ True - - True - - - True - - - True - diff --git a/Aviso/frmLaufzettel.vb b/Aviso/frmLaufzettel.vb index 63bc597..141e729 100644 --- a/Aviso/frmLaufzettel.vb +++ b/Aviso/frmLaufzettel.vb @@ -158,19 +158,26 @@ Public Class frmLaufzettel btnDIGITAL.Enabled = True cbxDigitalLZ.Checked = True CheckBox2.Checked = False + cbxDokumenteDrucken.Checked = False pnlZumZoll.Visible = False Else btnLaufzettelDrucken.Enabled = True End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - Case "WAI", "DTB" - CheckBox2.Checked = True - CheckBox3.Visible = False - CheckBox4.Checked = True - End Select + Case "WAI", "DTB" + CheckBox2.Checked = True + CheckBox3.Visible = False + CheckBox4.Checked = True + End Select + If AVISO.Grenzstelle = "SUB" Then + cbxSAAbfertigung.Visible = True + If Now.DayOfWeek = DayOfWeek.Saturday Then + cbxSAAbfertigung.Checked = True + End If + End If 'pnlZumZoll If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "DTB" Then CheckBox2.Checked = False ' Wenn nicht FO, dann normal nicht gewählt... @@ -375,7 +382,11 @@ Public Class frmLaufzettel Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing Select Case AVISO.Grenzstelle Case "SUB" - Mail.To = "abfertigung.za-suben@zoll.bund.de" + If cbxSAAbfertigung.Checked Then + Mail.To = "samstag.ZA-Suben@zoll.bund.de" + Else + Mail.To = "abfertigung.za-suben@zoll.bund.de" + End If tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "WAI" Mail.To = "" @@ -483,7 +494,7 @@ Public Class frmLaufzettel End Try Else - Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False) + Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck) If path <> "" Then 'Process.Start(path) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) @@ -524,9 +535,9 @@ Public Class frmLaufzettel paths = New List(Of String) - If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX")) + If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX", digitalDruck)) For Each VP In VP_Enum - paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP)) + paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP, digitalDruck)) Next Return True diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 780f4bb..f27c834 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5740,11 +5740,5 @@ Public Class frmSendungsdetailsNEU End Sub - Private Sub OhneGestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OhneGestellungsgarantieToolStripMenuItem.Click - End Sub - - Private Sub MitGestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitGestellungsgarantieToolStripMenuItem.Click - - End Sub End Class