From f390c2d6d666bf31f161dc279b404f0ef9be8d7e Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 15 Aug 2024 18:43:25 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.08.11=20-=20Se=20agrego=20que?= =?UTF-8?q?=20cuando=20se=20revisa=20venta=20de=20Kellogg's,=20traiga=20el?= =?UTF-8?q?=20estatus=20del=20arqueo=20y=20de=20la=20liquidaci=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Files/layout1.bal | Bin 70765 -> 76933 bytes Subs.bas | 25 +++++++- soporteKMS.b4a | 143 +++++++++++++++++++++++++++++++++++++++++++- soporteKMS.b4a.meta | 6 +- 4 files changed, 167 insertions(+), 7 deletions(-) diff --git a/Files/layout1.bal b/Files/layout1.bal index 3d249629b996f61826183bcb4638ae2c45d535cc..ab06bb263c84f8bf645ca229f79ba9073a341e7c 100644 GIT binary patch delta 6283 zcmai&eOQ!L7Qp9TQJ6uPk??!bQBgENU_?Fy6$|-N1eE*=#6d?z5OC1e@?#WhwOw7s zV@>H!YOR%|c&|Mu&gTmU(^c>4A`&Gsj}Jn#=B9vh|YPVsnYvnp`-qD7EOB zyn^_pR&&0kps4Tf$R=BgdvqX9E?lz6vaDwZk_ncAf};5)1}U;yp2@=*r&^qKY&B2u z#KD3btEFU|b@5V5k15Te7sENbk~9#)_7h3!Le0 zyP2mu3MQI!Ed{1%=Z~Eav!P=5#bN@fDHh(=%e0ycONz}_^lNcexUW*o)6IpJf)U}) zKKfkr3(JUaGM|dIOe8L5U z7ZENbTtv8-@M6It{~`reA}Aregz!?r&k+7I;bq9rVtWqTa>6T+S7KX*P0ZQKt4U`K z;ZnkD2|rKx1;T$JypHgC!Y>m3tHL(9qQ4Qr2ErQ&|DEtA!kY<~5#B-=2yZ3)l8A*X z6fYBjo$xD!UnRVa@OHxgAnYLg8sQx-7P;8z>fqm9gkLB82H}4a-c7ii@E*c%65dPr zEo7T(_iq!yKEf4*D+%u>Tt&E=@H>Q^gb%c_O>?lVqd7#lhVWs+M+m=5_&wzJu^q*B zjPP;7wS-Sd#_LNMd_V*z37;bTA>q@6|3&x=ax}J4@RZL=w#ZrUGsoN369;m0)a6J^ zcGlX#B^Zh67_w=%+^-?V1Xm#?PheD8h^L`>HespQW&{QfvhY9 zw$vyFm%33WYA~ZL!kiHUco$m_6m?vx=u{F9?6p*NR^d*TPoz}pjAOE^R|`eW)T&R) zEl)+w!&Q^IBK`3B4FhuNfezMrj$d19TFHK+@9}k97KPcL=f)8hK&lC!^ zfjX!>84LPVgJC`RLfr~?`@?R`2dYB+;VP6eU&z{8r5;Xx=~-W~6Ol6(g%6Qf7QvvR zJ^(^2I?y$loeN&B``0C!V$&irk?7Oki_h^m;WO*=q&}!_I-mUnUyctF&sWELc5!9xHJN>O1j<5jua`pD&oJ)UKCPL@ zZbsQ~_6yvLPu6K&M$h9>2!n~wR9Jsi>EId$<{4>B1DlU_$Az94W8{p%n(7RgS>=E+N9QYp zV5@F~L&svUR~8!yJ1@j+Y0^Q^ZIcX(8`ND&*Sld#+HHh)Mqgz~V7TZ5hOdW-BMo?@ zc^3xN2a5Gw+F6Jt??32(2OlUC#le|FnV>%_bEI7~kc z5i-;9Os0o*$4Bb*?WE_HPX@o*J=`FS2f~Ffv{3W0x4lx!qLiG+opA7Oisx=BTLTO@ z8wWE!a6s^d7$$m=@Y^aaSWh}2p-vtWu-ADD&lltS!|A#dC|n%_lh*5?--k`SJNnE> z(|2#@bItW3ya%&ad14g4J)O;a3N>G7eBf!{vVL3M{j*MzG8T0?VtOe602MoCG3p+=QHVjbfDA7-=Z-lqM@CV~aEqwZg zw@lX{Xt?hyQ}*7!V|9bj4DT0>)*smAX%PNZ+v}oR0*((sd1sB6)L>9HrZ>Fsl^={* z<^#nQI=FTDCJzw54qv!&B}NOM+sYMr{kDg@a{ovvq}A)3J3cREJP4=3!xg0V;9PV4 zaR&YF_={uCg6+Gs3~xM)LBED_sQ*qmvi|?|f%0 zN@=+sw!)hGGO+qE)pWr!JGDt#Fy3%*ld^GBhbq~8gmTtKsKw%}tp&qF9n8Mji-(I% ziJw9iL_YB5!Q$+%f~rIlY!1zb&mQ!EDoYGZ{7E^DLM+dDBgdDwxGW>&`EMDwRZoGS z2_|{98SlqJ!#9I@q+BDc{KcCE;~Bliqm)HQsaGZUC9<{c4rc5AuS&L}RZ3B=Y~jys z`-_j+)3nSTj$g~=qr@iC;FTtCCUo9*))l)mc>Xu}!qmq+>O>?Jc6`2EzM2|JJA-K3 zzDa-!&B-#4v93J6Yv0STqQRGw{UO65M`UpfPFHqOR49C`vYD}}DPl>IOjs`sYkHgZZ#5dzcUF!KW+v!As7*(SzOO*&=-MMai;j z@CI4O_$+0kv(R;0A(1VjCGJLH=3%e(WY>9)unpAbv{Mvs&Y%~y_C8)Llg}2;+Fp42 z*=psQyIyPv<7VlJnZ?=f549#AagW*8>sdL^l_$uMtFl9VaU0-rY7QG%0Aq8+PSe?( z8r&py=ZbC+ei!&Co1bfc>oMjOH91_bH$i%^)=hl+LxyP}w}`ow2v}UdJzrgIrDo^udxbI}8=w_g;{CKI5pA|cP)Zry=W()Aw(Fe|L zh%hWr8!GSGJak%?#AZU#>QODoL7^?Mxh3H?g8~=mxG{Ibz1>ylw}}5 zwVK;K51e+=?N4n0wGe8d)CMvRV?2m)IOD;LhcF(>ID&Cx2RlvAb#zQojH4Ml7{@Rk zMjT6RIJG#&@x&vjB~Tm5cogGAjh(tu5)+JOJce;HH}<1EJ6t?ZOXG>r+SGtOb0%XkLkJjVHqXEL6}csAoXCX=(> z`vNAI%lLW5g^Y_B&tv=o;};qKgz-TsXZ#D|#ng(a zEn&Qr_+@Ipq_#}5jKA!>B0H`8E5@%fUe5S6#;-FjVf+T;6^!MYZEHDKvQ8=ERg8bl zcs1iSjNfFumhoGR-)8(9ot>KZ>zJU7@p{G^7;j`;&bWf{CdSBkGvh6kf9*%Hl?fEa z+ZeyYcst|YGJcn_i}4P|JKI>sqOz?+e|Itd9pm3K-pzOq<0{7QG2YAg4~+K_JKGYW znhD-#`~l}}r9~rBRKVtkb<4-zxq^Y)}V>-zAPmB*SK1>`-Z8+ZV`3B5V zU-o;!TfG({x~TJq+)qRMynSkyWgd2{Y#N63kttaBQ4sFfQX-N7kFAbIce4doZcIdX zp%1!K{IGVbANsFP!fwhc2*q_ujn;d0+j88{WELY#Sf)hd+yxfJ(jAIa<(>TkHXtNB zwswaMtUDWo*WWFHIys`2y9NMZeYykd;w|d!9le2cWjF8@3vPGyR%cbZpP`|OuN=xP zJ0xOqNfdsw`wC5>A>2RSqBifj2yl1Hd2rz5FD$BU??td=g2~jIJO(!|NeRc2H!S$L z`6&ihU$&GQMU{mXeC^^ya&90r;gZ@2(PUC;08*4Q0bs_PwJx&JkkC^hFOsZovMHbR z9#;C8o6r$yhdbyqE{$BDKxbD3cM--%Snqby%Pxw?=zp7W*`XZFJ>ZAYC+1?+0dHEd zFx`o#4!huvd(wrc4*4nN;gAH) z`qtI{e|aCEg|xG*EuHLDd=Mr~pg3%himp?u0MLFq#tIZt9+jfgSMkAT^IOlzHf}oh z`ND;Z>qfPnfs91VnH=!IwP%Lo#B-MlgjL!twpoo+bd#Z976=>QN=K~C)>-~^MJigaR0$v5u1}lY zJ7a^xq`$q#!71%zY3V^Dy#q zfMN@PUOw^{WFW~rO7NYzid?gL{6+$ZU{b2iv<4dt^pgRvjj}-*2)nLe|FHsQHdxfG zyj6f_>;2IEViMXLyrG|3dUFWinCqdqa+Vne$kcS`Zuh%gB|-pqP0EB2tZD3vUa7uR zlglrxR(3u^x7@a22(H{3kNJ%(CLcBiVN$~!iio_?n?;y@wqb_-4A7jCH^qL}B?jp# zgZ`&Vfe6=<$Qo`GD`j1&au?p~Ee7jJIM^tcNmzqNhb_XV-)N-`GrsMHmp=6t17!a0 zry5m+*6(yt;dkvKJq4%Z?2H)9inAzopm(AE;Xo0g?=r%;3?=7PtiBbBm6OeQ>6SO> zuE}_9f1Ch#{I-77{!PBP`euj>5?zYZWj&S5UQ`u}^XG{uJz`M?!;uuyYSrD`6)@JV zn^@!4Ovo@|R^ICaN8a zwOEW|v}c-LO!WUD0E?H;u?;usf?AXw2qI256lWB+8Y&R+dL-kGVj0OMF+wi|BeYWB z(65d2sEmUP|MnmKaY|?vszsSr5F@q4Fs|8~9%or2vf>uugO-k5+>#1X6xAT>gRfHP z1)G&ppbVy1Srd($(Dt}vgt@lZ8xla-F6i3R6;Zwy&>lFtU8D6_jW$e9l-IBQc8M{X zjuP*o%{-#q^n>S|$uz^9NY!C10otSOUhe8P$lxT ybg|_bCenn~YFm4-9}EJ>mo8>Oel2-N-I=l*LBDf+b+2bC`}%|0dXYQ?nEngG)e#c_ diff --git a/Subs.bas b/Subs.bas index 820e3fb..07c5eec 100644 --- a/Subs.bas +++ b/Subs.bas @@ -67,7 +67,30 @@ Sub dameCita(citas As List) As String citas.Add("El dinero es veraz, si un hombre habla de su honor, hazle pagar en efectivo.") citas.Add("Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse.") citas.Add("La libertad empieza cuando uno manda a la gente a freír espárragos.") - citas.Add("Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse.") + citas.Add($"Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse."$) + citas.Add($"Existen dos palabras que abren todas las puertas: “jale” y “empuje”."$) + citas.Add($"Donde sobra ... no falta."$) + citas.Add($"Algunos matrimonios acaban bien ... otros duran toda la vida."$) + citas.Add($"El dinero no te da la felicidad ... sobre todo si es poco."$) + citas.Add($"En política: el que sabe, sabe ... y el que no, pues es jefe."$) + citas.Add($"Estamos como estamos ... porque somos como somos."$) + citas.Add($"Lo que está bien ... no puede estar mal."$) + citas.Add($"Un hombre exitoso es aquel que gana más dinero del que su mujer gasta."$) + citas.Add($"Una cosa es una cosa ... y otra cosa es otra cosa."$) + citas.Add($"Trabajar nunca mató a nadie ... pero para que nos arriesgamos!"$) + citas.Add($"Hay que trabajar ocho horas y dormir ocho horas ... ¡pero que no sean las mismas!"$) + citas.Add($"El que nace pobre y feo tiene posibilidades de que -al crecer- desarrolle ambas condiciones."$) + citas.Add($"La confusión está clarísima."$) + citas.Add($"Cuando un médico se equivoca ... lo mejor es echarle tierra al asunto."$) + citas.Add($"Si el que muere pasa a mejor vida ... ¿Por qué nadie quiere morirse?"$) + citas.Add($"¡Cuando el gallo canta en la madrugada, puede que llueva mucho, puede que llueva poco o puede que no llueva nada!"$) + citas.Add($"El que anda de buenas, no puede andar de malas."$) + citas.Add($"Si no llegó ... es porque no vino."$) + citas.Add($"Cuando hay ... hay; cuando no hay ... pues no hay."$) + citas.Add($"Agua que no corre ... es charco."$) + citas.Add($"Donde comen dos comen tres, y hasta cuatro ¡pero no llenan!"$) + citas.Add($"Si las cosas no han cambiado, es porque siguen igual."$) + citas.Add($"Si no recibes este mensaje ... es porque no te llegó."$) End If Private citaNum As Int = Rnd(1, citas.Size) ' Log(citas.Size & "|" & (citaNum-1)) diff --git a/soporteKMS.b4a b/soporteKMS.b4a index 65581fc..b2b1d0f 100644 --- a/soporteKMS.b4a +++ b/soporteKMS.b4a @@ -30,11 +30,11 @@ Module3=Subs NumberOfFiles=6 NumberOfLibraries=11 NumberOfModules=3 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Soporte Keymonsoft - #VersionName: 3.11.15 + #VersionName: 4.08.11 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -65,6 +65,7 @@ Sub Process_Globals 'These variables can be accessed from all modules. Dim DBRS_1782 As String = "http://keymon.lat:1782" Dim DBRS_1781 As String = "http://keymon.lat:1781" + Dim DBRS_9000 As String = "http://keymon.lat:9000" ' Dim DBRS_1782 As String = "http://11.0.0.231:1783" 'Para pruebas locales ' Dim DBRS_1782 As String = "http://187.189.244.154:1782" 'Para pruebas locales Dim conexionDBRS As String = "externa" @@ -184,6 +185,17 @@ Sub Globals Private l_tipoVentaBV As Label Private p_tipoVentaBV As Panel Dim elTipoDeVenta As String + Private b_pasarInfoMovilKellogs As Button + Private b_pasarInfoMovilDurakelo As Button + Private b_pasarInfoMovilDurakeloRep As Button + Private b_pasarInfoMovilIntmex As Button + Private l_resVentaTitulo As Label + Private l_resVentaTotal As Label + Private l_resArqueo As Label + Private l_resLiquidacion As Label + Private b_cerrar As Button + Private p_resVenta As Panel + Private p_resVentaTransparente As Panel End Sub Sub Activity_Create(FirstTime As Boolean) @@ -449,6 +461,10 @@ Sub WobbleMenu1_Tab6Click 'Facturacion ' Subs.centraPanelEnPanel(Panel16, PanelFacturacion) Subs.centraBotonEnPanel(b_libBanderaFactura, PanelFacturacion) Subs.centraBotonEnPanel(b_libBanderaCargaForanea, PanelFacturacion) + Subs.centraBotonEnPanel(b_pasarInfoMovilKellogs, PanelFacturacion) + Subs.centraBotonEnPanel(b_pasarInfoMovilDurakelo, PanelFacturacion) + Subs.centraBotonEnPanel(b_pasarInfoMovilDurakeloRep, PanelFacturacion) + Subs.centraBotonEnPanel(b_pasarInfoMovilIntmex, PanelFacturacion) End Sub Sub WobbleMenu1_Tab7Click 'About @@ -684,6 +700,26 @@ Sub JobDone(Job As HttpJob) cmd.Name = "select_soporte" 'Reintentamos conexión. reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 0) End If + else If Job.Tag = "pasarInfoMovilKell" Then +' Subs.logJobDoneResultados(result) + b_pasarInfoMovilKellogs.Enabled = True + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilKellogs.Text = $"PasarInfoMovil Kelloggs"$ + else If Job.Tag = "pasarInfoMovilDur" Then +' Subs.logJobDoneResultados(result) + b_pasarInfoMovilDurakelo.Enabled = True + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilDurakelo.Text = $"PasarInfoMovil Durakelo"$ + else If Job.Tag = "pasarInfoMovilDurRep" Then +' Subs.logJobDoneResultados(result) + b_pasarInfoMovilDurakeloRep.Enabled = True + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilDurakeloRep.Text = $"PasarInfoMovil Durakelo Rep"$ + else If Job.Tag = "pasarInfoMovilIntmex" Then +' Subs.logJobDoneResultados(result) + b_pasarInfoMovilIntmex.Enabled = True + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilIntmex.Text = $"PasarInfoMovil Intmex"$ Else LogColor("JobDone Error: " & Job.ErrorMessage, Colors.red) Toast("Error: " & Job.ErrorMessage, 0) @@ -927,6 +963,7 @@ Sub JobDone(Job As HttpJob) If Job.JobName = "DBRequest" Then 'Buscamos si existe la venta. Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "select_ventaXrutaKelloggs_soporte" Then 'query tag + b_revisaVenta2.text = "Revisar Venta" Log(reqManager.HandleJob(Job).Rows.Size) Log(result.Rows.Size) For Each records() As Object In result.Rows @@ -934,6 +971,13 @@ Sub JobDone(Job As HttpJob) Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Next Toast($"Ruta ${records(result.Columns.Get("HVD_RUTA"))}${CRLF}$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$, 0) + Log(123) + l_resVentaTitulo.Text = $"Ruta ${records(result.Columns.Get("HVD_RUTA"))}"$ + l_resVentaTotal.Text = $"$$1.2{records(result.Columns.Get("MONTO"))}, ${records(result.Columns.Get("HVD_TIPOVENTA"))}"$ + p_resVentaTransparente.Left = 0 : p_resVentaTransparente.top = 0 + p_resVentaTransparente.Width = Activity.Width : p_resVentaTransparente.height = Activity.height + Subs.centraPanelEnPanel(p_resVenta, p_resVentaTransparente) + p_resVentaTransparente.Visible = True Next If result.Rows.Size = 0 Then Toast("NO HAY VENTA", 0) End If @@ -1117,6 +1161,29 @@ Sub JobDone(Job As HttpJob) s_tipoVentaBV.SelectedIndex = 0 Toast("Venta Eliminada.", 0) End If + If result.Tag = "pasarInfoMovilKell" Then + Subs.logJobDoneResultados(result) +' s_almacenBV.SelectedIndex = 0 +' et_rutaBV.Text = "" +' s_tipoVentaBV.SelectedIndex = 0 + b_pasarInfoMovilKellogs.Enabled = True + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilKellogs.Text = $"PasarInfoMovil Kelloggs"$ + Toast("Corriendo PasarInfoMovil Kelloggs.", 0) + End If + If result.Tag = "revisaArqueoYLiquidacion_Kelloggs" Then + b_revisaVenta2.text = "Revisar Venta" + Subs.logJobDoneResultados(result) + For Each records() As Object In result.Rows + Private arqueo As String = records(result.Columns.Get("ARQUEO")) + If arqueo = "null" Then arqueo = "ABIERTO" + Private liquidado As String = records(result.Columns.Get("LIQUIDADO")) + If liquidado <> "NO" Then liquidado = records(result.Columns.Get("HVD_DTECIERRE")) + l_resArqueo.Text = $"ARQUEO: ${arqueo}"$ + l_resLiquidacion.Text = $"LIQUIDADA: ${liquidado}"$ + Next + p_resVentaTransparente.Visible = True + End If End If Job.Release End If @@ -1126,6 +1193,7 @@ End Sub Private Sub et_login_TextChanged (Old As String, New As String) Private contrasenaHoy As String = pass1 & DateTime.GetDayOfMonth(DateTime.Now) & DateTime.GetHour(DateTime.now) Log($"${contrasenaHoy}"$) + Log(New) If New = contrasenaHoy Then p_login.Visible = False Sleep(80) @@ -1206,11 +1274,20 @@ End Sub Private Sub b_revisaVenta2_Click kb.HideKeyboard + b_revisaVenta2.text = "Revisando ..." Private rut As String = et_ruta2.text.Trim cmd.Name = "select_ventaXrutaKelloggs_soporte" cmd.Parameters = Array As Object(rut, almacenKelloggs, tipoVentaKelloggs) Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$) reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaKelloggs_soporte", 0) + + reqManager.Initialize(Me, DBRS_1781) + cmd.Name = "revisaArqueoYLiquidacion_Kelloggs" + cmd.Parameters = Array As Object(almacenKelloggs, rut, almacenKelloggs, rut) + Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$) + reqManager.ExecuteQuery(cmd, 0 , "revisaArqueoYLiquidacion_Kelloggs", 0) + Sleep(500) + reqManager.Initialize(Me, DBRS_1781) End Sub Private Sub b_revisaVenta3_Click @@ -1266,6 +1343,7 @@ End Sub Private Sub b_borrarPagare_Click kb.HideKeyboard + reqManager.Initialize(Me, DBRS_1781) cmd.Name = "proc_QUITAR_PAGOPAGARE_KELLOGGS" cmd.Parameters = Array As Object(et_referencia.text.Trim, et_folio.Text.Trim, et_monto.Text.Trim) Log($"Mandamos: ref:${et_referencia.text}, folio:${et_folio.Text}, monto:${et_monto.Text}"$) @@ -1274,6 +1352,8 @@ End Sub Private Sub b_libBanderaFactura_Click kb.HideKeyboard + reqManager.Initialize(Me, DBRS_1781) +' reqManager.Initialize(Me, "http://keymon.lat:9001") 'DBReqSrver de pruebas cmd.Name = "proc_LIBERA_BANDERA_FACTURACION_KELLOGGS" ' cmd.Parameters = Array As Object(et_referencia.text, et_folio.Text, et_monto.Text) ' Log($"Mandamos: ref:${et_referencia.text}, folio:${et_folio.Text}, monto:${et_monto.Text}"$) @@ -1282,6 +1362,7 @@ Private Sub b_libBanderaFactura_Click End Sub Private Sub b_libBanderaCargaForanea_Click + reqManager.Initialize(Me, DBRS_1781) kb.HideKeyboard cmd.Name = "proc_LIBERA_BANDERA_CARGAFORANEA_KELLOGGS" cmd.Parameters = Array As Object("101", "") @@ -1397,7 +1478,7 @@ Private Sub b_revisarVentaBV_Click End Sub Private Sub s_tipoVentaBV_ItemClick (Position As Int, Value As Object) - elTipoDeVenta = value + elTipoDeVenta = Value End Sub Private Sub et_rutaBV_TextChanged (Old As String, New As String) @@ -1438,4 +1519,60 @@ Private Sub s_empresaBV_ItemClick (Position As Int, Value As Object) Next s_almacenBV.SelectedIndex = 0 Log($"Empresa seleccionada: ${Value}"$ ) +End Sub + +Private Sub b_pasarInfoMovilKellogs_Click + b_pasarInfoMovilKellogs.Enabled = False + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilKellogs.Text = $"pimKell - Inicio a las ${DateTime.Date(DateTime.Now)}"$ + Toast("Corriendo PasarInfoMovil Kelloggs.", 0) +' reqManager.Initialize(Me, "http://keymon.lat:9001") + reqManager.Initialize(Me, DBRS_1781) + cmd.Initialize + cmd.Name = "sp_pasarInfo_Kelloggs" + reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilKell", 180000) 'request con timeout largo en ms. +End Sub + +Private Sub b_pasarInfoMovilDurakelo_Click + b_pasarInfoMovilDurakelo.Enabled = False + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilDurakelo.Text = $"pimDur - Inicio a las ${DateTime.Date(DateTime.Now)}"$ + Toast("Corriendo PasarInfoMovil Durakelo.", 0) +' reqManager.Initialize(Me, "http://keymon.lat:9001") + reqManager.Initialize(Me, DBRS_1781) + cmd.Initialize + cmd.Name = "sp_pasarInfo_Durakelo" + reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilDur", 180000) 'request con timeout largo en ms. +End Sub + +Private Sub b_pasarInfoMovilDurakeloRep_Click + b_pasarInfoMovilDurakeloRep.Enabled = False + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilDurakeloRep.Text = $"pimDurRep - Inicio a las ${DateTime.Date(DateTime.Now)}"$ + Toast("Corriendo PasarInfoMovil Durakelo Rep.", 0) +' reqManager.Initialize(Me, "http://keymon.lat:9001") + reqManager.Initialize(Me, DBRS_1781) + cmd.Initialize + cmd.Name = "sp_pasarInfo_DurakeloRep" + reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilDurRep", 180000) 'request con timeout largo en ms. +End Sub + +Private Sub b_pasarInfoMovilIntmex_Click + b_pasarInfoMovilIntmex.Enabled = False + DateTime.DateFormat = "HH:mm:ss" + b_pasarInfoMovilIntmex.Text = $"pimIntmex - Inicio a las ${DateTime.Date(DateTime.Now)}"$ + Toast("Corriendo PasarInfoMovil Intmex.", 0) +' reqManager.Initialize(Me, "http://keymon.lat:9001") + reqManager.Initialize(Me, DBRS_1781) + cmd.Initialize + cmd.Name = "sp_pasarInfo_Intmex" + reqManager.ExecuteQuery(cmd , 0, "pasarInfoMovilIntmex", 180000) 'request con timeout largo en ms. +End Sub + +Private Sub b_cerrar_Click + p_resVentaTransparente.Visible = False +End Sub + +Private Sub p_resVentaTransparente_Click + p_resVentaTransparente.Visible = False End Sub \ No newline at end of file diff --git a/soporteKMS.b4a.meta b/soporteKMS.b4a.meta index 82edd08..fc9f722 100644 --- a/soporteKMS.b4a.meta +++ b/soporteKMS.b4a.meta @@ -6,10 +6,10 @@ ModuleBreakpoints0= ModuleBreakpoints1= ModuleBreakpoints2= ModuleBreakpoints3= -ModuleClosedNodes0=2,7,8,18,19,20,26,31,32,33 +ModuleClosedNodes0=2,7,8,10,11,12,18,19,20,26,31,32 ModuleClosedNodes1= ModuleClosedNodes2=1 -ModuleClosedNodes3=1,8,9,10,11 -NavigationStack=Main,borrarVentaForzadaGuna,561,0,Main,b_borrarVenta2_Click,517,0,Main,b_borrarVenta1_Click,498,0,Main,WobbleMenu1_Tab3Click,326,0,Main,WobbleMenu1_Tab7Click,416,0,Main,WobbleMenu1_Tab2Click,293,0,Main,WobbleMenu1_Tab1Click,274,0,Main,WobbleMenu1_Tab6Click,399,1,Main,Globals,47,0,Main,Activity_Create,198,0,Main,et_login_TextChanged,1093,5 +ModuleClosedNodes3=1,9,11 +NavigationStack=Main,et_usr_TextChanged,1197,2,Main,et_login_TextChanged,1156,0,Main,Process_Globals,33,0,Main,b_revisaVenta2_Click,1239,6,Main,b_revisaVenta_Click,1236,0,Main,Globals,164,0,Main,JobDone,1150,6,Main,b_cerrar_Click,1538,0,Visual Designer,layout1.bal,-100,6,Main,p_resVentaTransparente_Click,1542,0,Main,b_pasarInfoMovilDurakeloRep_Click,1523,0 SelectedBuild=0 VisibleModules=2,3,1