From 26f7e6262255111c3a9e349de2f20794b69c7f11 Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Tue, 5 Sep 2023 12:09:58 -0600 Subject: [PATCH] Cambio de version --- B4A/DBCheck.b4a | 2 +- B4A/Files/logo_192x192.jpg | Bin 0 -> 6004 bytes B4XMainPage.bas | 408 +++++++++++++++++++++++++++++++++++++ 3 files changed, 409 insertions(+), 1 deletion(-) create mode 100644 B4A/Files/logo_192x192.jpg create mode 100644 B4XMainPage.bas diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index de785e0..96ef847 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -28,7 +28,7 @@ Version=12.2 #Region Project Attributes #ApplicationLabel: DBCheck #VersionCode: 1 - #VersionName: 3.09.03 + #VersionName: 3.09.04 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Files/logo_192x192.jpg b/B4A/Files/logo_192x192.jpg new file mode 100644 index 0000000000000000000000000000000000000000..73ab23488d664987083ddc351a9533eb21cd2faa GIT binary patch literal 6004 zcmbVPc|26_zdsrp`z{eCQQ0CP66TAtVp3!qGeyV}p(tc3Bqb`w5*h0t zA$xW+60*&ZaWdOIe!u&=_w~Ae-FrWCo^w9uHP3UN&-=4K-0$2OK>UoAtrft-!vlmv zKY&XC+)jrF_yT~vJ)i*q06)M7;{o^}jt3fNV6cBZcX+^2{NMb}i=za<3q2rKGQ?5x zzxkbc08jjL0Qiu`9S1CdT|7KH*MAa>54JD2_i|+6{AK6*HvkJO|`QiLKGyZSHZ3HCv0S6!g#&ZDJCBXxe;Ni9c2uM;s zNE18C_)p^51>@!04T&Tu1Wh1{L*m0=yC7ltcp28 zTyk~u^7ird^AEUoDykGgD=LXq z)it%Bnp;}i$n71SU-}0IhlWSKkB(8Ovp?p3&Mz$fqOWiK-ehcnf3|mU@c^)Y!}>2| z{{xov_<-h4^09pdgo~}S8w(S z?orjJ9Hj3+`xmnR9k7`H7qb5X_TRY10Aa{6cS*n`03^WvF@&GxIJEo`EO$0Qfm|Sy z#<6(&jpww}ph2>!YIC*A(Q)F}82&xhg8dzl2U6!_8_UUf&`5h6s;8#CX!?49VX5X*dTE@qDFaVI$7n`}ul6w*B|@P4=iPeBSd zPfIl%aQ&&itj|nWA{2EE$QoWk8kt^AIWd!{^UeS(|s3`fv30SG3 z@C@?SIT{y8SZRBZQWbDB-oFs%_gLxZOromFqNfBG;9cPYF;`h2S`lL}6sHm?i6)up+?(IPC-l zs%CKL8}J`6%B_YuzS_@^@}roz4ApUg-Fd9D6`729u$dvm5D zw90s+jvK<&!{>`_*snzc#j=q;TmaO8ubf~WnRa_u-0ERT&M|F(EqWd~>|FiW`qYLu z(%*4h;!9pMAC8P~GT;I;)U-H!)l|t9ijJHmqIvDUOWZ%zRiA6cimvtN?{c4bc)Y{G zrVz;Z%Tl?loYBt(Vx#eX__5hD^|b?7-9TDRy~QX*O>8j*AZu8TC06e{kqh#tnf zO1n_gSo^pD7vSqB4G|~BW^~AbZsLr?QKm3LZeF$QW^qXO@Nsx zWu@5<8Kmu*P}b;Mbh{M@AG2jBD=m;~HND>d4tcBJ;MeEPLOlDKXi_I+oct*ny++LL zCiuH9?dut>F@=c|9(b0aYz7O4L+a2Sv07n{S|x^s8;RQBgsV>8x5h z7Z^`wyc=P8(5qXxK*fCXr1>(|hx*E8B(&!2Pug6nNvEJ!A$fm$-ap5@o{E?Eqxj5( zKs*BnVqS&2x7s8d_}U+`I=#?k{xz6 zOw#t3?HZ~CNedlW5kRJq0?P$hrt!Xkh7>54hp9Fj>&ad78>+}HswQf<;d&-VV1rG7 zJja6z#K&e#Sq~A#?&}8hNs4w^pm8 zdsljheOm+dk+bIYU=%%#GBFV7Vd(ggu9)Y_~Ccbqw?sFbNFfh#mtqxqx68 zN02!C_Wtap>sY@4AL>bO7-suBuO0$BVX4bPzkyu;3Qk|AMGVwXBE0B2nmXOiK@95u zed3S&r9K@m7QW90u{QfTT9FID!&!Uwa5O+ex+JeJy31}&)YHst?Gb%qJcapZ1o>D` zu`t4+#Tf$j68fqq%ctPkh;eZvUP1ds0MEY3{TbmC9j3dx&unnmq<7d!ND1oT*J)n- z%$sTW+L%Yx*wmXTg&K?7r7yP+6H^d{A6sW9`J$DfbTKulL+*uh1`)t~CDM ztyW9)*K{l4um|}AR_3bopQ<&BsFTow0mMg6Ha(dUM$<_SS*)yKVJOkw-&=UAbz6d? zizkZLEMhE4*~cuHR=43#w#vVjkERZ^PFJ8>dZqo1F^QY|qL2z&LS=5FU%aY5U&8ik z>rLL-@LsxOc~i5!`&Ox$pxH)!T__j0gL_ArzV~N(&oIg*q2f8=vtxN^SoH?-;D$d_ zj3Zc1-=YxO(o&{J@xt{wlrBZ2O_t?rbWZ4_8x7Sr!;Lg{FJuyO!Op`ErK@|*ctJ}l zCUMNSHiEJuc5dh$*1(U!K5ys0#m*3E3L|*dHg-08rD#eVZX(1gsX`T+F6%%e-TPhl z!2Qx7!8_QBq-8f{yYD60ILkzkJ;uI=y!t?lp#dHdOSoSD+0u1TZ~|?7_iqC>S(hAX z6+3tFcjvFK?Ub9WhB8c2)`9Xm(Z%Ra#7KQWyPRMA2~otsMxt9oR!VN*TV{XeB+5xC zd(>60l$}v;HKoJO#wq@KPy_h}h;gVn0UUQ5)9X+WB`!{X&%{R}zjA>%ONs-0EZpmF zBC{l22YG%nEPmvm-|bQEI#)s^!`d4De*^f@%4Hv^^y-kJU2Nvs3u+JSg^no@5&1q396vnCNL79J03s-b*Bk zp$Bf@gN7^8gnnh~ggw8e`{I(@v9{Kep9HQhSbM@k4t!2#xI#&6j%5Mr6}l~O^am(( zM)vi$(qZR&0yp=LuuG11X&W)SYPK*Av7H-5cOSifvgvnwjf4M*_X>YOvG+V$lt2v< ze{}6a$SlGyq_m*=$Zz}W)UgVWRa_(_296l8nFeaMlWnyTQSA}Mjd_7%9~QIj$FA=p zIh(+kCga$Dph$P4(1?#e)<2+eW>M8CVmWqi(Ip1jrc?g+xxn3#IXp|o&LNlag~yNVXwQc2p#JPDk15qE@=v_xe9WPgSQweVCvsk9vvMOv`ti^u_9D)21E<%_ z(Q2{Fc!hEzshzP~OY&zKv11zy#727=-$3`-#6##Pln7YhP+yPV4wZUdgGf1K&INXr zPfvp_tsu_dyWeF+wq0i@565tfAz)@ivAD?jc$RGx zwOl%UuYY9GqK#Sm?w1U6r4Y=~iZ_?BGmkGXD-mV%zVhNUl7FoIQM`l_s3FN1k+V>a z_#|!Qwo_U+3N+*bv(_wi6sR%Z{Kuo&70iiB6TO_WGR=4!W|P3-jW|pz*MT-I#>yZo zrdiVNvxqoedy&tCB<l60Fsq{jZJ?jE0s)~Qc7R1~bI;m5~>)AzS`oHkv^**AxZ^7zI5<Rfo2XK29G%4fGTCvVUyCyu3E}vI^@{kMEqu70@XTywj&&#Su$?Nti_fDDD)S3c{ z-O-9nsB>#lH`B*`>*i}C#m&)%)787K$#bq}D!rA0>3N47Fo{Z{p@Vn(q~dyogd(qT zpvKdSAza;L2BXNM6~~xeGzDCNtTAD_|JymU$8vxKQ6$T4nn41@G~js>lEWBCIzYA1Z!I zu4(!XxUDf0`r(x!0lBQR$kys*L zs2)krY}&#h=vHZ7W&T^8AJOhL_tFWLy%xqXN6mkTqi1^4@HEUw927(bYc0JpQ=osX z_NUtgvg7Zv*>Tv!i%|_5sFxRAMD;XVu4b>z;(OQ3THID{4?Zzg{t zJuCl-Qv;Vc{22Od^G#bep%@HnO)powZg4u0K&z2}Qd{0u8O#aNs}t^yLg!C9xMj-7P!vDw5sZuBwbgl2!yg>JGfN79aFb_zPE%w$a?Hp53>fPU}ZylC3+t-jB(-`^eD039x3 zj^MuKY}^f|>{C>b+FCP6wnCM!7Cz)W{@u$`P={P(4>$_-DJzvAx`cIfFvML^wyor~ z>ou{6qV{mcmScpDgvEq#Va7k=)~mfTt@x%oE(M6&yZ5wrnyx zM(fTm#uSQNoo8xK`A^xoo?pOqfblF3g0<9Sjs zsck4U*g(w|vph=kYC(#zRD2jZV&M5UeWqH&#v{kCsZkwk*|%3$9U?0pFO-ITI#OkK=DX?* z(=;yNZp2!$Dj-(7U$W4l1`iHCl8cje{7Zo?Qxs7UFPAW<@+Nb*;@RIpPM=Dep7WL= zsR@mEA?(%Rdd)ZJvCD?W)iI%$HXn$xu-V2TvkB|dWt~#G9nTb$B7oH9B!IOHc`2bm zh>$oiio175(>oOh)`0F8Pt5g*oI(jrCZkUT?SFhI#kBN3UBhSh zsRPDB$^Gq}1X`G16KVw+!v**`2P|c~U!o0hh}wr@_0{JDsJ-ux-<)M{|GC8x!PARU z-!YxAcHo85PA(vcN}AeT_c24~&zja*qjq*wcL-jri;>I`Ok@gJLJ32j{m>vSo-lq6 zjND#jbe$X6v<-al#noPTCc}$QX!Twf!ZA(H^gV8;)wqRksu~+v)?~Ve+fge?@<&2l z>ov7X^}8^_d&w`P85@7mE8pG3))y9o2-1T_j+KNVB8wEpoudB6% z6Jed1hfy;NW^O^D$ScdvEyMe-$zadX;rD`AK2)(iXj$VQjGVdoG5tFCr$u_UbK`2K zytUhZ(`FY+_fU)iK8H}8tfSmgq?-$#Xvn0ooe eh@yk}Iavu|Q}_$xi_U6#f@&}C> Null Then + Log(in.GetData) + If in.GetData <> Null Then + Dim XmlData As String + XmlData = in.GetData + ToastMessageShow(XmlData, False) + ' Send_Make_somthing(in) + ' Activity.Finish + Try + Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"kmt.db",False) + Dim InStr As InputStream = File.OpenInput("ContentDir",XmlData) + File.Copy2(InStr,OutStr) + Log("BD copiada a interna.") + OutStr.Close + Catch + Log(LastException) + End Try +' ExitApplication + End If + End If + Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$) + If File.Exists(File.DirInternal, "kmt.db") Then + If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True) + Dim c As Cursor = skmt.ExecQuery($"select count(distinct pe_cliente) as pedidos, group_concat(distinct substr(pe_fecha, 4,2)) as diasVenta, sum(pe_costo_tot) as total, (select PE_CANT from pedido where PE_CANT = 0) as cantsEnCero, (select count(PE_CLIENTE) from pedido where printf("%d", PE_CLIENTE) <> PE_CLIENTE ) as clienteNoNumerico from pedido"$) + Log(c.RowCount) + If c.RowCount > 0 Then + c.Position = 0 + l_pedidos2.Text = c.GetString("pedidos") + l_diasVenta.Text = c.GetString("diasVenta") + l_totalVenta.Text = "$" & NumberFormat2(c.GetString("total"), 1, 2, 2, True) + l_cantsEnCero.Text = c.GetString("cantsEnCero") + l_clienteNoNumerico.Text = c.GetString("clienteNoNumerico") + End If + Dim c As Cursor = skmt.ExecQuery("select pe_ruta from pedido") + If c.RowCount > 0 Then + c.Position = 0 + ruta = c.GetString("PE_RUTA") + l_ruta2.Text = ruta + End If + Dim c As Cursor = skmt.ExecQuery("select USUARIO from usuarioa") + If c.RowCount > 0 Then + c.Position = 0 + usuario = c.GetString("USUARIO") + l_usuario2.Text = usuario + End If + Dim c As Cursor = skmt.ExecQuery("select ID_ALMACEN from cat_almacen") + If c.RowCount > 0 Then + c.Position = 0 + almacen = c.GetString("ID_ALMACEN") + l_almacen2.Text = almacen + End If + c.Close + End If +End Sub + +Private Sub b_enviar_Click + Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore + If resultado = DialogResponse.POSITIVE Then + reqsPendientes.Initialize + l_progressDialog.Text = " Enviando información ..." + p_progressDialog.Visible = True + p_progressDialog.BringToFront + skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) + skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") + ' PEDIO_CLIENTE + Dim c As Cursor = skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ") + Dim d As Cursor = skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedidos_MARDS" + cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) + reqManager.ExecuteCommand(cmd , "ins_pedidos_1") + reqsPendientes.Add("ins_pedidos_1") + Next + End If + c.Close + d.Position=0 +' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' ENVIO DE LOS CODIGOS QR + c = skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_2_MARDS" + cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta) + reqManager.ExecuteCommand(cmd , "ins_QR") + reqsPendientes.Add("ins_QR") + Next + End If + c.Close + + c = skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta_MARDS" + cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) + reqManager.ExecuteCommand(cmd , "hist_encuesta") + reqsPendientes.Add("hist_encuesta") + Next + End If + c.Close + + c = skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") + d = skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido_MARDS" + cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),almacen,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) + reqManager.ExecuteCommand(cmd , "ins_pedido_1") + reqsPendientes.Add("ins_pedido_1") + Next + End If + c.Close + d.Position=0 + cuantos_pedido = D.GetString("CUANTOS_PEDIDO") + d.Close + + ' NOVENTA + c = skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_noventa_MARDS" + cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + reqsPendientes.Add("inst_noventa") + Next + End If + c.Close + +' D = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") +' d.Position=0 +' Dim cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") +' d.Close + + ' GEO CERCA + c=skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_geocerca_MARDS" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' LO DEL LIKE + c=skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_face_like_MARDS" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' DROP +' Dim sDate,sTime As String +' DateTime.DateFormat = "MM/dd/yyyy" +' sDate=DateTime.Date(DateTime.Now) +' sTime=DateTime.Time(DateTime.Now) +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name ="insert_drop_MARDS_2" +' cmd.Parameters = Array As Object(usuario,ruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' reqManager.ExecuteCommand(cmd , "inst_noventa") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& ruta , True) + End If + +End Sub + +Sub JobDone(Job As HttpJob) + If Job.Success = False Then + 'ToastMessageShow("Error: " & Job.ErrorMessage, True) + Else 'If Job Success then ... + LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) + If Job.JobName = "DBRequest" Then + Dim resultado As DBResult = reqManager.HandleJob(Job) + reqsPendientes.RemoveAt(reqsPendientes.IndexOf(resultado.Tag)) + End If + + If Job.JobName = "DBRequest" Then + Dim resultado As DBResult = reqManager.HandleJob(Job) + If resultado.Tag.As(String).IndexOf("ins_pedido_") > -1 Then + Private cliente As String= resultado.Tag + Log($"Cliente1:${cliente}"$) + For Each records() As Object In resultado.Rows + For Each k As String In resultado.Columns.Keys + Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k))) + Next + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim resultado As DBResult = reqManager.HandleJob(Job) + If resultado.Tag.As(String).IndexOf("hist_encuesta") > -1 Then + Private cliente As String= resultado.Tag + reqsPendientes.RemoveAt(reqsPendientes.IndexOf(resultado.Tag)) + Log($"Cliente1:${cliente}"$) + For Each records() As Object In resultado.Rows + For Each k As String In resultado.Columns.Keys + Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k))) + Next + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedido" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) + If cuantos_pedido < = CUANTOSP Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) +' datos_iguales = "ok" +' S_CP.Text = "INFO OK" + ToastMessageShow("INFO OK", True) + Else + ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) +' S_CP.Text = "ENVIAR DATOS (K-2)" + ToastMessageShow("ENVIAR DATOS (K-2)", True) + Log("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedidoc" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) + If cuantos_pedidosc = CUANTOSC Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) +' datos_iguales = "ok" + Else + ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) + Log("No se cargo bien la info C. Sync Nuevamente " & CUANTOSC & " " & cuantos_pedidosc) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_noventa" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) + If cuantos_noventa = CUANTOSN Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) +' datos_iguales = "ok" + Else + ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) + Log("No se cargo bien la info N. Sync Nuevamente " & CUANTOSN & " " & cuantos_noventa) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ins_pedido" Then 'query tag + For Each records() As Object In RESULT.Rows +' PB2.Progress = PB2.Progress + 5 +' S_CP.Text = "SUBIENDO" + Next +' PB2.Progress = 100 +' S_CP.Text = "LISTO" + Log("5") + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) + If RESULT.Tag = "ins_pedido" Then 'query tag + For Each records() As Object In RESULT.Rows +' PB2.Progress = PB2.Progress + 5 +' S_CP.Text = "SUBIENDO" + Next +' PB2.Progress = 100 +' S_CP.Text = "LISTO" +' ToastMessageShow("Listo", False) + Log("5") + End If + End If + End If + If reqsPendientes.Size = 0 Then p_progressDialog.Visible = False + Job.Release +End Sub + +Private Sub B4XPage_CloseRequest As ResumableSub + ExitApplication + Return False +End Sub + +Private Sub l_ruta2_LongClick + p_editaRuta.Top = l_ruta2.top + p_editaRuta.Visible = True +End Sub + +Private Sub l_almacen2_LongClick + p_editaAlmacen.Top = l_almacen2.top + p_editaAlmacen.Visible = True +End Sub + +Private Sub l_usuario2_LongClick + +End Sub + +Private Sub b_guardaRuta_Click + p_editaRuta.Visible = False +End Sub + +Private Sub b_guardaAlmacen_Click + p_editaAlmacen.Visible = False +End Sub + +Private Sub p_principal_Click + p_editaAlmacen.Visible = False + p_editaRuta.Visible = False +End Sub \ No newline at end of file