From 91a87172109cf55096e9a58bb5eb024cefd3f9cf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 26 Sep 2025 16:00:31 +0200 Subject: [PATCH] Mailsender --- MailSender/MAILSender.vb | 108 ++++++++++++++------ MailSender/Resources/Auswertung_divers.xlsx | Bin 10116 -> 10171 bytes initATLASAufschubkonten/frmStartOptions.vb | 88 ++++++++-------- 3 files changed, 121 insertions(+), 75 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index debee27..636694a 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -3,7 +3,6 @@ Imports System.IO Imports System.Net Imports System.Net.Mail Imports ClosedXML.Excel -Imports com.sun.xml.internal.rngom.digested Imports DAKOSY_Worker Imports VERAG_PROG_ALLGEMEIN @@ -52,7 +51,7 @@ Module Mail 'PARAM = "UID_OPS_SYSKA_ABGLEICH" - 'PARAM = "JAHRESABRECHNUNG AG-ZS" + 'PARAM = "BERICHT" '------------------------------------------------------------------------------------ @@ -2581,7 +2580,7 @@ Module Mail ,Absender ,Rechnungsbetrag Betrag ,BelegNr - ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land + ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land, Speditionsbuch.[LKW Kennzeichen] FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart where EmpfängerKundenNr IN (" & KdNr & ") and VermittlerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") @@ -2746,39 +2745,90 @@ Module Mail Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen - Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString - 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") + If KUNDE.KundenNr = 902452 Then 'KUNDE WILL WIEDER EXZTAWURST!!!!!!! + + Blatt.Range("H1").Value = von.ToShortDateString & "-" & bis.ToShortDateString + + Blatt.Range("A" & 2).Value = "Nr" + Blatt.Range("B" & 2).Value = "Datum" + Blatt.Range("C" & 2).Value = "MRN-Nr." + Blatt.Range("D" & 2).Value = "LKW/Cont." + Blatt.Range("E" & 2).Value = "Rg.-Nr." + Blatt.Range("F" & 2).Value = "EUST" + Blatt.Range("G" & 2).Value = "Anzahl Pos." + Blatt.Range("H" & 2).Value = "" + Blatt.Range("I" & 2).Value = "" + Blatt.Range("J" & 2).Value = "" + Blatt.Range("K" & 2).Value = "" + Blatt.Range("L" & 2).Value = "" + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = r("BelegNr") + Blatt.Range("D" & cnt).Value = r("LKW Kennzeichen") + + 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("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + cnt += 1 + Next + + Else + + + Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString 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.RechnungspreisohneWahrung - 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 - If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then - Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + 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("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") + + 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.RechnungspreisohneWahrung + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If End If - End If - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + cnt += 1 + Next + + End If - cnt += 1 - Next Datei.Save() .DisplayAlerts = False .quit() diff --git a/MailSender/Resources/Auswertung_divers.xlsx b/MailSender/Resources/Auswertung_divers.xlsx index 023087971f6554c2121384ffd3404a37737a7b39..8cbc13d67a3b8a1fd7c9a6db78e529995aa098cd 100644 GIT binary patch delta 3732 zcmZ9PWmwY>*T)9}qb4H;j;;+xhtdOw0@C#d36<_1oj)m+5Rgf?gdl>1P61JdG>Aw@ zj7~?Rbotyq_x(K2bv@_Jd2_yR&bdC{>wDr1TMX+UG{DG@yW9ulAkZ`w2*dyafkHeb zgMF|b_C7uy5+Pomug!?wrBcvH8@E4Xdj^Di%q%7dzA?=ybK^IX&qToawvXVlvcn zxx&lxlclZIy106eS}eg_G&e095s1;5jPXr(pxM{Z6#ZTT>vfr@9gq)n5`0|=ve)(( zDdI4?FPiR)mwxiV9pgZLTkJLZ^`I?PR*@9*-qbeMh}c z`6*#7?H&#%^a>kd+j$|`@QcCXl9AqWPV*LTjix9c#ZHpzY;;}?16VW{cV^zqUi(V) zUZvhjbEX5|OH_v7(|u60r*6uXdDxq3KYjnYsm!E^8BXqHm9?Sh=~S$CNCG0K&IE`V zJskZkT1^$6E)A^@(!U&i&OD*a%jXN$$&U*`ty(x+ef@o>C@x8vj9X&35h28ar(2*S zxEH2T3c;9@j3X3Vrn0iKSLMs}>;`YRxg>OQEcw^IGcvpcZp zg{3ful#)6{6~0_Z*?q{IRQ*k>G|W{#mRh0vaYL+!)+3kO?W4t6x6#4l7mckVkH_G_ zhP~#TH(oSPZAWLKh;rQM&u%_>3*g*7de)sL){yCx3;uutvb!w%oQB`u!GM={fNq3$ z)4eu_%0(`=-;kVDPD&H~nvAE1K6~lQiWpzVYEwLoR3-YK>RrpkT#6tyq=Mnz)OWyAdB{OwT*b=&@jk$9l*k;s#OkTcD@IV%Om)UBzC&X4Q0M9`8BN znq4EjeLK-uOm<*Jyt|i5f~CTvf!%@3-kpoQu(&hj-Q>lMb2?nf6&3(8nHxg-7Z4R> zAP~#H!SHvr!#X*d24LO1UHt#j5s-#4{31mkzjNpOvGCCiE^u7Mb<=3ST&kF@2J0VT zUS(aV`q=q7<~WMsX08kL8G3`X@{*?md>cz9swk<00_6=UZHhDzRljbR@!}_@_;~;M zMR!Ny>p=z*uz%+BOk`3vm9D&!M6ecVr_RoBcruISc6jNUY-_zvHo>r7A?B0u{%X0a zy82*~KZ>dOh=KuVbH!>lRxwaasE;N-HCNlrn!BP!EEqlgLoD$UlLB7>g~MS^OVWkt5GfWPi7T%RxXJWg&Pl zrKRF^Yg61d3p+qaA<98p*?y`~TNS?yLrkWR2RVW3Tgl1GG@@t7(fjJU&-LT@?1~9lK`Fj5o-V@_ps-tsdiesiaW#39RRz zAf7-fe1>iZ({05s4&h1uXJgA}JMH(pQJ<{s#KesVzkvGIbSxU1ukv7leq}u3DLg{E zsV6P2)*GoV(N(MsAi8H9eGF9Y{<+jXItjvB_?wV`76DhMgTB)54)Nw;86J7>%a9C-DEYa5{@>c~mYlAx+i59qhPoQd~0*nKJBAL?o!!=evQER_r~s zo^8y2kZt{?aS~le!FH_@yb3Fav<=DD?TZ%0(Md4%P?=Gj6wf_D@^x0lkz&N|u8RXF z?1gj^h|O&6Z0Or%dSj>J-0%4`mK01~6PcnDyJmV3DS9~*jYICNyj2h1vinH!JiaH6 z&oJ3y-O6B#o`mji8tJU_rP=F|3SOKa1xWJ1+yvMNZl#BrI=ZiDh-IF+J|IWee^&_oq8A$>U$`6_ANEgGjxoV!wh%7$hQQEY`eq`5)ydmeQw*!Ea_~ z%xW`F8M%nTr!pFXko_b`36NfQWlX|VKe0LL2M}m7I$z;7IW zQ{c;^=QK|_%~0{JGE3fSzA(R-2#qu=RVV$Hd#olMV$Ff+I<$E|lDBX!w;n{b9Wb;P zuJDsSmh_SNxRDgW4VkG`K5Oyo#u6Y&pO|8pCVy)w#)n@smcUa0rg!_>@&dct#$j@8 z-u65}XWJWX{>sMR4wRyJAWE@Ol0R=pj~5(Wki4LjkWE64ymakS=&FHMG=pZkV>Xky zpPBUNb8_vWNP9+u&N$P#_xhKVf31dgj+PiScm)LFqQ!Z@d4c;rL^+m7p1ME0yXeyf zF=EWhi=?bhaViSk7W9aW7xS~*Ps_H-H2$1j)z(f~8qnuZcyXJ%AY5Vxd?WJ6B4f5t zyHle8*Tay|y{`T`q_wwq%~1ZX!y-z5117HV75l4$B~csa$X8)*e=2ol!0};;rxP021&h$p4p|gTDT|)Qx;u_-ZE;k}d z`Vw3KR|cG`7UNlTUcX~lZF5r%2AK57t@icSEEsG^2E&ou%b=9!9?Wx`K@8p!k^(?C)|{@M?3&&yjU=^{bmeZaAfj~!DW-rl2G^uT7( zxBu9=T3We7HRpD}xuJgrt)oKO@!rq`>NX9V?}3Q74h*itQxMXv_^VVAJsc0QK?l3xxuBl;hM$@@Z=N; z%qC^l!$y87JWFhc;o^cTXKSc6^g(}gJ?`1301AT#M$+zZDLg%mH!-`dh3?IZNvox6 z%3$PWKl+27v>Qt5@=ern5GJlyKg;R^NnueIzDr`#E-E6~o{N=z_t=v%TOKBwZ{)ix z0eL!pyF*NbQg-*N*}_S?yJ3;VQuN0^iv44b1?*t%A!@sEgs7u|Tt2J}3Iid7&uj+Eczhj<7 zI+(iS^IYsQ%ifuyR!HIpKWZEeT04OD1SpNSJqqhtX2G7(Iv(?Lic{SBmR_i?`WDJE zW86>I>U!WTP`Z|FY{)!O++5neV&1vjb?CnWvv+CsjB_Np%rG`Qky(D!`&D4NKoc-& zT6p(M2fxk!R_H$6`%$#l0E%_arm16~@HwT^-@> zw0Xc_-lE1}wbEXdp*C7Fg4#w{Czeh$9T^06&3KO!%e|7*iWak07VB%+MMpdlpcMyH zc3oSf({E*gFIh>f#0!qO7_KF{dU(U~pyZcTQA%uBkDJT1uyAP=WqFhP`DgT6Be*&l zoFgPyB3&ZA#rC`|st7VXzP;^9TQUVn>Ak600#o+(H7^`Fvy|3?q;_2A9f?W4w$=EY zVm9@xVui8Nkn~6Bs=Z7i&JJTL_rWe81fz20m)!nQRtA78z5>H-Afb)SykJV2|9$#! z0*LDz|3B&eEA0NK_;6SRhFk@LlZGI0QwR|h($ delta 3741 zcmZ9PXE+-Q7sq2qYn9j(wOSgrsUpj zb1sm1D33&YTv|Xu^dil=B@JybfU$29vxm^PQ(P3=LW3Zl0W`%0$ZxqMN~PHDD}8Iq z)WrKoJj46g;WZg?&hRvogJjnHUf`uH7nvL0f>t1ePxH74i*=PW{{&bqNrC0WCQEC7v;CaL0u(fD`QY13q$W*r;#Q^FCsZX#D}<~2cFi1MKF zOLKEP0re;MVw+g5mMe3EHz))HQS=y==V2Eytv|(o zjicPbej=&I%F0Rk_7ahnGLhUA#W!(}U7=tw$DN850YcBVO6+y!d>(^Ma)(9Ig?vts zRN;wr81ri3USJ6)oyc1i?ujjgBb>Ic=tp7iRnAy+ai;!@9od{~U%ANM-n}S({!zo% z?C?t~Nl?|MeP>0ses4I${mLBJB`grqoon%2$wtV*w(ID?p}R4g7*c9X=qB3xwwa#| z{*w+avLJ2f+LK2`WQ~TrppAr@q-yC6Q17*3t62H`S{(dQO$Sn z?OfcWP~+gu6X%(E!ac0ihRQjgR>R{E!sR`>(F{lg*sc3n&p7L1ay2>YT?R4(Ci~F^ zw;rwwDgb~)q5v2|DJVezR6PX{;k84SvHn~8>0|%^=$|{_?`jWsax@NryLr3#|FsC7 zX;KC_Nv619q046*Z~V5S3^y=WymD*U1k5_I!*|i3qG!b9)s;D5g1}D5N>>>1+qct2 z#`UW=uu+-eHzBtGuO=1$6#I2}*&LD{LvZkT9%VSp$B&ge3C=^rYrWN~ahyz1+C7#Kcsd%ITu>?%<5f*#r&i@;t}5ok3z>?I&G+~B)HuntJ7!E4aglv>suu;; ztS7jBAHDo3`UQ008v=nnggUr_jyO*K09Uk(x{2^%YiBX@D2qK^LSo-G2^f znc0Ck6cM(^ChG%a^U%RC(E&CickVj7+xDX|CsH?Com`b%~C+yK{&`VZjRl$mMN17 z79k`mh+b7N*g)Jp2n@+f=TJi`1t1v`J@k8jDeK#;VwT^uu&?XszZE>7c(~b8`J{cg zUvKmA*gd@%gADppBdJ zQ;k2kf3P-;F(PhLeC9K+Qswk>#|Pviny)iaC02$E#XU zk;981`Ug%-Qq;{h!H(aJitFd-7ku6;2q$Qu^F64NoMh3s$v~eatZL|^NdDV>RMa!i zHZpa&5mENeb~~o3ybr8|(&)t)kD_}7U_+ov=Ju=2R@EI}JVLasAn`dn@&c~IoTZRI z+RCsj%|M~#1h6U7L8d`?f?fgvHR;aIUmewI;UmfS+={oI)wrImKGQUMo@4u6Nk#?D zgG8y2PC#H7SYU%&b|a{&F5J#Do;f#zUAlG8nZ-FF(5zUVmem7Gu{D z_tB#>0y>=Tgc<2f!;d|}Kh|}~r0atP{$$twiEbtgR>tHUt%Sy=+R!wnBQ^-v9U@`r`>^Quq;eMG)0y#J*hyM_0}w z?#|pgsjVgkn*G2)Z2QN?SLL^(CMa4?Sm_b+6-6{1U%!sz|NN67Ok!ULdoxy z6@SOBHnKHU6ra-;-=Ij9VaP~*nba4m_(F}!@6M{_?w`J5YEabHeV@%J68SGdK6x~A zw}n?x7T@L2ko?la>$>cfBJs|mm6pb?2yJd&qD@cNt`+#Zpdy<1%_&ibt6FY>NsLx$ za*uqjyz0#5!c-K$hup6VhObW2>Q5m@&X$J~tY07oXy+Y^W8wITFVWC(2Zy=OCtrs? z?ABgqwJ17KI8W$XTmVX=)mA=uBa;@J7CA93>O;h}Vi`K;B>mM1mn1FufUbSd^B04> zqg3~9pF)5ZjuU(vpnZGIPy+M0HH^aRBMXIXFagk&5JA}M@}Zd6i&dH1{TU&RdVT^E-P-0RUXmqH;L-5tcrSavTwSlO+BFm5=X^w2&L6DcSF+s3~EKDl^PZEH5=v z%J<5(NM{VXx~VJ^qg?W(n%8*?iIDLXwa2eJT#Wo4RtoV@4m=4If!p{P9ep1i$7h5< zW)v%5SD8Z!b8ZmXiIK1PV#5tB2U}^77Ox#^17(gQGQG^T@PEkGAqF7=j#_uGZw#8I zILdb1F?r2L)kkQ&*_iMoXSl;RzI2t-GSSl%ZK1?G45=xx^$IOhY!?f=YOS?_Yru|Z z;-ehKp$$d1ZynZnwlB9=6>`fh$Kf0BYrGV9_X-MG}(yBcOusZ!>fx`?Pbl2!@Q5FWg30NM{NR2{<#Q zjH%|{w5M#ac?Uz^c(7B3BFc+ClVlhKlsOjZeI!rc%V0CkdTnFcWC~5L#dhz3Kx_c)g2kLh)3F<53a!<|ib-*ErGP>HkY~zWV|E!t{9uYw;tsHmT5=giEhN(y+QVqwPui3Aw z$05$AGz=M3gcRbI3Zs*4G|S`ob)RM(-lBZ7^z>_}m8i-<$3uUYXlOy=aEcdUWOU$z z>=YAra-vhlAx@^h;Kl=tlJ{jf9Oto-S+{-KC~Ez@eVi~;Ditvw8xEG`@;qsM$Ift{ z{~1}h5wN6-MiZm*J}6~w5;+`p$qVK(snL{n&->2d_#=FGng%N&G<40b$J@wgU51W; zyylY>Mtsrw>$@;s>&g)Mazm0!z6JE$YoHX4_S({S zWD}i4J}fU%L%R@aE0tV8h~8{q=Mjm2HSNBSLo_b0Cng2IrCJhojK3Qqf!)GT51K$V z*~>xT=7q&lGM(rW0R5nnUKj`ws$#ZxsqC7OYAlYZ(WrzjNmwSf5ISGzw+-UfCY6L> z$!SIF+4v)LHJ7-tk1)XL$*r8G-UzprFhN{)Qr6jL?v-b}pHs~k&3(5_?T=H)6_lJ@ z{k=h;sj--8EBxh3;qLr`*k^U;i0MkH5-FHJ#4N8_{b=EnHB8`9OP>Pg`{XjDbEqBDQA*mzS!umzezqOT6yJp}NCWD6+EOrho}{AVPSyQx@@A25C)t@1 zsA3A%7Daw`D%$^ibtnsAS?>Sm+uvCCFC#-$3#*f{qIQK1$=FfKA|gEh&wu}}1OOI6 zs7Mh$p8wu!0D$Aa+25WqCn}$lOWY7jMh^bX(bNFo@1OwSZz239>x$oB=C%K6&_`X0 YsFHu@L#c`ylLeyEMFpvKg#N1d2X6B10ssI2 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index b12a872..656b928 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6,8 +6,6 @@ Imports System.Security.Cryptography.X509Certificates Imports System.Text Imports System.Threading Imports System.Xml -Imports com.sun.xml.internal.rngom -Imports com.sun.xml.internal.rngom.digested Imports MDM_Worker Imports Renci.SshNet Imports VERAG_PROG_ALLGEMEIN @@ -833,26 +831,26 @@ Public Class frmStartOptions End If - Case "CREDITSAFE_EVENTS_DETAIL" + Case "CREDITSAFE_EVENTS_MONTHLY" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim upateKunden As Boolean = True - Dim OnlyCurrentMonthData As Boolean = True + Dim upateKunden As Boolean = False + Dim checkDate As Boolean = True Dim setzeInfoImKunden As Boolean = False - Dim sendMail As Boolean = True + Dim sendMail As Boolean = False 'nicht nochmals, oder? - importCreditsafeEvents(CDate("01." & Now.Month & "." & Now.Year).ToShortDateString, OnlyCurrentMonthData, upateKunden, setzeInfoImKunden, sendMail, True) + importCreditsafeEvents(CDate("01." & Now.Month & "." & Now.Year).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, True) closeMe() - Case "CREDITSAFE_EVENTS" + Case "CREDITSAFE_EVENTS_DAILY" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim upateKunden As Boolean = True - Dim OnlyCurrentMonthData As Boolean = True + Dim upateKunden As Boolean = False + Dim checkDate As Boolean = True Dim setzeInfoImKunden As Boolean = False Dim sendMail As Boolean = True - importCreditsafeEvents(CDate("01." & Now.Month & "." & Now.Year).ToShortDateString, OnlyCurrentMonthData, upateKunden, setzeInfoImKunden, sendMail, False) + importCreditsafeEvents(CDate(Today().AddDays(-1)).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, False) closeMe() Case "CREDITSAFE_UPLOADS" @@ -6363,45 +6361,46 @@ weiter: '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - 'WICHTIG, bei companyDetailEventsRequest = true wird gleich Punkt 3 gemacht (dauert länger, aber mehr Datensätze und alle Kunden werden geprüft, bei companyDetailEventsRequest = false wird die u.a. Best Practice-Methode durchgeführt-> also triggerbasierend)!!!! + 'WICHTIG, bei companyDetailEventsRequest = true wird gleich Punkt 3 gemacht (dauert länger, aber mehr Datensätze und alle Kunden werden geprüft, bei companyDetailEventsRequest = false wird die u.a. Best Practice-Methode durchgeführt (Punkt 1 und 2) -> also triggerbasierend)!!!! + 'ANSATZ, bei der täglichen Prüfung die triggerbasierten Abruf, 1x im Monat bzw. wenn spezisches Unternehmen geprüft wird, dann Punkt 3. '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Best Practices for Viewing Notification Events '1. Use Portfolio-Specific Events for Targeted Monitoring: Start with the portfolio-specific endpoint to focus on changes relevant to a particular portfolio. '2. Leverage Global Events for a Broader View: Use the all-events endpoint to gain a comprehensive overview of all notifications across your portfolios. - '3. Drill Down to Company-Level Events When Needed: For detailed insights into a specific company, use the company-specific endpoint. + + '3. Drill Down to Company-Level Events WHEN NEEDED: For detailed insights into a specific company, use the company-specific endpoint. '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + 'Dim creditsaveOld As String = " + ' select ba_KundenNr FROM tblBonitaetsauskunft WHERE ba_Pruefungstool = 'creditsafe API' - Dim creditsaveOld As String = " - select ba_KundenNr FROM tblBonitaetsauskunft WHERE ba_Pruefungstool = 'creditsafe API' - - EXCEPT - - SELECT * FROM ( SELECT ba_KundenNr - FROM tblBonitaetsauskunft - WHERE ba_Pruefungstool = 'creditsafe API' and cast(ba_Datum as Date) >= '" & datum & "' - - UNION ALL - - SELECT e.KundenNr - FROM ( - SELECT e.KundenNr, - e.eventDate, - 'creditsafe API' AS Source - FROM [VERAG].[dbo].[tblCreditsafeEvents] e - INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b - ON e.bonId = b.ba_id - WHERE b.ba_Pruefungstool = 'creditsafe API' - AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR')) - ) e - WHERE cast(e.eventDate as Date) >= '" & datum & "' - GROUP BY Source, e.KundenNr, cast(e.eventDate as Date) - ) AS Temp" + ' EXCEPT + + ' SELECT * FROM ( SELECT ba_KundenNr + ' FROM tblBonitaetsauskunft + ' WHERE ba_Pruefungstool = 'creditsafe API' and cast(ba_Datum as Date) >= '" & datum & "' + + ' UNION ALL + + ' SELECT e.KundenNr + ' FROM ( + ' SELECT e.KundenNr, + ' e.eventDate, + ' 'creditsafe API' AS Source + ' FROM [VERAG].[dbo].[tblCreditsafeEvents] e + ' INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b + ' ON e.bonId = b.ba_id + ' WHERE b.ba_Pruefungstool = 'creditsafe API' + ' AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR')) + ' ) e + ' WHERE cast(e.eventDate as Date) >= '" & datum & "' + ' GROUP BY Source, e.KundenNr, cast(e.eventDate as Date) + ' ) AS Temp" @@ -6411,9 +6410,11 @@ weiter: inner join tblKundenErweitert on Kunden.KundenNr = kde_KundenNr inner join Filialen as f on f.FilialenNr = Kunden.FilialenNr inner join tblBonitaetsauskunft on ba_KundenNr = kde_KundenNr - where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' and kde_CSPortfolioAdded = 1 AND ba_Pruefungstool = 'creditsafe API'" & IIf(datum <> "", " AND Kunden.Bonitätsdatum <= '" & datum & "'", "") + where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' and kde_CSPortfolioAdded = 1 AND ba_Pruefungstool = 'creditsafe API'" & IIf(datum <> "", " AND Kunden.Bonitätsdatum <= '" & datum & "' ", "") - 'KundenNr und Firma + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + creditsave &= " AND ba_Kundennr in (701809, 1096780)" + End If Dim cs = New cCreditSafeAPI("creditsafe") @@ -6472,11 +6473,6 @@ repeatRequestDailyPages: End If - If False Then - creditsave &= " and (ba_KundenNr = 718137 or ba_KundenNr = 1003418)" - End If - - Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL") Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL") @@ -6529,7 +6525,7 @@ repeatRequestDailyPages: repeatRequest: Dim APIText As String = "" If exists Then - APIText = cs.getCompanyEvents(company, dt, False, checkDate, upateKunden, False,, setzeKundenbesonderheiten, Mailinfolast2Years, row("Firma")) + APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast2Years, row("Firma")) End If If (APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler")) Then