From 63a9ff47e6762b86549d0b23da46abb84cf415fb Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 30 Jul 2025 16:05:55 +0200 Subject: [PATCH] Mahnlauf, FaktMail, etc. --- SDL/Fakturierung/frmFaktEmail.vb | 8 +- SDL/My Project/Resources.Designer.vb | 10 + SDL/My Project/Resources.resx | 3 + SDL/Resources/RG_ZF_NEW.xlsx | Bin 0 -> 10318 bytes SDL/SDL.vbproj | 3 + .../usrCntlSpeditionsBuchSuche.Designer.vb | 44 ++- .../usrCntlSpeditionsBuchSuche.vb | 273 +++++++++++++----- SDL/USTV/usrCntlUSTV.vb | 44 +-- SDL/buchhaltung/frmBU_Mahnlauf.vb | 9 +- 9 files changed, 285 insertions(+), 109 deletions(-) create mode 100644 SDL/Resources/RG_ZF_NEW.xlsx diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 53e3b707..321d19a3 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1099,10 +1099,10 @@ Public Class frmFaktEmail If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then - 'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!! - For Each a In myListLiefereranten - myList.Add(a) - Next + 'bei RMC und Durmaz doch wieder alles in einem Anhang und ohne LIEFERANTENRECHNUNGEN !!!!!!!! + 'For Each a In myListLiefereranten + ' myList.Add(a) + 'Next For Each a In myListPOSLIST myList.Add(a) diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 8dc6b88f..207f572f 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1893,6 +1893,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property RG_ZF_NEW() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("RG_ZF_NEW", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 83c4576a..0fed904a 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -949,4 +949,7 @@ ..\Resources\linked_b.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF_NEW.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/SDL/Resources/RG_ZF_NEW.xlsx b/SDL/Resources/RG_ZF_NEW.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..b753d89270b2a282318f30a71378b01296424ac7 GIT binary patch literal 10318 zcmeHt1zQ~1)^!JWXe7A1YjC$f@ZbcO;O_43PVnF!Jh%jch9IHQ;O?$L-p$PVKe#*?S#D8AvEh01N;Q0058zM7RP*ZJq%DP|yGX1^^D?jhL;C zlZlO!o{GDjiK7mao3#~59ux#kE&u|2{r|TA;t{A&8MOJtg4V9SD8CSagi@_agdLWV7@iL$~MgzGFgy4l2JZ?QIEjB)qN_zBU&CNBu3dz zw^;^pGqWc!_(>B&hSnL!klQWrH6z}uMfJ8eB{p_7iVqo%gsMzQSJAYXHHyvkx5U!B zLlc;}IyGjvykf+{<`vIMtl5Z>*hApaYFIH(Nlg7>MXBa0fNEWvE!JZZ&)zwn?Q;wiR)#YUX_@THU%@}P;h1<`*fJEHVf&A6 zlVr2Tow&CL!8wMYnJ)kqTMmHd1df#u+wdpnYFyaI*guj`VkWt{V>9Ofsjddt@m0JR zNKpPr`(h4eGnY{WH|6sv3t4$0#LFosDEJRxo;^N70u=v2(*{)*@^i55$%4-!f@!Mf zU}ELS%=B~rKYIQbbMkLpuSk$n=wU$$Ig+{y9k>E5#G#4GxQa-%lB)RlNq$*f=vo<)dTZ|tOGo99B57Z-(hGC} zU4Sm%y?o_P{ zTXmg@XLMrRdojvq4!kDgK)+@iec4Z$d*Q29&v7!G<=)E$-%~ztJQxs3T(Ss`SpP{9 zf5D{GGw_JCfJuS}fP3a<#r!8vTx}gJ4Q*{Le@3%^apoB~q=8ZXySIwhax%SOmyY-l z%Ho>gf(4v)VkX;H-9v>Ntf!r)B4zhEU&5zr(b1TaVTQB~aX%XAce#3jvI>cD(M?|x zfez(?VRgg@Z98%{0tsh$P)QW<5*h=2e|N9^01+kK5u;f!VSphUlY8@;h7vb4zlcoy zym=yo!{RH8Gn<9u7~v4uW`^t6{ceMl_bUVHKYk=hr+vHe*eo`G36m4xPCR~w3op%& z><$>;o+PEe?v}WOJ8iprE9d^zvOE74X@j6#hN$d?fLDkUN$9{!Vqe+>$Bn#qt*S>W zPNF}CXglXm8HUe~-mVY!gO?<2t$p8LEN&L6k3g+UX$DL0O!j%jIvV!HHNs#3NL8bPPsE}5ts((AU|Hsa9u(i z0*I`{*6R8EcdW`YKL^Nks1f=#;!T)77|nmWmV>+8V!g&mFonMza6*Z#5I>ey>ju(u z`y2ciHp3}UwWJJM_C_BOa&R28tA2~yZdqU%S9>StkX4F=iyLo|&LWWr=WHR<^5hntI;PnQ_Jd!4cv)0J6P9PBOA|Nef2(eyY80!CLdIFOof83%UE}{`|dtQ(N-#3foQvl!={oiN-74@H8f9#%66@1*X_hENfYZn^zg@ zcO-X#ywVkcMk2y^6C>B&c7CmJZ=jiySoHaGv_+p+4U(@zvE>lN>=OjUEQFFhC-re7 zYQ5}r_F5wF^jSKm`Z~G4ra7AV^}GIl^!_3RoNgB`Fo=~p`4#HU)ELmAL3k;{C*Iq# z+eM>hU3_g;P`l`G=|$y%1YZT>JYhbcJ9h$t=J44K)8YO&2G}x~48F%&4?i9J&eOo2NPpuCkJyIQ^%iv)JxgGa-Ie4UU0@24KL7Y zjOHNJ8neI9v4zd-8-wwWs=+OBed+AO%+HSJn50`QwQUOaI+Cz{^j+L0{klfK{V}4t& zu=2k3_BW}|h>uYc0R}+37B$xenT@+MN4?iZR7Q}aTMn2$`SNY>d(4=hW@5vQ^j z{bwN8=^!b?LioNytTe5c2h!I5(m;Om+I}c?s92YyXOqpi;x$t?WrQ`nhJ?NQ_N@;r zB0Ty;6``?4!oW-;iBb#+8j&wd*m?DyGHLa5X1c>454n1ipyldEy3pzDiABSWzQm?r zAGyC3(-ddvQc%=j#tS?P`e0^c+{$<94{MZU9v>j4lx?y<+eg8thTVV*GwY1ph7Xxt zHiU=9zn)b*6Fq#zN)pkje+B!hKnqeXIU;r3XQxHZYi=j8$=TZleL-t#O^8zW_I_I~ zXV22Aex(f+H{xa7P28863(rah^+AHk1#>t0Kg8 zOYeak63h^15sDR=${0RkT9dL@yLaXthan>9^R4P7rtjGu?(ZBVpEa9IH`oM3!RA2z z%RxGtnV2{^{uN&TIAHyEa1Dy>j`+laDRBk)Am-+oI2DW}rp!gwq`C!ZcsmC(pBi_C zdGA?AVA8d*VK=(Lnel_a6#p$sJi}xQMDV&1wpsPD=Nx0FNDcSycT9Lj{y2kgOdaWv z^7603`{OjQ5Nm>!DDH83e0pbVV&F^T1UF};!`)d1ZzA!>D#|RZPxWByndKXf7}mYj z19=5rYd-A9coXy6$;`ysg!zyCAKl*99F4^1!tB7l6+&`!y|a94#e4$eX=OUU zPer;{uwK$&5?h-dk2~1PN~)M(^jFLw zhJ;bGhb{l+{CuaKYblWfn|UF+)G}mev{)#D&5x9cGHzu_5rsP0U^h@KAiD1CnUgm0C`Q_Q5LRNIU4EfDo|*0grccX2?MkcooUc8hDw(*v;fntbw!&jXVMpoQ~+UpUtC=FeLzZAM3H@Mv1=XAWO@T$K4w?@v#2yL#QQ zA0s5qUQHbbiooe|fWNPJM=IbojQ#w1CGdq;{=|+uGUNwgAm!i+Udt-%g&og4mhq?U z7_7z9c9HxPd}hTskqWPqDFRX~ zB2h+(ITotns_Y)?J@7jh@&`1sOnAuXb_IQSAuWhPTxd)+cNnS<0+BH1ct4)bVr*^H z^;4r}XY*h0tgrMW!V0}@jEdo-dACcb=k;SYN6&Zv?qod!JGP^GtvTlLB2>ZW=Eji^ zjp~it%1vslujlRcje5?*!vZ;CTVft0p&$k8=2um({qOp$U*z1ojbl(Je5Z_XNDa@0 zfisP1hmivST^$mO9_N~!wl}nJQOIuYKK;ur#D$I`4CH#@hLBDDI0vcOZaPPx`xkL{e~KTSA?-_- zjH(N_v%x5i30uE)`7-p5B0lEck61KO9z^O}f#3C$hVUU;z2Zi#FL?rK)l4#P>c zScM|Yi%o&CrY-8-jUdxDltCdI$&ZlqehMDtIfd|+NBPORGAFG`KH8cNExzIcFN{MW znq>hFg(@RA(<#ImzI&hIrNc+vPOkRhtq*g-ih&{6<<1Q*v0O|G)Ik&8HMwr7S~Y~+QyCGlv7%NN100=b=O!sn|pAL#JS@;Jop%cq3V7PTB0v1Q91OKlrWYZVmNy-~cDrLRy>y_$v{&bC5XS&Z%L|N1PemoHYz%xT zWUj^L2&+HFNOBz3jcXapMr}DUZ5hGP9573Q<^xSjnyDRS9zE}_%?9KFQw}?~(?T$; zvZnr{Gf1FSMP}4IPjgaMOw|}vAGwo3e~MS07lv2Cwxc!=qid#PS?U~DGDT-E3GxmO z$W@|;VK0&H+hb#R!DsuTG;1wD_)NUI+qN9f;G%a=&1c({*V4paql#X2wOoPtb{gKr z4z@QRcB{*gt_gwC%To%-a9f+WF3Y)$)l7f-f=rv|EUA9M6RUGA_=OOIYPwJ7I;j0s z>5l7eVa(BVxp$}5j7s@qx9)MuG5$0Z(4BpN<=`-P{zw855SU}C@UFRTbF zM`Z!cZKATEJR5Juo`k9ND92CIy7-#Ae$g`WnjWd8P#2BUBT#pn>rLQ~D#wB@-C`mS zkxos7G6Rj%fQW)6t7JUg%Bd5)thY;h-$zqfSu|6Dhf+N&_ra2kdIp@8Q z0Du58004gfOmiHa+^tOhn8|%tpO2a6MDu1I^F_O^0)0-f#7_yl@PLMriiFsM@Ghhr zqWTmmGLFw9@z~CuWNe;jy~-;AJRe*&bK3lZn7!CpnBKlt32NV}~a-gk=tVUfTpC{`%~}=^T+UcJh=E`+GLw^AqD5w^sGJ zu`EEDT+-Ml%e>O?_P%qG%!@ki1Z>IamReUo{Oz(;=pUJf{AsZDIB|d*&H@_bPuCKM z(ak_wcqGrw8NpgDHLck>`g7^os9s@AnQFHW=dj6Z^xJk@4O&yg?WS~H=<)gu4E1Au zbz{6GnRPUDntLb0&`Y>6Hdx8pnQt7UV5SegDmat~;6bjB*J?7lZaX_yFbbGS>mjQW zl$08@@=To=b4IK~Orgai+7AkKt8`aueUhyCQbO=t_o_{Rm{bYcvnANxNAF}2-y>%A z{1(-M(Jh?e61A%BZRfC5wop*)x9{EiE!f)06$U1fMd4z^z&;CIu|r!!>%%iQ46<#Z z@C{K>0oS>tT;!gZUAgi?{bXpBo-5e9hTAaK`UX26wc&(s?P@B^Z_Pw>ec;m}PUC@| zerrod9SY@sq%CmjH+)PnL#l_u&8A+-z8T;5nw_OZ2N9@xF{rLQolEhFT8d65r8g%! zf;j_+R)IUj?>iTa-juueH{jm2LFz1p0vZt*%CUsKBTehThUI)&s>cl3 zj-zZZU+UG%gFv#YmfHIayon=2>SU4_a%i9To!FEYcGZIeiTDXX=t z!*9nNU30WD*|H||R)za0%eSRx4mM0AL$-1>2Nlp=^tUePeW#{GjE&uVLe(ueKJ(!h zoai9ClH7Sv_pqP#uiX~kY_i7QYc^%y3_rUv1H+~5YGpXBHt#AlC1qY>GKA90 zkg}I87i%}0kmBlWXVgw!2r#>_4>`6P;tY#%_c{z>xG*Nj^*N}$D%RH`>cRgbXaabwB*@75qVRUXW#;?0IPxQx5QjZadLdMNwxJJRMJ zJuW&Cao~yCHubCSO-HGC6%N;}UXNk5n(o##B~B%j!`j1Alc-y}a@v0^fesDoBGE`- zEWV_~)zh^Ill0o$FRb9Px1r_jG^LfngvZkBh=UOvVJwY;HzuaRjx^65=9y5 z<|ACaO03Li5|=cuwa@b}=rIO7So%)Lz2wPWA0x!5^(l44HJq!)GGm!;BZYAxzzDxC z9*BZ|Vfq;cH+NRQVpeK9ZY*+Tw!cmU!Hg5flGAq`DW4`P zlv)#e%8O;n>zTL-PW(25!6ZMw1Qjc|OYsU0UWD`W#-_7`Nm4 zQZ7@=c7i1v>8O%*c_N+?1`Vk7HY#=98gpbb^NMUlIxX+&SQ=Uh|dVWSXQa1$X90 zB+9av9lNSLQzJUcR|;GzF&OiXC1kqO|4|kexFY|a+`FKOu>4ZmgW63FD@(4xtwz5y z8vkQ};gx6~4pW+6APB!>uFxFmut#*M+xyj{8q%e{6fC}cfnR+v{;L@l!O^zxA5k!q zVL2^uwXsdRWOv@Z&e*_xa-YMMuq#q79jT_+>q1dsw~t@Nf53gG3T#D7X3V=tnrAYs z9zC&~j#&|0{m9gBMtt%d{SS$W9A0K@J;a&%|0Bc6blV~zxznDmh zzWz!ePR)wggQRj<@KRW7{Qi6Jb>+6tj(>gL4|VXR3!R=MmD>;BAk8JPTRR%z?y1_C zXqL{6RcX5}Psx+%vs2X&81)x)G;4P|oyvm`NVEG9Sg;Xzsm?5s^*C^(mK=pIWJr^4 zo|zQeXmbUtjs*;QJ|N#R)A*Z+)?h^X%U;zLfdb2@C_-Trd`HseXuVvXS#?`kB4c;J zHznv|6GV>F5PXK@p1VGgwAY`+hCr2C$HBLDZ!Pf{KS)iVef+K8n`k~K`YC1?fh)Q| zumE6eYozF4Yv;&pWb0t^mz4d#x<7d6yb^R2KC$2gAIaUJ${f9X1LMQNLWW*N!fG$M zrem#_Yk!c^2zTe%8a;9YJZj856Xe+{NSsyL8i&;=Mqrn45>|wg#C-kk08_wZ_!>sy zt0TF)E>2n=1~-QcGc#45abESYek6K@`f{EyTTHk^gv(+ok`c8_ZZkeqDEw+sb^4EE z%a2X#t68?sP~n?D;qj+_chr8iR!g48{yG9h^UzusvY;z25N3_A2r{Cxji|!KmuT|U zXlb%g^80T*HaUzEA73F80_?B&c6;E zZ{&d zA9J{42AwnG(xq?;1q>0T_Qsa<)NX%UPr|`yg$)BggKO}7ochn;YzMBYI+-{qn>acB zEUz*@Ic8-tG`B%8kTM>4_URQ2bO;)ZG7KaP1_>1rOD#*?fsS6nhwar@u)oSo)qHW`P;U0`3gj z-x+6MXZJtC{T#DDx6H(DoB5yOEaW9h$YFG*3r&cyno{iL_v*%8;O{>XCP~2bJ?|=BG3vdyA)Ir+VW= zV&{;3@zonQ{rR1Lu+jOq+ohdS z#vVen4(p4yk}1A0jS~rik3I|~u)1bW?Sl@mK9Qg|qc7k4LXNJX=59^b-O+9BWlbjW z3pn3{6~8}ospYoh-32>&!BPm`%%O+jGA+3pWBZ};?k literal 0 HcmV?d00001 diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 831aa763..b4cc7164 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -4704,6 +4704,9 @@ Always + + Always + Always diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index 9eed5b9f..ee620bec 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -100,6 +100,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label31 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox() Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label38 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -202,7 +203,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label45 = New System.Windows.Forms.Label() Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.SplitContainer = New System.Windows.Forms.SplitContainer() - Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox() + Me.cbxDetailbericht = New System.Windows.Forms.CheckBox() Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlRechts.SuspendLayout() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() @@ -774,6 +775,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' 'pnlBerichte ' + Me.pnlBerichte.Controls.Add(Me.cbxDetailbericht) Me.pnlBerichte.Controls.Add(Me.MyComboBox2) Me.pnlBerichte.Controls.Add(Me.Button25) Me.pnlBerichte.Controls.Add(Me.Button24) @@ -924,7 +926,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) Me.MenuStrip1.Location = New System.Drawing.Point(715, 158) Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(163, 27) + Me.MenuStrip1.Size = New System.Drawing.Size(283, 27) Me.MenuStrip1.TabIndex = 89 Me.MenuStrip1.Text = "Kundenauswertungen" ' @@ -942,7 +944,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -950,14 +952,14 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem" - Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)" ' 'ZFThyrnauZeitraumAuswählenToolStripMenuItem ' Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem" - Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)" Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -965,7 +967,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem" - Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)" Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1275,6 +1277,17 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Panel1.Size = New System.Drawing.Size(227, 100) Me.Panel1.TabIndex = 48 ' + 'cbxRptDetailsZahlungsdetails + ' + Me.cbxRptDetailsZahlungsdetails.AutoSize = True + Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79) + Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails" + Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17) + Me.cbxRptDetailsZahlungsdetails.TabIndex = 58 + Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails" + Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False + ' 'cboDetailberichtKdAtrNr ' Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing @@ -2823,16 +2836,16 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.SplitterWidth = 2 Me.SplitContainer.TabIndex = 3 ' - 'cbxRptDetailsZahlungsdetails + 'cbxDetailbericht ' - Me.cbxRptDetailsZahlungsdetails.AutoSize = True - Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke - Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79) - Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails" - Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17) - Me.cbxRptDetailsZahlungsdetails.TabIndex = 58 - Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails" - Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False + Me.cbxDetailbericht.AutoSize = True + Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139) + Me.cbxDetailbericht.Name = "cbxDetailbericht" + Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17) + Me.cbxDetailbericht.TabIndex = 59 + Me.cbxDetailbericht.Text = "Detailbericht" + Me.cbxDetailbericht.UseVisualStyleBackColor = False ' 'usrCntlSpeditionsBuchSuche ' @@ -3051,4 +3064,5 @@ Partial Class usrCntlSpeditionsBuchSuche Friend WithEvents SendungsdetailsÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox + Friend WithEvents cbxDetailbericht As CheckBox End Class diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 4ecb6d7b..ea8a756c 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -2131,7 +2131,7 @@ Public Class usrCntlSpeditionsBuchSuche ,BelegNr ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart - where EmpfängerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") + where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") Dim Path = "" If dt IsNot Nothing And dt.Rows.Count > 0 Then @@ -2148,79 +2148,217 @@ Public Class usrCntlSpeditionsBuchSuche Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") - With exclApp - .Visible = False + If cbxDetailbericht.Checked Then - Try - Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx" - While System.IO.File.Exists(Path) - Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" - End While - My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False) - Catch ex As System.Exception - ' MsgBox(ex.Message) - MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) - Me.Cursor = Cursors.Default + With exclApp + .Visible = False - Exit Sub - End Try - - Datei = .Workbooks.Open(Path) 'Anpassen - Blatt = Datei.Worksheets(1) 'Anpassen - - Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text - - Dim cnt = 3 - For Each r In dt.Rows - Blatt.Range("A" & cnt).Value = cnt - 2 - Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") - ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") - Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") - Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") - Blatt.Range("E" & cnt).Value = r("Absender") - Blatt.Range("F" & cnt).Value = "" 'r("Betrag") - Blatt.Range("H" & cnt).Value = r("BelegNr") - - Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung Try - Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") - If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then - Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis - Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) - Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL - Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Me.Cursor = Cursors.Default - - '----------------------------------NEW - - Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder - Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung - Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst - '---------------------------------- - - - If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then - Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN - End If - End If - - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + Exit Sub End Try - lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count - Me.Refresh() - cnt += 1 - Next - Datei.Save - If False Then - Blatt.PrintOutEx() - Else - 'Process.Start(Path) - .Visible = True + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen - End If - End With + 'Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text + + Dim cnt = 2 + For Each r In dt.Rows + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + + If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then + + Dim rowcounter As Integer = 0 + + For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows + + Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100 + + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger + Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("BelegNr") + Blatt.Range("G" & cnt).Value = row.Item("PosNr") + Blatt.Range("H" & cnt).Value = row.Item("WarenNr") + Blatt.Range("I" & cnt).Value = "-" + Blatt.Range("J" & cnt).Value = row.Item("WarenBez") + Blatt.Range("K" & cnt).Value = "" + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart + Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang + Blatt.Range("O" & cnt).Value = "" + Blatt.Range("P" & cnt).Value = row.Item("Netto") + Blatt.Range("Q" & cnt).Value = row.Item("PosWert") + Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "") + Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "") + Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "") + Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") + Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender + Blatt.Range("W" & cnt).Value = row.Item("Herkunft") + Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms + Blatt.Range("Y" & cnt).Value = row.Item("Verfahren") + Blatt.Range("Z" & cnt).Value = row.Item("Preferenz") + Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N") + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + + cnt += 1 + rowcounter += 1 + Next + Else + Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100 + + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger + Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("BelegNr") + Blatt.Range("G" & cnt).Value = "" + Blatt.Range("H" & cnt).Value = "" + Blatt.Range("I" & cnt).Value = "-" + Blatt.Range("J" & cnt).Value = "" + Blatt.Range("K" & cnt).Value = "" + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart + Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang + Blatt.Range("O" & cnt).Value = "" + Blatt.Range("P" & cnt).Value = "" + Blatt.Range("Q" & cnt).Value = "" + Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %" + Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") + Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender + Blatt.Range("W" & cnt).Value = "" + Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms + Blatt.Range("Y" & cnt).Value = "" + Blatt.Range("Z" & cnt).Value = "" + Blatt.Range("AA" & cnt).Value = "" + + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + cnt += 1 + End If + End If + + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count + Me.Refresh() + + Next + Datei.Save + + If False Then + Blatt.PrintOutEx() + Else + 'Process.Start(Path) + .Visible = True + + End If + End With + + Else + + + With exclApp + .Visible = False + + Try + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Me.Cursor = Cursors.Default + + Exit Sub + End Try + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") + ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") + Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = "" 'r("Betrag") + Blatt.Range("H" & cnt).Value = r("BelegNr") + + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + + + '----------------------------------NEW + + Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst + '---------------------------------- + + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count + Me.Refresh() + cnt += 1 + Next + Datei.Save + + If False Then + Blatt.PrintOutEx() + Else + 'Process.Start(Path) + .Visible = True + + End If + End With + + End If End If lblKdAusFortschritt.Text = "fertig" @@ -2649,5 +2787,4 @@ Public Class usrCntlSpeditionsBuchSuche End Sub - End Class diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index d676a1e2..29abd36a 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1194,7 +1194,7 @@ Public Class usrCntlUSTV Dim pruefdatum As Date = CDate(f.Datum) - Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz, A.Ordnungsbegriff, L.LandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, + Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz as KundeLand, A.Ordnungsbegriff,L.LandKz as SteuerLandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, CASE WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0 END AS Gültig @@ -1247,27 +1247,27 @@ Public Class usrCntlUSTV Dim attachmentSRB As Boolean = False Dim attachmentBIH As Boolean = False - Dim attachmendSK As Boolean = False + Dim attachmentSK As Boolean = False + Dim attachmentHR As Boolean = False For Each r In dt_Data_selected.Rows - If Not IsDBNull(r.item("LandKZ1")) Then - Select Case r.item("LandKZ1") - Case "HU" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)


    • " - Case "SI" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)


    • " - Case "LU" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)


    • " - Case "SK" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)


    • " : attachmendSK = True - Case "RO" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)


    • " - Case "HR" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Hrvatski)


    • " + If Not IsDBNull(r.item("SteuerLandKz")) Then + Select Case r.item("SteuerLandKz") + Case "HU" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)


    • " + Case "SI" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)


    • " + Case "LU" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)


    • " + Case "SK" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)


    • " : attachmentSK = True + Case "RO" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)


    • " + Case "HR" : TextHTML &= "
  • " & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, " & IIf(Not IsDBNull(r.item("KundeLand")) AndAlso r.item("KundeLand") = "BIH", "trazite da Vam izdaju uvjerenja na latinici da izbjegnete trosak prijevoda na Hrvatski jezik.", "prevedite na Hrvatski") & ")


    • " : attachmentHR = True Case Else - TextHTML &= "
  • " & r.item("LandKZ1") & " (prevod na Engleski)


    • " + TextHTML &= "
  • " & r.item("SteuerLandKz") & " (prevod na Engleski)


    • " End Select - End If - If Not IsDBNull(r.item("LandKZ")) Then - Select Case r.item("LandKZ") + If Not IsDBNull(r.item("KundeLand")) Then + Select Case r.item("KundeLand") Case "SRB" : attachmentSRB = True Case "BIH" : attachmentBIH = True End Select @@ -1276,12 +1276,8 @@ Public Class usrCntlUSTV Next TextHTML &= "

    Molim Vas da nam original uverenja + prijevod dostavite pojedinacno za svaku zemlju, znaci koliko zemalja toliko uverenja I prevoda.

    " - TextHTML &= "U privitku se nalazi primjer uverenja (u smislu sadrzaja)

    " - TextHTML &= "za pitanja stojim na raspolaganju!

    " - - TextHTML &= "Mit freundlichen Grüßen
    " TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
    " TextHTML &= "
    " @@ -1296,17 +1292,27 @@ Public Class usrCntlUSTV If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If + If attachmentBIH Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "BIH_FA_BESTAETIGUNG") Dim filepath = DS.GET_TOP1_PATH(False) If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If - If attachmentBIH And attachmendSK Then + + If attachmentBIH And attachmentSK Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SVK_FA_BESTAETIGUNG") Dim filepath = DS.GET_TOP1_PATH(False) If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If + + If attachmentBIH And attachmentHR Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "HR_FA_BESTAETIGUNG") + Dim filepath = DS.GET_TOP1_PATH(False) + If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + + Mail.Display() Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_FA, "FA-Bestaetigung",,, row.Item(0)) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 99c1625a..88308a30 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -527,7 +527,7 @@ Public Class frmBU_Mahnlauf Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False Case -1 : Mahngeb = 0 Case 0 : Mahngeb = 0 - Case 1 : Mahngeb = 10 + Case 1 : Mahngeb = 0 '10 keine Mahngeb bei 1. Mahnstufe laut Brigitte 29.07.2025 Case 2 : Mahngeb = 20 Case 3 : Mahngeb = 30 Case 4 : Mahngeb = 40 @@ -600,8 +600,11 @@ Public Class frmBU_Mahnlauf Dim Verzugszinsen As Double = 0 Dim Verzugtage = DateDiff(DateInterval.Day, CDate(rpt.Fields.Item("Faelligkeit").Value), Now) If Verzugtage > 0 And Ausstand > 0 Then - Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage - VerzugszinsenGes += Verzugszinsen + If Firma_ID = 19 And MAHNSTUFE > 1 Then 'erst ab Mahnstufe 2 sollen bei MDM Verzugszinsen berechnet werden. + Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage + VerzugszinsenGes += Verzugszinsen + End If + End If End Sub