From 745adb86cabc1bc978703e3d387c9d8aa0a6fca2 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 18 Jan 2024 00:02:28 -0600 Subject: [PATCH] cambio de RMI y promocion variable v_4_01_17_3 --- B4A/B4XMainPage.bas | 1 + B4A/C_Cliente.bas | 30 ++++++++++++++++++++++++++++++ B4A/C_Principal.bas | 2 +- B4A/C_Productos.bas | 10 ++++++---- B4A/Durakelo.b4a.meta | 4 ++-- B4A/Files/cliente.bal | Bin 33517 -> 33774 bytes B4A/Files/encuesta.bal | Bin 1330 -> 11234 bytes B4A/kms_helperSubs.bas | 11 +++++++++++ 8 files changed, 51 insertions(+), 7 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index e64d076..ea13ec8 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -94,6 +94,7 @@ Sub Class_Globals Dim kh As kms_helperSubs Private p_login As Panel Private l_version As Label + End Sub Public Sub Initialize diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 6dde6ea..00596e6 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -132,6 +132,17 @@ Sub Class_Globals Private Label26 As Label Dim impresoraConectada As Boolean = False Dim printer As TextWriter + Private b_guadaenc As Button + Private cb_pregunta8 As B4XComboBox + Private rb_p7si As RadioButton + Private rb_p7no As RadioButton + Private et_pregunta6 As EditText + Private et_pregunta5 As EditText + Private et_pregunta4 As EditText + Private et_pregunta3 As EditText + Private et_pregunta2 As EditText + Private cb_pregunta1 As B4XComboBox + Private Label1 As Label End Sub Sub initialize @@ -184,6 +195,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Panel1.Top = La_nombre.Top + La_nombre.Height + 5 : Panel1.left = 0 Panel9.Top = La_nombre.Top + La_nombre.Height + 5 : Panel9.left = 0 Panel10.Top = La_nombre.Top + La_nombre.Height + 5 : Panel10.left = 0 + End Sub Sub B4XPage_Appear @@ -319,6 +331,16 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click +'' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local +' If 1 = 1 Then +' '2=2 ----> si no esta en el historico local mostrar encuesta +' c = Starter.skmt.ExecQuery2("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA) ",Array As String()) +' If Then +' +' End If +' Else +' +'' End If Starter.tipov = "PREVENTA" B4XPages.ShowPage("Productos") ' StartActivity(colonia2) @@ -1246,4 +1268,12 @@ Sub b_chk_e_Click Starter.tipov = "VENTA" 'TOMAR_FOTO = 1 cuestionario +End Sub + +Private Sub cb_pregunta1_SelectedIndexChanged (Index As Int) + +End Sub + +Private Sub cb_pregunta8_SelectedIndexChanged (Index As Int) + End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 1c09876..766cd53 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -435,7 +435,7 @@ Sub trabajar_Click MARCASQ = c.GetString("CAT_VA_VALOR") c.Close skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" ) - skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))") + skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)") ' StartActivity(colonia) B4XPages.ShowPage("Clientes") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 1fbbfc3..66c858c 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -643,7 +643,6 @@ Sub b_prodMas_Click Dim pnl As B4XView = pnl0.GetView(0) Dim lProdX As B4XView = pnl.GetView(1) Private existencias As String = lProdX.tag.As(Map).Get("almacen") - Log(1) LogColor(clv_prods_ll.GetValue(index).As(Map), Colors.blue) ' LogColor(lProdX.tag.As(Map), Colors.red) @@ -654,7 +653,10 @@ Sub b_prodMas_Click Private precio As String = tmpMap.Get("precio") Private precio2 As String = precio Private inv As Int = tmpMap.Get("almacen") -' Log(tmpMap) + inv = Subs.traeInventario(tmpMap.Get("id"), Starter.tipov) + Private rmis As String = kh.traeRMIdePedido(tmpMap.Get("id")) + Log($"${laCant.Text} + 1 <= ${inv} = ${(laCant.Text + 1) <= (inv)}"$) + Log($"RMIS: ${kh.traeRMIdePedido(tmpMap.Get("id"))}"$) If buttonTag = "vendido" Then ' Log("VENDIDO") ' Log($"${(laCant.Text + 1 <= inv)} And ${(Subs.totalPedido - precio > 1)}"$) @@ -666,7 +668,7 @@ Sub b_prodMas_Click laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) ' Log(clv_prods_ll.GetValue(index).As(Map)) End If - else If laCant.Text + 1 <= inv And (lfila.Text = "PRODUCTOS" Or lfila.Text = "CATALOGO") Then + else If (inv > 0) And (lfila.Text = "PRODUCTOS" Or lfila.Text = "CATALOGO") Then ' LogColor(inv, Colors.blue) ' laCant.Text = $"$1.0{laCant.Text + 1}"$ laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) @@ -1144,7 +1146,7 @@ Private Sub l_prodX_LongClick Private pId As String = clv_prods_ll.GetValue(index).As(Map).Get("id") Log(clv_prods_ll.GetValue(index)) Private pNombre As String = clv_prods_ll.GetValue(index).As(Map).Get("prod") - Private t As Cursor = Starter.skmt.ExecQuery($"select sum(PE_CANT) as cuantosProds from pedido where PE_PROID = '${pId}' and PE_CEDIS <> 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$) + Private t As Cursor = Starter.skmt.ExecQuery($"select sum(PE_CANT) as cuantosProds from pedido where PE_CEDIS <> 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$) t.Position = 0 Private ventaT As String = t.GetString("cuantosProds") If ventaT = Null Then ventaT = 0 diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 44af97a..bb9ce4f 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -48,7 +48,7 @@ ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= -ModuleClosedNodes10=1,3,7,31,35,36,37,38,39,40,41,42 +ModuleClosedNodes10=1,3,7,35,36,37,38,39,40,41,42 ModuleClosedNodes11= ModuleClosedNodes12= ModuleClosedNodes13= @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=1,3 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Appear,193,0,C_Principal,B4XPage_Appear,409,6,C_Principal,connecta_Click,1876,0,Diseñador Visual,encuesta.bal,-100,2,C_Principal,cargar_Click,842,0,C_Principal,B4XPage_CloseRequest,1863,0,C_Principal,IsConnectedToInternet,257,0,Tracker,flp_LocationChanged,175,0,Starter,Timer1_Tick,69,6,Starter,ENVIA_ULTIMA_GPS,109,6 +NavigationStack=kms_helperSubs,traeRMIdePedido,548,0,C_Productos,B4XPage_Appear,148,0,C_Productos,b_prodMas_Click,714,0,C_Productos,l_prodX_Click,1093,0,C_Productos,l_prodX_LongClick,1142,0,C_Principal,B4XPage_Appear,409,0,C_Principal,trabajar_Click,431,3,Diseñador Visual,encuesta.bal,-100,4,Diseñador Visual,Cliente.bal,-100,6,C_Cliente,gest_Click,334,6 SelectedBuild=0 VisibleModules=21,2,9,18,7,4,10,22,11,23,15,1,13 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 64fea75836cee7afc12c5021917941c311bba80e..f352e1e0b6fc6fb836fcefda634ed8b747604495 100644 GIT binary patch literal 33774 zcmeHQ3zS>Md6w`4i@2^^h#?Q)u8oa(c(c2H>>3EHUbba+SBtDQgcjtxtGix-R@zEh z8z&?&q@igcDbPS6DJf}bn$o0g656I|Lz~h93AE(Vgg#T~D><|&J#9};XnX2@-+y)I z-qGrHS28-O(K&PV&&)sn%>1wU|G8RwRUi;JcTFI02EM0I00zP{mE4hB<=A?_{Z8fD zlDV*8l}<<7bY^Dm=8UzD-I2vgrC6wTu11U9Kr)d`JTno$F3ll;uS-M{A%N4FS#zec zSTb3OWcE&lQ?YPrl~fYrlR_f{V5r(Oaga^ZnR#=;v`HO|Po%@ro6cM#BcuB=>F^ey z^+${I3&q7kR$JEv(K&18=1B3D>N>ePr-^hpJmLUR2Z#xPoemP?YFW;HjkN^LUDe&WUaN4%Vs`XEJ8EM1Pqos=HMt0BK62LaQtXb9Y# z1E1-E&+@>p_rM!G@Yx>t9Ka6!HvoPk%9~K$?19e(?BJZ|fzS8A2H-xFjVPNu@C6=t zvj^VdfiLvHTLE8$axuy!9{5rZyv+mmd*HWt-~kUj=z)hk@OBTp!vpX1z`H!~um>LT zz`H&0Wghr)4}66Oeyaz*(gR=Rfk!=X*aJsAaMT0GJaF6tQ;!{f?)AX?06Q{G0N#&s zHOiO=9{0c#9ykej66G3{6pBOt0APn^+5^*esMA>-b~ju3;$Z(m;V>0ASFz@&<=~vo zFIsH<5L(Z_lg2|++xGrv&NyvwZG7?a%sn@RV^2O6S^1S$R)680_G8w)Z#e&w ztG=H6)YOXG7G4fL_2855IA{L3T^~Pw=()rtUt9ae^u4oR zKJ@uVU;gm?TTfj7-Dh4}@y$)g{`q07=vyc>_?dG0*n&k9iA|g3+)RJWD(4OttWy8D zRWY4Nfv%zgJep~3_&^gj3%Pk5GQ~m+eBn2@oh_M1&FQ>F`=})ztM=h=&lgKhjn>@n z4AZ;lV5W|#C-KWkY9lFt=p@{3t3ovY*p^Ct6%Ngk3% z1&k(F7t9i90T3msn1{K*3P;d+B?_~}(!4p7d*U+%W3mK-xdk)NnFK{PNC$i*SI%K^ zT+R`*lrsyJ0Zx*)W-HXqN^yZ?kCFkLbk52ho|D*P&MeH#6-z?H28npt&ADuuhrj^6 zW35CeZaFcj-ddDEpHqwNNX!<}wYkb%RJdMtIyj-3Uzn4S(8}j?3+3F~g+~*~i8y;D zDxiF3i-k(~s8uf7oM)A|R~tiP%Xa0+WrGj zW-Fg7SJ(mt;UVXmjr5LHd#T(s+H9^YdhXEReyXbPZCWT<<+7D^n#e*4iD~22?e9yb z64xgYt&a)k?E&QBcrlxs&CQtH?+%WXaEP^?B0NNk{Ej5YVie+m#Doz|#u9sz#x*Ho z?c$gS!+(k=8cyvEr>b2NaoOnt89o&O|7FZbBTbfoN;Fv@PlRpdts~+KNXd@77!=ep zo5E4?H@CkeT)(i+D2H+Vkz57IjZ ziUn~DbGd?8CcnipW#YoZV#RT&%AUY%$kmmVeZ-ta_p zUpyt*B^zTTJDI#To-*KxlmYLgiKY{iN#kusHTN^(*X=`w8%rX&Ba7{XVu(beNDdRR zaEyw(n|;*?UK7#?JF1Bk!D^B%+MheT$WzHOUcT+4T+jihfn3_-dPFtv&;7Ic8*i|A1gc-BuC_Qs6;*aB=SYdizvlB zh0kQ044X{Fjcvw3FjP`YTTrs4n8PR~=pjNA$?-_a75;Y49809)(P$z$p-?3cj2}pc zV@cVi3>D&%Kt_{e$%#Z*y4>VZ)FGTk{uhf&*AA`_Yj)CDY23+B!f9l#E3Ix`IygWV zEju#8GmG?OxiW5lT**G*He6Obb(xN5)(&A>)gCpEWoc9BUNUAId!cTPsN|T#Yk5E0* zyfQF2tC6+xM(l}C+SBjk?(!MAQIK)FxP0EAFgTR88{z2G_|#Z97B;pU_d!7txkYfiS8t+(_w3m|KTwLIua5O!Y3QMoV z08ndOZ?TILgNAfTgXf-1`4gs|^-df&o9A(`G~=fxd9DRm%@q*r?vv1u&L|K#e$^;| z7wk$P#BVMpL}8Pc!Mo8!Ua=t%qOwar7f;TuKEY-bp+H8hK7kMCk`@X)M27OSlA+70 zAaylFpHCmPN;3LYL5f*sWg;)V%;H0gfGJA>cru2ZWPSCCfBW7Es`RQL&zBWEmxEb6 z$SwhxrVC&=Kpz2=z(xmPW#uM3R$RabtD((!$R@V{aQA+p)6BhZMG;Dkn1IDKV8TTh z8oC${4>vAB^-{KTzuQnS$3nQDEpNd?t=m8)NDc|RxIWpo1z-S0h6@8pa1dp!aFNU& zLRl5qj%R2G9*U_<`eht5ei5fIa1OO$b}`{+q90<0ulQy&UO0RO+Fc2(gNg`&Z-bet z-vCaK&1xr#5*kI*0xK^E)H4Zi7qt?2U;7f^E_4ZypbrV~Zp4;A_P+1NLjy#8GVQrOxRD`dT?BlGQ!*p86CU5&CNGJn?c% z3GMYq=*~c(0U^){tgPoV_o1U!Uk=$8n?P3|3bngiLcoLfQDf=FLf&DYUxyn z!%tnKO`@Zg{l^;}v&v|>EEV7B>?c8;{hmN)5}kUWa}8Q-#=}2~xzfm%W3Ke=LIC4! zbG;vcffD2jnwe_~{imY2F2l(m0IO>C#fOuB9>aBgAwgYV+Hmq|4ARYYJ3R1mwB}=u z)=)>p$=?FNKxygZr+{=SYRxj7{6Vm)1Fc!=rd z`YpBQIw09v^EN=@HN_^lY?9BC6c7igYB~v^P$YE@K{n845Z@CXCsS76X;w9RT_WptyM}E4BIl4QLa_ z+z7yBOvY(G1i(ZIP2(|x5iyT^Axc28t?_vD4`g>)Ve zUFShPE7$_|dA~)j>16_C!0pRi=>NLjy#8GTj(gK54Izwt}QQT{w z@1rEc!oq7k$-|A34El5tIGHE{r=sZR4+++jJjYhAXO>1Sv*@%v3GUWJ*1LkO&!48s zG718^vRr{l`cTl}Q9D-Pbnv(m4_o|)0g1BA0ibx>*NVVd-~Cq!*<}_Cts5og&{50v z>Z!lxm8Hi}lbemejIrKO3E0?B4?9*}T-9>6-3>P;$L-%@53i4f?=v(617MZLhT4S4(* zid?3a*iyzrbeOX=;3H?$`B*_qHBk<32i)|E(b3`dxk-n%$SFKmy&br{F_7w>CWDxK z>T2>4bS)K51F^KP$t0^wps6O)4Ru+Q?*d7GnmmCKuM*c8Q=bH`ldKP}9|L-Kxc*sC zTBiRh0MB9rrKJRbQ;i&t1G0TkH*!!~ z6F*K4Iy$-zwQ4YQ8^Au4Ad0D$RCJewzpjOuj^QHH7xvTK(@`F^fc{mOr_k9fl9Mi zg+z9_x*j#%88X7rouO^+)Ij$xLA@$m179xgK)ottms*XYgwZD{O}ht_)qDmj&72{T z-QANH`tI913V3+R$-z5J**#kf6gN!+UtB%{uBt^Z(zJUqd#zXOC`}_lor@lSIEhZh z)S3vS(=<&np7ZI9S7}-U#$SmMwms$n5h*l}$2yeiZO6|5tYy=o@X37j!x?oxR=6Dd zHZ{C^N0sgZDUW81M|brUx*w1&f^GySq|1+Uhpc(k zpGAi(iWmk;o#2F*0%xIwi0pE8X>jr{(3Xv)fnsNBHVgFNgq@ z5kPS%u~PdxrZCz>HzNRE^Joyx#bAWzxSU1Rze$ms4KDLY&=o#ap|MAM0KF1haFBhc zA`ui{v)aBqg5SL0|1JG>=01yVA17H}X^{u4t?QeGo zqydQCs@K}2+lL||RI)@v^%xul)H4bE947Co1W2$W39JNx_9XB)Fx|@lB>@UlB*1z{&|cdM1I7VDhd? zfCM{|z$gfGB!Oo^K$pOIXldq!Qt0oQ1b!ZqcU1x;*pUS2#ygV0uYrI+2~1&xErBo~ z9OSRP!UqrPzSDdd9ku$>I+2cGRD-CW1a*B`67{R-K}G!^#h~uQZ~qNSG|=FG2CG`r zcKmi7hV{&De*u%%%E3qchS4=~Gzsc*Xd1u$BG7FKI6voaKYGYwtQ$R`VoN|p54WSm zKxr9090yX*B=86(@2Uhy(1!$m3Fx{6+K-?cNI*r9+usu9Oh%7)Kv+P zpbrWBGSGDia5e3nT@56l;u}Ok-%>|1Y(W^R5aQu zi~KZ(_Dlkw!Q@?)010*^ffqrbBMD495}=ndP+CT#j{&J?68KF_-hl)#y2b`b(1!$m z3+T2DIQhVzprt(t+z(7Q9{}HNBZ@i_V84OVQUWxeo=M=dn7peJAVD7z_#L3@5_l0U z%aH(v*%DATK-D%-T1wz^K(Zwe26P(Asqx1U%Xky^yI@YOzWBIF;lZGvS|q6JOXHiA z4ZxK*VZR5!)*9#i>2lwM-2qB+_0Dzd?tpM8d_6^=0y#xaO?#=%YBYGx*Cop+eB|w55N#Je}=tu%< zpz8i4@JGFrz#n%e0ot{010?7}0#5?nwgD&RY~KbN+&w58P+o|()rZ2>)_Z^Y6q>QNLjp^^Q2Tce4ZM)LduaPt9AE6E1in;90v-MH5G2@80+Z-G8%2Kp zB=OrbsOdIv9yGN*FVw&Wj)Q=Bp|+#`XR(N$*#Ps*S{v{ofx{TC+W-mrkbr9gju&cQ z0uN&+y)_e_vx~w(o zcMmG!*@{W}P@qM1Bc4A)v#m8Z01{twBLJqBc5}vQJ_Nu-34I-p8I-#J*5^0Sq2@D) z#e?Zglo094??%{i7F&p{vrXBRxK1K&M3Ke62|(Syz^YoUIb{E%LJ4%~o`SwgJVgXRgI}1DV7pqg0l1f3 zU%=2)QEQfQLcIu9)oM*gzJ>&SYt7$bPI)>`x>mF8sR(&$kv~~2Xq=r z=pXQKi#;Bj=RWhqKPt1?E1 Hf`R`77{ar$ literal 33517 zcmeHQ4R~ACd6p78M36EzXy^}t>x6`#fQcO^b|3`Hl42{^mgAp5*;;XJ-NXV}@+3Jw z{S9>Oy0LbJ6;|5OQOX$W+HP&x=+>3CqXSyn(Vw;Kr|V#UWptFT+ta7*_AGnf@9Lg= zk1ScbmJ&VBjGpIQf9E^j`OZ1t-}%nbjnWoGuBAmW)h=M^Q<}L}am4x;SYaEqX?CP+UMPIUWOP8^A+Wp-9x=f|*a5d7_5m6O&X% ze9k;%9Y|Y8x_%b5PE{>2rSKGvlTekeZCdvoTCG>B^=Y+TP^%_OaCF>iHw;BGE!7@D$4i@Bnik!CX)F*6y9>dlzRnOufL z5So{n09XJsv(#>-azqcC$!uulxnQj+{wV`b;=)uYo zY=S=3%SCqYRK2?0_U($YM?pIjv{OO73Ud4I;yOpCVh0jz95b_4rc1;vphw(N=jb-g zHbuURi!B_6tRbR8(fm17J11uHxlD#8Q({3yxkz>{CX48@8qlO|ZIf1}5JQ!pp#3MX z3V%sLwQ;5nOa>0jNjWfe>A=*G19Nx>=6oHPigREt+kqKR9QbDd)0b%bT$}@+?Saqn zz%Tc}>pk$f9{3f29saKb{3?`Jqnzh~Hvo2M&iB9wyP7@DN}}r*XjhP_9K8_P`?^ zcoc8~WejCMio<^#u)}A<1Jhq<$0_V-H(QxpSLb~85REonwC1K|f1J)NSj4^$*b8o> z!_d7hf9I2@uj*PCTevED`)k9|#~vSO``S;|eEv-%o6dgjA?uD;Ua<9=ZzeuIwfdI% z7ekNV{n#5`G56HY2an(QRDA0<*1ak*d-a{)S{IyodjHs0-+TLcZ@oM@+Xgqy%6au82@vBY{xzCIkw?lKRNo{d+z?v#M(R7{^UzPKKI2NKl9-i-#>Tt zi5q_O5N*1^r5Vk?;Np;rjrmbJQP7k z*DTKx=(c7yJ%_y{myJR${L5vh^5zk9I%Cl%%9%$?ZP>#zxx7=O2X{K%^d<(C>0CZ# z<)w#Py)K<9&N6giPs!yOZ)S3N%zxZWr56gM%jL1j6=hlsQ^T>nlgaV;;E*IMR+dvt zh0tIf2HB`NXL0h*%Gu-KLMDUQYFSybPiJQ`3n^fGNg>M=uN54n|bg8 zAVyR)4{?G;_F%w@XAkD`bLLF?(NAWLu{;>2=gka95)xS;gYMyUA&tp#I)}}C+RPTW zagdC4ut?i1=H|)v2nE1FXRY+1SxGTw&FsuoK6)O__r|{mTQFSwi7AF zWJAS^va0+=9M`3bvk}p2 z!Rf>$nVI=nllw^i!qcKXTl#kI;4(77O@DZz! zvu%J?Qd2Xt;SAhj4qBzXN061q#*;&d@%Rl1B&frT3Ge_5TFS&{a@hho&zq@KI(tY! zdotuy04ie*r?VDUP$(YD$aDr0!%^;dgV^KYKxW>^n1-DciT5GLJduHzAg8lKaIbCd1K$w76NJB#n{8aAGtbmL@k%>}5SNCRjIR+(luB zCo#FGJ%ycI4i@Pov_jv@XyYK6^$NC+eeG3lqk3ieMtEjnZXsi)Ora6}Hcc1ZF)@9U zg=1dMh~%cNJkMiB?4ZSypU`(pSYdid)r=+#IdqXzcNYUqDSsSAGB3z((O@b07tD4K zrdu#Q?lk+jju=l0hUmN?1UtkqoD+zkc2aHbX+v=_>eK0*^Pos~PA*r=c zy6W$vA5HS;VQ|hy%E}ngM?WgPw#&I7la!MQ`)%){N%17c-A7h#gdj(-eAi%yFdRp{je!Onqn5oc?s$}HIp)p{GHaxk5d zv!RylP_c*dCNB-d&D7adCf&>CfuuUNi+M^*AH||B1W2|w9GRRN4@;|PPvjt{F$w}a z*wiB$^IR&#t{=knLNp-)?CGi&sN@_afy#T-;v}q$by(5?>cT#5RZiiw^@+i%JB(@> zlXKOu1+444pr8TBod&0tE(ilFMZX(~bXOb3xnq!o%&C-)f{Z1eYYMVOzAZK@Lg5IKF51Eo+zB~T9k6HDv#* z%qT4YgICBo+pjtCgCC#ZR@WY+%dBST45sj)xCG#-UI4=ZItZWyHaY++ZJY2|eIXyL zhBo6Ni=;=pYrn`rUku<96r1`|2ThS|MF~R(bv=GS7CIy zKSs9&0#z7+PoS+6kI)r(cyzZ7)h^h~dGyvXA zNOw^;8S;K&o#>pV(Tma^;N3)ffVUDMUPp)_@GfFEG3>+(2r)QO`s<)uUPFX<|Ikk$ zjEB;-Z7j+vT&v*}g~2|kUD_`LCj(fSeFp&)mlG@WjzHT09xKsmKCyA5U#p2gR1H{7 z7TtBLA;TJ069tJ1A7V8zV05e54&5%tYTgD;Vl@{yR>LV8C^fBSFNkcb83csxfzS{h zZmd}xRM1>AsE|evDwVu94ytlJ%-i0(4^7J24OD`3Pw`&PPrTOxpzDDQbv=0ecCiK+ zG;9q35CJl-*QbFeK z4NxfcY2Xo1R?q-P7Y(r8K&h#L5fHUZ1EUzcsTv@|hBUzKzdj9A@qs)T=sv)Bx0DYg z(B3i)jA8JmYJdzI(m+2LG^BwqgMqGr^MP4P1N+h5G7XGl@TO{j3>(q_!+1j)_!t=Y z)4&9Jv`hnBZ&Niuh7D<877Xgs0E3IW51fgEA&ouw9E2$vV7oy~EgzTyk*$HvfFu`s z>D*QM+;so~Dz}%0&Rt}v+smSJm&)JNx$8P~YEB0I-{2%x^IyS|)ntJ&P-Uakip88mvAWzb}(>tV?Z`Ua5O8c5ywf(Wqw{4IsPuHT|!Yk;GR-!i8*P-^<^ z&x5FC8u$ea-c${cp$`qb7Ua4H>OaF&(SSO`)UAQnwNeAgW@~^9eQ4lDkn0+#KZCBK z0hK}5tpO90XqgX8WALW>02%twz|0~I^aHa8#qa$ay4X=jWzcnNfU0bn26z?HR1J`! z4-Fgyx$Xn?XV6uAKxNQ%Yv52THNbqeTm$c@|1Jx?%XVTi^r3+?$aM|WpF!&y$U7PI zL720@o%kk9qGdjCGX^i$Kts6@8T!ybW|0OS0H&cRw8hCr>-K>;4B0XbFlTN+19zdj zexFN*J~Xf%tV?oP&%-!0RZB5)X5%{+IJ66fXdx(DQ{u$JODX& z)%^~^ThOCr8aR%@o2mgaY)Av|27`t)u-1v3b!*@j4B0Xb&~h5k0Cxl32guNe2HpyC z+XtL)0qXYw{q6yb%6vdYA-YBf3TIpC{kLBNx@8)88wPJc1H5h1H9&?wG_W`d)qnR; zB?_s#hq`@$iAT#c@XO8C02wxYU(s(4{|W?9?y)!8_q9D}Qjx|$MZN>p-yEh$b&n-O-CpX*`hOLj z?8u4Nv1RkG=gna|JJ2KNq+>N7fdNSNz;*+r<~P{LepjT`EaR;BYYv-rH&-qwgebHX`TQIUSp5tI3ep~k)57XS1?YFmM@CGz+2;KGgNrpZ& zupZ>g)xf>z>z=#*2sH`4N(1V?gy;?wvD}RgfWM`Gb8!ctmAKz7BXa%*L{)At4c)Sl zp>8jA?6>bhC);Woy=4O<+iE`G`0XqJ1K67T?VTVxNq!5?m0#Gq3k_AozYk3vD44!y z0g~=8pl@IkW0vl&WT=aO$$9S54DmC z?)qM|uS9oU#`Wgi5LLOo_(+eRMt9v_$WXVJI^6Yr=ww@slOES|DPGBH9&oINHX_^X zQ2+)?O?Q1ih*qN2EF;MO7DUy6)hter$V4FhbsQ`hiW&#zoylE z07NfY4N~QoK@j{vf>rjW-$p~Z)ijhEkfCp@xfh*EJ5+;Tz=4syL#da^Zw1CcscAJI z1d(ku_W@dk68aDx?xE^_2mLz$9$@?L;_)C#@CY9Kc>itt@1d@CL<1Gs$z^XR-wh7t z8~`B_>tZ{X==FHWhMNMQcGXv-(q74DfG^vhd0aJ6YVOY;2GL6NnPu$HzYkG0;4_Q& zXEM~4UwwbR3beaXLLb4SIX=TnW-&7VUs`_@U0<>qXrp$d{TM`5ZZ!>Mb!1qt)i92T z)%*bf|5oGfzwZ9LAy~2+^_pH1ybY9^k@gQkv=Xgm8Cl)OA*yn#X=r~YL*G{O33T#r zHB0VL>gN*b-k(3YLak;QI~1=m%dMuNSVM-st%jF-&9NF4Yxom|au%pN*8H)unuh^N zR`)3YZdRvVm9IrptsgT2Nucdd@ZjCL_XlzKrDF#Q=2!}ZPXLgFk3()ikrYr8J`(E^ zt(EZE3nxoA2;YyfWb5YfO$4(K7z35y+W~YCKygz?R?2_r=sw^?FicBb!7NU9KaKXP z>F%GQQH^JyA}Oby?gAT-)sxs=J!N5MJh}`>z7a*1P&Mft0foqbd5p+_)@q>COnL`E z)bK`B%VsFibtrC*aG4smF5_$Ek34+_Q!S4q_g4F=miIfNaDMSE=6(c#eiucCl{DW6 zeEE+&tp{#5N`)VJ+6kN3!=`KS=qC`y!-ui-gMn@=9H|2Z4IWOc*vIF+fNW!V1kfs! z&}Z>*9i|>-2G04>_s>ADpo{{b;!kUR4h`i}FU9YDXi~E@PziEgpGRr8WzRW@>`w=v z%l>n~=(6`nJ&H!Q7;)lOT1n^&$1Ig1k9WXZp0v_^}^d zPm$EWhM`V^)XCO|)V~h$CQIGFtxqVa4+4^?Jp`c2Ubz)bvL9AUrJUc(1YKDw)d@`b z4^w^vxN)3zXC?rKtC|`?VBl3x-tGj)Wq(YG)uH$j%%RQyknUH zk!|-a(7-n_cohxwps9lkK(SZCwVjP3KYq9YfHdiu3mN**z_&o&91W;lmRW*m;2{78 zN=*%brj$884anBT!+^va7}2VDLp3LGeo&YF`Ekym{r#R~=&#Yxfg&o;*P+U%| zoSZZ0-+;3k&p@TZS1!!DWc4I=S5H~!t0$qp`brmC%vnTOw*rvWpNZ8PsMJht2SDW0 zMNgnhHT&=eNsv`OS^O;;%007mpSTZAy6`RrM)yq0ME6WG)TP)5Ox2UzdNkUedDh4y zA~&+!gW~rjrv$IwDo}!FdaqWZR0!mvliX(DR-wG~s&*B7`8xkyv?(Ss-zUx)ZdG^p_mQZc;{d;JiA4a9JnvNw}h7nqWecrOVz zvImO%|9%x;hfu3$!s2iB`_aSRo9_d(3Z=2t{}VXWy?PQiarJGGlE2kYU;_5)9|0t* z|11EX32R**_s`&a5i%sVQ!b^2{|d;K z|HFX9>OTd*r`6YWO#3eQ>fwOqBEgVDN-$)2lwe3=SE|cBrm3$A*J5Q74%AnLY*Mq? zh|y5DKPTsy_8ge2@eEX!+6qYQuAZ`3&Q{QiezJ2M1t6;@#z1k8Y1FvBdLX?2xyPx? z`~D3Bmq*2hj%j45OVJY#uSBB~YFP%-=rK(RULDhv;5m|*K^4Js`?me@Q9vXLeE|>8 zZO8MdmW%1e@MFN9tgn7JqAtfpU;Qj4P5=4aLm069s~;s(|HkYdVm5=Z$aIT{%MtZO z4*FsMm!Q}hxYR+P24E}7|NsBr=zCbD7}vJ}G~?(?hPv%gk*DnFJBPs}1ahm95SRmC zpaeJJv6LseC$Li&0{SHOvqq&rv zya32{#qR?W$9)mNGLsYZl#lm)^&bEub76~tB3H-%L4YsQOLD>?B{}&i07*{R%a!Wl uK904jX(>*mYpd`G2L2Cqz|uqj diff --git a/B4A/Files/encuesta.bal b/B4A/Files/encuesta.bal index d1473a6af5e1c3611574a29a9c7888d67959a8c6..669ebe9d9a284e4ef7bcc25d9bb9b795614240f2 100644 GIT binary patch literal 11234 zcmd5>U2q#$6_$zJV46^VS{lmVrY#{quIj%ePWVaI(k4+NOO7NvKeQxkX>D&T?~2`( z?Suk>0&Utd)0xaL3^OppYlla8=mTUXd7&W>4CRR@cz{O+-gq@yrvBOx^! zQU^n-DfMv38w;r;k3(?n62Pn*uBW>)@uY4U)yTwB-;RzB06lEk`>0*YUaZ-5tI~r1 z^98+P+ASu=IR+FdLx-+S-u-ZKMtv-b|{o8FsC-W}Nc4`<+o_nye*?q&K;J43_QkH7l+ZEycK z@%r!ndPlkY)Ekc%ZjQV^eDl|T`^}SY{dC9v?7$B14fWdM&UX{Le*UvP--6s5D8#Sq zmaf(eYL%YRU9+4_8?HHL8BTJ-@bqA%5q%H+)>?iM8%u`e<@7~^(*!!wyR-FbwODox!(tqmR=HZQ z7$wuIO3y3$l1^)BjfK&)zot8o1wx|C)8{ym#}Sk#gs8}vTQXe}_HfcA-7$5`8>FbJ zG3zlzJ-f!i%Vx!!r|5aZoSXMJa9+2{^R^>0e3BiHE|?XUaX!d^SqpwyV;!q+XpPHOm9AAJMf|#G;nRq*iOZ8#GGdJ9MvUSWf{O#S$75Gs<9-#q}ql>PgXcAvN5ow zrdKMaHMgD#vR`%VT)zCOS#!;6;*MNCrx7!Mr{grUw&khIhHLv?W|f`km3g&_5M6}d z7<(x#SJDcXPUQ=ki}_qh&2lzGqX7?9GiBRyImU&KRU>O!2BCMot5unIJfBTVaAWi4 z`^@0r5S8;#7og~DM*gf`HfU~IJE2ZxOBA^js=*DVp~kdUC}mP=mVO-yEs}jXmoH4H zS$gmGt+P{iZYWdZ=$XpgxtUW=WQw4bQbx;Zik4L-r*fsdlGc=ISf?JNw8-9GM|Dyy zpnpEC7L_c@gjz_c#R28^t<;o?u|-8Ye=0McN#_e%k%CfMK~uA!PpKCaEw{!b3VKdX zX~mMNJd5DUU>jK#`7gL zrz$ThMK!CY^B-89$l>Zfh&pPa&;?K;2RnE9Ml?V$99tmjhy*QnqL6{fjldY!5GBFX z9g(N(&E!(qsS8>T7-bPw5O7K(V#R%ohDiSKl1$hUyh>_{F|4HW2)g1V0$u`J%}%IT zGwK9F9-*$LGib=ESp|QQZhjQANftpQNjV$XhyEPG=Y)DbGm-bhS7w>i3PngQDryN9 zU@BPAsiD6d(iwlD9pTx$)^^-X3fE2?c{-LQo1AoPB&MEexG!ud>wqsdt$X@O$E&*?&)6&6v0NN59*1!A93MT8RBXl` zw^w9qkL0}E<+9p|5)-ST!SxRQAbXVqKd3aaKT3>dz?^;7cFIQDwq#SCH!Y7$zGV|- z#k6X5(T}?*_Lp&ZhMQ|mcim+iOw?-`3BBkw)HcV6aEIHtqrz>^s1FLaJ+D3_+=EQH z)^cqm8Qq62n@(hDj3mIWDMq@fd852wR5)AFlsONDeJq=doIHmPw>f4^I*&15TuVVe zeeS&6P}}zY!I_^ddN>BFrt6V|^P351GryA7Y@?OOJDpuIT{-Ck89dq=hkulXE0pUR zm4L;dZC=4>aH9jslXcyx=ni*_MB@6f;~@U-R}%ev)A0Tv$M1O?EFRHhB>H)RN;?HH zTpnBf&;M5OPV^G*eooAQ?~}y8uZL&9$RbkGN(1_78FK|8xOkJyn5!D%UO^cL(O^bG;JVtY#MG;B9 zjjOAx&jlR36TQ#l!2yXcqxAKN?R!9ms)%xb1V<3ylw!#*K?oG={1ucPf(Ky>@eoV@ z2~KE^kB1mekxgJw@qr;B?Z=_D%smMcLv2Dy?AH#=Uho7M#%@et;QUr#_CrSh0X!nW z44}$=SG=7B0p$LyzDUj>9-)?^H?c!XFU zBfkesCQ^dC<(1{RZjGN z4U`{<4;}BXW2$z%FK-_2?_zi>-W0el-rqoDE8fSzX~p{$a2^D2t_#8Y5(vS2Ac$|e z;(mA^NBb7xtzxRK;!S}u@E%9^F5~@gh>VAK3L~}%?=+_BD&7(4t;hot!yia!mMRt;4(6ZM-Qk2HvIaQ}JYFL4G9LW(hU}Qvq>lUJen@M-Ch-H|I%y5l-!R#g>jv*7 zJ1K-l$TjItAX?LQ3T$;#Xien4)S15%06)LM_3mj@dj5jP7)spxQkcKLgTbx)5pO}E zNo(AfE~DMgZ*)-NuNe@LYh@YLPP_+zgrpBzv1flefz&oFeiuB*gScN6tvE-Vf6SwBH}oDtc@! zrkwH7!Swyum@aOJskP;pa>hpo(*-Qv*0sM;oZ1^=THA6=Ipd>)X&;txJWRj6A*Rlj zW6BvH9ZY`}8&fyL)B`1FR2@Xj|2eBJvt^bF0Y*{}-#~9;R zuOyzs2qatnulL7z#~9x+KgIO!$D{pH^%L;c35r29J%b`zv|g&NgDpGeFF>^Jm=xF= z6t98PxC8kAf$H2hUq=^z1>+_t3vfFevAKPdk=oohxwVS`dU6*kJ%7MMwBIPJLchlU JqFSj$;{V1%KYjoJ delta 93 zcmaD9zKM&Mm4Sib0uXZnG3!KLWiB=#BOoy^HOFxBL`Eq_rpf;pr6>Po%3##koW^X* lB#Mw{2dXScOi9ViOW%B*_dX-j8s7Uuu} diff --git a/B4A/kms_helperSubs.bas b/B4A/kms_helperSubs.bas index f6b64bb..1ebd81d 100644 --- a/B4A/kms_helperSubs.bas +++ b/B4A/kms_helperSubs.bas @@ -543,6 +543,17 @@ Sub StartBluetooth 'ignore Log($"BTADMIN: ${btAdmin.IsEnabled}"$) End Sub +'Regresa el total de RMI de un producto dado. +Sub traeRMIdePedido(idProd As String) As String + Private cant As String = 0 + Private c As Cursor = Starter.skmt.ExecQuery($"select PE_CANT from pedido where PE_CEDIS = 'DUR' and PE_PROID = '${idProd}' and PE_CLIENTE in (select CUENTA from CUENTAA)"$) + If c.RowCount > 0 Then + c.Position = 0 + cant = c.GetString("PE_CANT") + End If + Return cant +End Sub + Sub EnableBluetooth As ResumableSub ToastMessageShow("Enabling Bluetooth adapter...", False) Private ph As Phone