From 0040396a1466a13b8272ee1c06371a52a6fac260 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 27 Mar 2024 12:07:05 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20corrigio=20el=20orden=20de=20las=20mes?= =?UTF-8?q?as=20(antes=20las=20ordenaba=20como=20string).=20-=20Se=20corri?= =?UTF-8?q?gi=C3=B3=20que=20cuando=20se=20reabria=20una=20mesa=20el=20tab?= =?UTF-8?q?=20se=20quedaba=20en=20el=203.=20-=20Se=20corrigi=C3=B3=20que?= =?UTF-8?q?=20cuando=20se=20cambiaba=20la=20cantidad=20de=20un=20producto?= =?UTF-8?q?=20de=20varios,=20el=20nombre=20se=20regresaba=20al=20default.?= =?UTF-8?q?=20-=20Se=20agreg=C3=B3=20que=20al=20ticket=20de=20NO=20PAGADO?= =?UTF-8?q?=20se=20le=20pueda=20agregar=20que=20muestre=20el=20descuento?= =?UTF-8?q?=20por=20efectivo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 57 +++++++++++++++++++++++++++++++--------- B4A/Files/principal.bal | Bin 47280 -> 48542 bytes B4A/Lanterna.b4a | 2 +- B4A/Lanterna.b4a.meta | 2 +- B4A/Subs.bas | 4 ++- 5 files changed, 50 insertions(+), 15 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 97d8b52..6f695e0 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -139,6 +139,8 @@ Sub Class_Globals Dim n As Int Private et_buscar As EditText Private p_buscar As Panel + Private p_transparenteDescuento As Panel + Private cb_mostrarDescuento As CheckBox End Sub 'You can add more parameters here. @@ -188,6 +190,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.panelWH(p_transparenteResumen, Root.Width, Root.Height) Subs.panelWH(p_transparentePago, Root.Width, Root.Height) p_transparentePago.Top = 0 : p_transparentePago.left = 0 + Subs.panelWH(p_transparenteDescuento, Root.Width, Root.Height) + p_transparenteDescuento.Top = 0 : p_transparenteDescuento.left = 0 sv_resumen.Panel.LoadLayout("resumenCont") Subs.centraEtiqueta(l_pago, p_pago.Width) Subs.centraPanel(p_propina, p_pago.Width) @@ -316,8 +320,9 @@ Sub B4XPage_CloseRequest As ResumableSub ' BACK key pressed 'Return True to close, False to cancel ' Log($"${lv_categorias.Visible} And ${Starter.nivelActual}, ${Starter.catActual}"$) - - If lv_categorias.Visible And n = 0 Then 'Or Starter.catActual = "VARIOS") And Starter.nivelActual = "SubCats" + If p_transparenteDescuento.Visible Then + p_transparenteDescuento.Visible = False + else If lv_categorias.Visible And n = 0 Then 'Or Starter.catActual = "VARIOS") And Starter.nivelActual = "SubCats" clv_prods_ll.AsView.Visible = False p_buscar.Visible = False lv_categorias.Visible = True @@ -411,12 +416,13 @@ Sub b_prodMenos_Click Private tmpMap As Map = clv.GetValue(index).As(Map) Private precio As String = clv.GetValue(index).As(Map).Get("precio") Private id As String=clv.GetValue(index).As(Map).Get("id") + Private prodNombre As String = clv.GetValue(index).As(Map).Get("prod") Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":Subs.traeAlmacen) ' Log(tmpMap) prodsMap.Put(id, tmpMap) If laCant.Text = 0 Then prodsMap.Remove(id) - Private nombreX As String = Subs.traeProdNombre(id) - Subs.actualizaProducto(precio, laCant.text, nombreX, id, Starter.ticketActual, Subs.traeFecha, Starter.meseroActual, Starter.mesaActual, 0, Starter.tipov, Starter.comensalesActuales) +' Private nombreX As String = Subs.traeProdNombre(id) + Subs.actualizaProducto(precio, laCant.text, prodNombre, id, Starter.ticketActual, Subs.traeFecha, Starter.meseroActual, Starter.mesaActual, 0, Starter.tipov, Starter.comensalesActuales) cuentaProds Dim cs As CSBuilder cs.Initialize @@ -443,6 +449,7 @@ Sub b_prodMas_Click ' Log($"${pnl.GetView(2).GetView(1)}${CRLF}${pnl.GetView(2).GetView(2)}${CRLF}${pnl.GetView(2).GetView(3)}${CRLF}${pnl.GetView(2).GetView(4)}"$) If laCant.Text = "" Then laCant.Text = 0 Private precio As String=clv.GetValue(index).As(Map).Get("precio") + Private prodNombre As String = clv.GetValue(index).As(Map).Get("prod") Private inv As Int = clv.GetValue(index).As(Map).Get("almacen") ' Log($"|${laCant.Text}, ${inv}"$) If buttonTag = "vendido" Then @@ -458,9 +465,9 @@ Sub b_prodMas_Click Log(Subs.totalPedido) End If Private id As String=clv.GetValue(index).As(Map).Get("id") - Private nombreX As String = Subs.traeProdNombre(id) +' Private nombreX As String = Subs.traeProdNombre(id) Private precioX As String = precio - Subs.actualizaProducto(precioX, laCant.text, nombreX, id, Starter.ticketActual, Subs.traeFecha, Starter.meseroActual, Starter.mesaActual, 0, Starter.tipov, Starter.comensalesActuales) + Subs.actualizaProducto(precioX, laCant.text, prodNombre, id, Starter.ticketActual, Subs.traeFecha, Starter.meseroActual, Starter.mesaActual, 0, Starter.tipov, Starter.comensalesActuales) cuentaProds Dim cs As CSBuilder cs.Initialize @@ -935,7 +942,7 @@ Sub LlenaMesas(p As ResultSet, extra As String) 'ignore Private o As Cursor = Starter.skmt.ExecQuery("select count(PT_TICKET) as ordenes from PEDIDO_TICKET where PT_PAGO <> 'VENTA'") o.Position = 0 If o.GetInt("ordenes") > 0 Then WobbleMenu1.SetBadge(3, o.GetInt("ordenes"), Colors.white, Colors.red) Else WobbleMenu1.RemoveBadge(3) - Dim p As ResultSet = Starter.skmt.ExecQuery($"select *, IFNULL(M_ESTATUS, 'CERRADA') as ESTATUS2, IFNULL(M_MESERO, 'NINGUNO') as MESERO, IFNULL(M_COMENSALES, 0) as COMENSALES from cat_mesas"$) + Dim p As ResultSet = Starter.skmt.ExecQuery($"select *, IFNULL(M_ESTATUS, 'CERRADA') as ESTATUS2, IFNULL(M_MESERO, 'NINGUNO') as MESERO, IFNULL(M_COMENSALES, 0) as COMENSALES from cat_mesas order by cast(M_ID as INTEGER)"$) ' Log(p.RowCount) PCLVM.Commit clv_mesas.Clear @@ -1062,6 +1069,7 @@ Private Sub b_cambioMesa_Click End If p_transparenteCambioMesa.Visible = False WobbleMenu1_Tab1Click + WobbleMenu1.SetCurrentTab(1) End Sub Private Sub b_abrirMesa_Click @@ -1240,6 +1248,7 @@ Private Sub b_pagoCerrar_Click b_leyendaDescuento_Click Sleep(1000) WobbleMenu1_Tab1Click + WobbleMenu1.SetCurrentTab(1) End Sub Private Sub cb_pago_SelectedIndexChanged (Index As Int) @@ -2096,6 +2105,7 @@ End Sub Private Sub b_regresarProds_Click WobbleMenu1_Tab1Click + WobbleMenu1.SetCurrentTab(1) End Sub Sub imprimeTicket (ticket As String, pago As String) As ResumableSub @@ -2105,8 +2115,9 @@ Sub imprimeTicket (ticket As String, pago As String) As ResumableSub End Sub Private Sub b_imprimirTicket_Click - p_leyendaDescuento.Visible = True - p_leyendaDescuento.BringToFront + p_transparenteDescuento.Visible = True +' p_leyendaDescuento.Visible = True +' p_leyendaDescuento.BringToFront cb_leyendaDescuento.Checked = True End Sub @@ -2118,9 +2129,19 @@ Private Sub p_transparenteCambioMesa_Click 'Para evitar que el clic en pantalla no se siga hacia atras End Sub +Private Sub p_transparenteDescuento_Click + 'Para evitar que el clic en pantalla no se siga hacia atras +End Sub + Private Sub l_prodX_LongClick Log(Sender.As(Label).tag) Private m As Map = Sender.As(Label).tag.As(Map) + Log(Sender.As(View).Parent.As(Panel).GetView(2).As(Panel).GetView(4).As(EditText).text) + 'Sender.As(View).Parent.As(Panel) = p_prods + 'Sender.As(View).Parent.As(Panel).GetView(2) = p_botMasMen + 'Sender.As(View).Parent.As(Panel).GetView(2).As(Panel).GetView(4) + 'Sender.As(View).Parent.As(Panel).GetView(2).As(Panel).GetView(4).As(EditText) = et_pCant + Private laCant As Int = Sender.As(View).Parent.As(Panel).GetView(2).As(Panel).GetView(4).As(EditText).text ' If m.Get("prod").As(String).Contains("Alimentos Varios") Or m.Get("prod").As(String).Contains("Bebidas Varias") Then p_renombraVarios.BringToFront et_nombreVariable.Text = m.Get("prod") @@ -2268,6 +2289,7 @@ Private Sub et_montoPago2_FocusChanged (HasFocus As Boolean) End Sub Private Sub cb_opcionEfectivo_CheckedChange(Checked As Boolean) + Log(">> OPCION EFECTIVO CAMBIO - ACTUALIZAMOS PEDIDO") Private desc As String = 1 / Subs.traeDescXefectivo Private tot As String = Subs.traeTotalTicketActual_P("VENTA") If Checked Then @@ -2278,7 +2300,7 @@ Private Sub cb_opcionEfectivo_CheckedChange(Checked As Boolean) Starter.skmt.ExecNonQuery($"update PEDIDO set PE_DESC = '0' where PE_TIPO = 'VENTA' and PE_MESA = '${Starter.mesaActual}' and PE_TICKET = '${Starter.ticketActual}'"$) ' et_montoPago2.Text = tot End If - et_montoPago2.Text = Subs.traeTotalTicketActual_P("VENTA") + If et_montoPago2.IsInitialized Then et_montoPago2.Text = Subs.traeTotalTicketActual_P("VENTA") End Sub Private Sub lv_historial_ItemLongClick (Position As Int, Value As Object) @@ -2329,8 +2351,10 @@ Private Sub b_reabrirMesa_Click Starter.skmt.EndTransaction p_reabrirMesaMulti.Visible = False p_transparenteVerOrden.Visible = False - WobbleMenu1_Tab1Click End If + Log("Vamos a Tab1") + WobbleMenu1_Tab1Click + WobbleMenu1.SetCurrentTab(1) End Sub Private Sub p_reabrirMesaMulti_Click @@ -2354,6 +2378,7 @@ Private Sub b_reabrirMesaMulti_Click p_reabrirMesaMulti.Visible = False p_transparenteVerOrden.Visible = False WobbleMenu1_Tab1Click + WobbleMenu1.SetCurrentTab(1) End Sub Private Sub b_imprimirCerrar_Click @@ -2471,6 +2496,7 @@ Private Sub b_leyendaDescuento_Click Private elNombre As String = c.GetString("PE_PRONOMBRE") If elNombre.Length > 30 Then elNombre.SubString2(0, 30) If c.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then +' Log($">> APLICAMOS DESC POR ALIMENTOS"$) elSubTotal = c.GetString("PE_COSTO_TOT") - (c.GetString("PE_COSTO_TOT") * (c.GetString("DESC") / 100)) Else elSubTotal = c.GetString("PE_COSTO_TOT") @@ -2564,12 +2590,19 @@ Private Sub b_leyendaDescuento_Click Sleep(1000) b_imprimirTicket.Enabled = True ProgressDialogHide - p_leyendaDescuento.Visible = False +' p_leyendaDescuento.Visible = False + p_transparenteDescuento.Visible = False ' B4XPage_CloseRequest + cb_mostrarDescuento.Checked = False +' cb_opcionEfectivo_CheckedChange(False) End Sub Private Sub et_buscar_TextChanged (Old As String, New As String) Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_TIPO = '${Starter.catActual}' and CAT_GP_NOMBRE like '%${New}%' order by CAT_GP_NOMBRE"$) LlenaProdsLL(c, Null) Log(c.RowCount) +End Sub + +Private Sub cb_mostrarDescuento_CheckedChange(Checked As Boolean) + cb_opcionEfectivo_CheckedChange(Checked) End Sub \ No newline at end of file diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index e37eb4b7f230a8d11ba2e023af011774241a8223..80e617b65550b62118d2884021c0b63afd151677 100644 GIT binary patch delta 4575 zcmaJ^3sjWH72f+R>c7e^FL^DP6@>WUA*&*aL_nyI1W>>SK^`lt4-{B|7@q-*HjzdV zZ&iFO6{QoS%VJ4R@J%3o0kfHx(^372AFr zd`lWA(NK(mW&h8Wiw(Ve@rG{-mihUWv5GUNV3BE=sjS%OtSD^snL1R?DoC2WcIk^9 z#Y=B4uh5%~^UC$6GQDZ8si_OTF62r9i(^4mIz>C|K;CX|LP3vX+)%2HPlYWj8{`Jw?d68lZ}|0<%8zU33xC|gZa4w@n+T(nwRl%t^qHtS7Tj$78+;o$JN=s zSZH)(%3ufP<&A`$q-rwW%!|jGdNs~YHG&0W4n$CI&Wypk`K$e#XxA(z<=;@p{(7<$ zkejeMW+tx9VLR7hltG8rax`iSP1(t4Gz`V!!u!xnUI?@sF}#_kT^?iP5!Bpx0hV_Y z^rR+xP{&HIya&%4-+%4~parKb9>vuAx6lfuY+)m7itc0IJclo5=V?5;D#w~U9X>8z zi-9?6)aPHplY?a}oVyJ6;>JjWcCSMEyVxE%8Z+lvVV}!7!aI#Y-p`t`A2%!wg#!p% z!tl&|D;yNo9As-?Hy$(UaO={*PL`p>ijU^#us$pnlZ(9YJ!4-iHw0l^w1csGp%qJt z?TinKgO#&3uTl?yR#Fpzg%L7ykG8do0WZZBVBxA>_+z97HD(!~mRax%Q#>%!LUDM! zk47`#c6ymZZW_ zd^D;AjT9#b&cwuWF-k_P9!ZiPR(Jc#GYH6e`q+(`OBID*fX=D~3i;7a7<3RTA_ zk*Cl>JgV`-=2NuY-zwvlH!N_Pw&%?udVLSyIwJ`Y$vHk3prPS02q$=gUUegHOXo&Qj+} zm{ZP8_|{qxRt>_twX*i3Za8=IgKcrE#{it;yWICy0#1Cx3%^(q3V-FtowSCI`(wwX z_G5*Nk9hE$=ftdE67hnQc%d8OMebJ9+d1$F)`p~Dk9FaAymk&V7HD_+vRxtn68Gh0^5tX z{}p0%QxC7OdI(oZh%@K>uPTK(7n0@@s=2Z)y`J27jVH!6C6{~YG8x|ppHWiqc*5j5 zZa7?L(X?ih6>jiox}jKl-Fc8KnyhGn&pGRJ1?z^B#p>M2Ut93}JN7#yXuXEyvN*fN zeRF4)jL};xaGOiH{WDU=Z!LSSXYj3!IxHU-i`O@5)J%x8IG5lzjd^f~pHktrv7LA2 z9fh9Twu{?>0PYg0^D5EaRTB7y@39TrY&()c{WqG9q9*?xJ9bXgvQJm6-)7#$TbtGB z*Wd~Nz_wXYc-CUYphk9^d0}DoAS`Xvkjd;4`@ZQue94XfvWt|?N{Q*atoUHN<8~Rl zLqmM#zz2@I`b2Z8`d_q|=jm72JZ~mE#J2R|{r*jZZuSKI3Tusl+J_1iOw4Qy-*XNZ zHWhT9$~O+7M_a7;c$ag>+HVz0`4M7O^AsFxwZeCN|KD|CI4XV8yYvY8dQT)>7K3nn zi-zdTL1it>L5Y~PF9*JNWFP!MqU=TO2Ns5P`>ptiHJ*kY-q>@%if`_<2h)|kURZ1h zhX3+V(znXCp!X=`e`Fy~{nfoA;U}KqVZUDu|6?~T<{i+$f4H#3DL$xgZG|U%^G_6; zXX@g7`f>j^)G4pPqQrA1N!dd>=9*Q!=Uh0zreoG1Zc`}h!hzS}|% zCxaxh1sPhY3z@tl^#Ig1Ou|t|GNhh>web6CPW&-t5G zpDJTex(o(P${x}sYos8%wCdfy_S6A>xAD~R2WnKX{_M}svPGPv97GU7lA=4a{= z+?C$8I1KoEMa_QsvY#lh7Sor+@R#w2(MD;2%aj3K7c)~{=wgcZB$DCJ? delta 4248 zcmb7{4^-4u7RTofqWs2~fdK&>?O=d{BKQvx5ySsM@=r(sH9!~@LO@Uqtw<{~HFNo< z=?Vy%jQPmnlP;)xQ+sa)N)gGtiB;}XY9JXzu?5>J(Qn#9v3o+0r}iJxHmE;lAf zoG9^=63>!2N#bOQQWZ7#P=iL)fmmUy1T^Cey&@zWCL zNSrHio=#WoGQ3b4$d|Z4Vync9Bwj4>5{U~XE|T~e7qkD1T^&vziAy9dmAFjeWfGT5 zTp{stiB~XJa$CvmS#JI)_bfFHB%Q7|_wp+;s>-Ybk>=%Z?_&&A+|B&53_k?=V^82D z4>#^*q@=3j7&mA%S_Azf6@FP*F?ESG{~2q6kYAWnY^}1E6y!~_R^+d+mMkyz;I|1& z%gPIv7M9y1{l6f1_iw;t^08m)pX}Dpn}_ok=9HG@7nYVxUu4Z+URYUb-!P~}Z(lUH ze>n0^SZEtY%?!hWop}gJ_N^)GkF$}%s7#K*)rxuLp|Lo@MSN53!vS&l(89>=L}dMoJV_DpAS+e#4%asM9|xKVbyHZ&KZpxnFh3^ zrDOQqgBY8mx`y_mu5v8dR4b+p3XWus#(TRANXor}(^(|}`*}?wl$8Vg5P!Wy<|z9y zxp682<9+F%WBGw7jk9oXQlTFmKnjK-V%{w}n}15)-m=(>=v`@o8SUePP4D)Y6gMWv<+L+}Hah7{EreDW>8QQ2sEX*6 zLrtvdlxF%#H3@!eZ!F$Oc(T$L@g;Gntu(S0ksWG6+dE385S?~uIQiS^dS4^${Kmc*Rc@mXoSW;4-jN?@WW~&%{Jy`FK1O530{W2EEi-+nRlz)fn+e(GbVeqW!nDnfT&bzjFUSshbhjBFSL@3Cus-p|4Ual727c^2lM-(^uBUg{j zhClI`T8}?c^FC{JU;3EU_lx{9572jf0I3D}BkuW$H{uRy{E{JlSM4w^pE=(wl`#$Qyy zL2Fp>ic9dyLj*rn{TTUD7X6h2BbJN5f?wN*(BF7_;rtx@@@;&vNnI>FUN`a^;l1it zY;@J-xvLtzpE*4DIeRVvZR>0pvc+}it=wXy&p7Xi30oQu2z@dOG71>Q2rVwt`bRC7!5DO5w^SQcnak32C zG=r{-D54wcu5YL@l>EAlT3s>Jsm4>*!0D)R!8mR#oc7H*EBk%U54%B^9T09vHq-!5Vb?SF$m{i-43HcDC_bmyW|{wt*&R-n-d%d^Vb?% zH#sLO;kng@(>t99iK*7;#!A!!e^RXhuda%>Kfi4X8UD#rBe*HIapA3*CeiH<_?xPy zzhO@gpgYLheg)0-IlM=4Jf7Kci`rbfZR;_w^_SNW+TgTa)nIgE3Dx@khD5Bdo!;Y) zM0e$&=)Ng+C8l~)GTqhKXyaAP=Nr>`B<&fY-pK0r7~S|gt9kz&-zgFhX;-juR~_AV zDEAj~-uE?noHPEd&bZrP!}oh*IdVjvcpg^lzPn=xKKr^#cfr1{MEo<_%`tgv>jNh5SKFT9YDP4{-7OfGYswVMl7`{xOZ@$UQcMs9d6QV#Kh9X zRl%1%VAH!1I;&E=-83RRL99~Wi%`8P8*lvTO>(a}mFn&OP^sR8%NdV#6%G5HBU4D< zhcNg+idUZ=;yAlDMDNkHq0Xihy+UY@4zD(_m?D0&_GM5D_9NnrCqInbdUtku=+ujy ziF;mR$eSPLuA$CO9|kh>bYJJ2ehi8qKh&)9X9y5)#Ba6!46LxTa{vPw`HikGx2}t$ niLj=86ufqXkfr8SxJXd4;K(sQy+0upVQ4$H8uK?9***UQ0Y@B# diff --git a/B4A/Lanterna.b4a b/B4A/Lanterna.b4a index 184dfe2..9c03d7a 100644 --- a/B4A/Lanterna.b4a +++ b/B4A/Lanterna.b4a @@ -82,7 +82,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Lanterna #VersionCode: 1 - #VersionName: 4.03.23 + #VersionName: 4.03.25 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Lanterna.b4a.meta b/B4A/Lanterna.b4a.meta index ef189c3..9aeaf32 100644 --- a/B4A/Lanterna.b4a.meta +++ b/B4A/Lanterna.b4a.meta @@ -25,6 +25,6 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=47,48 -NavigationStack=Subs,traeSubCategorias,1410,0,Subs,traeTotalTicketActual_P,1169,0,C_Principal,et_buscar_TextChanged,2565,6,C_Principal,b_leyendaDescuento_Click,2485,6,C_Principal,p_mesasItem_Click,975,0,Visual Designer,principal.bal,-100,6,C_Principal,lv_categorias_ItemClick,1168,1,C_Principal,B4XPage_Created,209,0,C_Principal,B4XPage_Appear,276,0,C_Principal,B4XPage_CloseRequest,347,6,C_Principal,WobbleMenu1_Tab1Click,730,0 +NavigationStack=C_Principal,PCLV_HintRequested,723,0,C_Principal,b_prodMenos_Click,412,5,C_Principal,b_prodMas_Click,431,0,C_Principal,b_renombraVarios_Click,2143,0,C_Principal,l_prodX_LongClick,2136,6,Visual Designer,proditem.bal,-100,6,Visual Designer,principal.bal,-100,4,C_Principal,p_transparenteDescuento_Click,2128,0,C_Principal,LlenaMesas,936,2,C_Principal,clv_mesas_VisibleRangeChanged,933,0,B4XMainPage,JobDone,257,0 SelectedBuild=0 VisibleModules=1,7,8,2,3,6,4,5 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index e6a8cb4..f412292 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1277,11 +1277,13 @@ Sub totalPedido As String End Sub Sub actualizaProducto(costoU As String, cant As String, nombre As String, prodId As String, ticketId As String, fecha As String, mesero As String, mesa As String, precioSin As String, tipoVenta As String, comensales As Int) - If nombre.Length < 6 Then ToastMessageShow("(actualizaProducto) El nombre del producto no es valido " & nombre, True) + If nombre.Length < 2 Then ToastMessageShow("(actualizaProducto) El nombre del producto no es valido " & nombre, True) LogColor($"actualizaProducto, p=${prodId}, nombre=${nombre}, cant=${cant}, tipo=${tipoVenta}, mesa=${mesa}, mesero=${mesero}, comensales=${comensales}, ticket=${ticketId}"$, Colors.Magenta) ' Private tablaProds As String = "cat_gunaprod2" ' If tipoVenta = "ABORDO" Then tablaProds = "cat_gunaprod" Private c As Cursor=Starter.skmt.ExecQuery($"select * from pedido where PE_PROID = '${prodId}' and PE_TICKET = '${ticketId}' and PE_MESA = '${mesa}' and PE_TIPO = '${tipoVenta}'"$) + Log($"select * from pedido where PE_PROID = '${prodId}' and PE_TICKET = '${ticketId}' and PE_MESA = '${mesa}' and PE_TIPO = '${tipoVenta}'"$) + Log(c.RowCount) If c.RowCount > 0 Then LogColor("ACTUALIZAMOS PROD", Colors.Blue) c.Position = 0