From b146619697d07889fc6853276b76e817f0c7ce73 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 16 Apr 2026 10:32:04 +0200 Subject: [PATCH 1/2] =?UTF-8?q?KVI,=20EZA=20BEst=C3=A4tigungAnm?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/Resources/KVI_report.xlsx | Bin 10426 -> 10500 bytes SDL/SDL.vbproj | 9 ++++ .../usrCntlSpeditionsBuchSuche.vb | 7 ++- ...TLAS_EZABestaetigungVorzeitigeAnmeldung.vb | 43 ++++++++++-------- SDL/cProgramFunctions.vb | 7 ++- .../cVERAG_CustomsDeclarations.vb | 43 ++++++++++++++++++ 6 files changed, 86 insertions(+), 23 deletions(-) diff --git a/SDL/Resources/KVI_report.xlsx b/SDL/Resources/KVI_report.xlsx index 1f276e6600f09f5c5084654ce20eb3fcd525af96..50716592ecbde3dec14903aefb7f0d20dfd71021 100644 GIT binary patch delta 4290 zcmZ8lWmFUj(_Ugh8kUvjvcQreth6*z(p^g<(nyCAD@#htBAp`L-LOh`yCB_2NQsod z>%HGO-#za;zvfJw`7>vp=b2XRP@QTL0>l$_{Ej zynZgu<@)Nb`7rX1s``5@_aaN|(2oh+1SP^cz7HFget}9n&;$l(TbJoirPnLI#LNyE zs!e9NcXWP10%sD$ygo0jBtXnub~W$D7^WdSTeL6t=Y9wJJA@T7KeVOg6=kitLdbu5 z{p9zZOZAp@-DbcG0032!_DEl$@$qzKl2P_a6s)?unX?92Vzf{T!nNb)kpB>ND5hbV zlFDDF5ZR*yyL430O+2pWCD45w2>}|&SZvoPGQ!h>a4UPPbqx)Mh6y3b^|^Z`SVFP< zv9?ZqKy#|qU!+%k8fZpz2!s71;uQxh%UOR)&u!3fk2v=*`RBX)ff|Z8l*lCqVyW=W zd8C9+RyWQgihx9YH#A|K<-ip`9kzoI{2jzENB)d#(bQAaXcD>DFeT)sfBU6iOwWoA znCzIYtx!96(4FKu=#JG6@)oLez%sy`WTNXM@SlzY)gTx7&nP}uvrvv9z|UPYZ_8>O zt2v(HQ_y2JHPwN^bvPhw-`rk@&=ik2{Z}&|BS)d|7$dxXMc!>>6_8g|MSk>ablb@~ zdyAL^M*bB3NuJky5R{W0j38&%@HTahR2Xhz?20Fvpwi~(YysiL*bP2}uHs2Q6N7x8 zzpEdEEEiv(btv*8>;w^n9jZ;fufnW$;pVQ$@`*FbN4v2_fkj7ZAvUMjW04S*r`r&oMlJn{&;@GVoU1?nhQ)_XUQUx^Bs-u+|S=8sns>qA;F&r+2bUa z&lcDd-^t!m^Y7dW+u_|T+<{Z_xfcZ?($)Gq$6_mgPu>?JVlVT5q&<+JZ48&h<6j<4 z{O*?s5Ia=eXsp}3+1{U3$L<;WQ2LA1ZjgejWq74)IFbg6ndF&&BGTlb@+QJya!zEo zNB7F|;jnuUEMfH-sMSAwDG1G6S8R7xp7oh(d3l(avuP1Nu*Z%_E!XGO-DbhZCgpktP7(846V1XO} zAo;&5>FM>_`K9OIH*(Qv>D7WTxRa^cmmF+qh&rcKu8}ZSa8Z&8enpc&JlFe*^Ih#b zollCBC5zS~{@IeV*)|bL&cn*dbFbd}wABo-o^JG?6?rmrIX-e+w3;LzD=ZZEP{XOq zqz-*tw9VI4f)EmpRb(-M4AEw%(=Vo0CAxOKqi@N(v<<5f1R#ZUJ=tDL)*P~1tPu*a zn!mtvRpI4^T5%`)=n}<5DY}#vA3oKvH;jbU$))ODJ%Ky~9er*1a8|0AXcG!*nKUZY z-a?6}_5p`DwOq`YwiNfnzX-rV z7STTKA#F|TYS0y`%Q()nH06=6`tZTNfva?7*p7ycm+LYZLL4}~Th6}&-2J|O6HR2d zDcVK5a@)Cm8qszCyNo{72ecq*14_v}d@rem)H&K@+&D5WHTUi>(N|s!fc+o`zAJ-y zXtcl(&}Lv}AsexNv&j>sBpYP$OSaMnOJ3HR1oa%}``p+*v!Sh&tt)C3*B5mR4Qtcm zwdb?JkUXy<6DF@RTxH@{oHdqQYB50pZ6#}^#4LsR;*C2)kb*bZDB#Zc|BH@K;s9 z&JbC<7X2|8J6#FYLrV?(l%GfB`w?2$oP@SW*iw;Xt6CG;(0Mk%?k+o#C?G#e(jt_x_d0SJ)%hEv52e^?a4Xq$+|~`scO(j{^R? z`Rk{3W_%Rpz7GF;6oKO>S!N%t@IyjwxexogXNpakAKwb+S4G7* zt8;=g;=xvL;q^DQ8kkO<^S7<53t2c!$=E6O>RX3Dwq_RN5j{X-!{eoW!&^1PkLDS2 zT~FztvQkYEy)Z%Wb65IZpH+u)U|Kp;m7U?_y4ZPnjR3vL9UEymXX@i}bj~U_h(%UDFLV6L7X>MCPFKuy zCL726)l=wmsyyj7(kV-{q-Y(Rg|{>2P|QL>D)qUJmCD>#0}~>W0!wJBlskdH6M_GI zmHa8$KLA1qizNI=2Lu3$DN&Mi5QK?mzA!lGNbMe{+n*S;x-hrwE}|~t(xfgj_-a9f zcDRxKEe-QdZPwkzU%|MF6EksbC?Ktr6l0cWXa4ZPl4rVTydF5l&XbxX0F!4tg5g;h zTe@j0i>}!RC)zkA9>$s8)gm{MXm>=CrvPEeE1n+EDyCZ_Fu<5cVojSmO?O zuEM6DB%CYE?7!9`W1+iPG=wOsLzMl(kAj?5C7XpOJ2NFb=-N(|frKE9j$pRj# z_Eq|)0NbkC7V+QjL{6TYA_Tnq5nvKRNm-^eLQA=@6@dy47yK z8nZr7VxIpB61ycRI)GM!=x4+XAc#escCC}9sOHHMN- zA!`GkFI9SJNfifja9JT-o6$p`C%g^n6Aabd+cetwpqjD3^g8R1)ep{Yh$*UY9PqW= z?v0mlr1>D8?yvcT_=LE(w5C~MSfm516~V>YKrxPsYV9yb!55PG zGgho*v%7l-p;6{3KXHsRQ66)}&xF!zgZeUG$OqGF=hkf#=yR4ilxqVOcSgW-19Cz? zbD4cLax4(BoX4L7CSB*9>gp-5rO2^GkGwo%$d7}`6?a6rVJcd&Z~|9jaT+Y#SO7A& zO0RRh7!B=mw0Bb60Uzg@PYDjL2rS9*nAZ(K116vWGa_dlecIG_Rxqgvl0Et?_>sYI zpNG1?GSqkk7vW*K16Y3S@$r|Hed$3k9&yE93j$uBOw+(alIxsmc&>B4Vo+Kwum4lE zSK4mnG5F&bKYkWI9SEr5!I$Ylf{_Hd6?(8cMg(25vzW5UohZ z0mP@JQS~qxw=(8|FTV?)K&A^h9%)NC5QCG$`@byy3Z3V_ti-o2m<}ZC87dk#J7Re> zX7R?Tobzt^oUiuFrIO|Yo}Jry60F8&9W!DQ#FUN5ju{nat8y#81}dvo`*oYwt|ha@ zjfCpC&LQ=X*{N1Mpn+ftJkcfL;dlWR+grrUk7gb*c-Sl}8F$wFv0;HGBXI!KdbswB z@@}7VC8M@W*Kk%N>+4G4CCB{Mb&&ALHimTUBWIE@0?_CxnzD`WRTayz!P*HllbAut z&3m>c!v<~C`5*v7q3bQrQi+*eQw;2Dyu|;Ta04TTtaa_`beK4>5USlUny@3_z1(16 zhE0W>+`<}u+c!%~g%e)(qeknDWN6(&m&mPAmZu-aW9-IljQPabf@+!C9%aZaD+n3D zVdG9KQ%9QDwjiP7F8hM1k_LojU)dncDsn6Nbw zn@F%HCr9NYGmm{l&^aE)G~kqEm4I2-6uFgX5@(WY5ic(YDWG|Ou0hQxLr4rv$}Rsa zn0wjpB%89mE?bl-I=uLoBgP@pe<=AQwbI4%W`2!BdM-g54X<>s>u|59;q176+Xp~W zpAIZ9ctNG;LZy{&XX7`#U^1f=vuW_oS7BWqcrj?_W zqe#of6E&xP`PatU4||WiR+4KQh$JTJoSxwW=JFs*ZaJi|IayGWoVr-&sP~+# Kcmr&ISNsRv?Du#8 delta 4191 zcmZ9PXEYp&632J3N)W3>jTS8ttg^~Qln7zf)m!vvYqjWQwXBE|EOON-i73&RXd!xu z7DQQOl_e2%iQeA5_nq_ZId8tqeE83YIdjhZe-jIDF|47bLT&rguWXP20K?<}0384T z2ttSldii=dczJn<1$iPqn9L)KA>eRZw`(9#uX91o@Nq_k3_OszVev=+z81;&A#wy) zqGfW352WG!M0htZMuI0#9vkMQyG#hTV5L)kJY?ZeB-JlX2@BSk6O=&Vhd&HRzwNr; z4RYa^;EqR0i<9F!4g;+bX1QLp06R$uzjx)cjn3H^hA&c2=*csoECQwwW)3UU=p~)? z*wVThn|`Wo2BW8ql(i?6f48p(!s;ro(gGtw!Hj!{<24 zgnGQKa#>O5Uehm6LC;}E(ANb;)sr%i1QztVC7St0nINZ%9uI4^an{i!Cs~V;;VG>% z(_dtJW_~PQJ0$F%Skn)Bq%t&z3BbZa$gfoYl>6pW%X>={A8_$NOvS1v@8p&?DQ6z6s#2EVsFF>0z4%k~m$z$@F<&M|P#j`M zB9gj`WN=-t8jVfaphqvGd4#{Vl*<6g{rf{$B*qLdpLe>MST@vHTRfi7EC8ThDW6)> z-N)m&j5VWp_Vet=&x9ANi~UAT0z#iP z`~gU#jYu7SU#}h|TZoPL_&5U5VPhlo()=7g)7j0p5t%lBaoL*qB4aAVl0S5PT~K#$ ztJ5tTP2Q$n9;sK)>GK*MQ-FfuNNXx4_3P(ePq}R}I;(94r-o(LR(|ZT627t_u+1s1 zUbwZ4!bj_|%K24XHjF9X;8KYXVUPxmZTZDW8iBnJb6iDjd_i>zbSe4S!19cM*SOl6 zVpCP!eA$XutEnEM=3$!=z&_W30#Ee5L0KGFoBcSG?D zBM#oqBYWe?&~-GsXAdmqK~N+=w{d?}|3@r?bG`oVtC#`$DU3I8jEW^T^cxYhJ*tt& zWV@R$o~`Lw&|>+>*Xe;B4;=M*=ZKy~WQjVpayAvqrc<+>{Q?hF1AQt22RkNps?4qA zw1?GQDIW#sWttQ2hG2Bo{Y-99>(u7BizxUmcfQ(Zh7=^++6$|mZV+aJ@jsETpz4|a zLf+o!bPuI@#eyj$Wx}utf$QyWHd0XabiNoSBLe`KFg&-IP*Y}$$axv2cJ7)$Fq54b z=Fm~AR?*_owz^6bk~M{9wihWJUl$L5tNFET!Cp2z|G~F>r?_;)pjPHAGBrR}Cirp0 zMbOnVy^Hd)QlGd-x^g*LI|CB5!@f_zjk#GJizU-N((du*QNk`kPmw;J?b_|vVpVII zD>=-4697t6)Yx!F`evEu%;^oYQZ6F&X${=hkeAA+7Q5N-xwQ0K;Y(cpYHYxBN-3*Y zw+wDlI4==d-{||KGL@gLP#p=)bTdBvJ(A`VC3(Y`V@9+2Yg6G~qQ;ik*9nSaV}6#l z^>>`Ws*x{ggcIJyfn-Gb@#Dxat~8F>5J&8O!y$$``?2~yzz(N{2u#tk_MN^HT0r*h z`-VavzTQ~0VW!MR%NhmQ0fXWzAijFd5dJ36LWuy4Nz-DjO1e{Ysi#0Wtjsu6+**@EC<@8@V*sVL9jN&PLR&B-otb$C71}R)?cULD78P;mkZN#Ro z1GCr-eR>QpsN4kgbC=2sJa?$Ib_FFk%ScU5`6voaiI25_x^67kL6pp&WIa=1eJWb% zGO*ZDAte};#y>Q9--V!QC`}X(|1m+=X25~kVvw>v|R&ocBO&w zxw5)PZCs5bWN4#F!)QlbPHtPXe;mgxJ07C@u>(;~lVB`l%lxeJH&g&-x@?1toJD!O z|3%HCRi$(0Ilvc#`wyaykCFKIh2dcA~Qi4Ft!37g{9*JbskD84zIO#S|~#c!({ zABPT4@B6&jsUPr!jxFNn;qd~@`Qm$}@h^qJ!TgD#gs*I8Gj8b32Zf#`a+WTy;s_Sm zif_&!-W}uz6sg3ps#BEfIX3rn}$KgrYnm-HR41!y2 zbF(f_T&z=cLEMSRnQB5Zj8;PGoM>gz*j!kyQdk#c^)Lr;-KUX~bvko+fs$-#(NpqR z85YV^?u%ju9f*kRu^d!XNJnP}5RVI7(M6yXCF8kg4_MqeKuzm5reF0TfnEjUU*IlS*003D3Wh6gWXXj^r;{POx ze_+Yn6O$tYzWSbZMS!_ zwrR~gY?+!O+Xo-8I^WxRQV)ks1f3)sw8k1l^J9JQrX5a2pu(D(*>R>N7IjXkIww;R zYgw01k1hi-dB*y4Xg^P&TAJ>5()3?*)_He3W*#~XF$UG8-FwO&QQm-g_p;vk3eG7% z<$ta>tnR=<>F7^`wysnksCI5j3NE4s_ueV#yhhxa7%u2tmhhG^(x3l*FWu(`n3|sI zGCKxm%9-qinu#|?(08`kz8F*6eALPP{5qdaumjJ2_f}zAmh}b~kHYh@?TuHtsoh;S z%9O5)?OyB(U)_g9LYb7t1Q?9XvE&D%WSeGoP1f#h%wNhbKU!V2MrSVdR*J9BDIX!y z4hVW9f_JSBLaVqZ6`U($BT@prNt@gi>f?WBDKAO|A&C_c9A+?-{tS0fMXv7w)bC9d=q=e4( zIN^O`Jj#_=Mf%p>cix_Xv*=<$#?Aak(Qwp?5V?=y(KTkp z(&yr-83%wFgFn6hZ0(9xG0I9ok8r=EEiL9MQ%$FPN1KA}bDLcVjBQ@tdl;t`qxb5z zAnk*2M75Y(iG_MMlg#+ldBT_;Xr_7Z;SQ{nk-BwKI{S5@? zclIxn?Y`b`ZP$J@qV8z(~C9q*!x`WEJf>9&jE+oA`MImA1#fn!oY4KKXjH$d|dDm?Z zd|5*1Xyyw4&7Bxg^3{kA?(J0>^q4+z)0a49N=ve z+x`6ZL58k!c>O!u3WC{%YG#KYD zDwaN0@ZY!=N`9CY>y(DEx}_U7 zAmu=rzC#`%@VERw74Oxw diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 47ba8bbd..43e4562d 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -1446,6 +1446,12 @@ UserControl + + usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb + + + UserControl + usrCntlATLAS_EZA_DV1.vb @@ -3924,6 +3930,9 @@ usrCntlATLAS_EZA.vb + + usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb + usrCntlATLAS_EZA_DV1.vb diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 8119fff4..e417bf5a 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -2,6 +2,7 @@ Imports System.Globalization Imports GrapeCity.ActiveReports.Viewer.Common.Internal Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat Public Class usrCntlSpeditionsBuchSuche @@ -3590,7 +3591,7 @@ Class cSpeditionsbuchReport datei = exclApp.Workbooks.Open(path) blatt = datei.Worksheets(1) - + CreateGeneralReport(blatt, dt, KDNR, AbfVon, AbfBis) @@ -3704,7 +3705,7 @@ Class cSpeditionsbuchReport If(r("FilialenNr"), "").ToString() & "/" & If(r("AbfertigungsNr"), "").ToString()) End If - + 's WriteDetailReportRow(blatt, r, cd, cnt, kdnr) Catch ex As Exception @@ -3797,6 +3798,7 @@ Class cSpeditionsbuchReport blatt.Range("AB" & cnt).Value = item.zaItem_MainProcedure & If(Not String.IsNullOrWhiteSpace(item.zaItem_AdditionalProc), "/" & item.zaItem_AdditionalProc, "") blatt.Range("AC" & cnt).Value = item.zaItem_PreferenceCode blatt.Range("AD" & cnt).Value = If(IsItemCBAM(item), "Y", "N") + blatt.Range("AE" & cnt).Value = item.GetInvoiceListString() cnt += 1 rowcounter += 1 @@ -3833,6 +3835,7 @@ Class cSpeditionsbuchReport blatt.Range("AC" & cnt).Value = "" blatt.Range("AD" & cnt).Value = "" + cnt += 1 End If Else diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb index 98628eab..5c727746 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb @@ -94,7 +94,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung Me.Refresh() Me.Cursor = Cursors.WaitCursor - If sentToDakosy OrElse vbYes = MsgBox("Soll die Ankunftsanzeige abgeschickt werden?", vbYesNoCancel) Then + If sentToDakosy OrElse vbYes = MsgBox("Soll die Bestätigung der vZA (ATB Ergänzung) abgeschickt werden?", vbYesNoCancel) Then ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID) 'loadDYZollanmeldungen() Dim dy_Id = -1 @@ -127,7 +127,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung End If - If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then + If generateBestaetigungVorzeitigeAnmeldung_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then If saveFile <> "" Then '------------------------------------------------------- @@ -135,7 +135,6 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. MsgBox("Gesendet!") - createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR) Else 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) MsgBox("Sendefehler!") @@ -157,43 +156,48 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung - Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean + Shared Function generateBestaetigungVorzeitigeAnmeldung_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean Dim Interface_VERSION = "003" Dim ObjectAktion = DY_ACTION ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH" + Dim Bearbeiter = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB - Dim XML As New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.EingangsanzeigeEATyp + Dim XML As New DAKOSY_Worker.BestaetigungVorzeitigeAnmeldung_003.BestaetigungVorzeitigeAnmeldungAZATNTyp 'Transaktion: - XML.Transaktion = New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.TransaktionNCTSTyp + XML.Transaktion = New BestaetigungVorzeitigeAnmeldung_003.TransaktionFreierVerkehrTyp XML.Transaktion.IOPartner = IOPartner 'SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") XML.Transaktion.IODatumZeit = Now XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS") If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 '"SUW" XML.Transaktion.Version = Interface_VERSION ' XML.Transaktion.IODivision3 = IODivision3 - XML.EinzelEingangsanzeige = New EingangsanzeigeNCTSDE_003.EinzelEingangsanzeigeTyp + XML.EinzelBestaetigungVorzeitigeAnmeldung = New BestaetigungVorzeitigeAnmeldung_003.EinzelBestaetigungVorzeitigeAnmeldungTyp 'ObjektIdentifizierung: - XML.EinzelEingangsanzeige.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" - XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp - XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer - If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS + XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung = New BestaetigungVorzeitigeAnmeldung_003.ObjektIdentifizierungAZATNTyp + XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektName = Bezugsnummer + + If BezugsnummerALIAS IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAlias = BezugsnummerALIAS Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) - XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion - If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.Bearbeiter = Bearbeiter - If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung + If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung 'TransitOperation: - XML.EinzelEingangsanzeige.TransitOperation = New EingangsanzeigeNCTSDE_003.TransitOperationEAType + XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten = New BestaetigungVorzeitigeAnmeldung_003.KopfdatenBestaetigungVorzeitigeAnmeldungTyp 'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch - If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1 - XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now + 'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.MRN = SND.tblSnd_ATB_T1 + XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.AnmeldenderBearbeiter = Bearbeiter + XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.TelefonnummerBearbeiter = "" + XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.StellungAnmeldenderBearbeiter = "Zolldeklarant/in" - XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N" + ' XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.IncidentFlag = "N" @@ -202,7 +206,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung System.IO.Directory.CreateDirectory(saveDir) End If - saveFile = saveDir & "DY_AA_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + saveFile = saveDir & "DY_BvZA_" & Now.ToString("yyMMdd_HHmmss") & ".xml" XML.SaveToFile(saveFile) @@ -211,6 +215,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung Return True End Function + Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double) Try diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index 8b3b35b5..01dee42b 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -67,7 +67,10 @@ Public Class cProgramFunctions rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize End If + 'MsgBox(rpt.Document.Printer.PaperKind) + 'MsgBox(rpt.Document.Printer.PaperSize.ToString) + 'Return False rpt.Document.Printer.PrinterSettings.Copies = 1 Dim dt1 = Now @@ -83,9 +86,9 @@ Public Class cProgramFunctions Return True Catch ex As Exception Try - MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind, System.Reflection.MethodInfo.GetCurrentMethod.Name) Catch err2 As Exception - MsgBox(ex.Message & err2.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(err2.Message, err2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Try diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb index 38256b5d..89172bb7 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb @@ -685,6 +685,27 @@ Public Class cVERAG_CustomsDeclarations End Sub + + Public Function GetInvoiceListString() As String + If Documents Is Nothing OrElse Documents.Count = 0 Then Return "" + + Dim result = Documents. + Where(Function(d) Not d Is Nothing AndAlso + (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")). + Select(Function(d) + Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim()) + Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim()) + + ' Format: "Datum Referenz" + Return (datum & " " & ref).Trim() + End Function). + Where(Function(s) Not String.IsNullOrWhiteSpace(s)). + Distinct(). + ToList() + + Return String.Join(", ", result) + End Function + Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal Try If EORI = "" Then Return 0 @@ -1094,6 +1115,28 @@ Public Class cVERAG_CustomsDeclarations_Item Return result End Function + + + Public Function GetInvoiceListString() As String + If Documents Is Nothing OrElse Documents.Count = 0 Then Return "" + + Dim result = Documents. + Where(Function(d) Not d Is Nothing AndAlso + (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")). + Select(Function(d) + Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim()) + Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim()) + + ' Format: "Datum Referenz" + Return (datum & " " & ref).Trim() + End Function). + Where(Function(s) Not String.IsNullOrWhiteSpace(s)). + Distinct(). + ToList() + + Return String.Join(", ", result) + End Function + End Class ' ########################################################## From 047b9140f9d3a896178ad4e50020812a67650b86 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 16 Apr 2026 15:54:45 +0200 Subject: [PATCH 2/2] MHan --- SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb | 55 ++++++++++++++++------ SDL/buchhaltung/frmBU_Mahnlauf.vb | 51 ++++++++++++++++---- SDL/buchhaltung/rptMahnung.Designer.vb | 14 +++--- SDL/kunden/frmKundenblatt.vb | 2 +- SDL/kunden/usrCntlKundenuebersicht.vb | 2 +- 5 files changed, 91 insertions(+), 33 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb index 0f250c3d..1e6a13d8 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb @@ -22,9 +22,9 @@ Partial Class frmBU_Mahnlauf '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(frmBU_Mahnlauf)) Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxNewDGV = New System.Windows.Forms.CheckBox() Me.lblBetreuer = New System.Windows.Forms.Label() Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -43,7 +43,7 @@ Partial Class frmBU_Mahnlauf Me.pnlTop = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel3 = New System.Windows.Forms.Panel() Me.Label9 = New System.Windows.Forms.Label() Me.cbxMahnsperre = New System.Windows.Forms.CheckBox() @@ -64,7 +64,8 @@ Partial Class frmBU_Mahnlauf Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxNewDGV = New System.Windows.Forms.CheckBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.cboFilterOP = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel1.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel2.SuspendLayout() @@ -97,6 +98,19 @@ Partial Class frmBU_Mahnlauf Me.Panel1.Size = New System.Drawing.Size(1514, 132) Me.Panel1.TabIndex = 0 ' + 'cbxNewDGV + ' + Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxNewDGV.AutoSize = True + Me.cbxNewDGV.Checked = True + Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxNewDGV.Location = New System.Drawing.Point(1225, 54) + Me.cbxNewDGV.Name = "cbxNewDGV" + Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17) + Me.cbxNewDGV.TabIndex = 51 + Me.cbxNewDGV.Text = "neue Ansicht" + Me.cbxNewDGV.UseVisualStyleBackColor = True + ' 'lblBetreuer ' Me.lblBetreuer.AutoSize = True @@ -356,8 +370,10 @@ Partial Class frmBU_Mahnlauf ' 'Panel3 ' + Me.Panel3.Controls.Add(Me.cboFilterOP) Me.Panel3.Controls.Add(Me.Label9) Me.Panel3.Controls.Add(Me.cbxMahnsperre) + Me.Panel3.Controls.Add(Me.Label10) Me.Panel3.Controls.Add(Me.btnMail_Intern) Me.Panel3.Controls.Add(Me.Button7) Me.Panel3.Controls.Add(Me.btnKunde) @@ -626,18 +642,25 @@ Partial Class frmBU_Mahnlauf Me.MyTextBox2.TabIndex = 39 Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'cbxNewDGV + 'Label10 ' - Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cbxNewDGV.AutoSize = True - Me.cbxNewDGV.Checked = True - Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54) - Me.cbxNewDGV.Name = "cbxNewDGV" - Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17) - Me.cbxNewDGV.TabIndex = 51 - Me.cbxNewDGV.Text = "neue Ansicht" - Me.cbxNewDGV.UseVisualStyleBackColor = True + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(391, 33) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(89, 13) + Me.Label10.TabIndex = 52 + Me.Label10.Text = "Filter Bemerkung:" + ' + 'cboFilterOP + ' + Me.cboFilterOP._allowedValuesFreiText = Nothing + Me.cboFilterOP._allowFreiText = True + Me.cboFilterOP._value = "" + Me.cboFilterOP.FormattingEnabled = True + Me.cboFilterOP.Location = New System.Drawing.Point(394, 50) + Me.cboFilterOP.Name = "cboFilterOP" + Me.cboFilterOP.Size = New System.Drawing.Size(140, 21) + Me.cboFilterOP.TabIndex = 53 ' 'frmBU_Mahnlauf ' @@ -704,5 +727,7 @@ Partial Class frmBU_Mahnlauf Friend WithEvents Label9 As Label Friend WithEvents lblBetreuer As Label Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox - Public Shared WithEvents cbxNewDGV As CheckBox + Friend WithEvents Label10 As Label + Public WithEvents cbxNewDGV As CheckBox + Friend WithEvents cboFilterOP As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 678396b4..2ffd9650 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -280,6 +280,14 @@ Public Class frmBU_Mahnlauf 'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO")) cbxKontotyp.changeItem("Alle") + + cboFilterOP.Items.Clear() + cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA-LEIHGELD (4813)", "*LG_4813*")) + cboFilterOP.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA-LEIHGELD (4806/4813)", "*LG_4806_4813*")) + cboFilterOP.changeItem("") + + cboBetreuer.Items.Clear() cboBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True) @@ -362,15 +370,31 @@ Public Class frmBU_Mahnlauf and (si_mahnstufe >0 AND si_mahnstufe is not NULL) " & IIf(MahnsperreBeruecksichtigen, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()" Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0) End Function - Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean + Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True, Optional bemerkungSrch() As String = Nothing) As Boolean + Dim bemerkungFilter As String = "" + + If bemerkungSrch IsNot Nothing AndAlso bemerkungSrch.Length > 0 Then + bemerkungFilter = " AND (" & + String.Join(" OR ", + bemerkungSrch. + Where(Function(x) Not String.IsNullOrWhiteSpace(x)). + Select(Function(x) + Dim val = x.Replace("*", "%").Replace("'", "''") + Return "c_bemerkung LIKE '" & val & "'" + End Function) + ) & + ") " + End If Dim sqlStr = "SELECT c_urbelegid OP_Typ,d_rechnung Rechnungsdatum,d_netto Faelligkeit,dec_fremdbrutto Rechnungsbetrag,c_bemerkung Bemerkung,dec_fremdzahlung Zahlung,dec_fremdbrutto+dec_fremdzahlung Ausstand,c_waehrung Währung,si_mahnstufe Mahnstufe FROM op_debitor OP WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) and i_personenkonto='" & KdNr & "' " & If(hideMahnstopp, " and isnull(si_mahnflags,0) <>(1) ", "") & " + " & bemerkungFilter & " order by d_rechnung" Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim dtDataSource = SQL.loadDgvBySql(sqlStr, "FIBU") + If dtDataSource Is Nothing Then If showErr Then MsgBox("Keine Daten vorhanden!") Return False @@ -1339,15 +1363,23 @@ Public Class frmBU_Mahnlauf i += 1 Next - - If sender Is Button5 Then doZahlungserinnerung(Me, "OP", KontoList, cboFirma._value, MyComboBox2._value) - If sender Is Button4 Then doZahlungserinnerung(Me, "ZE", KontoList, cboFirma._value, MyComboBox2._value) + Dim bemerkungSrch = Nothing + If cboFilterOP._value <> "" Then + Select Case cboFilterOP._value + Case "*LG_4813*" : bemerkungSrch = {"%4813/%"} + Case "*LG_4806_4813*" : bemerkungSrch = {"%4806/%", "%4813/%"} + Case Else + bemerkungSrch = {"'" & cboFilterOP._value.Replace("*", "%") & "%'"} + End Select + End If + If sender Is Button5 Then doZahlungserinnerung(Me, "OP", KontoList, cboFirma._value, MyComboBox2._value, bemerkungSrch) + If sender Is Button4 Then doZahlungserinnerung(Me, "ZE", KontoList, cboFirma._value, MyComboBox2._value, bemerkungSrch) End If Me.Cursor = Cursors.Default End Sub - Shared Sub doZahlungserinnerung(MainForm As Control, art As String, KontoList As List(Of String), Firma As String, Mahnstufe As String) + Shared Sub doZahlungserinnerung(MainForm As Control, art As String, KontoList As List(Of String), Firma As String, Mahnstufe As String, bemerkungSrch() As String) Dim fProgBar As New frmBU_Mahnlauf_Ausgabe_Ladebalken Try @@ -1355,6 +1387,7 @@ Public Class frmBU_Mahnlauf Dim srchPrinter = oPS.PrinterName + Dim forceMahnstufe As String = -2 Dim hideMahnstopp As String = True Dim gesAnz As Integer = KontoList.Count @@ -1367,7 +1400,7 @@ Public Class frmBU_Mahnlauf Select Case getAusgabe(MainForm, False) Case "PDF" If KontoList.Count = 1 Then - doMahnung(3, KontoList(0), Firma, art,, srchPrinter, forceMahnstufe,, hideMahnstopp) + doMahnung(3, KontoList(0), Firma, art,, srchPrinter, forceMahnstufe,, hideMahnstopp, bemerkungSrch) Else Dim PDF_LIST As New List(Of String) fProgBar.Show(MainForm) @@ -1375,7 +1408,7 @@ Public Class frmBU_Mahnlauf For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows Dim Path = "" - If doMahnung(4, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp) Then + If doMahnung(4, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp, bemerkungSrch) Then PDF_LIST.Add(Path) End If cnt += 1 @@ -1399,7 +1432,7 @@ Public Class frmBU_Mahnlauf fProgBar.Refresh() For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows Dim Path = "" - doMahnung(2, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp) + doMahnung(2, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp, bemerkungSrch) cnt += 1 fProgBar.progBar.Value = cnt / gesAnz * 100 fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz @@ -1409,7 +1442,7 @@ Public Class frmBU_Mahnlauf fProgBar.Show(MainForm) fProgBar.Refresh() For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows - doMahnung(0, konto, Firma, art, , srchPrinter, forceMahnstufe,, hideMahnstopp) + doMahnung(0, konto, Firma, art, , srchPrinter, forceMahnstufe,, hideMahnstopp, bemerkungSrch) cnt += 1 fProgBar.progBar.Value = cnt / gesAnz * 100 fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb index 4b05c4d9..cffe3d10 100644 --- a/SDL/buchhaltung/rptMahnung.Designer.vb +++ b/SDL/buchhaltung/rptMahnung.Designer.vb @@ -198,7 +198,7 @@ Partial Public Class rptMahnung "ar-set: 1" Me.txtLeistung.Text = "2188888888" Me.txtLeistung.Top = 0! - Me.txtLeistung.Width = 0.7429134! + Me.txtLeistung.Width = 0.7874016! ' 'Line10 ' @@ -232,7 +232,7 @@ Partial Public Class rptMahnung ' Me.Label15.Height = 0.1570866! Me.Label15.HyperLink = Nothing - Me.Label15.Left = 1.165748! + Me.Label15.Left = 1.212599! Me.Label15.Name = "Label15" Me.Label15.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & "char-set: 1" @@ -244,7 +244,7 @@ Partial Public Class rptMahnung ' Me.Label16.Height = 0.1570866! Me.Label16.HyperLink = Nothing - Me.Label16.Left = 1.855906! + Me.Label16.Left = 1.883071! Me.Label16.Name = "Label16" Me.Label16.Style = "color: DarkRed; font-size: 9pt; font-weight: normal; text-align: center; text-jus" & "tify: auto; ddo-char-set: 1" @@ -1165,24 +1165,24 @@ Partial Public Class rptMahnung ' Me.lblRgDat.Height = 0.1811024! Me.lblRgDat.HyperLink = Nothing - Me.lblRgDat.Left = 1.165748! + Me.lblRgDat.Left = 1.212599! Me.lblRgDat.Name = "lblRgDat" Me.lblRgDat.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" Me.lblRgDat.Text = "Rg.datum" - Me.lblRgDat.Top = 0.791! + Me.lblRgDat.Top = 0.7909449! Me.lblRgDat.Width = 0.6614173! ' 'lblFaelligkeit ' Me.lblFaelligkeit.Height = 0.1811024! Me.lblFaelligkeit.HyperLink = Nothing - Me.lblFaelligkeit.Left = 1.855993! + Me.lblFaelligkeit.Left = 1.883158! Me.lblFaelligkeit.Name = "lblFaelligkeit" Me.lblFaelligkeit.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & "ar-set: 1" Me.lblFaelligkeit.Text = "Fälligkeit" - Me.lblFaelligkeit.Top = 0.791! + Me.lblFaelligkeit.Top = 0.7909449! Me.lblFaelligkeit.Width = 0.6614173! ' 'lblReBetrag diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 82456ca0..8248f658 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -2028,7 +2028,7 @@ Public Class frmKundenblatt Else Dim KontoList As New List(Of String) KontoList.Add(KUNDE.KundenNrZentrale) - frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "") + frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "", {""}) End If End Sub diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 1659f777..ad3f1deb 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -3525,7 +3525,7 @@ Public Class usrCntlKundenuebersicht Else Dim KontoList As New List(Of String) KontoList.Add(KUNDE.KundenNrZentrale) - frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "") + frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "", {""}) End If End Sub