From 6b3ea231ed04893e6242b3c7639153d870007e68 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 26 Sep 2025 15:37:22 +0200 Subject: [PATCH] Auswertung, Kundenuebersicht Credtisafe-API --- SDL/Resources/Auswertung_divers.xlsx | Bin 10116 -> 10208 bytes .../usrCntlSpeditionsBuchSuche.vb | 113 +- .../usrCntlKundenuebersicht.Designer.vb | 2195 +++++++++-------- SDL/kunden/usrCntlKundenuebersicht.vb | 55 +- .../usrcntlKundeBearbeitenFull.Designer.vb | 393 +-- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 18 + .../Classes/cKundenErweitert.vb | 12 +- .../Creditsafe/cCreditSafeAPI.vb | 423 +++- 8 files changed, 1781 insertions(+), 1428 deletions(-) diff --git a/SDL/Resources/Auswertung_divers.xlsx b/SDL/Resources/Auswertung_divers.xlsx index 023087971f6554c2121384ffd3404a37737a7b39..44eae2ef16e46107b60526789220ee0a600f1c87 100644 GIT binary patch delta 3764 zcmZ9PWmMFQ*2agSV_@i%p5f4WP`VqWL=Xf8hwh>CFQrHb%+MtQ5`r{?f*?bVAPCZp z5`x1}5>j%{IrqNrUF+^I`^&Sx?7g06{dTl!csk)mN$9* z`nu~8g~7u6zy+Pvh3I9Z$tx8E~WT zta~LE1G$>4WqT`RN_=gid>9tcx->`_k#QSO@>&43TM9CWLO(ST~d^Ply^NFBo)mV zdlg2b`ea=RrGiBF3W&~~3D%6#*93rjcXP(2^lQEtQeZCxZT;3aUyeTQgMnWRIoSPR4Hai8w22Pxyt^boV+h+8PXeeJl0u zPHASQI7~F&)o&*&;ZE$^g*QR(m^gK%0o%WXQSqLiB&)wV!;PB1tn zEzBrNr?U95p6)}eqU|j(c3SZOv0~G}nXRlk9vV!S<9!}t@+d-@wxB0?aPD?dyko`m z@8a)`vsTLWLhihdfg#!kmt-NLDN$TY3jhndrz;+2z~YM!v>5~XApbocr|=Jh_ng#AGhKLYeO z7$;8NM2(4Grq<1dYceHP2UAdo#rG@{^f&yA`pn_-+l;i zb3{5LECZ45KCS_On<6kn!>Cssny?pp?Kl_F)JmR#@_J?~39)L?+43$hMknleE#@Vj z7{h=^Rv1!SdL?a2AF9a|&jo<|KGdp42vNj4nduAS~g#{DMydpGDj z7_?ayf*~ipryyr%iQZ-60I<&&7e>`2UIfvaqptzJS41RZ|8^-pW>zxwsdJqyF=qQod*$eN(J zyDVwTV(hGL8blsn&;Gzr)l0VDfCEgR>H=#D3^WM-wwnz%y{M;0Y-W+3yXI0e`<&Bj7^ z^5hLCFTD)>@>|)?L!Gmj1`<}bD)LR{SCH;8*@h$07xB~*3^+0?lCzSPL^xl6b^La$ znDq~F;Ebb~S^~C{Ymf_VS*I~~F3BG+q`XJMFff}fI=gRW9QoWhZ?<{NgN3*HaSMm9 z6wlN9;+QN80t+FFHD(Tav}0!YgD>65c)O_d@-$GAhuK|#73*Ghl5J@8nsTAsD<3C) zgW24~TQ|g#03n&&4u8YH#QydnCSlsMJ<8-GfO392)Sf zrXM?$9IHqi(ZBB5qj!F@Ncy`>s^aW&eB5XrAF@k7z-u0>F@V#PXo^V~OFmme;jZMdVp!pM zv#<{rw=npV&$svrXt?e^KhIM3tF}rZv|ru5nhlGxD%0HlDgRVWI@FF+W8maL+eE?F zOZgwcWV?Z52NAcnXyUftGyZDcj^u_c)hS(c_zxnnkmN3gScbWudI|{nq=Naq1s7G3<)$>R_igb+@f^lQ7Iiu~y(Z=02;L&}phxi$9tt)~dE> znrhD{i5bGwmJG2niypX$BQ*X5xHsTtS%^SqHIYMJ+FlJaGY5u2sf-!F#N&KdFNr35 ztRX>PaJc$Obn8Zz$86FLM|uo^)gj%^$mFhMK!r>wm(%6!z(?)pf_}$TJ}jcjhA)aD2NjOW1i3&dunVXA z)cP1pTP71Tfi_q-lO4E)To3xxl`Y$NTgj)-9?{EXC*Sg?-Q)!Tgro9_ya%OHdi;H7 zUy(GjT7XBB)a@*f7}TC!^qL1AH_&*{wxp(D7qrvYNtt{95|5;>Vu~3NAzv-M+T@8^ zOu&z>32gT(*k+jAKGg8Mvxhpq->yw4cp{*h5mP9U(ehgkUn3tC=p*A0A>(1}?vr1C z9u2Ua)V;t~9RN;pTd5B3wj;)g+nRRnN>}EOR#bx5o-V3c za}m*E_YuHF`SO<|5N#x7*Etns6KaanKt$5k4S`KsA^_j|D4k0nT4jSGjXs3d(Rdc6 zJ(#}YL7`ipkdnrC>dJd{bHZF}tVJyD5$-7mSS!eOdF$$m#wFA^&H^zo|EsBN8%ed( z*I~PPX)X1xkyI}%Z#It~iZ%1DuklZI17GKYC$aYLF7-E_CO2~Zfw_~^lt@{{ERDJgK44AV zxFnqm_NjQ(0=33Q>D8au)}LGt_B{;iw?y@=A(Yv^8GdrS6CgFu+6fgzI?>W18<8I| zLZ9bu{)1qokT)-`eVZL`z=;5J(;g|NgcXxZI-?c61xSkABW*!t4b5*U18wsTCH{nL z48>(c2NC1=FU&^a#YQ38Wvx@9%(UUQl}o%^S_wr;Rk;kFK3u}(Kqaa0yY69=jFcw1 zpIhO|GNRO_w5g%R3NkI~XU@w$sI8*Ox##($k&$z3@i?}Z#NX=PNEGm^)$@M90e0pw zqvmb{*=N`(*Uj#?yNO%znWb9Oc6Jz$uvBIVHuR}`+Be^N@|vX=``jBPWW zqQv{ncNQZm71w;)@Pse&x;WDVywmT=yQx|37>37(##C@IzXx-dSls?b=~?jgXxl^C zNIrS3?8P&k*~nMww`twaGC4_|*}mp-m)WUy+#bW=P{J<9M}%^!+(EL>!k zb0i+pNAGi_x4i_qYA>n(;X6DW+RVsHPD=UzPa#?WCdc`|Nc-@ zz|iwB5h5)#DIESEJd}bngUOlEdT<`j|E4(z#P)x~|MUcO3|#cz7e_b3nTcx9gK$-_ ZIWL-?R~RiNBtkTfwi6N{D;NA*{VyIyAyxnY delta 3692 zcmY+HXE+-Q8-`;?Yn9j(6%?gbTcbD>B?P5v&!YB-T_Y%|T@|}FwO7mpwW2ge%~Y%! ztyPB@ZPQx$dcGguxxV+;`{RDE_s?@Z*Ym6y#Thj-(!-<1{bTTy004>>0AL0H0HI#D zLwsSLPQJdL(xKj7^=8(-Z)8AG#cky1bHir(bn5uW6VT)~=%e{D{R$j~m<7eS*K9@Y z>1qf=sr#FpMt;gwrijarO2y3BYKq%kH1ms(DW^!{sqmWY)1syIa`#b#%d~t=S^#gMPHd zNy^?!9*|`ipL9ojdSGG965WP19eoIZd0+~?4>xpBUXs{GfgoOibR~s|?|EcumAIZO z1MBx`i4TtXa0eLNy1XQJM7r5w3VT66@KS+?!X0l#FBB@EbyAGMxG5|jrmWnZX?L@{ ztia$NBkEHmRQ1uWdU4NX*u#UZ08P$jX_7@T`1jZ8)8(IMpO_3%!{B-DqE~Adv_L%Y zir|V%OG`Wf`8YbELGowSM#jJb1$~Ul)Qn<MxhQ%0 zNz>2b=xZBUSk10ucU7Tb9~bIzWnSu8co3u~&+4U$9oWgf`}okQrzwXRT4qYR7x=YhoF;6^2G?tI&?H-v(=7MY*szt?xqYmAx>i8SdOU^?xdDHr-KD8)pb`0{pm=-NW)ryt%; z>VEsZ^YM?vOhdLvuCoh-dl=bG)pG&u#wVeK%XoQv-n$f;8-KK)fxOMY3-?NwHNwiU#D{<{Uu?ef z--$NfL|^gFtK|@~=)&Ocpg_ehh$(BU^T0%*-O$zUaN_sxr%TKmS8rgVvm$On!~t)n zl>e6aeRSCpnh{HI@_ZR>j1v&V+$DwNCusL-*E&z$Z_F&Kr1Px-3OhWJ7J5DwmQq+I z8|z&|=b&EgVq>W$;mZ%1j*BY@2=LM*)U#zf+(@W!%JQqmPO$pwCQQSUtGJ7ki> zGzl;#GE5+twj)b_h*e7o%NCv-a5nLM$#)pDY!cBqXkpbKyU7*~7ukINRWYn*kbAW0 zH;??U4A^TSdQ(*3aeMzw9KJF|*>-+kh5N?%T|OPlWrQAL=;cHg+lf~yI1wlUs|#Cr z!tv^}6gTJ1GC=!b1jssmp3}CDC5r_b2^JGZttlC8-Z=~k&ClRcN2mlMn36mV`+wgz zv|B^3ylds$FfizOgA1WPR~T|bW3C0{66eE+sRJ$|M}y$p6x|+w>BNTVc;NfSV0grs zi_+;1Al|* zNt5iNfWl4%`7UGB!X8Hn-Ws5xoqe&HrNT4Ye4@qi=&|<`jT#!&8ayy2rv5w zpB~11BB7^59%EL8k?kg&JLND`)!dy~aZ+6kG05U48e%^_aznI_Yinf5YyAWZp{I*tGB zHS4{<{Up@&k=qY^x1!0Ezl8-9QLH^y-o@Dhmm?#J%a5+>aaM^YxQbO-o4V=n@)Pa) zy7z3Peh4e0h~Hh3ba`s-F0x3_t4!@v&ciFJ&z@bFi{bYX2lXMawJCbTX~gK+%1EN^ zEBFxof^$h63_tlbMt{P|Y5oi8+sMbgy6fy##U!Qk#DS$npd3nl^`j3Wd8v7c8{Mig zLR>GAXK+n6T$_BBtgRT>eQ^G2n177s-mOyz(8_sIU=wuUs1-(FJ-3BYd4FP~GO!OJ z0J;++3H#l?RFnI0s`GolA{BNRPT!TV(b|Pflb&^Ia49s?J^MU_PTS5?;ipmK(#vp! zSh&=UYCetLhbjo2(p z&3R8lOATF8on>`ld##mPv0tH0K4a3;OJkcH<54Wry3SujgiNfeKY82v%*6ju6_}5D z=xLBB%+A;3_{Z1;J~I?Dt6cTA+7eQfdxOYHjCvyw7h!BY+(w76dh1*lB!3c_vNdk&BrkK6l?p2kQd?^8 z9agT~ArXGnR(liMh#A$wM>|dEHx}O#KdSZWSe(7z~;JsE+4u*NN!#l{@Axz zvylgafSv*DD63j4lFMuE!ES0A9OA zGo0T6L4I83e-Aw#=^JN7BmOkH2LNWY~Mh zQmh%Jj%6*-^sxdWibU?mpHFKVGpT~%O7Y7@F)4Oh74d?4&$ExjsoyO>{}yH=raIL5 zDBxL)eqj+z=dD(OYxZ1%6a7f;Bx+{8nHJ+ zhmi)4TyyC2F)`VYXCNT1`6kB`DJ3^s*2NRc!G^MSBa25??f2BWJ2)OJ$(}5R3d4jpN17 zwoswRtpiHjA8xieZ8J8G1{}*wa#nA>&ZTwEK&t4NW~cX``P+Bir}`msK_1dD(2<40 z@@15rcdH-tP_~GEC*@>CB1@>)TkQooY3Tpg(2#Hu1>XNsHoU~GafYn(9Q+`F#Zev*_QsC{%Lvvfni=Q0myYQi0@z11^~GJk2U2+ zmU8nTe~Gg2{#OWp9#{S;jMx4TGDHfCsZstAKza*`BU8jAD1wlkV#2h#;D4z90Hqn> Am;e9( diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 98e39c77..e482573b 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -2833,7 +2833,7 @@ Public Class usrCntlSpeditionsBuchSuche ,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 (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") @@ -3012,40 +3012,93 @@ Public Class usrCntlSpeditionsBuchSuche 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") + If KUNDE.KundenNr = 902452 Then 'KUNDE WILL WIEDER EXZTAWURST!!!!!!! - 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 + Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text - If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then - Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + 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 - 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 + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count + Me.Refresh() + cnt += 1 + Next + + + Else + + 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") + Blatt.Range("L" & 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("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 + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count + Me.Refresh() + cnt += 1 + Next + + End If + Datei.Save If False Then diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 62a68fc3..a439c6e0 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnExcel = New System.Windows.Forms.Button() @@ -50,23 +50,30 @@ Partial Class usrCntlKundenuebersicht Me.lblKeineSperren = New System.Windows.Forms.Label() Me.pnlSperre = New System.Windows.Forms.Panel() Me.btnSaveOfferte = New System.Windows.Forms.Button() + Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox() Me.Label36 = New System.Windows.Forms.Label() Me.Label67 = New System.Windows.Forms.Label() Me.tbOffenePosten = New System.Windows.Forms.TabPage() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() Me.pnl = New System.Windows.Forms.Panel() + Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label44 = New System.Windows.Forms.Label() Me.tbUmsatz = New System.Windows.Forms.TabPage() Me.dgvUmsatzbericht = New System.Windows.Forms.DataGridView() Me.tbAnhaenge = New System.Windows.Forms.TabPage() Me.pnlAnh = New System.Windows.Forms.Panel() + Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.dgvAnhaenge = New System.Windows.Forms.DataGridView() Me.btnAddAttach = New System.Windows.Forms.Button() Me.Panel3 = New System.Windows.Forms.Panel() + Me.btnThereforeTarifNr = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnThereforeKundeninfo = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblKdNr = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() Me.grpAbfertigung = New System.Windows.Forms.GroupBox() + Me.lblInsolvent = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() Me.txtVerzolltBei = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() @@ -80,42 +87,67 @@ Partial Class usrCntlKundenuebersicht Me.txtVorauskasse = New System.Windows.Forms.TextBox() Me.lblAviso = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() Me.pnlVERAGSnspr = New System.Windows.Forms.Panel() + Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label34 = New System.Windows.Forms.Label() + Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.Label33 = New System.Windows.Forms.Label() + Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() + Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.lblFisk = New System.Windows.Forms.Label() + Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.Panel4 = New System.Windows.Forms.Panel() Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox() Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnCreditsafe = New System.Windows.Forms.Button() + Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label68 = New System.Windows.Forms.Label() + Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label69 = New System.Windows.Forms.Label() + Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label() Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel() + Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblOffenePosten = New System.Windows.Forms.Label() + Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label32 = New System.Windows.Forms.Label() + Me.txtOPCredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() + Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel7 = New System.Windows.Forms.Panel() + Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label19 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVorkasse = New System.Windows.Forms.Label() + Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVeranlKd = New System.Windows.Forms.TextBox() Me.lblVeranlKd = New System.Windows.Forms.Label() Me.grpAdresse = New System.Windows.Forms.GroupBox() Me.tbKontakt = New System.Windows.Forms.TabControl() Me.tbKontaktKontakt = New System.Windows.Forms.TabPage() + Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.lblAnsprechpartner = New System.Windows.Forms.TextBox() Me.lblMobil = New System.Windows.Forms.TextBox() @@ -128,6 +160,7 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.tbKontaktSpez = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label38 = New System.Windows.Forms.Label() Me.txtDebitorennr = New System.Windows.Forms.TextBox() Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() @@ -157,18 +190,24 @@ Partial Class usrCntlKundenuebersicht Me.Panel1 = New System.Windows.Forms.Panel() Me.Button11 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() + Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() + Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.picVertrag = New System.Windows.Forms.PictureBox() Me.tbGestellGarant = New System.Windows.Forms.TabPage() Me.dgvGestGarantie = New System.Windows.Forms.DataGridView() Me.Panel2 = New System.Windows.Forms.Panel() Me.cbxGG = New System.Windows.Forms.CheckBox() + Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label11 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.tbAvisoMail = New System.Windows.Forms.TabPage() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.tbKdSpez = New System.Windows.Forms.TabPage() Me.Label14 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() @@ -177,6 +216,9 @@ Partial Class usrCntlKundenuebersicht Me.Label31 = New System.Windows.Forms.Label() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label10 = New System.Windows.Forms.Label() + Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.tbSonstiges = New System.Windows.Forms.TabPage() Me.Label6 = New System.Windows.Forms.Label() Me.lblSteuernummer = New System.Windows.Forms.TextBox() @@ -190,6 +232,14 @@ Partial Class usrCntlKundenuebersicht Me.lblUid = New System.Windows.Forms.TextBox() Me.lblEORI = New System.Windows.Forms.TextBox() Me.lblEORINr = New System.Windows.Forms.Label() + Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -213,55 +263,6 @@ Partial Class usrCntlKundenuebersicht Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem() Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.btnThereforeTarifNr = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnThereforeKundeninfo = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() - Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPCredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService() Me.cntxtAddVM.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() @@ -310,12 +311,12 @@ Partial Class usrCntlKundenuebersicht Me.tbAvisoMail.SuspendLayout() Me.tbKdSpez.SuspendLayout() Me.tbSonstiges.SuspendLayout() + CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip4.SuspendLayout() Me.ContextMenuStrip5.SuspendLayout() - CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'cntxtAddVM @@ -426,8 +427,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -447,8 +448,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -458,10 +459,10 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.TabIndex = 0 @@ -503,6 +504,54 @@ Partial Class usrCntlKundenuebersicht Me.btnSaveOfferte.Text = "Speichern" Me.btnSaveOfferte.UseVisualStyleBackColor = True ' + 'txtSperreGrund + ' + Me.txtSperreGrund._DateTimeOnly = False + Me.txtSperreGrund._numbersOnly = False + Me.txtSperreGrund._numbersOnlyKommastellen = "" + Me.txtSperreGrund._numbersOnlyTrennzeichen = True + Me.txtSperreGrund._Prozent = False + Me.txtSperreGrund._ShortDateNew = False + Me.txtSperreGrund._ShortDateOnly = False + Me.txtSperreGrund._TimeOnly = False + Me.txtSperreGrund._TimeOnly_Seconds = False + Me.txtSperreGrund._value = Nothing + Me.txtSperreGrund._Waehrung = False + Me.txtSperreGrund._WaehrungZeichen = True + Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black + Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7) + Me.txtSperreGrund.MaxLineLength = -1 + Me.txtSperreGrund.MaxLines_Warning = "" + Me.txtSperreGrund.MaxLines_Warning_Label = Nothing + Me.txtSperreGrund.Name = "txtSperreGrund" + Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20) + Me.txtSperreGrund.TabIndex = 4 + ' + 'txtSperreDat + ' + Me.txtSperreDat._DateTimeOnly = False + Me.txtSperreDat._numbersOnly = False + Me.txtSperreDat._numbersOnlyKommastellen = "" + Me.txtSperreDat._numbersOnlyTrennzeichen = True + Me.txtSperreDat._Prozent = False + Me.txtSperreDat._ShortDateNew = False + Me.txtSperreDat._ShortDateOnly = False + Me.txtSperreDat._TimeOnly = False + Me.txtSperreDat._TimeOnly_Seconds = False + Me.txtSperreDat._value = Nothing + Me.txtSperreDat._Waehrung = False + Me.txtSperreDat._WaehrungZeichen = True + Me.txtSperreDat.BackColor = System.Drawing.Color.White + Me.txtSperreDat.ForeColor = System.Drawing.Color.Black + Me.txtSperreDat.Location = New System.Drawing.Point(129, 7) + Me.txtSperreDat.MaxLineLength = -1 + Me.txtSperreDat.MaxLines_Warning = "" + Me.txtSperreDat.MaxLines_Warning_Label = Nothing + Me.txtSperreDat.Name = "txtSperreDat" + Me.txtSperreDat.ReadOnly = True + Me.txtSperreDat.Size = New System.Drawing.Size(100, 20) + Me.txtSperreDat.TabIndex = 2 + ' 'cbxSperreSetzen ' Me.cbxSperreSetzen.AutoSize = True @@ -551,8 +600,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill @@ -577,6 +626,34 @@ Partial Class usrCntlKundenuebersicht Me.pnl.TabIndex = 0 Me.pnl.Visible = False ' + 'txtOpLeihgeld + ' + Me.txtOpLeihgeld._DateTimeOnly = False + Me.txtOpLeihgeld._numbersOnly = False + Me.txtOpLeihgeld._numbersOnlyKommastellen = "" + Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True + Me.txtOpLeihgeld._Prozent = False + Me.txtOpLeihgeld._ShortDateNew = False + Me.txtOpLeihgeld._ShortDateOnly = False + Me.txtOpLeihgeld._TimeOnly = False + Me.txtOpLeihgeld._TimeOnly_Seconds = False + Me.txtOpLeihgeld._value = Nothing + Me.txtOpLeihgeld._Waehrung = False + Me.txtOpLeihgeld._WaehrungZeichen = True + Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White + Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black + Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9) + Me.txtOpLeihgeld.MaxLineLength = -1 + Me.txtOpLeihgeld.MaxLines_Warning = "" + Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing + Me.txtOpLeihgeld.Name = "txtOpLeihgeld" + Me.txtOpLeihgeld.ReadOnly = True + Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13) + Me.txtOpLeihgeld.TabIndex = 1 + Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label44 ' Me.Label44.AutoSize = True @@ -604,8 +681,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill @@ -641,13 +718,35 @@ Partial Class usrCntlKundenuebersicht Me.pnlAnh.Size = New System.Drawing.Size(655, 294) Me.pnlAnh.TabIndex = 0 ' + 'usrCntlAnhaenge + ' + Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = "" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = "" + Me.usrCntlAnhaenge._OPEN_ORIGINAL = False + Me.usrCntlAnhaenge._TYPE = "" + Me.usrCntlAnhaenge.AllowDrop = True + Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White + Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default + Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0) + Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0) + Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge" + Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255) + Me.usrCntlAnhaenge.TabIndex = 0 + ' 'dgvAnhaenge ' Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -686,6 +785,42 @@ Partial Class usrCntlKundenuebersicht Me.Panel3.Size = New System.Drawing.Size(655, 39) Me.Panel3.TabIndex = 3 ' + 'btnThereforeTarifNr + ' + Me.btnThereforeTarifNr.allowBorder = False + Me.btnThereforeTarifNr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnThereforeTarifNr.FlatAppearance.BorderSize = 0 + Me.btnThereforeTarifNr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnThereforeTarifNr.ForeColor = System.Drawing.Color.Black + Me.btnThereforeTarifNr.Image = Global.SDL.My.Resources.Resources.therefore1 + Me.btnThereforeTarifNr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnThereforeTarifNr.Location = New System.Drawing.Point(5, 3) + Me.btnThereforeTarifNr.Name = "btnThereforeTarifNr" + Me.btnThereforeTarifNr.Size = New System.Drawing.Size(118, 33) + Me.btnThereforeTarifNr.TabIndex = 0 + Me.btnThereforeTarifNr.Tag = "" + Me.btnThereforeTarifNr.Text = "Tarifnummern" + Me.btnThereforeTarifNr.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnThereforeTarifNr.UseVisualStyleBackColor = True + ' + 'btnThereforeKundeninfo + ' + Me.btnThereforeKundeninfo.allowBorder = False + Me.btnThereforeKundeninfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnThereforeKundeninfo.FlatAppearance.BorderSize = 0 + Me.btnThereforeKundeninfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnThereforeKundeninfo.ForeColor = System.Drawing.Color.Black + Me.btnThereforeKundeninfo.Image = Global.SDL.My.Resources.Resources.therefore1 + Me.btnThereforeKundeninfo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnThereforeKundeninfo.Location = New System.Drawing.Point(144, 3) + Me.btnThereforeKundeninfo.Name = "btnThereforeKundeninfo" + Me.btnThereforeKundeninfo.Size = New System.Drawing.Size(118, 33) + Me.btnThereforeKundeninfo.TabIndex = 1 + Me.btnThereforeKundeninfo.Tag = "" + Me.btnThereforeKundeninfo.Text = "Kundeninfo" + Me.btnThereforeKundeninfo.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnThereforeKundeninfo.UseVisualStyleBackColor = True + ' 'lblKdNr ' Me.lblKdNr.BackColor = System.Drawing.Color.White @@ -754,6 +889,20 @@ Partial Class usrCntlKundenuebersicht Me.grpAbfertigung.TabStop = False Me.grpAbfertigung.Text = "Abfertigung" ' + 'lblInsolvent + ' + Me.lblInsolvent.BackColor = System.Drawing.Color.Red + Me.lblInsolvent.Cursor = System.Windows.Forms.Cursors.Help + Me.lblInsolvent.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblInsolvent.ForeColor = System.Drawing.Color.White + Me.lblInsolvent.Location = New System.Drawing.Point(70, -2) + Me.lblInsolvent.Name = "lblInsolvent" + Me.lblInsolvent.Size = New System.Drawing.Size(296, 24) + Me.lblInsolvent.TabIndex = 50 + Me.lblInsolvent.Text = "! KUNDE INSOLVENT !" + Me.lblInsolvent.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblInsolvent.Visible = False + ' 'Panel9 ' Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke @@ -905,6 +1054,17 @@ Partial Class usrCntlKundenuebersicht Me.Label2.Text = "Aviso:" Me.Label2.Visible = False ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.AutoScroll = True + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' 'lblAbfertigungsverbot ' Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red @@ -944,6 +1104,83 @@ Partial Class usrCntlKundenuebersicht Me.pnlVERAGSnspr.Size = New System.Drawing.Size(181, 82) Me.pnlVERAGSnspr.TabIndex = 35 ' + 'txtKundenbetreuerTeam + ' + Me.txtKundenbetreuerTeam._DateTimeOnly = False + Me.txtKundenbetreuerTeam._numbersOnly = False + Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = "" + Me.txtKundenbetreuerTeam._numbersOnlyTrennzeichen = True + Me.txtKundenbetreuerTeam._Prozent = False + Me.txtKundenbetreuerTeam._ShortDateNew = False + Me.txtKundenbetreuerTeam._ShortDateOnly = False + Me.txtKundenbetreuerTeam._TimeOnly = False + Me.txtKundenbetreuerTeam._TimeOnly_Seconds = False + Me.txtKundenbetreuerTeam._value = "-" + Me.txtKundenbetreuerTeam._Waehrung = False + Me.txtKundenbetreuerTeam._WaehrungZeichen = True + Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 23) + Me.txtKundenbetreuerTeam.MaxLineLength = -1 + Me.txtKundenbetreuerTeam.MaxLines_Warning = "" + Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam" + Me.txtKundenbetreuerTeam.ReadOnly = True + Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(168, 13) + Me.txtKundenbetreuerTeam.TabIndex = 2 + Me.txtKundenbetreuerTeam.Text = "-" + ' + 'btnVeragAnspr + ' + Me.btnVeragAnspr.allowBorder = False + Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift + Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnVeragAnspr.FlatAppearance.BorderSize = 0 + Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black + Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7) + Me.btnVeragAnspr.Name = "btnVeragAnspr" + Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12) + Me.btnVeragAnspr.TabIndex = 1 + Me.btnVeragAnspr.UseVisualStyleBackColor = True + Me.btnVeragAnspr.Visible = False + ' + 'txtKundenbetreuerVertretung + ' + Me.txtKundenbetreuerVertretung._DateTimeOnly = False + Me.txtKundenbetreuerVertretung._numbersOnly = False + Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = "" + Me.txtKundenbetreuerVertretung._numbersOnlyTrennzeichen = True + Me.txtKundenbetreuerVertretung._Prozent = False + Me.txtKundenbetreuerVertretung._ShortDateNew = False + Me.txtKundenbetreuerVertretung._ShortDateOnly = False + Me.txtKundenbetreuerVertretung._TimeOnly = False + Me.txtKundenbetreuerVertretung._TimeOnly_Seconds = False + Me.txtKundenbetreuerVertretung._value = "-" + Me.txtKundenbetreuerVertretung._Waehrung = False + Me.txtKundenbetreuerVertretung._WaehrungZeichen = True + Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 61) + Me.txtKundenbetreuerVertretung.MaxLineLength = -1 + Me.txtKundenbetreuerVertretung.MaxLines_Warning = "" + Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuerVertretung.Multiline = True + Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung" + Me.txtKundenbetreuerVertretung.ReadOnly = True + Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(168, 24) + Me.txtKundenbetreuerVertretung.TabIndex = 4 + Me.txtKundenbetreuerVertretung.Text = "-" + Me.txtKundenbetreuerVertretung.Visible = False + ' 'Label34 ' Me.Label34.AutoSize = True @@ -954,6 +1191,52 @@ Partial Class usrCntlKundenuebersicht Me.Label34.TabIndex = 0 Me.Label34.Text = "VERAG-Ansprechpartner:" ' + 'txtKundenbetreuer + ' + Me.txtKundenbetreuer._DateTimeOnly = False + Me.txtKundenbetreuer._numbersOnly = False + Me.txtKundenbetreuer._numbersOnlyKommastellen = "" + Me.txtKundenbetreuer._numbersOnlyTrennzeichen = True + Me.txtKundenbetreuer._Prozent = False + Me.txtKundenbetreuer._ShortDateNew = False + Me.txtKundenbetreuer._ShortDateOnly = False + Me.txtKundenbetreuer._TimeOnly = False + Me.txtKundenbetreuer._TimeOnly_Seconds = False + Me.txtKundenbetreuer._value = "-" + Me.txtKundenbetreuer._Waehrung = False + Me.txtKundenbetreuer._WaehrungZeichen = True + Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 42) + Me.txtKundenbetreuer.MaxLineLength = -1 + Me.txtKundenbetreuer.MaxLines_Warning = "" + Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuer.Name = "txtKundenbetreuer" + Me.txtKundenbetreuer.ReadOnly = True + Me.txtKundenbetreuer.Size = New System.Drawing.Size(168, 13) + Me.txtKundenbetreuer.TabIndex = 3 + Me.txtKundenbetreuer.Text = "-" + ' + 'btnPunkt2Save + ' + Me.btnPunkt2Save.allowBorder = False + Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save + Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnPunkt2Save.FlatAppearance.BorderSize = 0 + Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black + Me.btnPunkt2Save.Location = New System.Drawing.Point(647, 205) + Me.btnPunkt2Save.Name = "btnPunkt2Save" + Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20) + Me.btnPunkt2Save.TabIndex = 12 + Me.btnPunkt2Save.UseVisualStyleBackColor = True + Me.btnPunkt2Save.Visible = False + ' 'Button7 ' Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1002,6 +1285,34 @@ Partial Class usrCntlKundenuebersicht Me.Label33.TabIndex = 33 Me.Label33.Text = "Zahlungsziel:" ' + 'txtUmsatzJahr + ' + Me.txtUmsatzJahr._DateTimeOnly = False + Me.txtUmsatzJahr._numbersOnly = False + Me.txtUmsatzJahr._numbersOnlyKommastellen = "" + Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True + Me.txtUmsatzJahr._Prozent = False + Me.txtUmsatzJahr._ShortDateNew = False + Me.txtUmsatzJahr._ShortDateOnly = False + Me.txtUmsatzJahr._TimeOnly = False + Me.txtUmsatzJahr._TimeOnly_Seconds = False + Me.txtUmsatzJahr._value = Nothing + Me.txtUmsatzJahr._Waehrung = False + Me.txtUmsatzJahr._WaehrungZeichen = True + Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White + Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black + Me.txtUmsatzJahr.Location = New System.Drawing.Point(383, 274) + Me.txtUmsatzJahr.MaxLineLength = -1 + Me.txtUmsatzJahr.MaxLines_Warning = "" + Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing + Me.txtUmsatzJahr.Name = "txtUmsatzJahr" + Me.txtUmsatzJahr.ReadOnly = True + Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13) + Me.txtUmsatzJahr.TabIndex = 32 + Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label29 ' Me.Label29.AutoSize = True @@ -1012,6 +1323,20 @@ Partial Class usrCntlKundenuebersicht Me.Label29.TabIndex = 31 Me.Label29.Text = "Umsatz Jahr:" ' + 'cbxFiskalabfertigung + ' + Me.cbxFiskalabfertigung._value = "" + Me.cbxFiskalabfertigung.AutoSize = True + Me.cbxFiskalabfertigung.Checked_value = False + Me.cbxFiskalabfertigung.CheckedValue = False + Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134) + Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung" + Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17) + Me.cbxFiskalabfertigung.TabIndex = 8 + Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben" + Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True + Me.cbxFiskalabfertigung.Visible = False + ' 'lblFisk ' Me.lblFisk.AutoSize = True @@ -1025,6 +1350,36 @@ Partial Class usrCntlKundenuebersicht "en!" Me.lblFisk.Visible = False ' + 'txtAbf_ErsteAbfertigung + ' + Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" + Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True + Me.txtAbf_ErsteAbfertigung._Prozent = False + Me.txtAbf_ErsteAbfertigung._ShortDateNew = False + Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True + Me.txtAbf_ErsteAbfertigung._TimeOnly = False + Me.txtAbf_ErsteAbfertigung._TimeOnly_Seconds = False + Me.txtAbf_ErsteAbfertigung._value = "" + Me.txtAbf_ErsteAbfertigung._Waehrung = False + Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True + Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White + Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black + Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(305, 195) + Me.txtAbf_ErsteAbfertigung.MaxLength = 10 + Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing + Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" + Me.txtAbf_ErsteAbfertigung.ReadOnly = True + Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13) + Me.txtAbf_ErsteAbfertigung.TabIndex = 14 + Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtAbf_ErsteAbfertigung.Visible = False + ' 'Label41 ' Me.Label41.AutoSize = True @@ -1107,6 +1462,20 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox6.TabStop = False Me.PictureBox6.Visible = False ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(222, 6) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(15, 12) + Me.FlatButton2.TabIndex = 11 + Me.FlatButton2.UseVisualStyleBackColor = True + ' 'btnCreditsafe ' Me.btnCreditsafe.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1120,6 +1489,35 @@ Partial Class usrCntlKundenuebersicht Me.btnCreditsafe.UseVisualStyleBackColor = True Me.btnCreditsafe.Visible = False ' + 'FlatButton6 + ' + Me.FlatButton6.allowBorder = False + Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton6.FlatAppearance.BorderSize = 0 + Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton6.ForeColor = System.Drawing.Color.Black + Me.FlatButton6.Location = New System.Drawing.Point(202, 7) + Me.FlatButton6.Name = "FlatButton6" + Me.FlatButton6.Size = New System.Drawing.Size(15, 12) + Me.FlatButton6.TabIndex = 9 + Me.FlatButton6.UseVisualStyleBackColor = True + ' + 'btnBonitaetBearbeiten + ' + Me.btnBonitaetBearbeiten.allowBorder = False + Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 + Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black + Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(183, 6) + Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" + Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) + Me.btnBonitaetBearbeiten.TabIndex = 8 + Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True + Me.btnBonitaetBearbeiten.Visible = False + ' 'Label68 ' Me.Label68.AutoSize = True @@ -1130,6 +1528,35 @@ Partial Class usrCntlKundenuebersicht Me.Label68.TabIndex = 4 Me.Label68.Text = "vom:" ' + 'lblHoechstkredit + ' + Me.lblHoechstkredit._DateTimeOnly = False + Me.lblHoechstkredit._numbersOnly = True + Me.lblHoechstkredit._numbersOnlyKommastellen = "" + Me.lblHoechstkredit._numbersOnlyTrennzeichen = True + Me.lblHoechstkredit._Prozent = False + Me.lblHoechstkredit._ShortDateNew = False + Me.lblHoechstkredit._ShortDateOnly = False + Me.lblHoechstkredit._TimeOnly = False + Me.lblHoechstkredit._TimeOnly_Seconds = False + Me.lblHoechstkredit._value = "" + Me.lblHoechstkredit._Waehrung = True + Me.lblHoechstkredit._WaehrungZeichen = True + Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black + Me.lblHoechstkredit.Location = New System.Drawing.Point(310, 5) + Me.lblHoechstkredit.MaxLineLength = -1 + Me.lblHoechstkredit.MaxLines_Warning = "" + Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing + Me.lblHoechstkredit.Name = "lblHoechstkredit" + Me.lblHoechstkredit.ReadOnly = True + Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) + Me.lblHoechstkredit.TabIndex = 7 + Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.lblHoechstkredit.Visible = False + ' 'Label69 ' Me.Label69.AutoSize = True @@ -1141,6 +1568,89 @@ Partial Class usrCntlKundenuebersicht Me.Label69.Text = "Hochstkredit:" Me.Label69.Visible = False ' + 'lblBonitaet + ' + Me.lblBonitaet._DateTimeOnly = False + Me.lblBonitaet._numbersOnly = False + Me.lblBonitaet._numbersOnlyKommastellen = "" + Me.lblBonitaet._numbersOnlyTrennzeichen = True + Me.lblBonitaet._Prozent = False + Me.lblBonitaet._ShortDateNew = False + Me.lblBonitaet._ShortDateOnly = False + Me.lblBonitaet._TimeOnly = False + Me.lblBonitaet._TimeOnly_Seconds = False + Me.lblBonitaet._value = Nothing + Me.lblBonitaet._Waehrung = False + Me.lblBonitaet._WaehrungZeichen = True + Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaet.ForeColor = System.Drawing.Color.Black + Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) + Me.lblBonitaet.MaxLineLength = -1 + Me.lblBonitaet.MaxLines_Warning = "" + Me.lblBonitaet.MaxLines_Warning_Label = Nothing + Me.lblBonitaet.Name = "lblBonitaet" + Me.lblBonitaet.ReadOnly = True + Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) + Me.lblBonitaet.TabIndex = 1 + Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetRisikostufe + ' + Me.lblBonitaetRisikostufe._DateTimeOnly = False + Me.lblBonitaetRisikostufe._numbersOnly = False + Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" + Me.lblBonitaetRisikostufe._numbersOnlyTrennzeichen = True + Me.lblBonitaetRisikostufe._Prozent = False + Me.lblBonitaetRisikostufe._ShortDateNew = False + Me.lblBonitaetRisikostufe._ShortDateOnly = False + Me.lblBonitaetRisikostufe._TimeOnly = False + Me.lblBonitaetRisikostufe._TimeOnly_Seconds = False + Me.lblBonitaetRisikostufe._value = Nothing + Me.lblBonitaetRisikostufe._Waehrung = False + Me.lblBonitaetRisikostufe._WaehrungZeichen = True + Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) + Me.lblBonitaetRisikostufe.MaxLineLength = -1 + Me.lblBonitaetRisikostufe.MaxLines_Warning = "" + Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing + Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" + Me.lblBonitaetRisikostufe.ReadOnly = True + Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) + Me.lblBonitaetRisikostufe.TabIndex = 3 + Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetsdatum + ' + Me.lblBonitaetsdatum._DateTimeOnly = False + Me.lblBonitaetsdatum._numbersOnly = False + Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" + Me.lblBonitaetsdatum._numbersOnlyTrennzeichen = True + Me.lblBonitaetsdatum._Prozent = False + Me.lblBonitaetsdatum._ShortDateNew = False + Me.lblBonitaetsdatum._ShortDateOnly = False + Me.lblBonitaetsdatum._TimeOnly = False + Me.lblBonitaetsdatum._TimeOnly_Seconds = False + Me.lblBonitaetsdatum._value = Nothing + Me.lblBonitaetsdatum._Waehrung = False + Me.lblBonitaetsdatum._WaehrungZeichen = True + Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetsdatum.Location = New System.Drawing.Point(447, 6) + Me.lblBonitaetsdatum.MaxLineLength = -1 + Me.lblBonitaetsdatum.MaxLines_Warning = "" + Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing + Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" + Me.lblBonitaetsdatum.ReadOnly = True + Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) + Me.lblBonitaetsdatum.TabIndex = 5 + ' 'Label39 ' Me.Label39.AutoSize = True @@ -1188,6 +1698,34 @@ Partial Class usrCntlKundenuebersicht Me.Panel6.Size = New System.Drawing.Size(210, 1) Me.Panel6.TabIndex = 42 ' + 'txtOPFaellig + ' + Me.txtOPFaellig._DateTimeOnly = False + Me.txtOPFaellig._numbersOnly = False + Me.txtOPFaellig._numbersOnlyKommastellen = "" + Me.txtOPFaellig._numbersOnlyTrennzeichen = True + Me.txtOPFaellig._Prozent = False + Me.txtOPFaellig._ShortDateNew = False + Me.txtOPFaellig._ShortDateOnly = False + Me.txtOPFaellig._TimeOnly = False + Me.txtOPFaellig._TimeOnly_Seconds = False + Me.txtOPFaellig._value = Nothing + Me.txtOPFaellig._Waehrung = False + Me.txtOPFaellig._WaehrungZeichen = True + Me.txtOPFaellig.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black + Me.txtOPFaellig.Location = New System.Drawing.Point(114, 6) + Me.txtOPFaellig.MaxLineLength = -1 + Me.txtOPFaellig.MaxLines_Warning = "" + Me.txtOPFaellig.MaxLines_Warning_Label = Nothing + Me.txtOPFaellig.Name = "txtOPFaellig" + Me.txtOPFaellig.ReadOnly = True + Me.txtOPFaellig.Size = New System.Drawing.Size(108, 13) + Me.txtOPFaellig.TabIndex = 30 + Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblOffenePosten ' Me.lblOffenePosten.AutoSize = True @@ -1198,6 +1736,34 @@ Partial Class usrCntlKundenuebersicht Me.lblOffenePosten.TabIndex = 27 Me.lblOffenePosten.Text = "OP-Saldo:" ' + 'txtOffenePosten + ' + Me.txtOffenePosten._DateTimeOnly = False + Me.txtOffenePosten._numbersOnly = False + Me.txtOffenePosten._numbersOnlyKommastellen = "" + Me.txtOffenePosten._numbersOnlyTrennzeichen = True + Me.txtOffenePosten._Prozent = False + Me.txtOffenePosten._ShortDateNew = False + Me.txtOffenePosten._ShortDateOnly = False + Me.txtOffenePosten._TimeOnly = False + Me.txtOffenePosten._TimeOnly_Seconds = False + Me.txtOffenePosten._value = Nothing + Me.txtOffenePosten._Waehrung = False + Me.txtOffenePosten._WaehrungZeichen = True + Me.txtOffenePosten.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black + Me.txtOffenePosten.Location = New System.Drawing.Point(114, 66) + Me.txtOffenePosten.MaxLineLength = -1 + Me.txtOffenePosten.MaxLines_Warning = "" + Me.txtOffenePosten.MaxLines_Warning_Label = Nothing + Me.txtOffenePosten.Name = "txtOffenePosten" + Me.txtOffenePosten.ReadOnly = True + Me.txtOffenePosten.Size = New System.Drawing.Size(108, 13) + Me.txtOffenePosten.TabIndex = 28 + Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label32 ' Me.Label32.AutoSize = True @@ -1208,6 +1774,34 @@ Partial Class usrCntlKundenuebersicht Me.Label32.TabIndex = 29 Me.Label32.Text = "Offene Rg. fällig:" ' + 'txtOPCredit + ' + Me.txtOPCredit._DateTimeOnly = False + Me.txtOPCredit._numbersOnly = False + Me.txtOPCredit._numbersOnlyKommastellen = "" + Me.txtOPCredit._numbersOnlyTrennzeichen = True + Me.txtOPCredit._Prozent = False + Me.txtOPCredit._ShortDateNew = False + Me.txtOPCredit._ShortDateOnly = False + Me.txtOPCredit._TimeOnly = False + Me.txtOPCredit._TimeOnly_Seconds = False + Me.txtOPCredit._value = Nothing + Me.txtOPCredit._Waehrung = False + Me.txtOPCredit._WaehrungZeichen = True + Me.txtOPCredit.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOPCredit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOPCredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOPCredit.ForeColor = System.Drawing.Color.Green + Me.txtOPCredit.Location = New System.Drawing.Point(114, 46) + Me.txtOPCredit.MaxLineLength = -1 + Me.txtOPCredit.MaxLines_Warning = "" + Me.txtOPCredit.MaxLines_Warning_Label = Nothing + Me.txtOPCredit.Name = "txtOPCredit" + Me.txtOPCredit.ReadOnly = True + Me.txtOPCredit.Size = New System.Drawing.Size(108, 13) + Me.txtOPCredit.TabIndex = 41 + Me.txtOPCredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label17 ' Me.Label17.AutoSize = True @@ -1228,6 +1822,34 @@ Partial Class usrCntlKundenuebersicht Me.Label18.TabIndex = 40 Me.Label18.Text = "- Guthaben" ' + 'txtOPNichtFaellig + ' + Me.txtOPNichtFaellig._DateTimeOnly = False + Me.txtOPNichtFaellig._numbersOnly = False + Me.txtOPNichtFaellig._numbersOnlyKommastellen = "" + Me.txtOPNichtFaellig._numbersOnlyTrennzeichen = True + Me.txtOPNichtFaellig._Prozent = False + Me.txtOPNichtFaellig._ShortDateNew = False + Me.txtOPNichtFaellig._ShortDateOnly = False + Me.txtOPNichtFaellig._TimeOnly = False + Me.txtOPNichtFaellig._TimeOnly_Seconds = False + Me.txtOPNichtFaellig._value = Nothing + Me.txtOPNichtFaellig._Waehrung = False + Me.txtOPNichtFaellig._WaehrungZeichen = True + Me.txtOPNichtFaellig.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOPNichtFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOPNichtFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOPNichtFaellig.ForeColor = System.Drawing.Color.Black + Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 25) + Me.txtOPNichtFaellig.MaxLineLength = -1 + Me.txtOPNichtFaellig.MaxLines_Warning = "" + Me.txtOPNichtFaellig.MaxLines_Warning_Label = Nothing + Me.txtOPNichtFaellig.Name = "txtOPNichtFaellig" + Me.txtOPNichtFaellig.ReadOnly = True + Me.txtOPNichtFaellig.Size = New System.Drawing.Size(108, 13) + Me.txtOPNichtFaellig.TabIndex = 39 + Me.txtOPNichtFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Panel7 ' Me.Panel7.BackColor = System.Drawing.Color.AntiqueWhite @@ -1241,6 +1863,35 @@ Partial Class usrCntlKundenuebersicht Me.Panel7.Size = New System.Drawing.Size(253, 46) Me.Panel7.TabIndex = 43 ' + 'txtOVK + ' + Me.txtOVK._DateTimeOnly = False + Me.txtOVK._numbersOnly = False + Me.txtOVK._numbersOnlyKommastellen = "" + Me.txtOVK._numbersOnlyTrennzeichen = True + Me.txtOVK._Prozent = False + Me.txtOVK._ShortDateNew = False + Me.txtOVK._ShortDateOnly = False + Me.txtOVK._TimeOnly = False + Me.txtOVK._TimeOnly_Seconds = False + Me.txtOVK._value = Nothing + Me.txtOVK._Waehrung = False + Me.txtOVK._WaehrungZeichen = True + Me.txtOVK.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOVK.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOVK.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtOVK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOVK.ForeColor = System.Drawing.Color.Green + Me.txtOVK.Location = New System.Drawing.Point(134, 4) + Me.txtOVK.MaxLineLength = -1 + Me.txtOVK.MaxLines_Warning = "" + Me.txtOVK.MaxLines_Warning_Label = Nothing + Me.txtOVK.Name = "txtOVK" + Me.txtOVK.ReadOnly = True + Me.txtOVK.Size = New System.Drawing.Size(108, 13) + Me.txtOVK.TabIndex = 44 + Me.txtOVK.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label19 ' Me.Label19.AutoSize = True @@ -1262,6 +1913,34 @@ Partial Class usrCntlKundenuebersicht Me.Label1.TabIndex = 19 Me.Label1.Text = "Kreditlimit:" ' + 'lblKreditlimit + ' + Me.lblKreditlimit._DateTimeOnly = False + Me.lblKreditlimit._numbersOnly = False + Me.lblKreditlimit._numbersOnlyKommastellen = "" + Me.lblKreditlimit._numbersOnlyTrennzeichen = True + Me.lblKreditlimit._Prozent = False + Me.lblKreditlimit._ShortDateNew = False + Me.lblKreditlimit._ShortDateOnly = False + Me.lblKreditlimit._TimeOnly = False + Me.lblKreditlimit._TimeOnly_Seconds = False + Me.lblKreditlimit._value = Nothing + Me.lblKreditlimit._Waehrung = False + Me.lblKreditlimit._WaehrungZeichen = True + Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite + Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black + Me.lblKreditlimit.Location = New System.Drawing.Point(134, 24) + Me.lblKreditlimit.MaxLineLength = -1 + Me.lblKreditlimit.MaxLines_Warning = "" + Me.lblKreditlimit.MaxLines_Warning_Label = Nothing + Me.lblKreditlimit.Name = "lblKreditlimit" + Me.lblKreditlimit.ReadOnly = True + Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13) + Me.lblKreditlimit.TabIndex = 20 + Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblVorkasse ' Me.lblVorkasse.Location = New System.Drawing.Point(366, 230) @@ -1271,6 +1950,34 @@ Partial Class usrCntlKundenuebersicht Me.lblVorkasse.Text = "Vorauskasse:" Me.lblVorkasse.Visible = False ' + 'txtZahlungsziel + ' + Me.txtZahlungsziel._DateTimeOnly = False + Me.txtZahlungsziel._numbersOnly = False + Me.txtZahlungsziel._numbersOnlyKommastellen = "" + Me.txtZahlungsziel._numbersOnlyTrennzeichen = True + Me.txtZahlungsziel._Prozent = False + Me.txtZahlungsziel._ShortDateNew = False + Me.txtZahlungsziel._ShortDateOnly = False + Me.txtZahlungsziel._TimeOnly = False + Me.txtZahlungsziel._TimeOnly_Seconds = False + Me.txtZahlungsziel._value = Nothing + Me.txtZahlungsziel._Waehrung = False + Me.txtZahlungsziel._WaehrungZeichen = True + Me.txtZahlungsziel.BackColor = System.Drawing.Color.White + Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black + Me.txtZahlungsziel.Location = New System.Drawing.Point(310, 255) + Me.txtZahlungsziel.MaxLineLength = -1 + Me.txtZahlungsziel.MaxLines_Warning = "" + Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing + Me.txtZahlungsziel.Name = "txtZahlungsziel" + Me.txtZahlungsziel.ReadOnly = True + Me.txtZahlungsziel.Size = New System.Drawing.Size(56, 13) + Me.txtZahlungsziel.TabIndex = 34 + Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'txtVeranlKd ' Me.txtVeranlKd.BackColor = System.Drawing.Color.White @@ -1345,6 +2052,43 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktKontakt.Text = "Kontakt" Me.tbKontaktKontakt.UseVisualStyleBackColor = True ' + 'btncheckliste + ' + Me.btncheckliste.allowBorder = False + Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btncheckliste.FlatAppearance.BorderSize = 0 + Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncheckliste.ForeColor = System.Drawing.Color.Black + Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist + Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btncheckliste.Location = New System.Drawing.Point(388, 107) + Me.btncheckliste.Name = "btncheckliste" + Me.btncheckliste.Size = New System.Drawing.Size(88, 53) + Me.btncheckliste.TabIndex = 9 + Me.btncheckliste.Tag = "" + Me.btncheckliste.Text = "Checkliste" + Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btncheckliste.UseVisualStyleBackColor = True + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose + Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.FlatButton1.Location = New System.Drawing.Point(392, -3) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(84, 68) + Me.FlatButton1.TabIndex = 4 + Me.FlatButton1.Tag = "" + Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben" + Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.FlatButton1.UseVisualStyleBackColor = True + Me.FlatButton1.Visible = False + ' 'PictureBox1 ' Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None @@ -1485,6 +2229,14 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktSpez.Text = "Spezifisch" Me.tbKontaktSpez.UseVisualStyleBackColor = True ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' 'Label38 ' Me.Label38.AutoSize = True @@ -1757,8 +2509,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToResizeRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31 Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill @@ -1811,8 +2563,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToOrderColumns = True Me.dgvVertraege.AllowUserToResizeRows = False - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill @@ -1870,6 +2622,29 @@ Partial Class usrCntlKundenuebersicht Me.Button12.UseVisualStyleBackColor = True Me.Button12.Visible = False ' + 'txtVertragVermerk + ' + Me.txtVertragVermerk._DateTimeOnly = False + Me.txtVertragVermerk._numbersOnly = False + Me.txtVertragVermerk._numbersOnlyKommastellen = "" + Me.txtVertragVermerk._numbersOnlyTrennzeichen = True + Me.txtVertragVermerk._Prozent = False + Me.txtVertragVermerk._ShortDateNew = False + Me.txtVertragVermerk._ShortDateOnly = False + Me.txtVertragVermerk._TimeOnly = False + Me.txtVertragVermerk._TimeOnly_Seconds = False + Me.txtVertragVermerk._value = "" + Me.txtVertragVermerk._Waehrung = False + Me.txtVertragVermerk._WaehrungZeichen = True + Me.txtVertragVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVertragVermerk.Location = New System.Drawing.Point(60, 23) + Me.txtVertragVermerk.MaxLineLength = -1 + Me.txtVertragVermerk.MaxLines_Warning = "" + Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing + Me.txtVertragVermerk.Name = "txtVertragVermerk" + Me.txtVertragVermerk.Size = New System.Drawing.Size(326, 20) + Me.txtVertragVermerk.TabIndex = 6 + ' 'Label16 ' Me.Label16.AutoSize = True @@ -1890,6 +2665,41 @@ Partial Class usrCntlKundenuebersicht Me.Label5.TabIndex = 2 Me.Label5.Text = "Datum:" ' + 'cboVertrag + ' + Me.cboVertrag._allowedValuesFreiText = Nothing + Me.cboVertrag._allowFreiText = False + Me.cboVertrag._value = "" + Me.cboVertrag.FormattingEnabled = True + Me.cboVertrag.Location = New System.Drawing.Point(60, 3) + Me.cboVertrag.Name = "cboVertrag" + Me.cboVertrag.Size = New System.Drawing.Size(178, 21) + Me.cboVertrag.TabIndex = 1 + ' + 'datVertrag + ' + Me.datVertrag._DateTimeOnly = False + Me.datVertrag._numbersOnly = False + Me.datVertrag._numbersOnlyKommastellen = "" + Me.datVertrag._numbersOnlyTrennzeichen = True + Me.datVertrag._Prozent = False + Me.datVertrag._ShortDateNew = True + Me.datVertrag._ShortDateOnly = False + Me.datVertrag._TimeOnly = False + Me.datVertrag._TimeOnly_Seconds = False + Me.datVertrag._value = "" + Me.datVertrag._Waehrung = False + Me.datVertrag._WaehrungZeichen = True + Me.datVertrag.ForeColor = System.Drawing.Color.Black + Me.datVertrag.Location = New System.Drawing.Point(291, 3) + Me.datVertrag.MaxLength = 10 + Me.datVertrag.MaxLineLength = -1 + Me.datVertrag.MaxLines_Warning = "" + Me.datVertrag.MaxLines_Warning_Label = Nothing + Me.datVertrag.Name = "datVertrag" + Me.datVertrag.Size = New System.Drawing.Size(95, 20) + Me.datVertrag.TabIndex = 3 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -1929,8 +2739,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToResizeRows = False - DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33 Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill @@ -1968,6 +2778,56 @@ Partial Class usrCntlKundenuebersicht Me.cbxGG.Text = "generelle Gestellungsgarantie" Me.cbxGG.UseVisualStyleBackColor = True ' + 'txtGGDatum + ' + Me.txtGGDatum._DateTimeOnly = False + Me.txtGGDatum._numbersOnly = False + Me.txtGGDatum._numbersOnlyKommastellen = "" + Me.txtGGDatum._numbersOnlyTrennzeichen = True + Me.txtGGDatum._Prozent = False + Me.txtGGDatum._ShortDateNew = True + Me.txtGGDatum._ShortDateOnly = False + Me.txtGGDatum._TimeOnly = False + Me.txtGGDatum._TimeOnly_Seconds = False + Me.txtGGDatum._value = "" + Me.txtGGDatum._Waehrung = False + Me.txtGGDatum._WaehrungZeichen = True + Me.txtGGDatum.ForeColor = System.Drawing.Color.Black + Me.txtGGDatum.Location = New System.Drawing.Point(256, 7) + Me.txtGGDatum.MaxLength = 10 + Me.txtGGDatum.MaxLineLength = -1 + Me.txtGGDatum.MaxLines_Warning = "" + Me.txtGGDatum.MaxLines_Warning_Label = Nothing + Me.txtGGDatum.Name = "txtGGDatum" + Me.txtGGDatum.Size = New System.Drawing.Size(100, 20) + Me.txtGGDatum.TabIndex = 2 + ' + 'txtT1VerzollungsadresseBestimmungszollstelle + ' + Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True + Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL" + Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT" + Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False + Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7) + Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8 + Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle" + Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True + Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20) + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 1 + Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing + ' 'Label11 ' Me.Label11.AutoSize = True @@ -2016,6 +2876,16 @@ Partial Class usrCntlKundenuebersicht Me.tbAvisoMail.Text = "Aviso E-Mails" Me.tbAvisoMail.UseVisualStyleBackColor = True ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + ' 'tbKdSpez ' Me.tbKdSpez.Controls.Add(Me.Label14) @@ -2103,6 +2973,69 @@ Partial Class usrCntlKundenuebersicht Me.Label10.TabIndex = 0 Me.Label10.Text = "Dokumente bei LKW-Freigabe senden:" ' + 'txtInfoKdAtrNr + ' + Me.txtInfoKdAtrNr._DateTimeOnly = False + Me.txtInfoKdAtrNr._numbersOnly = False + Me.txtInfoKdAtrNr._numbersOnlyKommastellen = "" + Me.txtInfoKdAtrNr._numbersOnlyTrennzeichen = True + Me.txtInfoKdAtrNr._Prozent = False + Me.txtInfoKdAtrNr._ShortDateNew = False + Me.txtInfoKdAtrNr._ShortDateOnly = False + Me.txtInfoKdAtrNr._TimeOnly = False + Me.txtInfoKdAtrNr._TimeOnly_Seconds = False + Me.txtInfoKdAtrNr._value = "" + Me.txtInfoKdAtrNr._Waehrung = False + Me.txtInfoKdAtrNr._WaehrungZeichen = True + Me.txtInfoKdAtrNr.Enabled = False + Me.txtInfoKdAtrNr.ForeColor = System.Drawing.Color.Black + Me.txtInfoKdAtrNr.Location = New System.Drawing.Point(266, 41) + Me.txtInfoKdAtrNr.MaxLineLength = -1 + Me.txtInfoKdAtrNr.MaxLines_Warning = "" + Me.txtInfoKdAtrNr.MaxLines_Warning_Label = Nothing + Me.txtInfoKdAtrNr.Name = "txtInfoKdAtrNr" + Me.txtInfoKdAtrNr.Size = New System.Drawing.Size(192, 20) + Me.txtInfoKdAtrNr.TabIndex = 6 + ' + 'txtFixeKdAtrNr + ' + Me.txtFixeKdAtrNr._DateTimeOnly = False + Me.txtFixeKdAtrNr._numbersOnly = False + Me.txtFixeKdAtrNr._numbersOnlyKommastellen = "" + Me.txtFixeKdAtrNr._numbersOnlyTrennzeichen = True + Me.txtFixeKdAtrNr._Prozent = False + Me.txtFixeKdAtrNr._ShortDateNew = False + Me.txtFixeKdAtrNr._ShortDateOnly = False + Me.txtFixeKdAtrNr._TimeOnly = False + Me.txtFixeKdAtrNr._TimeOnly_Seconds = False + Me.txtFixeKdAtrNr._value = "" + Me.txtFixeKdAtrNr._Waehrung = False + Me.txtFixeKdAtrNr._WaehrungZeichen = True + Me.txtFixeKdAtrNr.Enabled = False + Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black + Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22) + Me.txtFixeKdAtrNr.MaxLineLength = -1 + Me.txtFixeKdAtrNr.MaxLines_Warning = "" + Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing + Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr" + Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20) + Me.txtFixeKdAtrNr.TabIndex = 4 + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.FlatButton4.Location = New System.Drawing.Point(365, 134) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(92, 26) + Me.FlatButton4.TabIndex = 9 + Me.FlatButton4.Tag = "" + Me.FlatButton4.Text = "Speichern" + Me.FlatButton4.UseVisualStyleBackColor = True + ' 'tbSonstiges ' Me.tbSonstiges.Controls.Add(Me.Label6) @@ -2253,6 +3186,94 @@ Partial Class usrCntlKundenuebersicht Me.lblEORINr.TabIndex = 5 Me.lblEORINr.Text = "EORI-Nr.:" ' + 'dgvAufschub + ' + Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAufschub.AllowUserToAddRows = False + Me.dgvAufschub.AllowUserToDeleteRows = False + Me.dgvAufschub.AllowUserToResizeColumns = False + Me.dgvAufschub.AllowUserToResizeRows = False + Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34 + Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN}) + DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36 + Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) + Me.dgvAufschub.MultiSelect = False + Me.dgvAufschub.Name = "dgvAufschub" + Me.dgvAufschub.ReadOnly = True + Me.dgvAufschub.RowHeadersVisible = False + Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAufschub.Size = New System.Drawing.Size(473, 75) + Me.dgvAufschub.TabIndex = 11 + Me.dgvAufschub.TabStop = False + ' + 'KtoId + ' + Me.KtoId.HeaderText = "Id" + Me.KtoId.Name = "KtoId" + Me.KtoId.ReadOnly = True + Me.KtoId.Visible = False + ' + 'Art + ' + Me.Art.HeaderText = "Aufschub" + Me.Art.Name = "Art" + Me.Art.ReadOnly = True + Me.Art.Width = 120 + ' + 'HZA + ' + DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle35 + Me.HZA.HeaderText = "HZA" + Me.HZA.Name = "HZA" + Me.HZA.ReadOnly = True + Me.HZA.Width = 35 + ' + 'KontoNr + ' + Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.KontoNr.HeaderText = "Konto Nr." + Me.KontoNr.Name = "KontoNr" + Me.KontoNr.ReadOnly = True + Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + ' + 'EORI + ' + Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.EORI.HeaderText = "EORI" + Me.EORI.Name = "EORI" + Me.EORI.ReadOnly = True + ' + 'NL + ' + Me.NL.HeaderText = "NL" + Me.NL.Name = "NL" + Me.NL.ReadOnly = True + Me.NL.Width = 60 + ' + 'BIN + ' + Me.BIN.HeaderText = "BIN" + Me.BIN.Name = "BIN" + Me.BIN.ReadOnly = True + Me.BIN.Visible = False + ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem}) @@ -2430,1012 +3451,6 @@ Partial Class usrCntlKundenuebersicht Me.cboFirmaFMZOLL.TabIndex = 10 Me.cboFirmaFMZOLL.Visible = False ' - 'txtSperreGrund - ' - Me.txtSperreGrund._DateTimeOnly = False - Me.txtSperreGrund._numbersOnly = False - Me.txtSperreGrund._numbersOnlyKommastellen = "" - Me.txtSperreGrund._numbersOnlyTrennzeichen = True - Me.txtSperreGrund._Prozent = False - Me.txtSperreGrund._ShortDateNew = False - Me.txtSperreGrund._ShortDateOnly = False - Me.txtSperreGrund._TimeOnly = False - Me.txtSperreGrund._TimeOnly_Seconds = False - Me.txtSperreGrund._value = Nothing - Me.txtSperreGrund._Waehrung = False - Me.txtSperreGrund._WaehrungZeichen = True - Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black - Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7) - Me.txtSperreGrund.MaxLineLength = -1 - Me.txtSperreGrund.MaxLines_Warning = "" - Me.txtSperreGrund.MaxLines_Warning_Label = Nothing - Me.txtSperreGrund.Name = "txtSperreGrund" - Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20) - Me.txtSperreGrund.TabIndex = 4 - ' - 'txtSperreDat - ' - Me.txtSperreDat._DateTimeOnly = False - Me.txtSperreDat._numbersOnly = False - Me.txtSperreDat._numbersOnlyKommastellen = "" - Me.txtSperreDat._numbersOnlyTrennzeichen = True - Me.txtSperreDat._Prozent = False - Me.txtSperreDat._ShortDateNew = False - Me.txtSperreDat._ShortDateOnly = False - Me.txtSperreDat._TimeOnly = False - Me.txtSperreDat._TimeOnly_Seconds = False - Me.txtSperreDat._value = Nothing - Me.txtSperreDat._Waehrung = False - Me.txtSperreDat._WaehrungZeichen = True - Me.txtSperreDat.BackColor = System.Drawing.Color.White - Me.txtSperreDat.ForeColor = System.Drawing.Color.Black - Me.txtSperreDat.Location = New System.Drawing.Point(129, 7) - Me.txtSperreDat.MaxLineLength = -1 - Me.txtSperreDat.MaxLines_Warning = "" - Me.txtSperreDat.MaxLines_Warning_Label = Nothing - Me.txtSperreDat.Name = "txtSperreDat" - Me.txtSperreDat.ReadOnly = True - Me.txtSperreDat.Size = New System.Drawing.Size(100, 20) - Me.txtSperreDat.TabIndex = 2 - ' - 'txtOpLeihgeld - ' - Me.txtOpLeihgeld._DateTimeOnly = False - Me.txtOpLeihgeld._numbersOnly = False - Me.txtOpLeihgeld._numbersOnlyKommastellen = "" - Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True - Me.txtOpLeihgeld._Prozent = False - Me.txtOpLeihgeld._ShortDateNew = False - Me.txtOpLeihgeld._ShortDateOnly = False - Me.txtOpLeihgeld._TimeOnly = False - Me.txtOpLeihgeld._TimeOnly_Seconds = False - Me.txtOpLeihgeld._value = Nothing - Me.txtOpLeihgeld._Waehrung = False - Me.txtOpLeihgeld._WaehrungZeichen = True - Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White - Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black - Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9) - Me.txtOpLeihgeld.MaxLineLength = -1 - Me.txtOpLeihgeld.MaxLines_Warning = "" - Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing - Me.txtOpLeihgeld.Name = "txtOpLeihgeld" - Me.txtOpLeihgeld.ReadOnly = True - Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13) - Me.txtOpLeihgeld.TabIndex = 1 - Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'usrCntlAnhaenge - ' - Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = "" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = "" - Me.usrCntlAnhaenge._OPEN_ORIGINAL = False - Me.usrCntlAnhaenge._TYPE = "" - Me.usrCntlAnhaenge.AllowDrop = True - Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White - Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default - Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0) - Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0) - Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge" - Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255) - Me.usrCntlAnhaenge.TabIndex = 0 - ' - 'btnThereforeTarifNr - ' - Me.btnThereforeTarifNr.allowBorder = False - Me.btnThereforeTarifNr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnThereforeTarifNr.FlatAppearance.BorderSize = 0 - Me.btnThereforeTarifNr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnThereforeTarifNr.ForeColor = System.Drawing.Color.Black - Me.btnThereforeTarifNr.Image = Global.SDL.My.Resources.Resources.therefore1 - Me.btnThereforeTarifNr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnThereforeTarifNr.Location = New System.Drawing.Point(5, 3) - Me.btnThereforeTarifNr.Name = "btnThereforeTarifNr" - Me.btnThereforeTarifNr.Size = New System.Drawing.Size(118, 33) - Me.btnThereforeTarifNr.TabIndex = 0 - Me.btnThereforeTarifNr.Tag = "" - Me.btnThereforeTarifNr.Text = "Tarifnummern" - Me.btnThereforeTarifNr.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnThereforeTarifNr.UseVisualStyleBackColor = True - ' - 'btnThereforeKundeninfo - ' - Me.btnThereforeKundeninfo.allowBorder = False - Me.btnThereforeKundeninfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnThereforeKundeninfo.FlatAppearance.BorderSize = 0 - Me.btnThereforeKundeninfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnThereforeKundeninfo.ForeColor = System.Drawing.Color.Black - Me.btnThereforeKundeninfo.Image = Global.SDL.My.Resources.Resources.therefore1 - Me.btnThereforeKundeninfo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnThereforeKundeninfo.Location = New System.Drawing.Point(144, 3) - Me.btnThereforeKundeninfo.Name = "btnThereforeKundeninfo" - Me.btnThereforeKundeninfo.Size = New System.Drawing.Size(118, 33) - Me.btnThereforeKundeninfo.TabIndex = 1 - Me.btnThereforeKundeninfo.Tag = "" - Me.btnThereforeKundeninfo.Text = "Kundeninfo" - Me.btnThereforeKundeninfo.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnThereforeKundeninfo.UseVisualStyleBackColor = True - ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.AutoScroll = True - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' - 'txtKundenbetreuerTeam - ' - Me.txtKundenbetreuerTeam._DateTimeOnly = False - Me.txtKundenbetreuerTeam._numbersOnly = False - Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = "" - Me.txtKundenbetreuerTeam._numbersOnlyTrennzeichen = True - Me.txtKundenbetreuerTeam._Prozent = False - Me.txtKundenbetreuerTeam._ShortDateNew = False - Me.txtKundenbetreuerTeam._ShortDateOnly = False - Me.txtKundenbetreuerTeam._TimeOnly = False - Me.txtKundenbetreuerTeam._TimeOnly_Seconds = False - Me.txtKundenbetreuerTeam._value = "-" - Me.txtKundenbetreuerTeam._Waehrung = False - Me.txtKundenbetreuerTeam._WaehrungZeichen = True - Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 23) - Me.txtKundenbetreuerTeam.MaxLineLength = -1 - Me.txtKundenbetreuerTeam.MaxLines_Warning = "" - Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam" - Me.txtKundenbetreuerTeam.ReadOnly = True - Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(168, 13) - Me.txtKundenbetreuerTeam.TabIndex = 2 - Me.txtKundenbetreuerTeam.Text = "-" - ' - 'btnVeragAnspr - ' - Me.btnVeragAnspr.allowBorder = False - Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift - Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnVeragAnspr.FlatAppearance.BorderSize = 0 - Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black - Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7) - Me.btnVeragAnspr.Name = "btnVeragAnspr" - Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12) - Me.btnVeragAnspr.TabIndex = 1 - Me.btnVeragAnspr.UseVisualStyleBackColor = True - Me.btnVeragAnspr.Visible = False - ' - 'txtKundenbetreuerVertretung - ' - Me.txtKundenbetreuerVertretung._DateTimeOnly = False - Me.txtKundenbetreuerVertretung._numbersOnly = False - Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = "" - Me.txtKundenbetreuerVertretung._numbersOnlyTrennzeichen = True - Me.txtKundenbetreuerVertretung._Prozent = False - Me.txtKundenbetreuerVertretung._ShortDateNew = False - Me.txtKundenbetreuerVertretung._ShortDateOnly = False - Me.txtKundenbetreuerVertretung._TimeOnly = False - Me.txtKundenbetreuerVertretung._TimeOnly_Seconds = False - Me.txtKundenbetreuerVertretung._value = "-" - Me.txtKundenbetreuerVertretung._Waehrung = False - Me.txtKundenbetreuerVertretung._WaehrungZeichen = True - Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 61) - Me.txtKundenbetreuerVertretung.MaxLineLength = -1 - Me.txtKundenbetreuerVertretung.MaxLines_Warning = "" - Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuerVertretung.Multiline = True - Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung" - Me.txtKundenbetreuerVertretung.ReadOnly = True - Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(168, 24) - Me.txtKundenbetreuerVertretung.TabIndex = 4 - Me.txtKundenbetreuerVertretung.Text = "-" - Me.txtKundenbetreuerVertretung.Visible = False - ' - 'txtKundenbetreuer - ' - Me.txtKundenbetreuer._DateTimeOnly = False - Me.txtKundenbetreuer._numbersOnly = False - Me.txtKundenbetreuer._numbersOnlyKommastellen = "" - Me.txtKundenbetreuer._numbersOnlyTrennzeichen = True - Me.txtKundenbetreuer._Prozent = False - Me.txtKundenbetreuer._ShortDateNew = False - Me.txtKundenbetreuer._ShortDateOnly = False - Me.txtKundenbetreuer._TimeOnly = False - Me.txtKundenbetreuer._TimeOnly_Seconds = False - Me.txtKundenbetreuer._value = "-" - Me.txtKundenbetreuer._Waehrung = False - Me.txtKundenbetreuer._WaehrungZeichen = True - Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 42) - Me.txtKundenbetreuer.MaxLineLength = -1 - Me.txtKundenbetreuer.MaxLines_Warning = "" - Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuer.Name = "txtKundenbetreuer" - Me.txtKundenbetreuer.ReadOnly = True - Me.txtKundenbetreuer.Size = New System.Drawing.Size(168, 13) - Me.txtKundenbetreuer.TabIndex = 3 - Me.txtKundenbetreuer.Text = "-" - ' - 'btnPunkt2Save - ' - Me.btnPunkt2Save.allowBorder = False - Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save - Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnPunkt2Save.FlatAppearance.BorderSize = 0 - Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black - Me.btnPunkt2Save.Location = New System.Drawing.Point(647, 205) - Me.btnPunkt2Save.Name = "btnPunkt2Save" - Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20) - Me.btnPunkt2Save.TabIndex = 12 - Me.btnPunkt2Save.UseVisualStyleBackColor = True - Me.btnPunkt2Save.Visible = False - ' - 'txtUmsatzJahr - ' - Me.txtUmsatzJahr._DateTimeOnly = False - Me.txtUmsatzJahr._numbersOnly = False - Me.txtUmsatzJahr._numbersOnlyKommastellen = "" - Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True - Me.txtUmsatzJahr._Prozent = False - Me.txtUmsatzJahr._ShortDateNew = False - Me.txtUmsatzJahr._ShortDateOnly = False - Me.txtUmsatzJahr._TimeOnly = False - Me.txtUmsatzJahr._TimeOnly_Seconds = False - Me.txtUmsatzJahr._value = Nothing - Me.txtUmsatzJahr._Waehrung = False - Me.txtUmsatzJahr._WaehrungZeichen = True - Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White - Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black - Me.txtUmsatzJahr.Location = New System.Drawing.Point(383, 274) - Me.txtUmsatzJahr.MaxLineLength = -1 - Me.txtUmsatzJahr.MaxLines_Warning = "" - Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing - Me.txtUmsatzJahr.Name = "txtUmsatzJahr" - Me.txtUmsatzJahr.ReadOnly = True - Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13) - Me.txtUmsatzJahr.TabIndex = 32 - Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'cbxFiskalabfertigung - ' - Me.cbxFiskalabfertigung._value = "" - Me.cbxFiskalabfertigung.AutoSize = True - Me.cbxFiskalabfertigung.Checked_value = False - Me.cbxFiskalabfertigung.CheckedValue = False - Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134) - Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung" - Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17) - Me.cbxFiskalabfertigung.TabIndex = 8 - Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben" - Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True - Me.cbxFiskalabfertigung.Visible = False - ' - 'txtAbf_ErsteAbfertigung - ' - Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" - Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True - Me.txtAbf_ErsteAbfertigung._Prozent = False - Me.txtAbf_ErsteAbfertigung._ShortDateNew = False - Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True - Me.txtAbf_ErsteAbfertigung._TimeOnly = False - Me.txtAbf_ErsteAbfertigung._TimeOnly_Seconds = False - Me.txtAbf_ErsteAbfertigung._value = "" - Me.txtAbf_ErsteAbfertigung._Waehrung = False - Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True - Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White - Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black - Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(305, 195) - Me.txtAbf_ErsteAbfertigung.MaxLength = 10 - Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing - Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" - Me.txtAbf_ErsteAbfertigung.ReadOnly = True - Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13) - Me.txtAbf_ErsteAbfertigung.TabIndex = 14 - Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtAbf_ErsteAbfertigung.Visible = False - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf - Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(222, 6) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(15, 12) - Me.FlatButton2.TabIndex = 11 - Me.FlatButton2.UseVisualStyleBackColor = True - ' - 'FlatButton6 - ' - Me.FlatButton6.allowBorder = False - Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton6.FlatAppearance.BorderSize = 0 - Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton6.ForeColor = System.Drawing.Color.Black - Me.FlatButton6.Location = New System.Drawing.Point(202, 7) - Me.FlatButton6.Name = "FlatButton6" - Me.FlatButton6.Size = New System.Drawing.Size(15, 12) - Me.FlatButton6.TabIndex = 9 - Me.FlatButton6.UseVisualStyleBackColor = True - ' - 'btnBonitaetBearbeiten - ' - Me.btnBonitaetBearbeiten.allowBorder = False - Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 - Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black - Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(183, 6) - Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" - Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) - Me.btnBonitaetBearbeiten.TabIndex = 8 - Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True - Me.btnBonitaetBearbeiten.Visible = False - ' - 'lblHoechstkredit - ' - Me.lblHoechstkredit._DateTimeOnly = False - Me.lblHoechstkredit._numbersOnly = True - Me.lblHoechstkredit._numbersOnlyKommastellen = "" - Me.lblHoechstkredit._numbersOnlyTrennzeichen = True - Me.lblHoechstkredit._Prozent = False - Me.lblHoechstkredit._ShortDateNew = False - Me.lblHoechstkredit._ShortDateOnly = False - Me.lblHoechstkredit._TimeOnly = False - Me.lblHoechstkredit._TimeOnly_Seconds = False - Me.lblHoechstkredit._value = "" - Me.lblHoechstkredit._Waehrung = True - Me.lblHoechstkredit._WaehrungZeichen = True - Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black - Me.lblHoechstkredit.Location = New System.Drawing.Point(310, 5) - Me.lblHoechstkredit.MaxLineLength = -1 - Me.lblHoechstkredit.MaxLines_Warning = "" - Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing - Me.lblHoechstkredit.Name = "lblHoechstkredit" - Me.lblHoechstkredit.ReadOnly = True - Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) - Me.lblHoechstkredit.TabIndex = 7 - Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.lblHoechstkredit.Visible = False - ' - 'lblBonitaet - ' - Me.lblBonitaet._DateTimeOnly = False - Me.lblBonitaet._numbersOnly = False - Me.lblBonitaet._numbersOnlyKommastellen = "" - Me.lblBonitaet._numbersOnlyTrennzeichen = True - Me.lblBonitaet._Prozent = False - Me.lblBonitaet._ShortDateNew = False - Me.lblBonitaet._ShortDateOnly = False - Me.lblBonitaet._TimeOnly = False - Me.lblBonitaet._TimeOnly_Seconds = False - Me.lblBonitaet._value = Nothing - Me.lblBonitaet._Waehrung = False - Me.lblBonitaet._WaehrungZeichen = True - Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaet.ForeColor = System.Drawing.Color.Black - Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) - Me.lblBonitaet.MaxLineLength = -1 - Me.lblBonitaet.MaxLines_Warning = "" - Me.lblBonitaet.MaxLines_Warning_Label = Nothing - Me.lblBonitaet.Name = "lblBonitaet" - Me.lblBonitaet.ReadOnly = True - Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) - Me.lblBonitaet.TabIndex = 1 - Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'lblBonitaetRisikostufe - ' - Me.lblBonitaetRisikostufe._DateTimeOnly = False - Me.lblBonitaetRisikostufe._numbersOnly = False - Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" - Me.lblBonitaetRisikostufe._numbersOnlyTrennzeichen = True - Me.lblBonitaetRisikostufe._Prozent = False - Me.lblBonitaetRisikostufe._ShortDateNew = False - Me.lblBonitaetRisikostufe._ShortDateOnly = False - Me.lblBonitaetRisikostufe._TimeOnly = False - Me.lblBonitaetRisikostufe._TimeOnly_Seconds = False - Me.lblBonitaetRisikostufe._value = Nothing - Me.lblBonitaetRisikostufe._Waehrung = False - Me.lblBonitaetRisikostufe._WaehrungZeichen = True - Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black - Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) - Me.lblBonitaetRisikostufe.MaxLineLength = -1 - Me.lblBonitaetRisikostufe.MaxLines_Warning = "" - Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing - Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" - Me.lblBonitaetRisikostufe.ReadOnly = True - Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) - Me.lblBonitaetRisikostufe.TabIndex = 3 - Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'lblBonitaetsdatum - ' - Me.lblBonitaetsdatum._DateTimeOnly = False - Me.lblBonitaetsdatum._numbersOnly = False - Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" - Me.lblBonitaetsdatum._numbersOnlyTrennzeichen = True - Me.lblBonitaetsdatum._Prozent = False - Me.lblBonitaetsdatum._ShortDateNew = False - Me.lblBonitaetsdatum._ShortDateOnly = False - Me.lblBonitaetsdatum._TimeOnly = False - Me.lblBonitaetsdatum._TimeOnly_Seconds = False - Me.lblBonitaetsdatum._value = Nothing - Me.lblBonitaetsdatum._Waehrung = False - Me.lblBonitaetsdatum._WaehrungZeichen = True - Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black - Me.lblBonitaetsdatum.Location = New System.Drawing.Point(447, 6) - Me.lblBonitaetsdatum.MaxLineLength = -1 - Me.lblBonitaetsdatum.MaxLines_Warning = "" - Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing - Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" - Me.lblBonitaetsdatum.ReadOnly = True - Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) - Me.lblBonitaetsdatum.TabIndex = 5 - ' - 'txtOPFaellig - ' - Me.txtOPFaellig._DateTimeOnly = False - Me.txtOPFaellig._numbersOnly = False - Me.txtOPFaellig._numbersOnlyKommastellen = "" - Me.txtOPFaellig._numbersOnlyTrennzeichen = True - Me.txtOPFaellig._Prozent = False - Me.txtOPFaellig._ShortDateNew = False - Me.txtOPFaellig._ShortDateOnly = False - Me.txtOPFaellig._TimeOnly = False - Me.txtOPFaellig._TimeOnly_Seconds = False - Me.txtOPFaellig._value = Nothing - Me.txtOPFaellig._Waehrung = False - Me.txtOPFaellig._WaehrungZeichen = True - Me.txtOPFaellig.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black - Me.txtOPFaellig.Location = New System.Drawing.Point(114, 6) - Me.txtOPFaellig.MaxLineLength = -1 - Me.txtOPFaellig.MaxLines_Warning = "" - Me.txtOPFaellig.MaxLines_Warning_Label = Nothing - Me.txtOPFaellig.Name = "txtOPFaellig" - Me.txtOPFaellig.ReadOnly = True - Me.txtOPFaellig.Size = New System.Drawing.Size(108, 13) - Me.txtOPFaellig.TabIndex = 30 - Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOffenePosten - ' - Me.txtOffenePosten._DateTimeOnly = False - Me.txtOffenePosten._numbersOnly = False - Me.txtOffenePosten._numbersOnlyKommastellen = "" - Me.txtOffenePosten._numbersOnlyTrennzeichen = True - Me.txtOffenePosten._Prozent = False - Me.txtOffenePosten._ShortDateNew = False - Me.txtOffenePosten._ShortDateOnly = False - Me.txtOffenePosten._TimeOnly = False - Me.txtOffenePosten._TimeOnly_Seconds = False - Me.txtOffenePosten._value = Nothing - Me.txtOffenePosten._Waehrung = False - Me.txtOffenePosten._WaehrungZeichen = True - Me.txtOffenePosten.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black - Me.txtOffenePosten.Location = New System.Drawing.Point(114, 66) - Me.txtOffenePosten.MaxLineLength = -1 - Me.txtOffenePosten.MaxLines_Warning = "" - Me.txtOffenePosten.MaxLines_Warning_Label = Nothing - Me.txtOffenePosten.Name = "txtOffenePosten" - Me.txtOffenePosten.ReadOnly = True - Me.txtOffenePosten.Size = New System.Drawing.Size(108, 13) - Me.txtOffenePosten.TabIndex = 28 - Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOPCredit - ' - Me.txtOPCredit._DateTimeOnly = False - Me.txtOPCredit._numbersOnly = False - Me.txtOPCredit._numbersOnlyKommastellen = "" - Me.txtOPCredit._numbersOnlyTrennzeichen = True - Me.txtOPCredit._Prozent = False - Me.txtOPCredit._ShortDateNew = False - Me.txtOPCredit._ShortDateOnly = False - Me.txtOPCredit._TimeOnly = False - Me.txtOPCredit._TimeOnly_Seconds = False - Me.txtOPCredit._value = Nothing - Me.txtOPCredit._Waehrung = False - Me.txtOPCredit._WaehrungZeichen = True - Me.txtOPCredit.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOPCredit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOPCredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOPCredit.ForeColor = System.Drawing.Color.Green - Me.txtOPCredit.Location = New System.Drawing.Point(114, 46) - Me.txtOPCredit.MaxLineLength = -1 - Me.txtOPCredit.MaxLines_Warning = "" - Me.txtOPCredit.MaxLines_Warning_Label = Nothing - Me.txtOPCredit.Name = "txtOPCredit" - Me.txtOPCredit.ReadOnly = True - Me.txtOPCredit.Size = New System.Drawing.Size(108, 13) - Me.txtOPCredit.TabIndex = 41 - Me.txtOPCredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOPNichtFaellig - ' - Me.txtOPNichtFaellig._DateTimeOnly = False - Me.txtOPNichtFaellig._numbersOnly = False - Me.txtOPNichtFaellig._numbersOnlyKommastellen = "" - Me.txtOPNichtFaellig._numbersOnlyTrennzeichen = True - Me.txtOPNichtFaellig._Prozent = False - Me.txtOPNichtFaellig._ShortDateNew = False - Me.txtOPNichtFaellig._ShortDateOnly = False - Me.txtOPNichtFaellig._TimeOnly = False - Me.txtOPNichtFaellig._TimeOnly_Seconds = False - Me.txtOPNichtFaellig._value = Nothing - Me.txtOPNichtFaellig._Waehrung = False - Me.txtOPNichtFaellig._WaehrungZeichen = True - Me.txtOPNichtFaellig.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOPNichtFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOPNichtFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOPNichtFaellig.ForeColor = System.Drawing.Color.Black - Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 25) - Me.txtOPNichtFaellig.MaxLineLength = -1 - Me.txtOPNichtFaellig.MaxLines_Warning = "" - Me.txtOPNichtFaellig.MaxLines_Warning_Label = Nothing - Me.txtOPNichtFaellig.Name = "txtOPNichtFaellig" - Me.txtOPNichtFaellig.ReadOnly = True - Me.txtOPNichtFaellig.Size = New System.Drawing.Size(108, 13) - Me.txtOPNichtFaellig.TabIndex = 39 - Me.txtOPNichtFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOVK - ' - Me.txtOVK._DateTimeOnly = False - Me.txtOVK._numbersOnly = False - Me.txtOVK._numbersOnlyKommastellen = "" - Me.txtOVK._numbersOnlyTrennzeichen = True - Me.txtOVK._Prozent = False - Me.txtOVK._ShortDateNew = False - Me.txtOVK._ShortDateOnly = False - Me.txtOVK._TimeOnly = False - Me.txtOVK._TimeOnly_Seconds = False - Me.txtOVK._value = Nothing - Me.txtOVK._Waehrung = False - Me.txtOVK._WaehrungZeichen = True - Me.txtOVK.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOVK.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOVK.Cursor = System.Windows.Forms.Cursors.Hand - Me.txtOVK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOVK.ForeColor = System.Drawing.Color.Green - Me.txtOVK.Location = New System.Drawing.Point(134, 4) - Me.txtOVK.MaxLineLength = -1 - Me.txtOVK.MaxLines_Warning = "" - Me.txtOVK.MaxLines_Warning_Label = Nothing - Me.txtOVK.Name = "txtOVK" - Me.txtOVK.ReadOnly = True - Me.txtOVK.Size = New System.Drawing.Size(108, 13) - Me.txtOVK.TabIndex = 44 - Me.txtOVK.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'lblKreditlimit - ' - Me.lblKreditlimit._DateTimeOnly = False - Me.lblKreditlimit._numbersOnly = False - Me.lblKreditlimit._numbersOnlyKommastellen = "" - Me.lblKreditlimit._numbersOnlyTrennzeichen = True - Me.lblKreditlimit._Prozent = False - Me.lblKreditlimit._ShortDateNew = False - Me.lblKreditlimit._ShortDateOnly = False - Me.lblKreditlimit._TimeOnly = False - Me.lblKreditlimit._TimeOnly_Seconds = False - Me.lblKreditlimit._value = Nothing - Me.lblKreditlimit._Waehrung = False - Me.lblKreditlimit._WaehrungZeichen = True - Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite - Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black - Me.lblKreditlimit.Location = New System.Drawing.Point(134, 24) - Me.lblKreditlimit.MaxLineLength = -1 - Me.lblKreditlimit.MaxLines_Warning = "" - Me.lblKreditlimit.MaxLines_Warning_Label = Nothing - Me.lblKreditlimit.Name = "lblKreditlimit" - Me.lblKreditlimit.ReadOnly = True - Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13) - Me.lblKreditlimit.TabIndex = 20 - Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtZahlungsziel - ' - Me.txtZahlungsziel._DateTimeOnly = False - Me.txtZahlungsziel._numbersOnly = False - Me.txtZahlungsziel._numbersOnlyKommastellen = "" - Me.txtZahlungsziel._numbersOnlyTrennzeichen = True - Me.txtZahlungsziel._Prozent = False - Me.txtZahlungsziel._ShortDateNew = False - Me.txtZahlungsziel._ShortDateOnly = False - Me.txtZahlungsziel._TimeOnly = False - Me.txtZahlungsziel._TimeOnly_Seconds = False - Me.txtZahlungsziel._value = Nothing - Me.txtZahlungsziel._Waehrung = False - Me.txtZahlungsziel._WaehrungZeichen = True - Me.txtZahlungsziel.BackColor = System.Drawing.Color.White - Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black - Me.txtZahlungsziel.Location = New System.Drawing.Point(310, 255) - Me.txtZahlungsziel.MaxLineLength = -1 - Me.txtZahlungsziel.MaxLines_Warning = "" - Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing - Me.txtZahlungsziel.Name = "txtZahlungsziel" - Me.txtZahlungsziel.ReadOnly = True - Me.txtZahlungsziel.Size = New System.Drawing.Size(56, 13) - Me.txtZahlungsziel.TabIndex = 34 - Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'btncheckliste - ' - Me.btncheckliste.allowBorder = False - Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btncheckliste.FlatAppearance.BorderSize = 0 - Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btncheckliste.ForeColor = System.Drawing.Color.Black - Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist - Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btncheckliste.Location = New System.Drawing.Point(388, 107) - Me.btncheckliste.Name = "btncheckliste" - Me.btncheckliste.Size = New System.Drawing.Size(88, 53) - Me.btncheckliste.TabIndex = 9 - Me.btncheckliste.Tag = "" - Me.btncheckliste.Text = "Checkliste" - Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btncheckliste.UseVisualStyleBackColor = True - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose - Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.FlatButton1.Location = New System.Drawing.Point(392, -3) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(84, 68) - Me.FlatButton1.TabIndex = 4 - Me.FlatButton1.Tag = "" - Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben" - Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.FlatButton1.UseVisualStyleBackColor = True - Me.FlatButton1.Visible = False - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'txtVertragVermerk - ' - Me.txtVertragVermerk._DateTimeOnly = False - Me.txtVertragVermerk._numbersOnly = False - Me.txtVertragVermerk._numbersOnlyKommastellen = "" - Me.txtVertragVermerk._numbersOnlyTrennzeichen = True - Me.txtVertragVermerk._Prozent = False - Me.txtVertragVermerk._ShortDateNew = False - Me.txtVertragVermerk._ShortDateOnly = False - Me.txtVertragVermerk._TimeOnly = False - Me.txtVertragVermerk._TimeOnly_Seconds = False - Me.txtVertragVermerk._value = "" - Me.txtVertragVermerk._Waehrung = False - Me.txtVertragVermerk._WaehrungZeichen = True - Me.txtVertragVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVertragVermerk.Location = New System.Drawing.Point(60, 23) - Me.txtVertragVermerk.MaxLineLength = -1 - Me.txtVertragVermerk.MaxLines_Warning = "" - Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing - Me.txtVertragVermerk.Name = "txtVertragVermerk" - Me.txtVertragVermerk.Size = New System.Drawing.Size(326, 20) - Me.txtVertragVermerk.TabIndex = 6 - ' - 'cboVertrag - ' - Me.cboVertrag._allowedValuesFreiText = Nothing - Me.cboVertrag._allowFreiText = False - Me.cboVertrag._value = "" - Me.cboVertrag.FormattingEnabled = True - Me.cboVertrag.Location = New System.Drawing.Point(60, 3) - Me.cboVertrag.Name = "cboVertrag" - Me.cboVertrag.Size = New System.Drawing.Size(178, 21) - Me.cboVertrag.TabIndex = 1 - ' - 'datVertrag - ' - Me.datVertrag._DateTimeOnly = False - Me.datVertrag._numbersOnly = False - Me.datVertrag._numbersOnlyKommastellen = "" - Me.datVertrag._numbersOnlyTrennzeichen = True - Me.datVertrag._Prozent = False - Me.datVertrag._ShortDateNew = True - Me.datVertrag._ShortDateOnly = False - Me.datVertrag._TimeOnly = False - Me.datVertrag._TimeOnly_Seconds = False - Me.datVertrag._value = "" - Me.datVertrag._Waehrung = False - Me.datVertrag._WaehrungZeichen = True - Me.datVertrag.ForeColor = System.Drawing.Color.Black - Me.datVertrag.Location = New System.Drawing.Point(291, 3) - Me.datVertrag.MaxLength = 10 - Me.datVertrag.MaxLineLength = -1 - Me.datVertrag.MaxLines_Warning = "" - Me.datVertrag.MaxLines_Warning_Label = Nothing - Me.datVertrag.Name = "datVertrag" - Me.datVertrag.Size = New System.Drawing.Size(95, 20) - Me.datVertrag.TabIndex = 3 - ' - 'txtGGDatum - ' - Me.txtGGDatum._DateTimeOnly = False - Me.txtGGDatum._numbersOnly = False - Me.txtGGDatum._numbersOnlyKommastellen = "" - Me.txtGGDatum._numbersOnlyTrennzeichen = True - Me.txtGGDatum._Prozent = False - Me.txtGGDatum._ShortDateNew = True - Me.txtGGDatum._ShortDateOnly = False - Me.txtGGDatum._TimeOnly = False - Me.txtGGDatum._TimeOnly_Seconds = False - Me.txtGGDatum._value = "" - Me.txtGGDatum._Waehrung = False - Me.txtGGDatum._WaehrungZeichen = True - Me.txtGGDatum.ForeColor = System.Drawing.Color.Black - Me.txtGGDatum.Location = New System.Drawing.Point(256, 7) - Me.txtGGDatum.MaxLength = 10 - Me.txtGGDatum.MaxLineLength = -1 - Me.txtGGDatum.MaxLines_Warning = "" - Me.txtGGDatum.MaxLines_Warning_Label = Nothing - Me.txtGGDatum.Name = "txtGGDatum" - Me.txtGGDatum.Size = New System.Drawing.Size(100, 20) - Me.txtGGDatum.TabIndex = 2 - ' - 'txtT1VerzollungsadresseBestimmungszollstelle - ' - Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True - Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL" - Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT" - Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False - Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7) - Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8 - Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle" - Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True - Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20) - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 1 - Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' - 'txtInfoKdAtrNr - ' - Me.txtInfoKdAtrNr._DateTimeOnly = False - Me.txtInfoKdAtrNr._numbersOnly = False - Me.txtInfoKdAtrNr._numbersOnlyKommastellen = "" - Me.txtInfoKdAtrNr._numbersOnlyTrennzeichen = True - Me.txtInfoKdAtrNr._Prozent = False - Me.txtInfoKdAtrNr._ShortDateNew = False - Me.txtInfoKdAtrNr._ShortDateOnly = False - Me.txtInfoKdAtrNr._TimeOnly = False - Me.txtInfoKdAtrNr._TimeOnly_Seconds = False - Me.txtInfoKdAtrNr._value = "" - Me.txtInfoKdAtrNr._Waehrung = False - Me.txtInfoKdAtrNr._WaehrungZeichen = True - Me.txtInfoKdAtrNr.Enabled = False - Me.txtInfoKdAtrNr.ForeColor = System.Drawing.Color.Black - Me.txtInfoKdAtrNr.Location = New System.Drawing.Point(266, 41) - Me.txtInfoKdAtrNr.MaxLineLength = -1 - Me.txtInfoKdAtrNr.MaxLines_Warning = "" - Me.txtInfoKdAtrNr.MaxLines_Warning_Label = Nothing - Me.txtInfoKdAtrNr.Name = "txtInfoKdAtrNr" - Me.txtInfoKdAtrNr.Size = New System.Drawing.Size(192, 20) - Me.txtInfoKdAtrNr.TabIndex = 6 - ' - 'txtFixeKdAtrNr - ' - Me.txtFixeKdAtrNr._DateTimeOnly = False - Me.txtFixeKdAtrNr._numbersOnly = False - Me.txtFixeKdAtrNr._numbersOnlyKommastellen = "" - Me.txtFixeKdAtrNr._numbersOnlyTrennzeichen = True - Me.txtFixeKdAtrNr._Prozent = False - Me.txtFixeKdAtrNr._ShortDateNew = False - Me.txtFixeKdAtrNr._ShortDateOnly = False - Me.txtFixeKdAtrNr._TimeOnly = False - Me.txtFixeKdAtrNr._TimeOnly_Seconds = False - Me.txtFixeKdAtrNr._value = "" - Me.txtFixeKdAtrNr._Waehrung = False - Me.txtFixeKdAtrNr._WaehrungZeichen = True - Me.txtFixeKdAtrNr.Enabled = False - Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black - Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22) - Me.txtFixeKdAtrNr.MaxLineLength = -1 - Me.txtFixeKdAtrNr.MaxLines_Warning = "" - Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing - Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr" - Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20) - Me.txtFixeKdAtrNr.TabIndex = 4 - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.FlatButton4.Location = New System.Drawing.Point(365, 134) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(92, 26) - Me.FlatButton4.TabIndex = 9 - Me.FlatButton4.Tag = "" - Me.FlatButton4.Text = "Speichern" - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'dgvAufschub - ' - Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAufschub.AllowUserToAddRows = False - Me.dgvAufschub.AllowUserToDeleteRows = False - Me.dgvAufschub.AllowUserToResizeColumns = False - Me.dgvAufschub.AllowUserToResizeRows = False - Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10 - Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN}) - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12 - Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) - Me.dgvAufschub.MultiSelect = False - Me.dgvAufschub.Name = "dgvAufschub" - Me.dgvAufschub.ReadOnly = True - Me.dgvAufschub.RowHeadersVisible = False - Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAufschub.Size = New System.Drawing.Size(473, 75) - Me.dgvAufschub.TabIndex = 11 - Me.dgvAufschub.TabStop = False - ' - 'KtoId - ' - Me.KtoId.HeaderText = "Id" - Me.KtoId.Name = "KtoId" - Me.KtoId.ReadOnly = True - Me.KtoId.Visible = False - ' - 'Art - ' - Me.Art.HeaderText = "Aufschub" - Me.Art.Name = "Art" - Me.Art.ReadOnly = True - Me.Art.Width = 120 - ' - 'HZA - ' - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 - Me.HZA.HeaderText = "HZA" - Me.HZA.Name = "HZA" - Me.HZA.ReadOnly = True - Me.HZA.Width = 35 - ' - 'KontoNr - ' - Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.KontoNr.HeaderText = "Konto Nr." - Me.KontoNr.Name = "KontoNr" - Me.KontoNr.ReadOnly = True - Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - ' - 'EORI - ' - Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.EORI.HeaderText = "EORI" - Me.EORI.Name = "EORI" - Me.EORI.ReadOnly = True - ' - 'NL - ' - Me.NL.HeaderText = "NL" - Me.NL.Name = "NL" - Me.NL.ReadOnly = True - Me.NL.Width = 60 - ' - 'BIN - ' - Me.BIN.HeaderText = "BIN" - Me.BIN.Name = "BIN" - Me.BIN.ReadOnly = True - Me.BIN.Visible = False - ' 'SessionService1 ' Me.SessionService1.Credentials = Nothing @@ -3447,6 +3462,7 @@ Partial Class usrCntlKundenuebersicht Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.lblInsolvent) Me.Controls.Add(Me.btnOP) Me.Controls.Add(Me.btnReloadOP) Me.Controls.Add(Me.lblFirma) @@ -3526,12 +3542,12 @@ Partial Class usrCntlKundenuebersicht Me.tbKdSpez.PerformLayout() Me.tbSonstiges.ResumeLayout(False) Me.tbSonstiges.PerformLayout() + CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip3.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) Me.ContextMenuStrip4.ResumeLayout(False) Me.ContextMenuStrip5.ResumeLayout(False) - CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -3764,4 +3780,5 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents NL As DataGridViewTextBoxColumn Friend WithEvents BIN As DataGridViewTextBoxColumn Friend WithEvents pbCreditsafeChanges As PictureBox + Friend WithEvents lblInsolvent As Label End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index e1273e87..66b8777e 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -518,6 +518,8 @@ Public Class usrCntlKundenuebersicht ' TMPText = TMPText.Replace("/", "" & vbNewLine) rtbAbf_Besonderheiten.Text = TMPText + initInsolvent(KUNDE_ERW.kde_CSinsolventAm) + ' lblKreditlimit.BackColor = Color.White lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture) If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then @@ -714,6 +716,21 @@ Public Class usrCntlKundenuebersicht End If End Sub + Sub initInsolvent(insolvent) + If insolvent IsNot Nothing Then + 'Me.BackColor = Color.Red + lblInsolvent.Visible = True + lblInsolvent.Text = "KUNDE INSOLVENT " & IIf(IsDate(insolvent), " SEIT " & CDate(insolvent).ToShortDateString, "") + rtbInfo.Visible = True + 'lblTARIFE.ForeColor = Color.White + Else + 'Me.BackColor = Color.White + lblInsolvent.Visible = False + rtbInfo.Visible = False + 'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128) + End If + End Sub + Sub showForm(t As String, Optional h As String = "") Dim f As New Form @@ -2857,37 +2874,37 @@ Public Class usrCntlKundenuebersicht If lastChecked = Today Then - Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today) - If bonaus IsNot Nothing Then - If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then - MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!") - Cursor = Cursors.Default - btnCreditsafe.Enabled = True - Exit Sub - End If + Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today) + If bonaus IsNot Nothing Then + If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then + MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!") + Cursor = Cursors.Default + btnCreditsafe.Enabled = True + Exit Sub End If End If + End If - If cs.checkDateOfLastRequest(company) < lastChecked Then - Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo) - If a = vbYes Then + If cs.checkDateOfLastRequest(company) < lastChecked Then + Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo) + If a = vbYes Then - setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren - - End If - - Else - setCreditsafereportEntry(cs, company) + setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren End If + Else - setCreditsafereportEntry(cs, company) + End If + Else + + setCreditsafereportEntry(cs, company) + End If @@ -3369,7 +3386,7 @@ Public Class usrCntlKundenuebersicht If currentBonID > 0 Then company.csBonID = currentBonID Dim dt As New DataTable() - If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then + If cs.getCompanyEvents(company, dt, True, 0, checklastDate, True) = "Error" Then Exit Sub End If diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 6dcd6952..b9854ee8 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -23,31 +23,31 @@ Partial Class usrcntlKundeBearbeitenFull Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -265,6 +265,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.Label113 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() @@ -405,7 +406,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cbxCS_Added = New System.Windows.Forms.CheckBox() + Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -3110,8 +3111,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -3210,8 +3211,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3372,41 +3373,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle35 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle36 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle37 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle38 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3486,26 +3487,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvMWST ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 Me.dgvMWST.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40 Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle41 Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Size = New System.Drawing.Size(171, 125) @@ -3590,26 +3591,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle44 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) @@ -3745,6 +3746,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent) Me.tbSonstiges.Controls.Add(Me.cbxCS_Added) Me.tbSonstiges.Controls.Add(Me.Label113) Me.tbSonstiges.Controls.Add(Me.Label112) @@ -3791,6 +3793,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'cbxCS_Added + ' + Me.cbxCS_Added.AutoSize = True + Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9) + Me.cbxCS_Added.Name = "cbxCS_Added" + Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14) + Me.cbxCS_Added.TabIndex = 37 + Me.cbxCS_Added.UseVisualStyleBackColor = True + ' 'Label113 ' Me.Label113.AutoSize = True @@ -3807,7 +3818,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label112.AutoSize = True Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label112.Location = New System.Drawing.Point(425, 92) + Me.Label112.Location = New System.Drawing.Point(425, 119) Me.Label112.Name = "Label112" Me.Label112.Size = New System.Drawing.Size(119, 13) Me.Label112.TabIndex = 35 @@ -3818,26 +3829,26 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvIDS_Rabatte.AllowUserToAddRows = False Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False Me.dgvIDS_Rabatte.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle28 Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317) Me.dgvIDS_Rabatte.MultiSelect = False Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" @@ -3925,7 +3936,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrTOBB ' - Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 50) + Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 71) Me.txtSonst_KdNrTOBB.MaxLength = 20 Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) @@ -3937,7 +3948,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label96.AutoSize = True Me.Label96.Enabled = False Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label96.Location = New System.Drawing.Point(427, 53) + Me.Label96.Location = New System.Drawing.Point(427, 74) Me.Label96.Name = "Label96" Me.Label96.Size = New System.Drawing.Size(83, 13) Me.Label96.TabIndex = 21 @@ -3978,26 +3989,26 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle31 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -4007,37 +4018,37 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvAsfinag ' Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(428, 131) + Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(504, 165) Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" - Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(136, 17) + Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(62, 17) Me.cbxSonst_CsvAsfinag.TabIndex = 15 - Me.cbxSonst_CsvAsfinag.Text = "AT-Abrechnungsdaten " + Me.cbxSonst_CsvAsfinag.Text = "AT-Abr." Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True ' 'cbxSonst_CsvUTA ' Me.cbxSonst_CsvUTA.AutoSize = True - Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(428, 177) + Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(572, 165) Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA" - Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(144, 17) + Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(73, 17) Me.cbxSonst_CsvUTA.TabIndex = 14 - Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten " + Me.cbxSonst_CsvUTA.Text = "UTA-Abr. " Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True ' 'cbxSonst_CsvMSE ' Me.cbxSonst_CsvMSE.AutoSize = True - Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 154) + Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 165) Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE" - Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(142, 17) + Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(71, 17) Me.cbxSonst_CsvMSE.TabIndex = 9 - Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten" + Me.cbxSonst_CsvMSE.Text = "MSE-Abr." Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True ' 'cbxSonst_CsvMautbericht ' Me.cbxSonst_CsvMautbericht.AutoSize = True - Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 111) + Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 141) Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht" Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(82, 17) Me.cbxSonst_CsvMautbericht.TabIndex = 2 @@ -4063,7 +4074,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrTelepass ' - Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 73) + Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 94) Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass" Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrTelepass.TabIndex = 11 @@ -4072,7 +4083,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label74.AutoSize = True Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.Location = New System.Drawing.Point(425, 76) + Me.Label74.Location = New System.Drawing.Point(425, 97) Me.Label74.Name = "Label74" Me.Label74.Size = New System.Drawing.Size(109, 13) Me.Label74.TabIndex = 10 @@ -4115,7 +4126,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtSonst_KdNrIDS ' Me.txtSonst_KdNrIDS.Enabled = False - Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 28) + Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 49) Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS" Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrIDS.TabIndex = 4 @@ -4126,7 +4137,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label70.AutoSize = True Me.Label70.Enabled = False Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label70.Location = New System.Drawing.Point(427, 28) + Me.Label70.Location = New System.Drawing.Point(427, 49) Me.Label70.Name = "Label70" Me.Label70.Size = New System.Drawing.Size(72, 13) Me.Label70.TabIndex = 3 @@ -4308,26 +4319,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle47 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -4381,26 +4392,26 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49 Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle50 Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.Name = "dgvBankverbindungen" @@ -5529,14 +5540,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'cbxCS_Added + 'cbxCSInsolvent ' - Me.cbxCS_Added.AutoSize = True - Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9) - Me.cbxCS_Added.Name = "cbxCS_Added" - Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14) - Me.cbxCS_Added.TabIndex = 37 - Me.cbxCS_Added.UseVisualStyleBackColor = True + Me.cbxCSInsolvent.AutoSize = True + Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26) + Me.cbxCSInsolvent.Name = "cbxCSInsolvent" + Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17) + Me.cbxCSInsolvent.TabIndex = 39 + Me.cbxCSInsolvent.Text = "Kunde insolvent" + Me.cbxCSInsolvent.UseVisualStyleBackColor = True ' 'usrcntlKundeBearbeitenFull ' @@ -5997,4 +6009,5 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbpKopfsammelrechnung As CheckBox Friend WithEvents cbxCS_Added As CheckBox + Friend WithEvents cbxCSInsolvent As CheckBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 4ef19144..85d879cd 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -213,6 +213,7 @@ txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "") cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False) cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False) + cbxCSInsolvent.Checked = IIf(Not IsDBNull(KUNDE_ERW.kde_CSinsolventAm), True, False) txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "") cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "") @@ -716,6 +717,7 @@ KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value) KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked + KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value) KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value) @@ -2349,5 +2351,21 @@ If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = "" End Sub + Private Sub cbxCSInsolvent_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCSInsolvent.CheckedChanged + If KUNDE_ERW.kde_CSinsolventAm IsNot Nothing AndAlso Not cbxCSInsolvent.Checked Then + If vbYes = MsgBox("Möchten Sie die Anmerkung der Insolvent deaktivieren?" & vbNewLine & " Diese Anmerkung wurde automatisch über die Creditsafe-API eingelesen!", vbYesNoCancel) Then + cbxCSInsolvent.Checked = False + KUNDE_ERW.kde_CSinsolventAm = Nothing + KUNDE_ERW.SAVE() + Else + cbxCSInsolvent.Checked = True + End If + + ElseIf KUNDE_ERW.kde_CSinsolventAm Is Nothing And cbxCSInsolvent.Checked Then + MsgBox("Wert kann nicht manuell gesetzt werden!") + cbxCSInsolvent.Checked = False + End If + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 914bea2e..a1186542 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -17,7 +17,6 @@ Public Class cKundenErweitert 'Property kde_Hoechstkredit As Object = Nothing Property kde_Versicherung_Deckungsstopp As Boolean = False Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing - Property kde_Versicherung_Uebergeben As Boolean = False Property kde_Versicherung_UebergebenAm As Object = Nothing Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False @@ -28,7 +27,6 @@ Public Class cKundenErweitert Property kde_Versicherung_GemeldeterBetrag As Object = Nothing Property kde_txtVersicherungEHNr As Object = Nothing - Property kde_Leihgeld_Provision As Object = Nothing Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing @@ -44,7 +42,6 @@ Public Class cKundenErweitert Property Email_AVM As Boolean = False Property Depot_Kunde As Boolean = False Property FiBuSchnittstelleLG As Boolean = False - Property Zahlungsziel2 As Object = Nothing Property Zahlungsziel3 As Object = Nothing Property EmailAnkunft_Export As Boolean = False @@ -53,7 +50,6 @@ Public Class cKundenErweitert Property kde_CreditSaveBonitaetsklasse As Object = Nothing Property kde_CreditSaveBonitaetsIndex As Object = Nothing Property kde_CreditSaveBonitaetsScore As Object = Nothing - Property kde_CreditSaveId As String = "" Property kde_CreditSaveNo As String = "" Property kde_Inkasso_Uebergeben As Boolean = False @@ -98,13 +94,8 @@ Public Class cKundenErweitert Property kde_Erstattungsart As Object = Nothing Property kde_BezFIBU As Object = Nothing Property kde_Kopfsammelrechnung As Boolean = False - Property kde_CSPortfolioAdded As Boolean = False - - - - - + Property kde_CSinsolventAm As Object = Nothing Dim SQL As New SQL @@ -205,6 +196,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index ff895f01..7d219a96 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -5,7 +5,6 @@ Imports System.Net Imports System.Reflection Imports System.Text.RegularExpressions Imports System.Threading -Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cCreditSafeAPI @@ -471,9 +470,10 @@ Public Class cCreditSafeAPI End Function + Shared Function getCompanyEventsDetails(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG") As String - Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, ByRef companyDetailEvents As Boolean, ByRef maxPages As Integer, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG", Optional page As Integer = 0) As String + '------------------------------- PRO KUNDE 'rest.AddQueryParam("from", Today().AddDays(-1)) @@ -486,17 +486,8 @@ Public Class cCreditSafeAPI End If Dim failureDesc As String - - Dim myUrl As String = "" - - If Not companyDetailEvents Then - myUrl = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents" - Else - myUrl = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "") - End If - - - Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, Not companyDetailEvents,,, Not companyDetailEvents, page) + Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "") + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc) If failureDesc <> "" Then If showError Then MsgBox(failureDesc) @@ -535,15 +526,6 @@ Public Class cCreditSafeAPI Return "data not found." End If - - Dim pagination As Chilkat.JsonObject = json.ObjectOf("pagination") - If Not (json.LastMethodSuccess = False) Then - Dim Lastpage As String = pagination.StringOf("last") - If IsNumeric(Lastpage) Then maxPages = Lastpage - End If - - - Dim numCompanies As Integer = companieData.Size Dim defaultCL As Double = -10000000 @@ -585,51 +567,11 @@ Public Class cCreditSafeAPI R("eventDate") = dateTime.GetAsTimestamp(getAsLocal) R("createdDate") = dateTime.GetAsTimestamp(getAsLocal) - If IsDBNull(R("companyId")) Then - Dim compObjHead As Chilkat.JsonObject = compObj.ObjectOf("company") - R("companyId") = compObjHead.StringOf("id") - If IsDBNull(R("portfolioId")) Then R("portfolioId") = compObjHead.StringOf("portfolioId") - End If - dtEvents.Rows.Add(R) - Dim dtKundenNr As New DataTable - If company.kdNr = 0 Then - dtKundenNr = SQL.loadDgvBySql("select distinct(ba_KundenNr),f.Firma from Kunden - 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,'') ='" & R("companyId") & "'", "FMZOLL") - - - End If - - If dtKundenNr.Rows.Count > 0 Then - - For Each row As DataRow In dtKundenNr.Rows - company.kdNr = row("ba_KundenNr") - company.creditSafeId = R("companyId") - firma = row("Firma") - Dim currentBonID As String = (New SQL).getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & company.kdNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL") - If currentBonID <> "" AndAlso IsNumeric(currentBonID) AndAlso currentBonID > 0 Then - company.csBonID = currentBonID - End If - createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum) - updateKundenWithEvent(company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, firma) - Next - - company.kdNr = 0 'wichtig, wieder zurücksetzen! - - Else - - If company.kdNr <> 0 Then - createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum) - End If - - End If + createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum) j = j + 1 - End While 'Next @@ -640,21 +582,334 @@ Public Class cCreditSafeAPI 'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows) End If - If company.kdNr <> 0 AndAlso companyDetailEvents Then updateKundenWithEvent(company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, firma) + Dim triggerMail As Boolean = False + Dim KUNDE As New cKunde(company.kdNr) + Dim Mailtext As String = "" + + updateKundenWithEvent(KUNDE, company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, triggerMail, Mailtext, firma) + + 'If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then + ' Dim KUNDE As New cKunde(company.kdNr) + + ' Dim Mailtext As String = "" + + ' If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then + + ' Dim Index As Double = -1 + ' Dim ADR As New cAdressen(KUNDE.KundenNr) + ' Dim riskClass As String = "" + ' Dim riskClassChanged As Boolean = False + ' Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr) + + ' If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score + ' Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass)) + ' Else + ' If CR <> defaultCL Then calculatedBonIndexFromBonScore(CR, riskClass) + ' End If + + ' If Index <> -1 Then + ' If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then + ' createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + ' KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index + ' KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass + ' KUNDE.Bonitätsdatum = Today() + ' End If + ' Else + ' If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then + ' createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + ' KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR + ' KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass + ' KUNDE.Bonitätsdatum = Today() + ' End If + ' End If + + ' If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then + ' createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + ' KUNDE.Höchstkredit = CL + ' If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then + ' KUNDE.Bonitätsdatum = Today() + ' End If + ' End If + + ' If updateKunden Then KUNDE_ERW.SAVE() + ' End If + + ' If updateKunden Then KUNDE.SAVE() + + If triggerMail AndAlso sendMail Then + Dim ADR As New cAdressen(KUNDE.KundenNr) + + Dim empfanegerMail As String = "as@verag.ag" + + Select Case firma + Case "VERAG" : empfanegerMail = "as@verag.ag" + Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at" + 'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com" + 'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at" + End Select + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") + End If + + 'End if + + + + Return "Anzahl gefundener Datensätze: " & numCompanies End Function - Private Shared Sub updateKundenWithEvent(company As Company, CL As Integer, CR As Integer, CL_Datum As Date, CR_Datum As Date, setzeKundenbesonderheiten As Boolean, defaultCR As Integer, defaultCL As Integer, updateKunden As Boolean, sendMail As Boolean, Optional firma As String = "VERAG") + + Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, ByRef companyDetailEvents As Boolean, ByRef maxPages As Integer, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG", Optional page As Integer = 0) As String + + '------------------------------- ALLE KUNDEN + + + Dim checkDate As String = "" + + If company IsNot Nothing AndAlso IsDate(company.lastChecked) Then + checkDate = company.lastChecked.ToString("yyyy-MM-ddTHH:mm:ss") + Else + checkDate = Today().AddDays(-30).ToString("yyyy-MM-ddTHH:mm:ss") + End If + + Dim failureDesc As String + + Dim myUrl As String = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents" + + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, Not companyDetailEvents,,, Not companyDetailEvents, page) + + If failureDesc <> "" Then + If showError Then MsgBox(failureDesc) + Return "Error" & vbNewLine & failureDesc & vbNewLine & myUrl + End If + + Dim json As New Chilkat.JsonObject + Dim success As Boolean = json.Load(jsonRespString) + If (success <> True) Then + Debug.WriteLine(json.LastErrorText) + Return "Verbindungsfehler" & vbNewLine & json.LastErrorText + End If + + If dtEvents.Columns.Count = 0 Then + dtEvents.Columns.Add("eventId", GetType(String)) + dtEvents.Columns.Add("companyId", GetType(String)) + dtEvents.Columns.Add("portfolioId", GetType(String)) + dtEvents.Columns.Add("ruleName", GetType(String)) + dtEvents.Columns.Add("localEventCode", GetType(String)) + dtEvents.Columns.Add("globalEventCode", GetType(String)) + dtEvents.Columns.Add("newValue", GetType(String)) + dtEvents.Columns.Add("oldValue", GetType(String)) + dtEvents.Columns.Add("eventDate", GetType(DateTime)) + dtEvents.Columns.Add("createdDate", GetType(DateTime)) + End If + + dtEvents.Rows.Clear() + + Dim num As Integer = json.SizeOfArray("data") + If num = 0 OrElse getTotalNr Then + Return json.StringOf("totalCount") + End If + + Dim companieData As Chilkat.JsonArray = json.ArrayOf("data") + If (json.LastMethodSuccess = False) Then + Return "data not found." + End If + + + Dim pagination As Chilkat.JsonObject = json.ObjectOf("paging") + If Not (json.LastMethodSuccess = False) Then + Dim Lastpage As String = pagination.StringOf("last") + If IsNumeric(Lastpage) Then maxPages = Lastpage + End If + + Dim numCompanies As Integer = companieData.Size + + Dim defaultCL As Double = -10000000 + Dim defaultCR As Integer = -10000000 + + Dim CL As Double = defaultCL + Dim CR As Integer = defaultCR + Dim CL_Datum As Date = company.lastChecked + Dim CR_Datum As Date = company.lastChecked + + Dim j As Integer = 0 + + Dim lastcompanyID As String = "" + Dim Mailtext As String = "" Dim triggerMail As Boolean = False - If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then - Dim KUNDE As New cKunde(company.kdNr) + Dim triggerMailEnd As Boolean = False + Dim MailtextEnd As String = "" - Dim Mailtext As String = "" + While j < numCompanies + + Dim compObj As Chilkat.JsonObject = companieData.ObjectAt(j) + Dim compObjNext As Chilkat.JsonObject = Nothing + + If (j + 1) < numCompanies Then + compObjNext = companieData.ObjectAt(j + 1) + Else + compObjNext = companieData.ObjectAt(j) + End If + + Dim companychanges As Boolean = False + Dim index = companieData.FindString("eventId", False) + + Dim dateTime As New Chilkat.CkDateTime + Dim dt As New Chilkat.DtObj + Dim getAsLocal As Boolean = False + + success = compObj.DateOf("eventDate", dateTime) + success = compObj.DateOf("createdDate", dateTime) + Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal)) + + + Dim R As DataRow = dtEvents.NewRow + R("eventId") = compObj.StringOf("eventId") + R("companyId") = compObj.StringOf("companyId") + R("portfolioId") = compObj.StringOf("portfolioId") + R("ruleName") = compObj.StringOf("ruleName") + R("localEventCode") = compObj.StringOf("localEventCode") + R("globalEventCode") = compObj.StringOf("globalEventCode") + R("oldValue") = compObj.StringOf("oldValue") + R("newValue") = compObj.StringOf("newValue") + R("eventDate") = dateTime.GetAsTimestamp(getAsLocal) + R("createdDate") = dateTime.GetAsTimestamp(getAsLocal) + + If IsDBNull(R("companyId")) Then + Dim compObjHead As Chilkat.JsonObject = compObj.ObjectOf("company") + R("companyId") = compObjHead.StringOf("id") + If IsDBNull(R("portfolioId")) Then R("portfolioId") = compObjHead.StringOf("portfolioId") + End If + + Dim nextcompid = "" + + If compObjNext IsNot Nothing Then + Dim nextcompObjHead As Chilkat.JsonObject = compObjNext.ObjectOf("company") + nextcompid = nextcompObjHead.StringOf("id") + + If nextcompid <> R("companyId") Then + companychanges = True + Else + companychanges = False + End If + + End If + 'dtEvents.Rows.Add(R) + + Dim dtKundenNr As New DataTable + 'If company.kdNr = 0 Then + dtKundenNr = SQL.loadDgvBySql("select distinct(ba_KundenNr),f.Firma from Kunden + 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,'') ='" & R("companyId") & "'", "FMZOLL") + + + 'End If + + Dim dtFirmen As New DataTable() + + If dtFirmen.Columns.Count = 0 Then dtFirmen.Columns.Add("Firma", GetType(String)) + + If dtKundenNr.Rows.Count > 0 Then + + For Each row As DataRow In dtKundenNr.Rows + company.kdNr = row("ba_KundenNr") + company.creditSafeId = R("companyId") + firma = row("Firma") + + Dim firmRow As DataRow = dtFirmen.NewRow + firmRow("Firma") = firma + dtFirmen.Rows.Add(firmRow) + + Dim currentBonID As String = (New SQL).getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & company.kdNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL") + If currentBonID <> "" AndAlso IsNumeric(currentBonID) AndAlso currentBonID > 0 Then + company.csBonID = currentBonID + End If + + createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum) + + Next + + + End If + + + '-------------------------------------------------------------------- + + If companychanges Then + + If dtKundenNr.Rows.Count > 0 Then + For Each row As DataRow In dtKundenNr.Rows + + + Dim KUNDE As New cKunde(row("ba_KundenNr")) + company.kdNr = row("ba_KundenNr") + company.creditSafeId = R("companyId") + firma = row("Firma") + updateKundenWithEvent(KUNDE, company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, triggerMail, Mailtext, firma) + + If company.kdNr <> 0 Then + If triggerMail AndAlso sendMail AndAlso Mailtext <> "" Then + Dim ADR As New cAdressen(company.kdNr) + Dim empfanegerMail = "as@verag.ag" + + For Each firmRowTemp As DataRow In dtFirmen.Rows + Select Case firmRowTemp("Firma") + Case "VERAG" : empfanegerMail = "as@verag.ag" + Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at" + 'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com" + 'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at" + End Select + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr & " (" & firmRowTemp("Firma") & ")", "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") + Next + Mailtext = "" + End If + + End If + + Next + End If + 'wichtig, alles wieder zurücksetzen!!!!! + CL = defaultCL + CR = defaultCR + CL_Datum = company.lastChecked + CR_Datum = company.lastChecked + company.kdNr = 0 + triggerMail = False + Mailtext = "" + company.BANKRUPT_REGISTERED = False + End If + + '-------------------------------------------------------------------- + + j = j + 1 + + End While + + Return "Anzahl gefundener Datensätze: " & numCompanies + + End Function + + Private Shared Sub resetValues(com As Company) + + End Sub + + + + Private Shared Sub updateKundenWithEvent(KUNDE As cKunde, company As Company, CL As Integer, CR As Integer, CL_Datum As Date, CR_Datum As Date, setzeKundenbesonderheiten As Boolean, defaultCR As Integer, defaultCL As Integer, updateKunden As Boolean, sendMail As Boolean, ByRef triggerMail As Boolean, ByRef MailText As String, Optional firma As String = "VERAG") + + If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then @@ -672,14 +927,14 @@ Public Class cCreditSafeAPI If Index <> -1 Then If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then - createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, MailText, triggerMail, setzeKundenbesonderheiten) KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass KUNDE.Bonitätsdatum = Today() End If Else If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then - createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, MailText, triggerMail, setzeKundenbesonderheiten) KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass KUNDE.Bonitätsdatum = Today() @@ -687,15 +942,16 @@ Public Class cCreditSafeAPI End If If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then - createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) + createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, MailText, triggerMail, setzeKundenbesonderheiten) KUNDE.Höchstkredit = CL If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then KUNDE.Bonitätsdatum = Today() End If End If - If company.BANKRUPT_REGISTERED Then - createInfo("BANKRUPT_REGISTERED", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten, company) + If company.BANKRUPT_REGISTERED AndAlso Not MailText.Contains("FÜR INSOLVENT ERKLÄRT") Then + createInfo("BANKRUPT_REGISTERED", KUNDE_ERW, KUNDE, CL, riskClass, MailText, triggerMail, setzeKundenbesonderheiten, company) + KUNDE_ERW.kde_CSinsolventAm = company.BANKRUPT_REGISTERED_DATE End If If updateKunden Then KUNDE_ERW.SAVE() @@ -703,24 +959,11 @@ Public Class cCreditSafeAPI If updateKunden Then KUNDE.SAVE() - If triggerMail AndAlso sendMail Then - Dim ADR As New cAdressen(KUNDE.KundenNr) - Dim empfanegerMail = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "as@verag.ag") - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - Select Case firma - Case "VERAG" : empfanegerMail = "as@verag.ag" - Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at" - Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com" - Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at" - End Select - End If - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") - End If End If End Sub - Private Shared Sub createEvents(R As DataRow, KundeNr As Integer, company As Company, CL As Integer, CR As Integer, ByRef CL_Datum As Date, ByRef CR_Datum As Date) + Private Shared Sub createEvents(R As DataRow, KundeNr As Integer, company As Company, ByRef CL As Integer, ByRef CR As Integer, ByRef CL_Datum As Date, ByRef CR_Datum As Date) Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")), KundeNr) @@ -732,6 +975,8 @@ Public Class cCreditSafeAPI Select Case R("localEventCode").trim() Case "DECREASE_LIMIT", "INCREASE_LIMIT" : globaleventcode = "CL" Case "DECREASE_RATING", "INCREASE_RATING" : globaleventcode = "CR" + Case "55" : If R("companyId").ToString.StartsWith("NL") Then globaleventcode = "CR" 'nur Holland! + Case "56" : If R("companyId").ToString.StartsWith("NL") Then globaleventcode = "CL" 'nur Holland! End Select End If @@ -813,8 +1058,6 @@ Public Class cCreditSafeAPI cEvent.kundenNr = company.kdNr cEvent.SAVE() - - End Sub @@ -1412,7 +1655,7 @@ Public Class cCreditSafeAPI Select Case typ Case "B-INDEX", "B-SCORE", "KREDITLIMIT" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " von " & oldValue.ToString & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) " & Risk - Case "BANKRUPT_REGISTERED" : textVermerk &= " KUNDE WURDE LAUT CREDITSAFE " & IIf(company IsNot Nothing, " AM " & company.BANKRUPT_REGISTERED_DATE.ToShortDateString, "") & " FÜR INSOLVENT ERKLÄRT " + Case "BANKRUPT_REGISTERED" : textVermerk &= " KUNDE WURDE LAUT CREDITSAFE " & IIf(company IsNot Nothing, " AM " & company.BANKRUPT_REGISTERED_DATE.ToShortDateString, "") & " FÜR INSOLVENT ERKLÄRT " & Risk End Select mailText &= "

" & textVermerk