From d8844799a3f08d535084e66e64efe56a1cba47b5 Mon Sep 17 00:00:00 2001 From: Isaac Date: Mon, 13 Jan 2025 13:49:42 -0600 Subject: [PATCH] =?UTF-8?q?Version:=205.01.10=20Se=20hizo=20una=20peque?= =?UTF-8?q?=C3=B1a=20modificacion=20en=20el=20ticket=20en=20el=20apartado?= =?UTF-8?q?=20de=20cajas=20para=20optener=20el=20precio=20por=20unidad=20p?= =?UTF-8?q?ara=20que=20al=20multiplicarlo=20por=20la=20catidad=20de=20el?= =?UTF-8?q?=20importe=20correcto.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 5 ++ B4A/C_Cliente.bas | 6 +- B4A/C_Principal.bas | 73 ++++++++++++++++++++++ B4A/C_tabulador.bas | 134 ++++++++++++++++++++++++++++++++++++++++ B4A/Files/principal.bal | Bin 50015 -> 50973 bytes B4A/Files/tabulador.bal | Bin 0 -> 18660 bytes B4A/MARQUEZ.b4a | 98 +++++++++++++++-------------- B4A/MARQUEZ.b4a.meta | 7 ++- 8 files changed, 270 insertions(+), 53 deletions(-) create mode 100644 B4A/C_tabulador.bas create mode 100644 B4A/Files/tabulador.bal diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 051a98e..f90de51 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -70,6 +70,7 @@ Sub Class_Globals Dim user As EditText Dim pass As EditText + Public tabulador As C_tabulador Dim c As Cursor Dim existe As String Dim paso1 As String @@ -167,6 +168,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) B4XPages.AddPage("Promos", promos) historico.Initialize B4XPages.AddPage("Historico", historico) + tabulador.Initialize + B4XPages.AddPage("tabulador", tabulador) ' respaldoDiario.Initialize ' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario) ruta = Starter.ruta @@ -182,6 +185,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.Initialize(ruta,"kmt.db", True) Subs.guardaAppInfo(skmt) + Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)") + Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 406c6a2..891d893 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1250,7 +1250,7 @@ Sub imprime_preventa ' BLANCO = " " - k1 = NumberFormat((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT")),0,2) + k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2) k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2) TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length @@ -1279,7 +1279,7 @@ Sub imprime_preventa Printer1.WriteString(" " & CRLF) s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA")) If s.RowCount>0 Then - Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF) + Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF) Printer1.WriteString("Cant. Precio Importe" & CRLF) Printer1.WriteString("------------------------------" & CRLF) For i=0 To S.RowCount -1 @@ -1629,7 +1629,7 @@ Sub imprime_venta - k1 = NumberFormat((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT")),0,2) + k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2) k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2) TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c962455..e9ee6d9 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -222,6 +222,8 @@ Sub Class_Globals Dim Panel4 As Panel Dim q_buscar As String Private et_buspc As EditText + Private b_tabulador As Button + Private p_b_tabulador As Panel End Sub 'You can add more parameters here. @@ -426,7 +428,9 @@ Sub B4XPage_Appear f.Close If l_ruta.Text = 0 Then l_ruta.Text =0 + p_b_tabulador.Visible = False Else + p_b_tabulador.Visible = True f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f.Position=0 l_ruta.Text = f.GetString("CAT_CL_RUTA") @@ -824,6 +828,69 @@ Sub Subir_Click Next End If c.Close + + 'TABULADOR + c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") + d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") + b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") + d.Position = 0 + b.Position = 0 + f.Position = 0 + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position=i + Dim cmd As DBCommand + + Dim sDate,sTime As String + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) +' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) + cmd.Initialize + cmd.Name = "insert_tabulador_monedas_MARQUEZ2" + cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),sDate, "PREVENTA") + reqManager.ExecuteCommand(cmd , "ins_tabulador_mon") + Next + c.Close + d.Close + b.Close + f.Close + End If + + c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") + d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") + b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") + d.Position = 0 + b.Position = 0 + f.Position = 0 + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position=i + Dim cmd As DBCommand + + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) +' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) + cmd.Initialize + cmd.Name = "insert_tabulador_billetes_MARQUEZ2" + cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),sDate, "PREVENTA") + reqManager.ExecuteCommand(cmd , "ins_tabulador_bill") + Next + c.Close + d.Close + b.Close + f.Close + End If + 'FIN TABULADOR ' DROP t1.Initialize("T1", 30000) ' 1000 = 1 second @@ -2182,6 +2249,8 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS") + Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS") + Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ") B4XPage_Appear l_rutasuplencia.Visible = False @@ -2810,4 +2879,8 @@ Sub checaPedido If c.RowCount > 0 Then Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") End If +End Sub + +Private Sub b_tabulador_Click + B4XPages.ShowPage("tabulador") End Sub \ No newline at end of file diff --git a/B4A/C_tabulador.bas b/B4A/C_tabulador.bas new file mode 100644 index 0000000..d752b11 --- /dev/null +++ b/B4A/C_tabulador.bas @@ -0,0 +1,134 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=12.2 +@EndOfDesignText@ +Sub Class_Globals + Private Root As B4XView 'ignore + Private xui As XUI 'ignore + Private et_mil As EditText + Private et_quinientos As EditText + Private et_docientos As EditText + Private et_cien As EditText + Private et_cincuenta As EditText + Private et_veinte As EditText + Private et_m_veinte As EditText + Private et_m_diez As EditText + Private et_m_cinco As EditText + Private et_m_dos As EditText + Private et_m_peso As EditText + Private et_m_centavo As EditText + Private b_calcular As Button + Private b_guardar As Button + Private l_total As Label + Dim sum_billetes As Int + Dim sum_monedas As Float + Dim total As Float + Dim c As Cursor + Dim d As Cursor +End Sub + +'You can add more parameters here. +Public Sub Initialize As Object + Return Me +End Sub + +'This event will be called once, before the page becomes visible. +Private Sub B4XPage_Created (Root1 As B4XView) + Root = Root1 + 'load the layout to Root + Root.LoadLayout("tabulador") +End Sub + +Sub B4XPage_Appear + d = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") + c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") + c.Position = 0 + d.Position = 0 + If c.RowCount > 0 And d.RowCount > 0 Then + Log("TABULADR CON RESUKTADO") + et_mil.Text = c.GetString("MIL") + et_quinientos.Text = c.GetString("QUINIENTOS") + et_docientos.Text = c.GetString("DOCIENTOS") + et_cien.Text = c.GetString("CIEN") + et_cincuenta.Text = c.GetString("CINCUENTA") + et_veinte.Text = c.GetString("VEINTE") + et_m_veinte.Text = d.GetString("VEINTE") + et_m_diez.Text = d.GetString("DIEZ") + et_m_cinco.Text = d.GetString("CINCO") + et_m_dos.Text = d.GetString("DOS") + et_m_peso.Text = d.GetString("PESO") + et_m_centavo.Text = d.GetString("CENTAVO") + l_total.Text = d.GetString("TOTAL") + else If c.RowCount = 0 And d.RowCount = 0 Then + Log("TABULADR SIN RESUKTADO") + et_mil.Text = "" + et_quinientos.Text = "" + et_docientos.Text = "" + et_cien.Text = "" + et_cincuenta.Text = "" + et_veinte.Text = "" + et_m_veinte.Text = "" + et_m_diez.Text = "" + et_m_cinco.Text = "" + et_m_dos.Text = "" + et_m_peso.Text = "" + et_m_centavo.Text = "" + l_total.Text = "" + End If + c.Close + d.Close +End Sub + +Private Sub b_guardar_Click + b_calcular_Click + Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS") + Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES") + Starter.skmt.ExecNonQuery2("INSERT INTO TABULADOR_BILLETES (MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE) VALUES (?,?,?,?,?,?)", Array As Object(et_mil.Text,et_quinientos.Text,et_docientos.Text,et_cien.Text,et_cincuenta.Text,et_veinte.Text)) + Starter.skmt.ExecNonQuery2("INSERT INTO TABULADOR_MONEDAS (VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL) VALUES (?,?,?,?,?,?,?)", Array As Object(et_m_veinte.Text,et_m_diez.Text,et_m_cinco.Text,et_m_dos.Text,et_m_peso.Text,et_m_centavo.Text,l_total.Text)) + B4XPages.ShowPage("Principal") +End Sub + +Private Sub b_calcular_Click + If et_mil.Text = "" Then + et_mil.Text = 0 + End If + If et_quinientos.Text = "" Then + et_quinientos.Text = 0 + End If + If et_docientos.Text = "" Then + et_docientos.Text = 0 + End If + If et_cien.Text = "" Then + et_cien.Text = 0 + End If + If et_cincuenta.Text = "" Then + et_cincuenta.Text = 0 + End If + If et_veinte.Text = "" Then + et_veinte.Text = 0 + End If + If et_m_veinte.Text = "" Then + et_m_veinte.Text = 0 + End If + If et_m_diez.Text = "" Then + et_m_diez.Text = 0 + End If + If et_m_cinco.Text = "" Then + et_m_cinco.Text = 0 + End If + If et_m_dos.Text = "" Then + et_m_dos.Text = 0 + End If + If et_m_peso.Text = "" Then + et_m_peso.Text = 0 + End If + If et_m_centavo.Text = "" Then + et_m_centavo.Text = 0 + End If + sum_billetes = (et_mil.Text * 1000) + (et_quinientos.Text * 500) + (et_docientos.Text * 200) + ( et_cien.Text * 100 ) + ( et_cincuenta.Text * 50 ) + ( et_veinte.Text * 20 ) + sum_monedas = (et_m_veinte.Text * 20) + ( et_m_diez.Text * 10 ) + ( et_m_cinco.Text * 5 ) + ( et_m_dos.Text * 2 ) + ( et_m_peso.Text * 1 ) + ( et_m_centavo.Text * 0.50 ) + total = sum_billetes + sum_monedas + l_total.Text = Round2(total, 2) +End Sub \ No newline at end of file diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index be71ca6a50846825f1fd6ad3f5a745e17e9da8ba..5a4c83ac73b488d9f2771785217ecff851bf62eb 100644 GIT binary patch delta 2164 zcma*oNla5w6b9gTix66*WfGOCWv)P#K?W5NoN-10N37sH1LA~A#Q{V?B1eoH4aU%g zCPq@6kWh!{-i?V1V@zDQQkKTJ@Z5{9{v?pNIO+G!J@53qp|_t~{cd0L3-;GEEzqKA zCjPu~J-Epd#He*P*3=$5ShMp;Lw{S>q|ji_)j1*SiS(});siAY9CZm^G;qiwGY2=* zLO4P>!Z^Y?^qL6v6pl!asT_L!H1KqG6h|~i3^*1X_s=fP`tLxqf#bmm;6!i|IGL>v zngaP$wm!5SJVV(vdNpaVkPglOJHRv9vp6z2vLK%g&H>K`=YsS2`+d{pgA2fOz;nU# zz=hx!O`!UFI@@FMVH@DlJ+@G@{2csY25rn!7qzY-Q!fmegqfY*Y{ z!Rx^5!4=?2pZWe*`3^K~19&5N6L>Rt3wSHI8oUkc1aFs?&tE=*8hP;7wcs7#o#0*I z-E95M-^12_etX&bIQDZK03QUq4#B};@DXqwxE|a9J_>FG9|Io;pBS}EO?MI&PJx@) zr#a4WoCP7(KrS<_K~; zkD#(AMb!Mb$kJ(|w@-eE1RgbtLMp?k*qdZY7}Lf^^e5x+SFc-S`06sosdK2h>Q{wPGkMh@AI&U=d|CX3{1Z233VQ!E!jZ*UfA!j_ nf@!>@*3}D=IkvN)@40q*)MM^`W2Btd6Zg*kkKWl6_ICaOT_79- delta 1883 zcmajg%TE(g6bInBg9S^VEddlLv`{EgC=`5vC>2n_w;~F@Kzu8Tf*?K+9RURl1|`S1 zBXL6)8WWpYs04+m=+=M0sB!6ng&Q|U&kRoap%53R{qCG|&+VP*%nT2Ped-O1Hc687 z!6HeK{M|nk-4T3ncY#`Hsu!Z2?uWOLH6lR~oRc|XIpR3tITmq5bMRDYF*t#p$dSZh z2PcD5zz(nzoH}DgN}Cx-E^s<6y_mx9Z{<>0k{tZ3JJ9VFI+E5McD z4d9L7P2kPoE#R%-ZIYyfcE24GJHS=oo#1NlF7R$}4Y(G(CuBbVdqV?B+6UebJ^-!* z*Mkp&8^DLahrvfQYu8`91VODFWczZ$2J~rNs^iy^;H)6YK*nOsx~_w-jTgRjd@(Tked4`f#crc$zo5IP`YN3|fc2b`W$SI);TM93#J%6HX{9)$$wEjZ+`N*t}J}(x+L0u!U z6fx?zIcC*ygD)d)`dkx9J)={?$z@)eYR#}Y|1Jv_J4Gs0y{V>(u>gI45l6qq{I;~Y z%3ONctCst>5OJYj&o-jOTTLK90u` zmr>q?#psg7$sfWK>fo8HL$=<*K3S5O!)aMNabAX*VG`Qg%bZK)PvX6Ke9)x7mh`;# eKGM@xy<~Q03Ql&;+s^m@cD{ewmC^fmwZ8!;BGCf? diff --git a/B4A/Files/tabulador.bal b/B4A/Files/tabulador.bal new file mode 100644 index 0000000000000000000000000000000000000000..e335cd77c94ef9cb11384733797f69fe567f15a9 GIT binary patch literal 18660 zcmeHOTW}o36`jSBiHr%5V1fw-8H4ddUbI?0Ea!n`Nw#ILB_pkELK5WB?noL~?XG7> z5_Vn=qNXc)$(M#ET#&rXzgq4eZjd&YK8-wd4eD<>SYT(%tQjg98a zLTGj6|48xLgERUL~~-=bn>QiJt~$vnzOB^CdQROOsb?2%^w6nkyXf^+ZRY857KKr_=b3YbGIeHW47h^^i=$ zgNjrp;Ynp^0%f>@LYWL#WHMYqGF(A2TtPBiLEXDB3jQU$592y~u0d%)A>TgcXvrGa zn+xV+x`vNAbsy7(d`u2}On3J2O$w&V`tn;8{2m3rSHZUeZ$P;X<$VgiUBMd_e20SH zui!fsyh*`#Dfn&$H!FCvg6~oA76sp{;QJK375ILXZ7ACnyhFh|72Kj=u9@F9so)0` z+^XP|g4-0FR&cw5I}{9PoJ6_%S*|?&Vq|#s@*59rJKS<9b9v|X{z!&#&K+X<6@{ z>p3%ZcvRQM8=o5z96GNJ;N>p|?=@ zr1zLbd&+d}Qn7E^kxvdj@0hdZSivIo^Nsga?F*;{h3iWUC`W5rm>$y<(0 zC#;^}aLHCq8Vs9xd)hl$3f7FQC1+q2xsrJ{Q-Uq;l+AqJE=~~2a8qecDYe*?mZ~?(5&*b1ajk*_mJ{47Syw9Pb~_4)pe9NKAO@$tiOL z^X%&x;T<_IJqp`cmqXL5r&#X@DQ;ywJZQRERZbgL!y~7Q)ozmM8RLnQY7OdbQcnf- zwA91Xu3hTknb#?G<>ZrkcwBdIE3~z?ia0#GJ1I_8#oZVd!N#caR4yq?7;I9|IT9q;D0MLo=0McmEA zVt({vtn@PUE3^0Q3+VenF*)KQE)?vFO9=uTGnMcFlDnDeUB*AUTHdZmDD-VGe3*su zq)EO@4pVH2np~w!|NiXg@W6qCSw@3u4D}mQRCcUN#mf64wh5m^=v-9=Izeys0fjWQ zw{pS9MwLgA1Kv}K+*MXlqDGeK{hnsICktB5_!$`tpT-d<452Z07bKeRW3`GX_IwZmXyOfzQBNQsA zd_T&1;e)gVe8@~6h9sDd$A?UuCPQLS@rWUi`+G5J>H8l5!Ds?Y)Vq3O=1zIUkVXw+ zwn04@$|A&k8#+P^l|y1kQ!O$3APJ_kC^2tBOL%++G}L-b&1eEk&=-F<8W=M?kJ$kv z9b3m*+t22T)I)j<%KQ>wLQG`0bD*v@F83RmK46ZCqqYUMokQG zm+A5SVYG;e?+4LUqVzBY4 zT+3zPtTNO3HvU_%BI<|yjsFNF5_Fc^_`Oh!iI_fgRW~tIj*yr;wTbDEkC^>B#85dx zV*Uwp61wX4m;><+DeDeRoz>O$`KOtf;KUS<0B@cLkyK8 zB!p2r-CkC;InVyJxW#PHCUQ%Rqgq4UDX|YsT?6O`p5OL_=q{KLkyK8Bt}2;JrN%<59<&^3;(UJ`T}8?_4QlZH zDAXh7JBWyN^F10L-zU*kq}x!8bGAi1`i< zwz~PY0=~zAu0v^>z(silJBjL*G}(|g8jHM$fuyBm-_UwoPH*DPTAw? z;q(GVqnAsaMT@25>1Ux4Z#-p>tA|rQ73p#MWWec)zn6Jx!NpnRQH&3Q^1QXg|HRN> zE%!^l2aE2x^;L8%IYGd8-OsI`LsQR(SDf$9qpK@7!!__tgBpAfLEU?@1rWOGf3oFT zZ9wt*o6lG=gF@tvKIbL@$x@O@kVI_d`8mzAwV09^X%+MNE7@gRUaw zn+7%b=D)W^%(wn~-gEKs{cO~H)1U_5+oR`O|2^+>@$vn9)O^#R2H#(bo^Sp4ykCxw z@AFafO@kVIejA!pl99xo({s(o( BOj7^= literal 0 HcmV?d00001 diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a index b015f15..cd646de 100644 --- a/B4A/MARQUEZ.b4a +++ b/B4A/MARQUEZ.b4a @@ -55,13 +55,14 @@ File57=scrollpromos.bal File58=senial.jpg File59=sync.png File6=carrito.png -File60=tache_rojo.png -File61=Ticket dia.jpg -File62=ticketdia20.jpg -File63=ticketdia20.png -File64=ticketsdia.bal -File65=Tiendita.jpg -File66=verde.png +File60=tabulador.bal +File61=tache_rojo.png +File62=Ticket dia.jpg +File63=ticketdia20.jpg +File64=ticketdia20.png +File65=ticketsdia.bal +File66=Tiendita.jpg +File67=verde.png File7=celltitle.bal File8=cliente.bal File9=clientes.bal @@ -128,6 +129,7 @@ FileGroup63=Default Group FileGroup64=Default Group FileGroup65=Default Group FileGroup66=Default Group +FileGroup67=Default Group FileGroup7=Default Group FileGroup8=Default Group FileGroup9=Default Group @@ -135,31 +137,30 @@ Group=Default Group Library1=appupdating Library10=core Library11=fileprovider -Library12=firebaseadmob -Library13=firebaseanalytics -Library14=firebasenotifications -Library15=fusedlocationprovider -Library16=googlemaps -Library17=googlemapsextras -Library18=gps -Library19=ime +Library12=firebaseanalytics +Library13=firebasenotifications +Library14=fusedlocationprovider +Library15=googlemaps +Library16=googlemapsextras +Library17=gps +Library18=ime +Library19=javaobject Library2=b4xpages -Library20=javaobject -Library21=json -Library22=okhttputils2 -Library23=phone -Library24=preoptimizedclv -Library25=randomaccessfile -Library26=replyauto -Library27=rspopupmenu -Library28=serial -Library29=sql +Library20=json +Library21=okhttputils2 +Library22=phone +Library23=preoptimizedclv +Library24=randomaccessfile +Library25=replyauto +Library26=rspopupmenu +Library27=serial +Library28=sql +Library29=stringutils Library3=baqrcode -Library30=stringutils -Library31=togglelibrary -Library32=xcustomlistview -Library33=xui -Library34=runtimepermissions +Library30=togglelibrary +Library31=xcustomlistview +Library32=xui +Library33=runtimepermissions Library4=batteryprogressview Library5=bitmapcreator Library6=byteconverter @@ -176,36 +177,37 @@ Module14=C_Productos Module15=C_Promos Module16=C_RespaldoDiario Module17=C_Subs -Module18=C_TicketsDia -Module19=C_UpdateAvailable +Module18=C_tabulador +Module19=C_TicketsDia Module2=B4XMainPage -Module20=DBRequestManager -Module21=EscPosPrinter -Module22=FileHandler -Module23=ManageExternalStorage -Module24=MAPA_CLIENTE -Module25=MAPA_RUTAS -Module26=NotificationService -Module27=Pendientes -Module28=Starter -Module29=Subs +Module20=C_UpdateAvailable +Module21=DBRequestManager +Module22=EscPosPrinter +Module23=FileHandler +Module24=ManageExternalStorage +Module25=MAPA_CLIENTE +Module26=MAPA_RUTAS +Module27=NotificationService +Module28=Pendientes +Module29=Starter Module3=BatteryUtilities -Module30=Tracker +Module30=Subs +Module31=Tracker Module4=C_Cliente Module5=C_Clientes Module6=C_Cuestionario Module7=C_Historico Module8=C_Mapas Module9=C_Nota -NumberOfFiles=66 -NumberOfLibraries=34 -NumberOfModules=30 -Version=12.8 +NumberOfFiles=67 +NumberOfLibraries=33 +NumberOfModules=31 +Version=13 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Marquez #VersionCode: 1 - #VersionName: 4.12.10 + #VersionName: 5.01.10 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index ec6d09b..27fe3ad 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -23,6 +23,7 @@ ModuleBookmarks28= ModuleBookmarks29= ModuleBookmarks3= ModuleBookmarks30= +ModuleBookmarks31= ModuleBookmarks4= ModuleBookmarks5= ModuleBookmarks6= @@ -54,6 +55,7 @@ ModuleBreakpoints28= ModuleBreakpoints29= ModuleBreakpoints3= ModuleBreakpoints30= +ModuleBreakpoints31= ModuleBreakpoints4= ModuleBreakpoints5= ModuleBreakpoints6= @@ -85,12 +87,13 @@ ModuleClosedNodes28= ModuleClosedNodes29= ModuleClosedNodes3= ModuleClosedNodes30= +ModuleClosedNodes31= ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,Guardar_Click,696,1,C_Cliente,imprime_venta,1783,0,C_Cliente,GUADAVENTA2,874,0,C_Cliente,mandaPendientesrecarga,2088,0,C_Principal,Class_Globals,0,0,C_Cliente,mandaPendientes,1978,0,C_NoVenta,GUARDA_Click,127,0,C_NoVenta,mandaPendientesnoventa,141,0,C_Principal,Subir_Click,783,1,B4XMainPage,Class_Globals,25,0 +NavigationStack=C_Principal,b_tabulador_Click,2864,0,C_Principal,B4XPage_Created,229,0,C_Principal,B4XPage_Appear,423,5,Diseñador Visual,principal.bal,-100,6,C_Principal,cargar_Click,1199,0,C_Promos,Class_Globals,0,0,C_Promos,muestraPromo,84,0,C_Cliente,imprime_preventa,1246,0,C_Cliente,imprime_venta,1625,0,C_Principal,Subir_Click,866,6 SelectedBuild=0 -VisibleModules=1,2,13,4,7,8,9,10,14,29 +VisibleModules=1,2,13,4,7,8,9,10,14,30,15