From a14a8c927874e5b18bfc44afb6660510ba9b251a Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 1 Aug 2024 21:45:57 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.07.31=20-=20Se=20corrigio=20que?= =?UTF-8?q?=20cuando=20se=20envia=20la=20informaci=C3=B3n,=20mandaba=20la?= =?UTF-8?q?=20base=20de=20datos=20equivocada=20al=20FTP.=20-=20Se=20cambio?= =?UTF-8?q?=20que=20cuando=20se=20imprime=20el=20resumen=20de=20grupo,=20s?= =?UTF-8?q?e=20imprima=20con=20la=20fecha=20del=20PEDIDO.=20-=20Se=20corri?= =?UTF-8?q?gio=20que=20no=20borraba=20bien=20el=20efectivo=20cuando=20se?= =?UTF-8?q?=20enviaba=20la=20informacion.=20-=20Se=20agregaron=20botones?= =?UTF-8?q?=20a=20engrane=20(ocultos),=20que=20permiten=20cargar=20desde?= =?UTF-8?q?=20web=20los=20datos=20de=20un=20dia=20en=20particular,=20esto?= =?UTF-8?q?=20para=20poder=20reimprimir=20tickets=20de=20dias=20pasados.?= =?UTF-8?q?=20-=20Se=20agregaron=20columnas=20a=20web=20en=20pedido=20y=20?= =?UTF-8?q?pedido=5Fcliente=20para=20guardar=20el=20"Origen"=20de=20los=20?= =?UTF-8?q?multi-pagos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Files/login.bal | Bin 14257 -> 14662 bytes Lanterna2.b4a | 76 ++++++++++++++++++++++++++++++++++++++++++--- Lanterna2.b4a.meta | 4 +-- Principal.bas | 28 +++++++++++------ Starter.bas | 2 ++ 5 files changed, 94 insertions(+), 16 deletions(-) diff --git a/Files/login.bal b/Files/login.bal index 549947acc4ba0c06a034eae5512bcd7932fd17c4..a777d33669b79e24280ee4d9c4330896c329cdae 100644 GIT binary patch literal 14662 zcmeHNU2Ggz72Zv3r`x85l0aK%8^`%=({S(9bQ^$fSqtQ5@A z%zAJ;dmS*Vr9#B2wY?K&{%DVLtY#(kDpsHiQ(8_*yf!G2%^k=NAIc637}gA;%Pp!ey*Dme;Jv z{QHekWPW*PV3fswYrN_jc}%!WSa8!S5y^7SUqjj58I>yrQoN(aS;8OGY()QZ!*A#*CB|Xe-g)kM@BO zeNBkIHbh?s`h#d6Lc2ah-w>kdr;=F(x*csbS_j%1w6$pKLiG9&y&*(z4AD1*=$k|I zCeX^4TS7E_Cl-05R4@uoXSp;^RsrjI)U@TD-DYXrMF^YlgGdHW92*L_9Cgy7h4$7q6z6#XudAM-m5iYD zGp}F1q-%M$`iJkl_DXxlTlv+e-g)Hon?EUbta#_V`P_A@Htl|6=-k1jkC*?ES~mIj zyPke!{F;&O@Ba0hFWtEP%x{k0{H+_7{QQ+~oITsMVrSdvnXi_XT(jY~-OJCWGreop zWFB1g>I+N%v?2WqZ}{!%jak}{H-K+L>{AJTyfBezuf4%%e=lgH`_vr68|8m)j ztNS1NIt=;>8pAkW8981y87O^YM#ai^BDGoLC17}u=@}{^a|3vgll`lhwf)P*HA>c` z;b9y0Vfpw?uM4g*ZH(C_Bc@(?U#+jR$MPnPvU+78cdBu9eYBxy+2(!tp2BHhnkSCu zrY9`VOcyL;+$kA$y5hN3*{r0eEpH<2nuWA&mCUqNact!9LfR>%Wk9ZL>yB;Pwr$y& zegH`nDa*48&S9<@cQXQxClX1sL7rz*im5L>$nJ^it1pl3YJx*R2TOQPWXc93Ojfmr6;sBPo;!5FG`1v zf>o_ByPCE+CBYVV92kXyRT^iaYviAQUe7KlHa3t~)?#-QjjHXbcVZVfR@dp@X8Z`z{=wY4J zt_m$0@1aLlg+a&dUo`S2)%RuhWDX9DQ2ms)j-J)5LkTm|-n_;p?GxEaV@NvgeT1z$nF`* z4fpTeH$s?dX+_CP{Q4`VSafHsR>KhSy(rTPhRfONOI*&@%c9q9?=KY{E*vXfsdD*} z1&O|%KH3qjbcbtIFCp5_=#m;RT-0&##B9#oKgqa4c5gRWj2j$wYuwSHs@?SvT3C(T zxGv@b6Fs_ORYa><;LNvagTo~`nXpq>@VUKUwvT2getV!kEYGeTKH7ez&!9tkuNt;> z!f4Nw%j{I;WSq0AFqiXDy@cvpRoK&sqT}YxJ`}k0Y{DveWb#|Knz&giS3PxTjAZW} z5ff^4J4a39eiUblDy78~^-?p1YY`jxGQEmFnxO`F5!0ek@o>sHww?9QL`gF_ltGph z`*K=r;%1+kZ61qrru2C_6c22H9>axah{Us}p&}HRXZ#54n zeZ`@Dvo1l@9jYxE{K4giouNuiKv#DmRZ7~rl%(MnU3EAvRFV1}yoXVPzWgwz5{Z+$ zyFt9^za&!p=6xciE&|DC!Q%cRBaxym>8Iyh@Dz2@?Bp~a{IqcT)+Eou6vLF3w#vn! zHNoW;)dWL&8Sg1|dk}(Gh!pE$p2ux7|NQq1>#f!#lkid=lgR=eOn5>t!i3-g2*G=U z_`^#>%`uqOj<=<&`9Mpgc#9BE)_@2cT&vjYK&(e=o55oPnrPZ6oSB)Ko5-Oyep+tE zgNVpoq2~K0ylPX#xYxiD1URMkM4+JXEojRH55mUsUGUJJYIg(=xi%%KG63cz91`(w z!$JY(ZdfgIUym+rjc5{oFuWd^GAum-JRN zpmHR08#%Y*p)JshC3tWq!GnRcgTfpxz))cT3}M=d)|$9Op1bf&-HC@r>n?IWjK^*? zi5>xjio4NL89aJO^y1M7Q3h9lDA!vQ{27EGdKQFO&uO(kS`(OZ5l^)Af$~G`q7cnO z&7vYog-s*62ZI(F(X&w59HM(M!bfx;D2dU25J8MaHt*f&k{FNM#mFqOiyr8Y&3dkq``l~Za^B{@(yilqim zd#ZP)e~O6XR2l4X4a_rOOaD0#GWWFzAZ?A-gx*9;J079qBxa9)6jFlMFo**jf|f|l z4%8X2d{tfks~u@UB0%5($ZTX2YnW(YX|%uTIfRv5Fwu_++>j z9ox~uCqwK;;;ABQu1^M57txb}3WLSxBF;J)W^bqaAm(o;pd&GI8iLi?T z5)w5pgILgZn)hV56g8@VydRh@YSd6+(^2yP1}$>b(1zxsCOG{r^;PJ{ zz+2R)p~9x4<}d~=a?~*KHy1U*(S0du0Nz|t^KtYpYSd6+(@~Sdphb?Fx1qARs5ycW zeqFH-loT*?RNC{^El?q!h6T2Pu6opKH^wn^>FP_LtWp=uQD9SH6!lPneJ46sqDd8U z7l}L`KHey^bk*3+t_&VMBzo~!g@#fgkqFh1(E^*jqTo0P!TS^lZMXJBYeH}Bu1G~b z-XXbqtw}+hHt7mHT8&X{6R7ikf1#*9 zjj=)X{wcf(>W_jD)aim)PeS|C0QCpa|1L%OQA`zs`h`U~6*hsl4e<-bJ0{AXhsx%n zd=ewxr6@09su;ZIh;skVF-MeBZ4;>fAENwg3iSm?xua3PQ~>}Am2w-^jb-%KN6kgu zQK>K*FAKP%K7>L3UR|_1>W`sP_UeM~s2ET?n~s3;cWnnKIh)piX!2}Y(2qYZ^y-8y zDV)F5$kD?o_0e-RUQ!eeu-$~Wm1J|z>0?|c{m`LJmBI0`QHfK5K-7YBT;^up)7EHB zV9xsSrvjb;DFDUIo)fK?K3}m}0L3L2Ye_tQmYq{_b=V?~kLk29xO}6$q(RLnz_IAyMR3 zf-`?OMNdcVdK(5uUFXWqudqD^=SE;1LousYNn!vmWV1BoG^9CqL z5=OnH<_G2ph-*_~fYA{{;Q$!I6a{8s5py}l2{0Vo-1h3jh^1(WR9v?HBs#ZKfcfxN zG_2~8OekAVfERU`ds?zJZz0Ff+Gg;G$<}mn2b$=YXyJ@eP#y+n!Py$J0tOX#qs@O| zJrAiz(8Af8Bcqs}14q`A?rDdk!G@kh%U(QuOglg^eCFSU7Z_}xhH`Dne8EQHD6SV3 zYT&e8z=ix6zwR-y*q zKBfx}HjZeK$D;hE$xJM}bpr@wSC#r^{fKf1U4D?S1tmeg4un4*+r4hQDs=Uk(&V4k z&YU?DO}&__@n6(Fi;meL6jN6+N62B`2|_9#a-!*o3WEqajknNkB`!jqg4k{})L~6W z2u%n|@jZBx*!Ug@*>9&n$X+LydiOU-L`Tr?uhG+>WR0Ey(W=>PioFcPWoW6-;lbmi z;r}gt9vylHd7`mE@%dwczDq1HQU#5lf{<8X?$b7DO<>kA*bAyj48DXRu^4NQ~x){=fT@f{t7&FwJ6zl0-Pvj8^Mvdp*4~{UI!7)zEl_mPfq5< zF7W3(nR|PC1+FXLZ#RWAc=V9y#Y3YMn|Xc(DN&FEs)9GyL-3~E+7qn_%o^TtR3h;| DjGu9) literal 14257 zcmeHNU2GiH6k>r+wnAKNO#Nn!Q478RrQx~4s4(^I2Z(Oh@VcFI&TidDC&IfhL$X03NufY~#mP3UG|mzc@3 zQja@8gJu!9(I<{7s(oaS7_P_p^@?NRQ_QiDMdeCy!p2hSu8hA=vl8RW^9MwY{u@(O zM=N2#rNV-nhD9VRMSl%B59!jYsLhJ%Yo{jg;Ju0t*Wu1zn}5q(g8LFQ%ISPa(?Upd z;E?9XAx&38n#hOr<)D|L(K|+NNYf|6Lu?r#%h5i9_R$#qu^4?-jJ_K5HE174`$UYs zHb&F8Q0IEkE6}>oR-&y!TaC6RMz4+0>tgi!7=1&GzA;AM1UmF(LyV@c^uMH8Wvy)Y zRIDko%2>mrx+%{T>(-QmWe>%{qswO^%vdH(^hl3rmZv-95TA%s?A^Bc7#bx+Hz7^9yDVS*^Q&iH>00$x zY31YZJp9C)Kc8H+{GBuUbJwicuC8WOJpIblRpb3X`1|)>y8f0^ zzdwG{_piI;SFe2c#TR>*Z|gjG>RZ+&SFQg;|FRdmbAzi_=N??~+Ve~Py1x6@Ug7QP z*08Z8Rsx*nEHLV&*~*l*H0WT&P^Mh-d#4dDcjP_Zr5{+ zitcvL8QyfaqnEo)!_vDA*EW&2%iXrsEgg!zo45A$^=;bLeF%vIY05Lo_F=9WcQ68u zM-EBdq63m2^;w)8quPv4*Fp%mnJ25JxxeJ-y2bc4tddzR>*I!JispmbtVV=6dkejZ zc|~(z3xp&BPn%*s@z_JMD)SZ%3un+aZHH5tHCzL8;pnqS(}?p;v}x*-9@B|uSJ-*Z zD0|Z!V_G++rag9?)~wQWV8bV=c>7VK>@v4)Vj`$r9_K2Z zXgdfYHxw{GMawE$p@@5C0!NVU2s?T_NKZJ^5{(ktk{B&$Wuxjcqw1zUE5Vj_1Zd^5 zVNIp^Cr47lb4@cV)0#hmX;fU}gsk4^*l3=}`bQZjI%!*8ZccY?KPdP}Wv<LZ9)y6t+$O&ND!Y-C9G zAI^WSKFfmPp|Jud=z%A=QNRs4sg-2>{khToEFgw=)AFpE4WSBVgW6(zcrZ7@An2tr zb=dOgXcQ5CRa0ML-Pk}sT;HDk9{e zhOJ4PNNpxktRkgy&#(ICZDyjtRNi!ThX(Xqnaxe>xJ zJi}QcnRaQcf;CQdD8D;*U}T)OZcR(tVQsk%O3hWIjjK=w9dV|UhAUR}GDqH`yoeXT zWMay~0vcUqz3X6(>bFJa}wvf1KRjOW?uE+EDj>{B+Dw)0J@amB^m9TJ?se})~ zRJazkTPloAKW&CjoJQEWmzYj!u7~r*HqE?$8r?9Tts$g6>7#4yHAOzn7#2>y41dd@^U3gluk{7g0mTw2*$!ZXhgKI+eS`h2d zI?v&<9!)GUVmr^_cOyBp#$WqQxDXL}4+wnUfJZeIncP`$xTUfjQh6d!Q2A!GWr7D` zV`(mUC{L9;f=5Oir^yJIlW<7X>5s_o#H?lP*FdP*h$Zm{dbPlGgD1fBfJgymBSg|a z4I!+WAOt=6wQs^L+lxyqIyU36k9@BGEogx7$=t2vY{5lMR~#Vn0v@L&;4$iMLzC`; zA`M0;64R|{9hq&^x*Zn<>UMJOz-0$o=ef2=+XOe7+)2?cT>44ma7hB+rXnr^ejl`y z0g;~pN6lM#qAWow@86mB0Z@wIFw?@)0( z8IcN@XJAg`r$NZrSJy=(B=W0`$RThgBJ&`kh}<2r_kh@o=EIoS!4jzFAX_LPWPsY7kjY5I6TqaQk@*ZkR%7U;R723sG~7scL(ud_;wF)eL^Ne1 zF>@z35)DR+&rlde>zIE#jX}lVPC!RuWDAz~e6|x|7Xu_DYF-A>;&!?iHNY&)GMhlv zreE&OMU5I7Y&mK^iB5|gHJn3hQByzbXw%7IRKNb zMGbpgjGFkF2|ya3Q1?Kvs8K_MEl15kbXw%7c^f8Mi<*1U!;hL~D(!{p78sLX!@A%; zh-y(k;uqNWLzJuqn<=nqFo}Asz&-?_su8#2A^Ry@e7x~KAO||DBdG`ugXl+VvcTrc zh8Q>wLhybZ#C2$GoVW5sRit1B1@;4=e7uXGq>elSBB~=31>*(bt-)>z-V+e1S<1Y3 zgHz%}+N2sg0y5>bhGttpeL2+67xkynH+rr4Je~ygM?eVbbU|iMLiy7G^)lq|Q`>c^gD-ce~V881z|qaH;kf3GguJL=D1 zQlh5mcT{u;&Zg+SV-yPXv6!lj=?4i|+%49zp(&!WY@eKRz~3=1#8^j#2wDdA4R6q5LtMt<-S zOpk$xf{nG6u-Ag1HTlwwd*Yk^2|Rxqts@#tEvZ0AqY6R^Cw569r$ADWGy))bIx5#Y zVJ_)9S9U(vAr5xjg70h(LsdZd3_Ic1u(Eyxg4*Z{D(fu}sktPP$wQ=&Nd^}UMi6ns z)Mc|nU@F|U<01PfE<4a9junzSDLRZxKZ*L_^07-|tG4Q^*r9@LGg}q*16YL`z|}tu zSAh}`->YnP5(6YbJ_}AVo6$oFKPpGqUV$eCqku-mM&U=3QE`R`f9H`9h)%*qS>XCV zu26@+_AXpv+3W&<;qfA0n0Ywz*D%dL2EjtWEQO8$L*)pVlXyx3vkshvf#Gn1U|s+)f84lHzL+z zNxirSsrS^WQ_0jzQNxPqNeJpghzK|MV?UFR9OiitQZd!1BN~h%ggH7^F{MSw7ooNT z4V7)n5yB}%N) zDhj~xqkzg04kz*CZ=PfIdnuBb1S%&nNP0gExtg==1mC-49^hQWdlKS3VVAMHLC9<{Vq^()-N`^r z$pbwgqCBuBWVdt#Y(lTvzx96|yp-%a0Z|gO8^Dpc;cO&(ybdB+4ANi{ysh8_|7vvz zq{4DL9%7$C1_uWPuFK)?PKplW(oZ6XOA_x!ndi6A5(7n`DtL1}1aHn;d7> c.GetString("PE_MESA") Then Private tm As Cursor = Starter.skmt.ExecQuery($"select sum(PT_MONTO) as totalMesa from PEDIDO_TICKET where PT_MESA = '${c.GetString("PE_MESA")}' and PT_PAGO <> 'MULTI-TICKET'"$) tm.Position = 0 - Log($"Mesa ${c.GetString("PE_MESA")} - $${tm.GetString("totalMesa")} ${CRLF}"$) +' Log($"Mesa ${c.GetString("PE_MESA")} - $${tm.GetString("totalMesa")} ${CRLF}"$) cs.Color(Colors.RGB(1,127,1)).Append($"Mesa ${c.GetString("PE_MESA")} - $${NumberFormat2(tm.GetString("totalMesa"), 1, 2, 2, True)} ${CRLF}"$).pop Private tipoAnt As String = "" End If @@ -2030,14 +2030,17 @@ Sub imprimeResumenGrupos Private c As Cursor = Starter.skmt.ExecQuery($"select M_ESTATUS from CAT_MESAS where M_ESTATUS = 'ABIERTA'"$) ' Log(c.RowCount) ' If c.RowCount = 0 Then 'Si no hay mesas abiertas entonces ... - Private c As Cursor = Starter.skmt.ExecQuery("select distinct PE_PRONOMBRE, PE_PROID, CAT_GP_TIPO2, CAT_GP_CLASIF, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' and PE_PROID not like 'CDA%' and PE_PROID not like 'DESC%' group by CAT_GP_TIPO2, PE_PRONOMBRE order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2, PE_PRONOMBRE") 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01. + Private c As Cursor = Starter.skmt.ExecQuery("select distinct PE_PRONOMBRE, PE_PROID, CAT_GP_TIPO2, CAT_GP_CLASIF, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto, PE_FECHA from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' and PE_PROID not like 'CDA%' and PE_PROID not like 'DESC%' group by CAT_GP_TIPO2, PE_PRONOMBRE order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2, PE_PRONOMBRE") 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01. ' Log(c.RowCount) If c.RowCount > 0 Then c.Position = 0 Private catAnt As String = "" Private catTotal As String = 0 Private catMontoTotal As String = 0 - If imprimirAqui Then Printer1.WriteString($"Fecha: ${sDate} ${sTime} ${CRLF}${CRLF}"$) + Private laFecha() As String = Regex.Split(" ", c.GetString("PE_FECHA")) 'Traemos la fecha del PEDIDO. + If imprimirAqui Then Printer1.WriteString($"Fecha: ${laFecha(0)} ${sTime} ${CRLF}${CRLF}"$) + cs.Color(Colors.red).Append($"Fecha: ${laFecha(0)} ${sTime}${CRLF}"$).pop + Log($"Fecha: ${laFecha(0)} ${sTime} ${CRLF}${CRLF}"$) Log("*** GRUPOS ***") cs.Color(Colors.red).Append($"*** GRUPOS ***${CRLF}"$).pop Printer1.WriteString(Printer1.BOLD) @@ -3216,7 +3219,6 @@ Private Sub b_envioInfo_Click ' VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?)) ' sql.insertPedidos_Lanter=insert into LANTER.pedido_cliente(PC_FECHA_SINC, PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_DESCUENTO, PC_FACTURA) ' VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?)) - Private cantTotal As Int Private ventaTotal As Double Private pt As Cursor = Starter.skmt.ExecQuery("select * from pedido_ticket") @@ -3226,8 +3228,8 @@ Private Sub b_envioInfo_Click For j = 0 To pt.RowCount - 1 pt.Position = j cmd.Initialize - cmd.Name = "insertPedidos2_Lanter" 'Inserta en tabla PEDIDO_CLIENTE - cmd.Parameters = Array As Object(pt.GetString("PT_TICKET"), pt.GetString("PT_FECHA"), 0, pt.GetString("PT_NOART"), pt.GetString("PT_MONTO"), 0, 0, pt.GetString("PT_MESA"), pt.GetString("PT_MESERO"), pt.GetString("PT_COSTO_SIN"), 0, pt.GetString("PT_FACTURA"), pt.GetString("PT_PAGO"), pt.GetString("PT_TARJETA"), pt.GetString("PT_PROPINA"), pt.GetString("PT_PAGO_PROPINA")) + cmd.Name = "insertPedidos3_Lanter" 'Inserta en tabla PEDIDO_CLIENTE + cmd.Parameters = Array As Object(pt.GetString("PT_TICKET"), pt.GetString("PT_FECHA"), 0, pt.GetString("PT_NOART"), pt.GetString("PT_MONTO"), 0, 0, pt.GetString("PT_MESA"), pt.GetString("PT_MESERO"), pt.GetString("PT_COSTO_SIN"), 0, pt.GetString("PT_FACTURA"), pt.GetString("PT_PAGO"), pt.GetString("PT_TARJETA"), pt.GetString("PT_PROPINA"), pt.GetString("PT_PAGO_PROPINA"), pt.GetString("PT_ORIGEN")) ' Log($"${pt.GetString("PT_TICKET")}, ${pt.GetString("PT_FECHA")}, 0, ${pt.GetString("PT_NOART")}, ${pt.GetString("PT_MONTO")}, 0, 0, ${pt.GetString("PT_MESA")}, ${pt.GetString("PT_MESERO")}, ${pt.GetString("PT_COSTO_SIN")}, 0, ${pt.GetString("PT_PROPINA")}, ${pt.GetString("PT_PAGO_PROPINA")}"$) reqManager.ExecuteCommand(cmd , $"insertPedidos_${pt.GetString("PT_TICKET")}"$) ' LogColor($"insertPedidos_${pt.GetString("PT_TICKET")}"$, Colors.Red) @@ -3239,8 +3241,8 @@ Private Sub b_envioInfo_Click For i = 0 To c.RowCount - 1 c.position = i cmd.Initialize - cmd.Name = "insertPedido2_Lanter" 'Inserta en tabla PEDIDO - cmd.Parameters = Array As Object("", c.getstring("PE_MESA"), c.getstring("PE_COSTO_TOT"), c.getstring("PE_COSTOU"), c.getstring("PE_CANT"), c.getstring("PE_PRONOMBRE"), c.getstring("PE_PROID"), c.getstring("PE_TICKET"), c.getstring("PE_FECHA"), "", c.getstring("PE_MESERO"), c.getstring("PE_COSTO_SIN"), 0, cantTotal, ventaTotal, c.getstring("PE_FOLIO"), c.getstring("PE_TIPO"), "", c.getstring("PE_TIPO2")) ' + cmd.Name = "insertPedido3_Lanter" 'Inserta en tabla PEDIDO + cmd.Parameters = Array As Object("", c.getstring("PE_MESA"), c.getstring("PE_COSTO_TOT"), c.getstring("PE_COSTOU"), c.getstring("PE_CANT"), c.getstring("PE_PRONOMBRE"), c.getstring("PE_PROID"), c.getstring("PE_TICKET"), c.getstring("PE_FECHA"), "", c.getstring("PE_MESERO"), c.getstring("PE_COSTO_SIN"), 0, cantTotal, ventaTotal, c.getstring("PE_FOLIO"), c.getstring("PE_TIPO"), "", c.getstring("PE_TIPO2"), c.GetString("PE_ORIGEN")) ' reqManager.ExecuteCommand(cmd , $"insertPedido_${c.GetString("PE_MESA")}_${c.GetString("PE_TIPO")}_${c.GetString("PE_TICKET")}_${c.GetString("PE_PROID")}"$) ' LogColor($"insertPedido_${c.GetString("PE_MESA")}_${c.GetString("PE_TIPO")}_${c.GetString("PE_TICKET")}_${c.GetString("PE_PROID")}"$, Colors.Blue) @@ -3281,8 +3283,7 @@ Sub JobDone(Job As HttpJob) If reqManager.reqsList.Size = 0 Then ProgressDialogHide p_transparenteResumen.Visible = False - Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_TIPO = 'EFECTIVO'"$) - Starter.skmt.ExecNonQuery($"delete from PEDIDO_TICKET where PT_PAGO = 'EFECTIVO'"$) + borrarEfectivo llenaHistorial Log(">>>>> ENVIO TERMINADO") ToastMessageShow("¡Envío terminado!", False) @@ -3291,6 +3292,13 @@ Sub JobDone(Job As HttpJob) Job.Release End Sub +Sub borrarEfectivo + Log("Borramos el efectivo") + Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_TIPO = 'EFECTIVO'"$) + Starter.skmt.ExecNonQuery($"delete from PEDIDO_TICKET where PT_PAGO = 'EFECTIVO'"$) + Starter.skmt.ExecNonQuery($"delete from PEDIDO_TICKET where PT_PAGO2 = 'Efectivo'"$) +End Sub + Private Sub b_regresarProds_Click WobbleMenu1_Tab1Click WobbleMenu1.SetCurrentTab(1) diff --git a/Starter.bas b/Starter.bas index 4c95806..c5123ab 100644 --- a/Starter.bas +++ b/Starter.bas @@ -17,6 +17,7 @@ Sub Process_Globals Dim skmt As SQL Dim Logger As Boolean = False Dim DBReqServer As String = "http://keymon.lat:1782" +' Dim DBReqServer As String = "http://keymon.lat:9000" Dim server, ruta As String 'Para los Logs Dim logs As StringBuilder @@ -52,6 +53,7 @@ Sub Service_Create #end if logs.Initialize DBReqServer = "http://keymon.lat:1782" +' DBReqServer = "http://keymon.lat:9000" If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$) Logger = False End Sub