From 79897e5efd178608a81d6fcf156f8b6cdd5b7766 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 22 Aug 2025 20:21:24 -0600 Subject: [PATCH] - VERSION 5.08.22 - Cambios para que desde clienets y mapa aparezcan losbotones de inicio y fin venta --- .gitattributes | 16 + .gitignore | 2 + B4A/ADM.b4a | 1079 +++++++++++++++-- B4A/ADM.b4a.meta | 12 +- B4A/B4XMainPage.bas | 54 +- B4A/C_Cliente.bas | 362 +++--- B4A/C_Clientes.bas | 182 ++- B4A/C_NoVenta.bas | 3 +- B4A/C_NuevoCliente.bas | 3 + B4A/C_Principal.bas | 1812 +++++++++++++++-------------- B4A/C_Productos.bas | 75 +- B4A/C_TicketsDia.bas | 20 +- B4A/CameraExClass.bas | 6 +- B4A/DBRequestManager.bas | 2 +- B4A/Files/cliente.bal | Bin 46161 -> 49756 bytes B4A/Files/clientes.bal | Bin 7977 -> 17889 bytes B4A/Files/datosclientebotones.bal | Bin 0 -> 4538 bytes B4A/Files/login.bal | Bin 22756 -> 22756 bytes B4A/Files/mapa_rutas.bal | Bin 5796 -> 16443 bytes B4A/Files/principal.bal | Bin 49907 -> 49923 bytes B4A/Files/resdia.bal | Bin 44790 -> 44850 bytes B4A/MAPA_RUTAS.bas | 211 +++- B4A/Starter.bas | 68 +- B4A/Subs.bas | 131 ++- B4A/Tracker.bas | 38 +- 25 files changed, 2789 insertions(+), 1287 deletions(-) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 B4A/Files/datosclientebotones.bal diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..a3f49d9 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,16 @@ +# Auto detect text files and perform LF normalization +* text=auto + +# linguist-language +*.b4a linguist-language=B4X +*.b4i linguist-language=B4X +*.b4j linguist-language=B4X +*.b4r linguist-language=B4X +*.bas linguist-language=B4X + +# linguist-detectable +*.b4a linguist-detectable=true +*.b4i linguist-detectable=true +*.b4j linguist-detectable=true +*.b4r linguist-detectable=true +*.bas linguist-detectable=true \ No newline at end of file diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..af94e9d --- /dev/null +++ b/.gitignore @@ -0,0 +1,2 @@ +**/Objects +**/AutoBackups \ No newline at end of file diff --git a/B4A/ADM.b4a b/B4A/ADM.b4a index 70e5f88..f19c9f5 100644 --- a/B4A/ADM.b4a +++ b/B4A/ADM.b4a @@ -1,116 +1,999 @@ -Build1=Default,adm.keymon.com.mx +Build1=Default,adm.keymon.com.mx,HU2_PUBLIC File1=abordo.png File10=datoscliente.bal -File11=durakelo.png -File12=engrane.jpg -File13=engrane.png -File14=engrane_gris.png -File15=folioabono.bal -File16=fondo_kmt.jpg -File17=gps20.png -File18=guna-fondo.jpg -File19=Hacer pedido.jpg +File100=marker-azul-19.png +File101=marker-azul-2.png +File102=marker-azul-20.png +File103=marker-azul-21.png +File104=marker-azul-22.png +File105=marker-azul-23.png +File106=marker-azul-24.png +File107=marker-azul-25.png +File108=marker-azul-26.png +File109=marker-azul-27.png +File11=datosclienteBotones.bal +File110=marker-azul-28.png +File111=marker-azul-29.png +File112=marker-azul-3.png +File113=marker-azul-30.png +File114=marker-azul-31.png +File115=marker-azul-32.png +File116=marker-azul-33.png +File117=marker-azul-34.png +File118=marker-azul-35.png +File119=marker-azul-36.png +File12=desvanecido.png +File120=marker-azul-37.png +File121=marker-azul-38.png +File122=marker-azul-39.png +File123=marker-azul-4.png +File124=marker-azul-40.png +File125=marker-azul-41.png +File126=marker-azul-42.png +File127=marker-azul-43.png +File128=marker-azul-44.png +File129=marker-azul-45.png +File13=durakelo.png +File130=marker-azul-46.png +File131=marker-azul-47.png +File132=marker-azul-48.png +File133=marker-azul-49.png +File134=marker-azul-5.png +File135=marker-azul-50.png +File136=marker-azul-51.png +File137=marker-azul-52.png +File138=marker-azul-53.png +File139=marker-azul-54.png +File14=engrane.jpg +File140=marker-azul-55.png +File141=marker-azul-56.png +File142=marker-azul-57.png +File143=marker-azul-58.png +File144=marker-azul-59.png +File145=marker-azul-6.png +File146=marker-azul-60.png +File147=marker-azul-61.png +File148=marker-azul-62.png +File149=marker-azul-63.png +File15=engrane.png +File150=marker-azul-64.png +File151=marker-azul-65.png +File152=marker-azul-66.png +File153=marker-azul-67.png +File154=marker-azul-68.png +File155=marker-azul-69.png +File156=marker-azul-7.png +File157=marker-azul-70.png +File158=marker-azul-71.png +File159=marker-azul-72.png +File16=engrane_gris.png +File160=marker-azul-73.png +File161=marker-azul-74.png +File162=marker-azul-75.png +File163=marker-azul-76.png +File164=marker-azul-77.png +File165=marker-azul-78.png +File166=marker-azul-79.png +File167=marker-azul-8.png +File168=marker-azul-80.png +File169=marker-azul-81.png +File17=folioabono.bal +File170=marker-azul-82.png +File171=marker-azul-83.png +File172=marker-azul-84.png +File173=marker-azul-85.png +File174=marker-azul-86.png +File175=marker-azul-87.png +File176=marker-azul-88.png +File177=marker-azul-89.png +File178=marker-azul-9.png +File179=marker-azul-90.png +File18=fondo_kmt.jpg +File180=marker-azul-91.png +File181=marker-azul-92.png +File182=marker-azul-93.png +File183=marker-azul-94.png +File184=marker-azul-95.png +File185=marker-azul-96.png +File186=marker-azul-97.png +File187=marker-azul-98.png +File188=marker-azul-99.png +File189=marker-rojo-0.png +File19=gps20.png +File190=marker-rojo-1.png +File191=marker-rojo-10.png +File192=marker-rojo-100.png +File193=marker-rojo-101.png +File194=marker-rojo-102.png +File195=marker-rojo-103.png +File196=marker-rojo-104.png +File197=marker-rojo-105.png +File198=marker-rojo-106.png +File199=marker-rojo-107.png File2=alert2.png -File20=hacerpedido30.jpg -File21=hacerpedido30.png -File22=intmex_logo_192x192.jpg -File23=intmex_logo_192x192.png -File24=itembuttonblue.png -File25=kmt.db -File26=login.bal -File27=Logo_192x192.jpg -File28=MainPage.bal -File29=Malo.jpg +File20=guna-fondo.jpg +File200=marker-rojo-108.png +File201=marker-rojo-109.png +File202=marker-rojo-11.png +File203=marker-rojo-110.png +File204=marker-rojo-111.png +File205=marker-rojo-112.png +File206=marker-rojo-113.png +File207=marker-rojo-114.png +File208=marker-rojo-115.png +File209=marker-rojo-116.png +File21=Hacer pedido.jpg +File210=marker-rojo-117.png +File211=marker-rojo-118.png +File212=marker-rojo-119.png +File213=marker-rojo-12.png +File214=marker-rojo-120.png +File215=marker-rojo-121.png +File216=marker-rojo-122.png +File217=marker-rojo-123.png +File218=marker-rojo-124.png +File219=marker-rojo-125.png +File22=hacerpedido30.jpg +File220=marker-rojo-126.png +File221=marker-rojo-127.png +File222=marker-rojo-128.png +File223=marker-rojo-129.png +File224=marker-rojo-13.png +File225=marker-rojo-130.png +File226=marker-rojo-131.png +File227=marker-rojo-132.png +File228=marker-rojo-133.png +File229=marker-rojo-134.png +File23=hacerpedido30.png +File230=marker-rojo-135.png +File231=marker-rojo-136.png +File232=marker-rojo-137.png +File233=marker-rojo-138.png +File234=marker-rojo-139.png +File235=marker-rojo-14.png +File236=marker-rojo-140.png +File237=marker-rojo-141.png +File238=marker-rojo-142.png +File239=marker-rojo-143.png +File24=intmex_logo_192x192.jpg +File240=marker-rojo-144.png +File241=marker-rojo-145.png +File242=marker-rojo-146.png +File243=marker-rojo-147.png +File244=marker-rojo-148.png +File245=marker-rojo-149.png +File246=marker-rojo-15.png +File247=marker-rojo-150.png +File248=marker-rojo-16.png +File249=marker-rojo-17.png +File25=intmex_logo_192x192.png +File250=marker-rojo-18.png +File251=marker-rojo-19.png +File252=marker-rojo-2.png +File253=marker-rojo-20.png +File254=marker-rojo-21.png +File255=marker-rojo-22.png +File256=marker-rojo-23.png +File257=marker-rojo-24.png +File258=marker-rojo-25.png +File259=marker-rojo-26.png +File26=intmex_logo_192x192_old.jpg +File260=marker-rojo-27.png +File261=marker-rojo-28.png +File262=marker-rojo-29.png +File263=marker-rojo-3.png +File264=marker-rojo-30.png +File265=marker-rojo-31.png +File266=marker-rojo-32.png +File267=marker-rojo-33.png +File268=marker-rojo-34.png +File269=marker-rojo-35.png +File27=itembuttonblue.png +File270=marker-rojo-36.png +File271=marker-rojo-37.png +File272=marker-rojo-38.png +File273=marker-rojo-39.png +File274=marker-rojo-4.png +File275=marker-rojo-40.png +File276=marker-rojo-41.png +File277=marker-rojo-42.png +File278=marker-rojo-43.png +File279=marker-rojo-44.png +File28=kmt.db +File280=marker-rojo-45.png +File281=marker-rojo-46.png +File282=marker-rojo-47.png +File283=marker-rojo-48.png +File284=marker-rojo-49.png +File285=marker-rojo-5.png +File286=marker-rojo-50.png +File287=marker-rojo-51.png +File288=marker-rojo-52.png +File289=marker-rojo-53.png +File29=login.bal +File290=marker-rojo-54.png +File291=marker-rojo-55.png +File292=marker-rojo-56.png +File293=marker-rojo-57.png +File294=marker-rojo-58.png +File295=marker-rojo-59.png +File296=marker-rojo-6.png +File297=marker-rojo-60.png +File298=marker-rojo-61.png +File299=marker-rojo-62.png File3=alerta_amarilla.png -File30=mapa_rutas.bal -File31=mariana.jpg -File32=mariana1.jpg -File33=nota.bal -File34=noventa.bal -File35=nuevocliente.bal -File36=nuevocliente.jpg -File37=nuevo-cliente20.png -File38=Nvo Cliente.jpg -File39=palomita_verde.png +File30=Logo_192x192.jpg +File300=marker-rojo-63.png +File301=marker-rojo-64.png +File302=marker-rojo-65.png +File303=marker-rojo-66.png +File304=marker-rojo-67.png +File305=marker-rojo-68.png +File306=marker-rojo-69.png +File307=marker-rojo-7.png +File308=marker-rojo-70.png +File309=marker-rojo-71.png +File31=logo_mariana.jpeg +File310=marker-rojo-72.png +File311=marker-rojo-73.png +File312=marker-rojo-74.png +File313=marker-rojo-75.png +File314=marker-rojo-76.png +File315=marker-rojo-77.png +File316=marker-rojo-78.png +File317=marker-rojo-79.png +File318=marker-rojo-8.png +File319=marker-rojo-80.png +File32=MainPage.bal +File320=marker-rojo-81.png +File321=marker-rojo-82.png +File322=marker-rojo-83.png +File323=marker-rojo-84.png +File324=marker-rojo-85.png +File325=marker-rojo-86.png +File326=marker-rojo-87.png +File327=marker-rojo-88.png +File328=marker-rojo-89.png +File329=marker-rojo-9.png +File33=Malo.jpg +File330=marker-rojo-90.png +File331=marker-rojo-91.png +File332=marker-rojo-92.png +File333=marker-rojo-93.png +File334=marker-rojo-94.png +File335=marker-rojo-95.png +File336=marker-rojo-96.png +File337=marker-rojo-97.png +File338=marker-rojo-98.png +File339=marker-rojo-99.png +File34=mapa_rutas.bal +File340=marker-verde-0.png +File341=marker-verde-1.png +File342=marker-verde-10.png +File343=marker-verde-100.png +File344=marker-verde-101.png +File345=marker-verde-102.png +File346=marker-verde-103.png +File347=marker-verde-104.png +File348=marker-verde-105.png +File349=marker-verde-106.png +File35=mariana.jpg +File350=marker-verde-107.png +File351=marker-verde-108.png +File352=marker-verde-109.png +File353=marker-verde-11.png +File354=marker-verde-110.png +File355=marker-verde-111.png +File356=marker-verde-112.png +File357=marker-verde-113.png +File358=marker-verde-114.png +File359=marker-verde-115.png +File36=mariana_ico.png +File360=marker-verde-116.png +File361=marker-verde-117.png +File362=marker-verde-118.png +File363=marker-verde-119.png +File364=marker-verde-12.png +File365=marker-verde-120.png +File366=marker-verde-121.png +File367=marker-verde-122.png +File368=marker-verde-123.png +File369=marker-verde-124.png +File37=mariana1.jpg +File370=marker-verde-125.png +File371=marker-verde-126.png +File372=marker-verde-127.png +File373=marker-verde-128.png +File374=marker-verde-129.png +File375=marker-verde-13.png +File376=marker-verde-130.png +File377=marker-verde-131.png +File378=marker-verde-132.png +File379=marker-verde-133.png +File38=marker-azul-0.png +File380=marker-verde-134.png +File381=marker-verde-135.png +File382=marker-verde-136.png +File383=marker-verde-137.png +File384=marker-verde-138.png +File385=marker-verde-139.png +File386=marker-verde-14.png +File387=marker-verde-140.png +File388=marker-verde-141.png +File389=marker-verde-142.png +File39=marker-azul-1.png +File390=marker-verde-143.png +File391=marker-verde-144.png +File392=marker-verde-145.png +File393=marker-verde-146.png +File394=marker-verde-147.png +File395=marker-verde-148.png +File396=marker-verde-149.png +File397=marker-verde-15.png +File398=marker-verde-150.png +File399=marker-verde-16.png File4=anterior.jpg -File40=PANEL_PICK_CIEGO.bal -File41=pedido.bal -File42=planfia_logo.png -File43=principal.bal -File44=proditem.bal -File45=proditem1.bal -File46=proditem2.bal -File47=productos.bal -File48=promociones.bal -File49=resdia.bal +File40=marker-azul-10.png +File400=marker-verde-17.png +File401=marker-verde-18.png +File402=marker-verde-19.png +File403=marker-verde-2.png +File404=marker-verde-20.png +File405=marker-verde-21.png +File406=marker-verde-22.png +File407=marker-verde-23.png +File408=marker-verde-24.png +File409=marker-verde-25.png +File41=marker-azul-100.png +File410=marker-verde-26.png +File411=marker-verde-27.png +File412=marker-verde-28.png +File413=marker-verde-29.png +File414=marker-verde-3.png +File415=marker-verde-30.png +File416=marker-verde-31.png +File417=marker-verde-32.png +File418=marker-verde-33.png +File419=marker-verde-34.png +File42=marker-azul-101.png +File420=marker-verde-35.png +File421=marker-verde-36.png +File422=marker-verde-37.png +File423=marker-verde-38.png +File424=marker-verde-39.png +File425=marker-verde-4.png +File426=marker-verde-40.png +File427=marker-verde-41.png +File428=marker-verde-42.png +File429=marker-verde-43.png +File43=marker-azul-102.png +File430=marker-verde-44.png +File431=marker-verde-45.png +File432=marker-verde-46.png +File433=marker-verde-47.png +File434=marker-verde-48.png +File435=marker-verde-49.png +File436=marker-verde-5.png +File437=marker-verde-50.png +File438=marker-verde-51.png +File439=marker-verde-52.png +File44=marker-azul-103.png +File440=marker-verde-53.png +File441=marker-verde-54.png +File442=marker-verde-55.png +File443=marker-verde-56.png +File444=marker-verde-57.png +File445=marker-verde-58.png +File446=marker-verde-59.png +File447=marker-verde-6.png +File448=marker-verde-60.png +File449=marker-verde-61.png +File45=marker-azul-104.png +File450=marker-verde-62.png +File451=marker-verde-63.png +File452=marker-verde-64.png +File453=marker-verde-65.png +File454=marker-verde-66.png +File455=marker-verde-67.png +File456=marker-verde-68.png +File457=marker-verde-69.png +File458=marker-verde-7.png +File459=marker-verde-70.png +File46=marker-azul-105.png +File460=marker-verde-71.png +File461=marker-verde-72.png +File462=marker-verde-73.png +File463=marker-verde-74.png +File464=marker-verde-75.png +File465=marker-verde-76.png +File466=marker-verde-77.png +File467=marker-verde-78.png +File468=marker-verde-79.png +File469=marker-verde-8.png +File47=marker-azul-106.png +File470=marker-verde-80.png +File471=marker-verde-81.png +File472=marker-verde-82.png +File473=marker-verde-83.png +File474=marker-verde-84.png +File475=marker-verde-85.png +File476=marker-verde-86.png +File477=marker-verde-87.png +File478=marker-verde-88.png +File479=marker-verde-89.png +File48=marker-azul-107.png +File480=marker-verde-9.png +File481=marker-verde-90.png +File482=marker-verde-91.png +File483=marker-verde-92.png +File484=marker-verde-93.png +File485=marker-verde-94.png +File486=marker-verde-95.png +File487=marker-verde-96.png +File488=marker-verde-97.png +File489=marker-verde-98.png +File49=marker-azul-108.png +File490=marker-verde-99.png +File491=nota.bal +File492=noventa.bal +File493=nuevocliente.bal +File494=nuevocliente.jpg +File495=nuevo-cliente20.png +File496=Nvo Cliente.jpg +File497=palomita_verde.png +File498=PANEL_PICK_CIEGO.bal +File499=pedido.bal File5=bus-ar.png -File50=ResDia.jpg -File51=resdia20.png -File52=resumendia.jpg -File53=salma.jpg -File54=salma.png -File55=scrollpromos.bal -File56=senial.jpg -File57=sync.png -File58=tache_rojo.png -File59=Ticket dia.jpg +File50=marker-azul-109.png +File500=planfia_logo.png +File501=principal.bal +File502=proditem.bal +File503=proditem1.bal +File504=proditem2.bal +File505=proditempromo.bal +File506=productos.bal +File507=promociones.bal +File508=resdia.bal +File509=ResDia.jpg +File51=marker-azul-11.png +File510=resdia20.png +File511=resumendia.jpg +File512=salma.jpg +File513=salma.png +File514=scrollpromos.bal +File515=senial.jpg +File516=sync.png +File517=tache_rojo.png +File518=Ticket dia.jpg +File519=ticketdia20.jpg +File52=marker-azul-110.png +File520=ticketdia20.png +File521=ticketsdia.bal +File522=Tiendita.jpg +File523=verde.png +File53=marker-azul-111.png +File54=marker-azul-112.png +File55=marker-azul-113.png +File56=marker-azul-114.png +File57=marker-azul-115.png +File58=marker-azul-116.png +File59=marker-azul-117.png File6=carrito.png -File60=ticketdia20.jpg -File61=ticketdia20.png -File62=ticketsdia.bal -File63=Tiendita.jpg -File64=verde.png +File60=marker-azul-118.png +File61=marker-azul-119.png +File62=marker-azul-12.png +File63=marker-azul-120.png +File64=marker-azul-121.png +File65=marker-azul-122.png +File66=marker-azul-123.png +File67=marker-azul-124.png +File68=marker-azul-125.png +File69=marker-azul-126.png File7=celltitle.bal +File70=marker-azul-127.png +File71=marker-azul-128.png +File72=marker-azul-129.png +File73=marker-azul-13.png +File74=marker-azul-130.png +File75=marker-azul-131.png +File76=marker-azul-132.png +File77=marker-azul-133.png +File78=marker-azul-134.png +File79=marker-azul-135.png File8=cliente.bal +File80=marker-azul-136.png +File81=marker-azul-137.png +File82=marker-azul-138.png +File83=marker-azul-139.png +File84=marker-azul-14.png +File85=marker-azul-140.png +File86=marker-azul-141.png +File87=marker-azul-142.png +File88=marker-azul-143.png +File89=marker-azul-144.png File9=clientes.bal +File90=marker-azul-145.png +File91=marker-azul-146.png +File92=marker-azul-147.png +File93=marker-azul-148.png +File94=marker-azul-149.png +File95=marker-azul-15.png +File96=marker-azul-150.png +File97=marker-azul-16.png +File98=marker-azul-17.png +File99=marker-azul-18.png FileGroup1=Default Group FileGroup10=Default Group +FileGroup100=Default Group +FileGroup101=Default Group +FileGroup102=Default Group +FileGroup103=Default Group +FileGroup104=Default Group +FileGroup105=Default Group +FileGroup106=Default Group +FileGroup107=Default Group +FileGroup108=Default Group +FileGroup109=Default Group FileGroup11=Default Group +FileGroup110=Default Group +FileGroup111=Default Group +FileGroup112=Default Group +FileGroup113=Default Group +FileGroup114=Default Group +FileGroup115=Default Group +FileGroup116=Default Group +FileGroup117=Default Group +FileGroup118=Default Group +FileGroup119=Default Group FileGroup12=Default Group +FileGroup120=Default Group +FileGroup121=Default Group +FileGroup122=Default Group +FileGroup123=Default Group +FileGroup124=Default Group +FileGroup125=Default Group +FileGroup126=Default Group +FileGroup127=Default Group +FileGroup128=Default Group +FileGroup129=Default Group FileGroup13=Default Group +FileGroup130=Default Group +FileGroup131=Default Group +FileGroup132=Default Group +FileGroup133=Default Group +FileGroup134=Default Group +FileGroup135=Default Group +FileGroup136=Default Group +FileGroup137=Default Group +FileGroup138=Default Group +FileGroup139=Default Group FileGroup14=Default Group +FileGroup140=Default Group +FileGroup141=Default Group +FileGroup142=Default Group +FileGroup143=Default Group +FileGroup144=Default Group +FileGroup145=Default Group +FileGroup146=Default Group +FileGroup147=Default Group +FileGroup148=Default Group +FileGroup149=Default Group FileGroup15=Default Group +FileGroup150=Default Group +FileGroup151=Default Group +FileGroup152=Default Group +FileGroup153=Default Group +FileGroup154=Default Group +FileGroup155=Default Group +FileGroup156=Default Group +FileGroup157=Default Group +FileGroup158=Default Group +FileGroup159=Default Group FileGroup16=Default Group +FileGroup160=Default Group +FileGroup161=Default Group +FileGroup162=Default Group +FileGroup163=Default Group +FileGroup164=Default Group +FileGroup165=Default Group +FileGroup166=Default Group +FileGroup167=Default Group +FileGroup168=Default Group +FileGroup169=Default Group FileGroup17=Default Group +FileGroup170=Default Group +FileGroup171=Default Group +FileGroup172=Default Group +FileGroup173=Default Group +FileGroup174=Default Group +FileGroup175=Default Group +FileGroup176=Default Group +FileGroup177=Default Group +FileGroup178=Default Group +FileGroup179=Default Group FileGroup18=Default Group +FileGroup180=Default Group +FileGroup181=Default Group +FileGroup182=Default Group +FileGroup183=Default Group +FileGroup184=Default Group +FileGroup185=Default Group +FileGroup186=Default Group +FileGroup187=Default Group +FileGroup188=Default Group +FileGroup189=Default Group FileGroup19=Default Group +FileGroup190=Default Group +FileGroup191=Default Group +FileGroup192=Default Group +FileGroup193=Default Group +FileGroup194=Default Group +FileGroup195=Default Group +FileGroup196=Default Group +FileGroup197=Default Group +FileGroup198=Default Group +FileGroup199=Default Group FileGroup2=Default Group FileGroup20=Default Group +FileGroup200=Default Group +FileGroup201=Default Group +FileGroup202=Default Group +FileGroup203=Default Group +FileGroup204=Default Group +FileGroup205=Default Group +FileGroup206=Default Group +FileGroup207=Default Group +FileGroup208=Default Group +FileGroup209=Default Group FileGroup21=Default Group +FileGroup210=Default Group +FileGroup211=Default Group +FileGroup212=Default Group +FileGroup213=Default Group +FileGroup214=Default Group +FileGroup215=Default Group +FileGroup216=Default Group +FileGroup217=Default Group +FileGroup218=Default Group +FileGroup219=Default Group FileGroup22=Default Group +FileGroup220=Default Group +FileGroup221=Default Group +FileGroup222=Default Group +FileGroup223=Default Group +FileGroup224=Default Group +FileGroup225=Default Group +FileGroup226=Default Group +FileGroup227=Default Group +FileGroup228=Default Group +FileGroup229=Default Group FileGroup23=Default Group +FileGroup230=Default Group +FileGroup231=Default Group +FileGroup232=Default Group +FileGroup233=Default Group +FileGroup234=Default Group +FileGroup235=Default Group +FileGroup236=Default Group +FileGroup237=Default Group +FileGroup238=Default Group +FileGroup239=Default Group FileGroup24=Default Group +FileGroup240=Default Group +FileGroup241=Default Group +FileGroup242=Default Group +FileGroup243=Default Group +FileGroup244=Default Group +FileGroup245=Default Group +FileGroup246=Default Group +FileGroup247=Default Group +FileGroup248=Default Group +FileGroup249=Default Group FileGroup25=Default Group +FileGroup250=Default Group +FileGroup251=Default Group +FileGroup252=Default Group +FileGroup253=Default Group +FileGroup254=Default Group +FileGroup255=Default Group +FileGroup256=Default Group +FileGroup257=Default Group +FileGroup258=Default Group +FileGroup259=Default Group FileGroup26=Default Group +FileGroup260=Default Group +FileGroup261=Default Group +FileGroup262=Default Group +FileGroup263=Default Group +FileGroup264=Default Group +FileGroup265=Default Group +FileGroup266=Default Group +FileGroup267=Default Group +FileGroup268=Default Group +FileGroup269=Default Group FileGroup27=Default Group +FileGroup270=Default Group +FileGroup271=Default Group +FileGroup272=Default Group +FileGroup273=Default Group +FileGroup274=Default Group +FileGroup275=Default Group +FileGroup276=Default Group +FileGroup277=Default Group +FileGroup278=Default Group +FileGroup279=Default Group FileGroup28=Default Group +FileGroup280=Default Group +FileGroup281=Default Group +FileGroup282=Default Group +FileGroup283=Default Group +FileGroup284=Default Group +FileGroup285=Default Group +FileGroup286=Default Group +FileGroup287=Default Group +FileGroup288=Default Group +FileGroup289=Default Group FileGroup29=Default Group +FileGroup290=Default Group +FileGroup291=Default Group +FileGroup292=Default Group +FileGroup293=Default Group +FileGroup294=Default Group +FileGroup295=Default Group +FileGroup296=Default Group +FileGroup297=Default Group +FileGroup298=Default Group +FileGroup299=Default Group FileGroup3=Default Group FileGroup30=Default Group +FileGroup300=Default Group +FileGroup301=Default Group +FileGroup302=Default Group +FileGroup303=Default Group +FileGroup304=Default Group +FileGroup305=Default Group +FileGroup306=Default Group +FileGroup307=Default Group +FileGroup308=Default Group +FileGroup309=Default Group FileGroup31=Default Group +FileGroup310=Default Group +FileGroup311=Default Group +FileGroup312=Default Group +FileGroup313=Default Group +FileGroup314=Default Group +FileGroup315=Default Group +FileGroup316=Default Group +FileGroup317=Default Group +FileGroup318=Default Group +FileGroup319=Default Group FileGroup32=Default Group +FileGroup320=Default Group +FileGroup321=Default Group +FileGroup322=Default Group +FileGroup323=Default Group +FileGroup324=Default Group +FileGroup325=Default Group +FileGroup326=Default Group +FileGroup327=Default Group +FileGroup328=Default Group +FileGroup329=Default Group FileGroup33=Default Group +FileGroup330=Default Group +FileGroup331=Default Group +FileGroup332=Default Group +FileGroup333=Default Group +FileGroup334=Default Group +FileGroup335=Default Group +FileGroup336=Default Group +FileGroup337=Default Group +FileGroup338=Default Group +FileGroup339=Default Group FileGroup34=Default Group +FileGroup340=Default Group +FileGroup341=Default Group +FileGroup342=Default Group +FileGroup343=Default Group +FileGroup344=Default Group +FileGroup345=Default Group +FileGroup346=Default Group +FileGroup347=Default Group +FileGroup348=Default Group +FileGroup349=Default Group FileGroup35=Default Group +FileGroup350=Default Group +FileGroup351=Default Group +FileGroup352=Default Group +FileGroup353=Default Group +FileGroup354=Default Group +FileGroup355=Default Group +FileGroup356=Default Group +FileGroup357=Default Group +FileGroup358=Default Group +FileGroup359=Default Group FileGroup36=Default Group +FileGroup360=Default Group +FileGroup361=Default Group +FileGroup362=Default Group +FileGroup363=Default Group +FileGroup364=Default Group +FileGroup365=Default Group +FileGroup366=Default Group +FileGroup367=Default Group +FileGroup368=Default Group +FileGroup369=Default Group FileGroup37=Default Group +FileGroup370=Default Group +FileGroup371=Default Group +FileGroup372=Default Group +FileGroup373=Default Group +FileGroup374=Default Group +FileGroup375=Default Group +FileGroup376=Default Group +FileGroup377=Default Group +FileGroup378=Default Group +FileGroup379=Default Group FileGroup38=Default Group +FileGroup380=Default Group +FileGroup381=Default Group +FileGroup382=Default Group +FileGroup383=Default Group +FileGroup384=Default Group +FileGroup385=Default Group +FileGroup386=Default Group +FileGroup387=Default Group +FileGroup388=Default Group +FileGroup389=Default Group FileGroup39=Default Group +FileGroup390=Default Group +FileGroup391=Default Group +FileGroup392=Default Group +FileGroup393=Default Group +FileGroup394=Default Group +FileGroup395=Default Group +FileGroup396=Default Group +FileGroup397=Default Group +FileGroup398=Default Group +FileGroup399=Default Group FileGroup4=Default Group FileGroup40=Default Group +FileGroup400=Default Group +FileGroup401=Default Group +FileGroup402=Default Group +FileGroup403=Default Group +FileGroup404=Default Group +FileGroup405=Default Group +FileGroup406=Default Group +FileGroup407=Default Group +FileGroup408=Default Group +FileGroup409=Default Group FileGroup41=Default Group +FileGroup410=Default Group +FileGroup411=Default Group +FileGroup412=Default Group +FileGroup413=Default Group +FileGroup414=Default Group +FileGroup415=Default Group +FileGroup416=Default Group +FileGroup417=Default Group +FileGroup418=Default Group +FileGroup419=Default Group FileGroup42=Default Group +FileGroup420=Default Group +FileGroup421=Default Group +FileGroup422=Default Group +FileGroup423=Default Group +FileGroup424=Default Group +FileGroup425=Default Group +FileGroup426=Default Group +FileGroup427=Default Group +FileGroup428=Default Group +FileGroup429=Default Group FileGroup43=Default Group +FileGroup430=Default Group +FileGroup431=Default Group +FileGroup432=Default Group +FileGroup433=Default Group +FileGroup434=Default Group +FileGroup435=Default Group +FileGroup436=Default Group +FileGroup437=Default Group +FileGroup438=Default Group +FileGroup439=Default Group FileGroup44=Default Group +FileGroup440=Default Group +FileGroup441=Default Group +FileGroup442=Default Group +FileGroup443=Default Group +FileGroup444=Default Group +FileGroup445=Default Group +FileGroup446=Default Group +FileGroup447=Default Group +FileGroup448=Default Group +FileGroup449=Default Group FileGroup45=Default Group +FileGroup450=Default Group +FileGroup451=Default Group +FileGroup452=Default Group +FileGroup453=Default Group +FileGroup454=Default Group +FileGroup455=Default Group +FileGroup456=Default Group +FileGroup457=Default Group +FileGroup458=Default Group +FileGroup459=Default Group FileGroup46=Default Group +FileGroup460=Default Group +FileGroup461=Default Group +FileGroup462=Default Group +FileGroup463=Default Group +FileGroup464=Default Group +FileGroup465=Default Group +FileGroup466=Default Group +FileGroup467=Default Group +FileGroup468=Default Group +FileGroup469=Default Group FileGroup47=Default Group +FileGroup470=Default Group +FileGroup471=Default Group +FileGroup472=Default Group +FileGroup473=Default Group +FileGroup474=Default Group +FileGroup475=Default Group +FileGroup476=Default Group +FileGroup477=Default Group +FileGroup478=Default Group +FileGroup479=Default Group FileGroup48=Default Group +FileGroup480=Default Group +FileGroup481=Default Group +FileGroup482=Default Group +FileGroup483=Default Group +FileGroup484=Default Group +FileGroup485=Default Group +FileGroup486=Default Group +FileGroup487=Default Group +FileGroup488=Default Group +FileGroup489=Default Group FileGroup49=Default Group +FileGroup490=Default Group +FileGroup491=Default Group +FileGroup492=Default Group +FileGroup493=Default Group +FileGroup494=Default Group +FileGroup495=Default Group +FileGroup496=Default Group +FileGroup497=Default Group +FileGroup498=Default Group +FileGroup499=Default Group FileGroup5=Default Group FileGroup50=Default Group +FileGroup500=Default Group +FileGroup501=Default Group +FileGroup502=Default Group +FileGroup503=Default Group +FileGroup504=Default Group +FileGroup505=Default Group +FileGroup506=Default Group +FileGroup507=Default Group +FileGroup508=Default Group +FileGroup509=Default Group FileGroup51=Default Group +FileGroup510=Default Group +FileGroup511=Default Group +FileGroup512=Default Group +FileGroup513=Default Group +FileGroup514=Default Group +FileGroup515=Default Group +FileGroup516=Default Group +FileGroup517=Default Group +FileGroup518=Default Group +FileGroup519=Default Group FileGroup52=Default Group +FileGroup520=Default Group +FileGroup521=Default Group +FileGroup522=Default Group +FileGroup523=Default Group FileGroup53=Default Group FileGroup54=Default Group FileGroup55=Default Group @@ -124,39 +1007,71 @@ FileGroup61=Default Group FileGroup62=Default Group FileGroup63=Default Group FileGroup64=Default Group +FileGroup65=Default Group +FileGroup66=Default Group +FileGroup67=Default Group +FileGroup68=Default Group +FileGroup69=Default Group FileGroup7=Default Group +FileGroup70=Default Group +FileGroup71=Default Group +FileGroup72=Default Group +FileGroup73=Default Group +FileGroup74=Default Group +FileGroup75=Default Group +FileGroup76=Default Group +FileGroup77=Default Group +FileGroup78=Default Group +FileGroup79=Default Group FileGroup8=Default Group +FileGroup80=Default Group +FileGroup81=Default Group +FileGroup82=Default Group +FileGroup83=Default Group +FileGroup84=Default Group +FileGroup85=Default Group +FileGroup86=Default Group +FileGroup87=Default Group +FileGroup88=Default Group +FileGroup89=Default Group FileGroup9=Default Group +FileGroup90=Default Group +FileGroup91=Default Group +FileGroup92=Default Group +FileGroup93=Default Group +FileGroup94=Default Group +FileGroup95=Default Group +FileGroup96=Default Group +FileGroup97=Default Group +FileGroup98=Default Group +FileGroup99=Default Group 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=firebasenotifications +Library13=fusedlocationprovider +Library14=googlemaps +Library15=googlemapsextras +Library16=gps +Library17=ime +Library18=javaobject +Library19=json Library2=b4xpages -Library20=javaobject -Library21=json -Library22=okhttputils2 -Library23=phone -Library24=preoptimizedclv -Library25=randomaccessfile -Library26=replyauto -Library27=rspopupmenu -Library28=runtimepermissions -Library29=serial +Library20=okhttputils2 +Library21=phone +Library22=preoptimizedclv +Library23=randomaccessfile +Library24=replyauto +Library25=rspopupmenu +Library26=runtimepermissions +Library27=serial +Library28=sql +Library29=stringutils Library3=baqrcode -Library30=sql -Library31=stringutils -Library32=togglelibrary -Library33=xcustomlistview -Library34=xui -Library35=pdfjetb4a +Library30=togglelibrary +Library31=xcustomlistview +Library32=xui Library4=batteryprogressview Library5=bitmapcreator Library6=byteconverter @@ -195,15 +1110,15 @@ Module6=C_Cuestionario Module7=C_Historico Module8=C_Mapas Module9=C_Nota -NumberOfFiles=64 -NumberOfLibraries=35 +NumberOfFiles=523 +NumberOfLibraries=32 NumberOfModules=31 Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: ADM #VersionCode: 1 - #VersionName: 4.10.02 + #VersionName: 5.08.22 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/ADM.b4a.meta b/B4A/ADM.b4a.meta index 5b295c7..262e9c9 100644 --- a/B4A/ADM.b4a.meta +++ b/B4A/ADM.b4a.meta @@ -81,19 +81,19 @@ ModuleClosedNodes22= ModuleClosedNodes23= ModuleClosedNodes24= ModuleClosedNodes25= -ModuleClosedNodes26= +ModuleClosedNodes26=4 ModuleClosedNodes27= ModuleClosedNodes28= ModuleClosedNodes29= ModuleClosedNodes3= ModuleClosedNodes30= -ModuleClosedNodes31= -ModuleClosedNodes4= -ModuleClosedNodes5= +ModuleClosedNodes31=15,16,17,18,19 +ModuleClosedNodes4=4 +ModuleClosedNodes5=3,5,6,7 ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,Class_Globals,11,6,C_Cliente,B4XPage_Created,207,0,C_Cliente,imprime_venta,1848,0,C_Cliente,openPDF,1758,0,C_Cliente,Label20_LongClick,1519,0,Diseñador Visual,cliente.bal,-100,1,C_Cliente,PDFGENERAR,1723,6,C_Cliente,MODS,0,0,C_Cliente,b_cancel_tp_Click,3125,0,C_Cliente,b_acept_tp_Click,3184,3 +NavigationStack=MAPA_RUTAS,b_cancelaNoVenta_Click,513,0,MAPA_RUTAS,p_inicioFinVenta_Click,513,0,MAPA_RUTAS,b_guardaNoVenta_Click,506,0,Diseñador Visual,mapa_rutas.bal,-100,6,MAPA_RUTAS,B_ROJO_Click,387,0,MAPA_RUTAS,B_AZUL_Click,396,0,MAPA_RUTAS,b_inicioVenta_Click,411,6,MAPA_RUTAS,b_finVenta_Click,417,0,MAPA_RUTAS,p_transparenciaIniciaInicioFinVenta_Click,426,0,MAPA_RUTAS,Activity_KeyPress,446,0,B4XMainPage,B4XPage_Created,218,0 SelectedBuild=0 -VisibleModules=1,2,3,4,5,6,7,8,9,10,13,16 +VisibleModules=29,2,13,4,5,10,30,26,31 diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 547fe91..681fb1d 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -22,6 +22,17 @@ Version=9.85 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ + +' ################################################################### +' ################## Pendientes ################## +' ################################################################### +' +' Bitacora de ubicacioes (como FLP2) +' MotivoNoVisita (como kelloggs cuando tienen un accidente y ya no van a terimnar la ruta) +' validar que no se meta el peso en blanco (truena la aplicacion) +' si se queda la venta iniciada y se sale de la app, que al iniciar se vaya DIRECTAMENTE A CLIENTE con la venta ya iniciada. +' Cuando guarden el peso, que se vaya directamente a mostrar el boton de terminar venta. + Sub Class_Globals Dim c2 As Cursor Dim sDate,sTime As String @@ -108,7 +119,7 @@ Sub Class_Globals Private P_PICK_CIEGO As Panel Dim ET_PICK_CIEGO As EditText Private L_PICK_CIEGO As Label - Private P_CIEGO As Panel + Private p_ciego As Panel Dim Panel4 As Panel Dim q_buscar As String Private et_buspc As EditText @@ -209,6 +220,12 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)") + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BITACORAGPS(id TEXT, fechab TEXT, usuariob TEXT, almacenb TEXT, rutab TEXT, eventob TEXT, clienteb TEXT, iniciob TEXT, finb TEXT, latitudb TEXT, longitudb TEXT, precision TEXT, motivonoventa TEXT, motivonovisita TEXT, otro TEXT, enviado TEXT DEFAULT 0)") + skmt.ExecNonQuery("CREATE TABLE If Not EXISTS PESOS(PE_TIPO TEXT, PE_IDALMACEN TEXT, PE_RUTA TEXT, PE_USUARIO TEXT, PE_CLIENTE TEXT, PE_PESO TEXT, PE_MOTIVO TEXT, PE_COMENTARIO TEXT, PE_FECHA TEXT, PE_FECHA_SINC TEXT)") + skmt.ExecNonQuery("CREATE TABLE If Not EXISTS HIST_UBICACIONES (HU_ID EXT, HU_IDALMACEN TEXT, HU_RUTA TEXT, HU_USUARIO TEXT, HU_LATITUD TEXT, HU_LONGITUD TEXT, HU_FECHA TEXT, HU_ENVIADO TEXT DEFAULT 0)") + + skmt.ExecNonQuery("CREATE TABLE If Not EXISTS kmt_info (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_BCREDITO TEXT, CAT_CL_LIMITECREDITO TEXT)") + Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT") Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT") Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT") @@ -229,6 +246,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") End If C.Close + + p_ciego.Top = 0 : p_ciego.Left = 0 ' server = "http://keymon.com.mx:1782" 'server = "http://201.99.139.28:1783" ' reqManager.Initialize(Me, DBReqServer) @@ -300,12 +319,13 @@ Private Sub B4XPage_Created (Root1 As B4XView) Wait For MES_StorageAvailable End If End If - P_CIEGO.Height = Root.Height - P_CIEGO.Width = Root.Width + p_ciego.Height = Root.Height + p_ciego.Width = Root.Width p_validacion.Height = Root.Height p_validacion.Width = Root.Width p_add_monto.Height = Root.Height p_add_monto.Width = Root.Width + CallSubDelayed(Tracker, "StartFLP") End Sub Sub B4XPage_Appear @@ -381,7 +401,21 @@ Sub B4XPage_Appear If c12.RowCount > 0 Then End If - + If Subs.nosQuedamosEnVenta Then + Dim enVentaPagina As String = "" + Private ev As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'EN_VENTA_PAGINA'") + If ev.RowCount > 0 Then + ev.Position = 0 + If ev.GetString("CAT_VA_VALOR") = "MAPA" Then + Log("VAMOS A MAPAS") + B4XPages.ShowPage("Mapas") + StartActivity("MAPA_RUTAS") + else if ev.GetString("CAT_VA_VALOR") = "CLIENTES" Then + Log("VAMOS A CLIENTES") + B4XPages.ShowPage("Clientes") + End If + End If + End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -478,10 +512,10 @@ Sub Entrar_Click reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario End If End If - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "select_version_ADM" - reqManager.ExecuteQuery(cmd , 0, "version") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "select_version_ADM" +' reqManager.ExecuteQuery(cmd , 0, "version") Else usuario = user.Text B4XPages.ShowPage("Principal") @@ -764,7 +798,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub Else If p_validacion.IsInitialized And p_validacion.Visible Then p_validacion.Visible = False Return False - Else If P_CIEGO.IsInitialized And P_CIEGO.Visible Then + Else If p_ciego.IsInitialized And p_ciego.Visible Then MsgboxAsync("Debes de terminar el proceso para regresar a la pantalla principal","Atención") Return False Else If p_appUpdate.IsInitialized And p_appUpdate.Visible Then @@ -1132,7 +1166,7 @@ Private Sub b_terpc_Click Log("Processed item " & i) Next Log("Finished processing all items") - P_CIEGO.Visible = False + p_ciego.Visible = False et_buspc.Text = "" CLV_PICK_CIEGO.Clear c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 0ec2ab2..16f59e7 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -86,7 +86,7 @@ Sub Class_Globals Private META2 As String Private VERIFICA As String Private L_QR As Label - Private BT_QR As Button + dim BT_QR As Button 'Private qr As QRCode Dim CODIGO As String @@ -179,6 +179,16 @@ Sub Class_Globals Private b_acept_tp As Button Private chb_impreso As CheckBox Dim nombrepdf As String + Private p_pidePeso As Panel + Private et_pidePeso As EditText + Private b_pidePeso As Button + Private p_transparentePidePeso As Panel + Private b_inicioFinVenta As Button + Dim dentroDeGeocerca As Boolean = False + Dim motivoNoVenta, motivoNoVisita As String + Private motivo As String + Dim precision As Int = 0 + Private b_cancelaPeso As Button End Sub 'You can add more parameters here. @@ -199,7 +209,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) End If skmt.Initialize(ruta,"kmt.db", True) c = skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - s = skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + s = skmt.ExecQuery("select ifnull(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") b = skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b.Position = 0 Dim cabonos As String = b.GetString("CLIENTE") @@ -234,6 +244,14 @@ Private Sub B4XPage_Created (Root1 As B4XView) End If c.Close s.Close + + p_tipopago.Top = 0 : p_tipopago.Left = 0 + p_camara.Top = 0 : p_camara.Left = 0 + p_transparentePidePeso.Left = 0 : p_transparentePidePeso.Top = 0 + p_transparentePidePeso.Height = Root.Height : p_transparentePidePeso.Width = Root.Width + p_pidePeso.Top = 200dip 'p_transparentePidePeso.Height / 3 + Subs.centraPanel(p_pidePeso, p_transparentePidePeso.Width) + btAdmin.Initialize("BlueTeeth") cmp20.Initialize("Printer") Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) @@ -254,7 +272,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) ' End If ' h.Close ' j.Close - End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -268,7 +285,29 @@ Sub B4XPage_Appear p_tipopago.Height = Root.Height p_tipopago.Width = Root.Width banderaimp = 0 + b_inicioFinVenta.Top = Tar.top + b_inicioFinVenta.Width = Root.Width - 4 + b_inicioFinVenta.Left = 2 + b_inicioFinVenta.Text = "INICIAR VENTA" + b_inicioFinVenta.BringToFront + Guardar.SendToBack +' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red) + If Not(Starter.enVenta) And la_cuenta.Text <> "0" Then + b_inicioFinVenta.Visible = True +' Log("EnVenta Visible") + Else +' Log("EnVenta NO Visible") + b_inicioFinVenta.Visible = False + End If reqManager.Initialize(Me, Starter.DBReqServer) + If la_cuenta.Text = "0" Then + B4XPages.MainPage.tipo_venta = "ABORDO" + Else If la_cuenta.Text = "1" Then + B4XPages.MainPage.tipo_venta = "RECARGA" + Else + B4XPages.MainPage.tipo_venta = "PREVENTA" + End If + Starter.tabla = Subs.traeTablaProds(tipo_venta) LA_GPS.TextColor = Colors.Red LA_GPS.Text = "SIN UBICACION GPS" cercavalor = 0 @@ -276,14 +315,13 @@ Sub B4XPage_Appear ToastMessageShow("Es necesario tener el GPS encendido", True) StartActivity(Starter.gps.LocationSettingsIntent) End If -' Log("appear") cb_factura.Checked = False p_abono.Visible = False Subs.centraPanel(p_abono, Root.Width) Subs.centraPanel(p_credito, Root.Width) skmt.Initialize(ruta,"kmt.db", True) c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - s=B4XPages.MainPage.skmt.ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))") + s=B4XPages.MainPage.skmt.ExecQuery("Select ifnull(SUM(PE_COSTO_TOT),0) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))") b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b.Position = 0 Dim cabonos As String = b.GetString("CLIENTE") @@ -292,7 +330,6 @@ Sub B4XPage_Appear Else b_cxc.Visible = True End If - If la_cuenta.Text = "0" Or la_cuenta.Text = "1" Then p_cbFactura.Visible = False l_factura.Visible = False @@ -303,7 +340,9 @@ Sub B4XPage_Appear b_ventaabordo.Visible = False End If chb_impreso.Checked = False - s.Position=0 + m_lat = "0" + m_lon = "0" + s.Position = 0 If c.RowCount > 0 Then c.Position=0 la_cuenta.Text = c.GetString("CAT_CL_CODIGO") @@ -321,11 +360,9 @@ Sub B4XPage_Appear Private factura As String = 0 If s.GetString("PC_FACTURA") <> Null And IsNumber(s.GetString("PC_FACTURA")) Then factura = s.GetString("PC_FACTURA") If factura = "1" Then cb_factura.Checked = True - m_lat = "0" - If c.GetString("CAT_CL_LAT") <> "" Then m_lat =c.GetString("CAT_CL_LAT") + If c.GetString("CAT_CL_LAT") <> "" Then m_lat = c.GetString("CAT_CL_LAT") If m_lat.Length < 5 Then m_lat = "0" - m_lon = "0" - If c.GetString("CAT_CL_LONG") <> "" Then m_lon =c.GetString("CAT_CL_LONG") + If c.GetString("CAT_CL_LONG") <> "" Then m_lon = c.GetString("CAT_CL_LONG") If m_lon.Length < 5 Then m_lon = "0" LA_RUTA = c.GetString("CAT_CL_RUTA") ' ESTO ES PARA FORZAR A PEDIR LA FOTO Y EL GPS @@ -354,7 +391,6 @@ Sub B4XPage_Appear Else MONTO_COMPRA = "0" End If - la_saldotot.Text = MONTO_COMPRA If MONTO_COMPRA <> "0" Then META2 = 300 - MONTO_COMPRA @@ -371,35 +407,6 @@ Sub B4XPage_Appear ALMACEN = C.GetString("ID_ALMACEN") End If c.Close -' If ALMACEN = "1" Then -' Tels.Visible = False -' gest.Visible = False -'' B_GPS.Visible = False -' End If - If ALMACEN = "4" Then -' b_like.Visible = True - DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String("KNORR RINDE MAS 70 GR")) - DD.Position =0 - If DD.GetString("CUANTOS") = 0 Then - c=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PRONOMBRE =?", Array As String("KNORR RINDE MAS 70 GR")) - c.Position =0 -' If c.GetString("CUANTOS") = 0 Then -' b_like.Visible = True -' Else -' b_like.Visible = False -' End If - c.Close - Else -' b_like.Visible = False - End If - DD.Close - Else -' b_like.Visible = False - End If -' If ALMACEN = "16" Or ALMACEN = "13" Then -' Tels.Visible = True -' gest.Visible = True -' End If CallSubDelayed(Tracker, "Track") CallSubDelayed(Tracker, "StartFLPSmall") If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos. @@ -408,31 +415,6 @@ Sub B4XPage_Appear ' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$) GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation) End If -' Tels.Visible = True -' gest.Visible = True - -' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA") -' h.Position = 0 -' Log(h.GetString("CUENTA")) -' j = B4XPages.MainPage.skmt.ExecQuery2("SELECT a_abono AS CUANTOS FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA"))) -' j.position = 0 -' Log(j.RowCount) -' If j.RowCount = 0 Then -' b_cxc.Enabled = True -' Else If j.RowCount > 0 Then -' b_cxc.Enabled = False -' End If -' h.Close -' j.Close - -' -' Tels.Visible = False -' gest.Visible = False -' b_ventaabordo.Visible = False - - - - c = skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP")) If c.RowCount > 0 Then c.Position = 0 @@ -441,7 +423,6 @@ Sub B4XPage_Appear If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0" ' Log("|" & Starter.MAC_IMPRESORA & "|") Printer1.Initialize(Me, "Printer1") - If Printer1.IsConnected = False Then ' Printer1.Connect ' Log("1") @@ -450,13 +431,7 @@ Sub B4XPage_Appear Printer1.Connect Log("2") End If - - - pre_act = Subs.traeTotalClientepreventaparacredito - - 'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) - Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE FROM KMT_INFO2 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") If credi2.RowCount > 0 Then credi2.Position = 0 @@ -496,15 +471,16 @@ Sub B4XPage_Appear gest.Text = "Recarga" B4XPages.MainPage.recarga = "1" Else - gest.Text = "Pre-venta" + gest.Text = "Venta" B4XPages.MainPage.recarga = "0" End If LogColor(B4XPages.MainPage.recarga,Colors.Blue) - + p_transparentePidePeso.Visible = False If camEx.IsInitialized Then camEx.Release End If InitializeCamera + if venimosDeTicketsDia then Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Cliente desde TicketsDia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", $"Cliente:${la_cuenta.text}"$) End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -514,12 +490,12 @@ Sub GPS_LocationChanged (Location1 As Location) B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude ' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps) End If - -' ToastMessageShow(B4XPages.MainPage.lat_gps,False) - Dim l1, l2 As Location l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) -' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$) + + If Not(IsNumber(m_lat)) Then m_lat = 0 + If Not(IsNumber(m_lon)) Then m_lon = 0 + Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$) l2.Initialize2(m_lat, m_lon) BT_QR.Enabled = True @@ -527,13 +503,13 @@ Sub GPS_LocationChanged (Location1 As Location) LA_GPS.Text = "CON UBICACION GPS" ' B_GPS.Enabled = True 'now we need the distance between our location and the target location - distance = l1.DistanceTo(l2) 'the result is in meter + distance = l1.DistanceTo(l2) 'the result is in meter ' gest.Visible = True If distance < 100000000000000000000000000000000 Then LA_GEO.TextColor = Colors.Blue - Tels.Visible = True +' Tels.Visible = True gest.Visible = True - b_ventaabordo.Visible = True +' b_ventaabordo.Visible = True Else Tels.Visible = False gest.Visible = False @@ -551,7 +527,6 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click - c = Starter.skmt.ExecQuery("SELECT * FROM FOTOINICIAL") If c.RowCount = 0 Then p_camara.Visible = True @@ -559,14 +534,8 @@ Sub gest_Click Subs.panelVisible(p_camara, 0, 0) b_foto_inci.Text = "Foto tienda" Else - - If la_cuenta.Text = "0" Then - B4XPages.MainPage.tipo_venta = "ABORDO" - Else If la_cuenta.Text = "1" Then - B4XPages.MainPage.tipo_venta = "RECARGA" - Else - B4XPages.MainPage.tipo_venta = "PREVENTA" - End If + Log(1) + p_transparentePidePeso.Visible = True 'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado. ' Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$) @@ -597,7 +566,7 @@ Sub gest_Click ' End If 'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva. ' If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual - B4XPages.ShowPage("productos") +' B4XPages.ShowPage("productos") End If End Sub @@ -608,8 +577,15 @@ End Sub Private Sub B4XPage_CloseRequest As ResumableSub ' BACK key pressed ' Return True To close, False To cancel -' Log($"venimosDeTicketsDia=${venimosDeTicketsDia}"$) - If Starter.pre_viejo = pre_act Then + If l_total.Text = 0 And Starter.enVenta = False Then + Log(4) + Return True + + else If p_transparentePidePeso.Visible Then + Log(3) + p_transparentePidePeso.Visible = False + else If Starter.pre_viejo = pre_act And l_total.Text > 0 And Starter.enVenta = False Then + Log(2) If (la_cuenta.Text <> "0" And la_cuenta.Text <> "1") Then If banderaimp = 1 Then Else @@ -622,7 +598,6 @@ Private Sub B4XPage_CloseRequest As ResumableSub Log("Borrra venta") Subs.borraPedidoClienteActual ToastMessageShow("Venta Borrada", False) -' venimosDeTicketsDia = False B4XPages.ShowPage("Principal") else if resultado1=DialogResponse.CANCEL Then Log("Pedido guardado") @@ -630,20 +605,16 @@ Private Sub B4XPage_CloseRequest As ResumableSub ToastMessageShow("Venta Guardada", False) End If End If -' venimosDeTicketsDia = False - B4XPages.ShowPage("Clientes") + B4XPages.ShowPage("Clientes") End If -' Else If la_cuenta.Text = "1" Then -' If B4XPages.MainPage.recarga = "1" Then -' B4XPages.ShowPage("login") -' End If Else End If - Else - If B4XPages.MainPage.recarga = "1" Then - B4XPages.ShowPage("login") - End If - + Else If B4XPages.MainPage.recarga = "1" Then + Log(1) + B4XPages.ShowPage("login") + Else + Log(5) + Msgbox("Presione Guardar y Terminar Venta para continuar","Aviso") 'ignore End If ' Return True Return False @@ -662,7 +633,6 @@ Sub DATOS_Click End Sub Sub Guardar_Click - c = B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) and PE_FOLIO = ?", Array As String("PREVENTA")) c.Position = 0 If c.GetString("CUANTOS") > 0 Then @@ -672,12 +642,7 @@ Sub Guardar_Click If Credi.RowCount > 0 Then Credi.Position = 0 If Credi.GetString("CAT_CL_BCREDITO") = "1" Then - - - If pre_act <> Starter.pre_viejo Then - - Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False) Wait For Msgbox_Result (resultado As Int) If resultado = DialogResponse.POSITIVE Then @@ -695,12 +660,9 @@ Sub Guardar_Click Else GuardaVenta End If - Else If pre_act = Starter.pre_viejo Then GuardaVenta End If - - Else If Credi.GetString("CAT_CL_BCREDITO") = "0" Then GuardaVenta End If @@ -710,7 +672,6 @@ Sub Guardar_Click credi2.Position = 0 If credi2.GetString ("CAT_CL_BCREDITO") = "1" And credi2.GetString ("a_abono")=credi2.GetString ("SALDO_PENDIENTE") Then If pre_act <> Starter.pre_viejo Then - Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False) Wait For Msgbox_Result (resultado As Int) If resultado = DialogResponse.POSITIVE Then @@ -728,7 +689,6 @@ Sub Guardar_Click Else GuardaVenta End If - Else If pre_act = Starter.pre_viejo Then GuardaVenta End If @@ -808,6 +768,10 @@ Private Sub b_cancred_Click End Sub Sub GuardaVenta + Log("GuardaVenta") + + pre_act = Starter.pre_viejo ' ################ NOS BRINCAMOS EL "PRE" + If pre_act <> Starter.pre_viejo Then p_tipopago.Visible = True rb_efectivo.Checked = False @@ -825,13 +789,15 @@ Sub GuardaVenta ' HIST.Enabled = False ' banderaimp = 1 Else If pre_act = Starter.pre_viejo Then - GUADAVENTA2 + GuardaVenta2 End If End Sub -Sub GUADAVENTA2 +Sub GuardaVenta2 + Log("GuardaVenta2") Log(B4XPages.MainPage.recarga) If B4XPages.MainPage.recarga = "0" Then + Log("Recarga 0") DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) @@ -861,7 +827,7 @@ Sub GUADAVENTA2 B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") Try - c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ + c=B4XPages.MainPage.skmt.ExecQuery("Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _ @@ -877,12 +843,10 @@ Sub GUADAVENTA2 Catch ToastMessageShow(".",True) End Try - skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) Subs.actualizaTET(la_cuenta.text) DateTime.TimeFormat = "HH:mm:ss" - mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! mandapiezas B4XPages.MainPage.productos.reiniciarlistaProds = True @@ -896,8 +860,22 @@ Sub GUADAVENTA2 b_ventaabordo.Enabled = True HIST.Enabled = True banderaimp = 0 - B4XPages.ShowPage("Principal") + b_inicioFinVenta.Text = "TERMINAR VENTA" + If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal. + b_inicioFinVenta.Visible = True + b_inicioFinVenta.BringToFront + Guardar.SendToBack + Else + b_inicioFinVenta.Visible = False + Starter.enVenta = False + Subs.enVenta(0, "") + + LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red) + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "", "") + B4XPages.ShowPageAndRemovePreviousPages("Principal") + End If Else If B4XPages.MainPage.recarga = "1" Then + Log("Recarga 1") DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) @@ -924,30 +902,10 @@ Sub GUADAVENTA2 DateTime.TimeFormat = "HHmmss" sTime=DateTime.Time(DateTime.Now) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) - ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") -' Try -' c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ -' "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ -' " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ -' "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _ -' " Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _ -' " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ") -' c.Position = 0 -' stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 -' stay_mi = c.GetString("MINUTOS_TOTALES") * 60 -' stay_ss = c.GetString("SEGUNDOS_TOTALES") -' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss)) -' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) -' c.Close -' Catch -' ToastMessageShow(".",True) -' End Try - skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) Subs.actualizaTET(la_cuenta.text) DateTime.TimeFormat = "HH:mm:ss" - ' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! ' mandapiezas mandaPendientesrecarga @@ -1335,14 +1293,14 @@ Sub imprime_preventa If resultado = DialogResponse.POSITIVE Then B_IMP_Click Else - GUADAVENTA2 + GuardaVenta2 End If ' printer.Flush ' printer.Close End Sub -Private Sub Label20_LongClick +Private Sub l_ticketCorreo_LongClick xui.SetDataFolder("B4Xpdf") File.Copy(File.DirAssets,"intmex_logo_192x192.jpg",xui.DefaultFolder,"intmex_logo_192x192.jpg") File.Copy(File.DirAssets,"mariana1.jpg",xui.DefaultFolder,"mariana1.jpg") @@ -1526,9 +1484,7 @@ Private Sub Label20_LongClick openPDF(sDate&sTime&".pdf") End Sub -Private Sub PDFGENERAR - - +Private Sub PDFGenerar ESPACIO = 0 DateTime.DateFormat = "MM/dd/yyyy" DateTime.TimeFormat = "HH:mm:ss" @@ -1537,32 +1493,24 @@ Private Sub PDFGENERAR Dim PDF As cPDF 'initialize with mm unit PDF.Initialize("mm") - 'set properties PDF.sProperty(PDF.PropertyAuthor,"Keymonsoft"). _ sProperty(PDF.PropertyTitle,"Ticket"). _ sProperty(PDF.PropertyKeywords,"B4X,PDF,Cross platform") - 'add a page - Dim s56 As Cursor=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) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA")) Dim s57 As Cursor = 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")) - Dim pagina As Double = ((18 + (s56.RowCount*2) + (s57.RowCount*2)) * (6)) + 18 ' Dim pagina As Double = ((18 + s56.RowCount + s57.RowCount +2) * (6)) + 18 Dim multiplicador As Int = 0 PDF.pageAdd(-300,pagina) ' pdf.pageAdd(-350,-1900) - PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack) - PDF.outImage(xui.DefaultFolder,"mariana1.jpg",1,pagina-55,70,0) multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,"ADM Distribuciones") - multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,sDate& " " & sTime) - multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,"Vendedor:" & Subs.traeUsuarioDeBD) @@ -1583,18 +1531,14 @@ Private Sub PDFGENERAR multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6," ") - c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA")) If c.RowCount > 0 Then - multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,"------------------------------------PREVENTA-----------------------------------------") multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,"Cant. Precio Importe") multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------") - - 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) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA")) If S.RowCount>0 Then For i=0 To S.RowCount -1 @@ -1602,7 +1546,6 @@ Private Sub PDFGENERAR If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE") ) - Else PDF.sFont(PDF.fontHelvetica,0,7,PDF.colorBlack) multiplicador = multiplicador +1 @@ -1610,7 +1553,6 @@ Private Sub PDFGENERAR LogColor(s.GetLong("L_CANT"),Colors.Magenta) LogColor(s.GetLong("L_COSTOU"),Colors.Magenta) LogColor(s.GetLong("L_COSTO_TOT"),Colors.Magenta) - TAMANO = s.GetLong("L_CANT") + s.GetLong("L_COSTOU") + s.GetLong("L_COSTO_TOT") ESPACIO = 92 BLANCO = " " @@ -1622,16 +1564,11 @@ Private Sub PDFGENERAR PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack) multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6, s.GETSTRING("PE_CANT") & BLANCO & s.GETSTRING("PE_COSTOU") & BLANCO & s.GETSTRING("PE_COSTO_TOT")) - -' pdf.outtext(1,108-9*6,s.GETSTRING("PE_COSTOU")) -' +' pdf.outtext(1,108-9*6,s.GETSTRING("PE_COSTOU") ' pdf.outtext(1,108-9*6,s.GETSTRING("PE_COSTO_TOT") ) - - End If Next End If - s.Close PDF.outtext(1,108-9*6," " ) 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")) @@ -1647,16 +1584,13 @@ Private Sub PDFGENERAR If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE") ) - Else - PDF.sFont(PDF.fontHelvetica,0,7,PDF.colorBlack) multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE")) LogColor(s.GetLong("L_CANT"),Colors.Magenta) LogColor(s.GetLong("L_COSTOU"),Colors.Magenta) LogColor(s.GetLong("L_COSTO_TOT"),Colors.Magenta) - TAMANO = s.GetLong("L_CANT") + s.GetLong("L_COSTOU") + s.GetLong("L_COSTO_TOT") ESPACIO = 92 BLANCO = " " @@ -1668,12 +1602,10 @@ Private Sub PDFGENERAR PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack) multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6, s.GETSTRING("PE_CANT") & BLANCO & s.GETSTRING("PE_COSTOU") & BLANCO & s.GETSTRING("PE_COSTO_TOT")) - End If Next End If s.Close - ' multiplicador = multiplicador +1 ' pdf.outtext(1,pagina-multiplicador*6," " ) multiplicador = multiplicador +1 @@ -1709,8 +1641,7 @@ Private Sub PDFGENERAR PDF.outtext(1,pagina-multiplicador*6," " ) multiplicador = multiplicador +1 PDF.outtext(1,pagina-multiplicador*6," " ) - - + ' 'all combinations of font normal, bold,italic,underline and strikethrough ' For i=0 To 15 ' 'select a font @@ -1730,7 +1661,7 @@ Private Sub PDFGENERAR openPDF(sDate&sTime&".pdf") End If nombrepdf =sDate&sTime&".pdf" - GUADAVENTA2 + GuardaVenta2 End Sub private Sub savePDF(apdf As cPDF,afile As String,acompress As Int) @@ -1745,7 +1676,6 @@ private Sub savePDF(apdf As cPDF,afile As String,acompress As Int) ' '...... ' #End If ' apdf.saveToFile(folder,afile,acompress) - Dim folder As String #if B4J folder = xui.DefaultFolder @@ -1756,10 +1686,8 @@ private Sub savePDF(apdf As cPDF,afile As String,acompress As Int) #if B4I folder = File.DirDocuments #End If - ' Guardar el PDF apdf.saveToFile(folder, afile, acompress) - ' Mostrar mensaje de éxito Log($"PDF guardado en: ${File.Combine(folder, afile)}"$) End Sub @@ -1781,7 +1709,6 @@ private Sub openPDF(afile As String) #End If End Sub - Sub imprime_venta c=skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 @@ -2034,7 +1961,7 @@ Sub imprime_venta If resultado = DialogResponse.POSITIVE Then B_IMP_Click Else - GUADAVENTA2 + GuardaVenta2 End If End If @@ -2858,9 +2785,7 @@ End Sub Sub Camera1_PictureTaken (Data() As Byte) - If b_foto_inci.Text = "Foto tienda" Then - DateTime.DateFormat="ddMMyyyyHHmmss" fototomada = DateTime.Now & "_cliente.jpg" Dim filename As String = fototomada @@ -2868,7 +2793,6 @@ Sub Camera1_PictureTaken (Data() As Byte) camEx.SavePictureToFile(Data, dir, filename) camEx.StartPreview 'restart preview ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True) - Dim Dirp As String = File.DirInternal Dim dir As String Dim Dir2 As String @@ -2880,7 +2804,6 @@ Sub Camera1_PictureTaken (Data() As Byte) dir = "" Log("creado en raiz") End Try - Try File.MakeDir(Dirp & dir,"/reduccion") Dir2 = "/reduccion" @@ -2889,12 +2812,10 @@ Sub Camera1_PictureTaken (Data() As Byte) dir = "" Log("creado en raiz") End Try - DateTime.DateFormat = "MM/dd/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate = DateTime.Date(DateTime.Now) sTime = DateTime.Time(DateTime.Now) - camEx.SavePictureToFile(Data, Dirp&dir, filename) camEx.StartPreview 'restart preview ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename, True) @@ -2916,7 +2837,6 @@ Sub Camera1_PictureTaken (Data() As Byte) camEx.SavePictureToFile(Data, dir, filename) camEx.StartPreview 'restart preview ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True) - Dim Dirp As String = File.DirInternal Dim dir As String Dim Dir2 As String @@ -2928,7 +2848,6 @@ Sub Camera1_PictureTaken (Data() As Byte) dir = "" Log("creado en raiz") End Try - Try File.MakeDir(Dirp & dir,"/reduccion") Dir2 = "/reduccion" @@ -2937,23 +2856,18 @@ Sub Camera1_PictureTaken (Data() As Byte) dir = "" Log("creado en raiz") End Try - DateTime.DateFormat = "MM/dd/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate = DateTime.Date(DateTime.Now) sTime = DateTime.Time(DateTime.Now) - camEx.SavePictureToFile(Data, Dirp&dir, filename) camEx.StartPreview 'restart preview ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename, True) Log("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename) - Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & dir, filename, 450, 600, True) Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") out.Close - - B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE FOTOINICIAL set FOTO2 = ? where USUARIO = ? and RUTAA = ? and ALMACEN = ? ", Array As Object (File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD,LA_RUTA, ALMACEN )) b_foto_inci.Text = "Foto tienda" ChangeCamera_Click @@ -2966,9 +2880,9 @@ Sub Camera1_PictureTaken (Data() As Byte) Else B4XPages.MainPage.tipo_venta = "PREVENTA" End If - B4XPages.ShowPage("productos") +' B4XPages.ShowPage("productos") + p_transparentePidePeso.Visible = True End If - End Sub @@ -3137,10 +3051,8 @@ End Sub ' End If 'End Sub - Private Sub b_acept_tp_Click If rb_efectivo.Checked Or rb_tranfe.Checked Or rb_tarjetacredito.Checked Or rb_tarjetadebito.Checked Then - Dim metopago As String If rb_efectivo.Checked Then metopago = "EFECTIVO" @@ -3151,7 +3063,6 @@ Private Sub b_acept_tp_Click Else If rb_tarjetacredito.Checked Then metopago = "TARJETA DE CREDITO" End If - Guardar.Enabled = True gest.Enabled = True b_cxc.Enabled = True @@ -3160,18 +3071,14 @@ Private Sub b_acept_tp_Click b_ventaabordo.Enabled = True HIST.Enabled = True banderaimp = 1 - If chb_impreso.Checked Then ' Guardar en BD que se enviará por correo B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _ Array As String(metopago, et_com_tp.Text, "CORREO")) - ' Generar el PDF primero - PDFGENERAR - + PDFGenerar ' Esperar un momento para que se genere el PDF Sleep(500) - ' Obtener el nombre del archivo PDF recién generado Dim pdfFileName As String =nombrepdf ' /data/user/0/adm.keymon.com.mx/files/shared/22142025121454.pdf @@ -3179,7 +3086,6 @@ Private Sub b_acept_tp_Click Log(xui.DefaultFolder) Log(nombrepdf) If File.Exists(Starter.fFileProvider.SharedFolder, pdfFileName) Then - Dim email As Email ' email.To.Add("soporte@keymonsoft.com") email.Subject = "Adjunto encontrará el ticket de venta" @@ -3188,7 +3094,6 @@ Private Sub b_acept_tp_Click Dim in As Intent = email.GetIntent in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION StartActivity(in) - Else ToastMessageShow("No se encontró el archivo PDF para enviar", True) End If @@ -3196,9 +3101,8 @@ Private Sub b_acept_tp_Click ' Caso normal (impresión) B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _ Array As String(metopago, et_com_tp.Text, "IMPRESO")) - PDFGENERAR + PDFGenerar End If - ' Limpiar controles rb_efectivo.Checked = False rb_tranfe.Checked = False @@ -3209,4 +3113,44 @@ Private Sub b_acept_tp_Click Else MsgboxAsync("Selecciona un metodo de pago.", "Atención") End If -End Sub \ No newline at end of file +End Sub + +Private Sub b_pidePeso_Click + p_transparentePidePeso.Visible = False + Starter.skmt.ExecNonQuery($"delete from pedido where PE_CLIENTE = '${Subs.traeCliente}'"$) + Subs.guardaProductoSinGestion(ALMACEN, 1, et_pidePeso.text, "Peso", "123", Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta, 0, 0) + l_total.Text = et_pidePeso.text +End Sub + +Private Sub b_cancelaPeso_Click + p_transparentePidePeso.Visible = False +End Sub + +Sub p_pidePeso_Click + +End Sub + +Private Sub p_transparentePidePeso_Click + +End Sub + +Private Sub b_inicioFinVenta_Click + If dentroDeGeocerca Then precision = 1 + motivoNoVenta = "" + motivoNoVisita = "" + If Starter.enVenta Then + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, motivoNoVisita, $"Venta:${l_total.text}"$) + Starter.enVenta = False + Subs.enVenta(0, "") + + LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) + B4XPages.ShowPageAndRemovePreviousPages("Principal") + Else + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "", "") + Starter.enVenta = True + Subs.enVenta(1, "CLIENTES") + + LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) + End If + b_inicioFinVenta.Visible = False +End Sub diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index 22e803d..2f48920 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -39,6 +39,25 @@ Sub Class_Globals Private l_baseodia As Label Private CREDITO As Label + Private p_transparenciaIniciaInicioFinVenta As Panel + Private p_inicioFinVenta As Panel + Private b_inicioVenta As Button + Private b_finVenta As Button + Private p_guardarPeso As Panel + Private et_guardarPeso As EditText + Private p_botonesGuardarPeso As Panel + Private b_noVenta As Button + Private b_guardarPeso As Button + Private p_noVenta As Panel + Private b_cancelaNoVenta As Button + Private b_guardaNoVenta As Button + Private p_botonesNoVenta As Panel + Private et_comentarioNoVenta As EditText + Private r_opcion4 As RadioButton + Private r_opcion3 As RadioButton + Private r_opcion2 As RadioButton + Private r_opcion1 As RadioButton + Dim motivo As String End Sub 'You can add more parameters here. @@ -59,6 +78,12 @@ Private Sub B4XPage_Created (Root1 As B4XView) ' Else ruta = File.DirInternal ' End If + + p_transparenciaIniciaInicioFinVenta.top = 0 : p_transparenciaIniciaInicioFinVenta.Left = 0 + p_transparenciaIniciaInicioFinVenta.Height = Root.Height : p_transparenciaIniciaInicioFinVenta.Width = Root.Width + Subs.centraPanel(p_inicioFinVenta, Root.Width) + p_guardarPeso.Top = p_inicioFinVenta.top : p_guardarPeso.left = p_inicioFinVenta.left + Subs.centraPanel(p_noVenta, Root.Width) ' se crea o no el archivo de la base de ddatos de kmt 'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE @@ -76,7 +101,7 @@ Sub B4XPage_Appear busca.Text = "" entro ="2" colonia = 0 - c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAST(CAT_CL_NUM_SERIEFISICO AS INTEGER) ASC"$) + c = B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAST(CAT_CL_NUM_SERIEFISICO AS INTEGER) ASC"$) ListView1.Clear lfila.Text = "NOMBRE" @@ -90,8 +115,7 @@ Sub B4XPage_Appear Else cxc.Visible = True End If - - + d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) ' LogColor(d.RowCount,Colors.Blue) If d.RowCount > 0 Then @@ -122,19 +146,36 @@ Sub B4XPage_Appear End If c.Close entro = "4" - + If Subs.nosQuedamosEnVenta Then + Dim enVentaUsuario As String = "" + Dim enVentaPagina As String = "" + Private ev As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'EN_VENTA_USUARIO' or cat_va_descripcion = 'EN_VENTA_PAGINA'") + If ev.RowCount > 0 Then + For i = 0 To ev.RowCount - 1 + ev.Position = i + If ev.GetString("CAT_VA_DESCRIPCION") = "EN_VENTA_USUARIO" Then + enVentaUsuario = ev.GetString("CAT_VA_VALOR") + Else If ev.GetString("CAT_VA_DESCRIPCION") = "EN_VENTA_PAGINA" Then + enVentaPagina = ev.GetString("CAT_VA_VALOR") + End If + Next + ventaIniciada + End If + End If End Sub -Sub CreateListItem(mostrar As String, mostrar1 As String, mostrar2 As String) As Panel +Sub CreateListItem(nombre As String, direccion0 As String, cliente As String) As Panel Dim p As B4XView = xui.CreatePanel("") p.SetLayoutAnimated(0, 0, 0, 1, 220) - p.LoadLayout("datoscliente") - p.Height= 60dip +' p.LoadLayout("datoscliente") + p.LoadLayout("datosclienteBotones") + p.Height= 100dip + b_inicioVenta.Tag = cliente ' p.Width = clv_orden.GetBase.Width - nombrecliente.Text = mostrar - direccion.Text = mostrar1 - numerocliente.Text = mostrar2 - p_datosclie.Tag = mostrar2 + nombrecliente.Text = nombre + direccion.Text = direccion0 + numerocliente.Text = cliente + p_datosclie.Tag = cliente ' cxc.Text = mostrar3 ' Log(p.Width) Return p @@ -196,6 +237,10 @@ Private Sub B4XPage_CloseRequest As ResumableSub ' StartActivity(seleccion) ' Return False ' End If + If p_transparenciaIniciaInicioFinVenta.Visible Then + ToastMessageShow($"Es necesario ingresar "Peso" o "No Venta" para poder continuar"$, True) + Return False + End If Return True End Sub @@ -271,7 +316,7 @@ Sub BUSCA_TextChanged (Old As String, New As String) ' LogColor(d.RowCount,Colors.Blue) If d.RowCount > 0 Then d.Position = 0 - LogColor(d.GetString("CAT_CL_BCREDITO"),Colors.Blue) +' LogColor(d.GetString("CAT_CL_BCREDITO"),Colors.Blue) If d.GetString("CAT_CL_BCREDITO") = "1" Then CREDITO.Visible = True Else @@ -405,14 +450,14 @@ Private Sub p_datosclie_Click End Sub Private Sub b_buscar_Click - Log(CHECK) +' Log(CHECK) If CHECK = 0 Then l_baseodia.Text = "Clientes de base de datos" CHECK = 1 busca.Text = "" entro ="2" colonia = 0 - c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAT_CL_CODIGO"$) + c = B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAT_CL_CODIGO"$) ListView1.Clear lfila.Text = "NOMBRE" ListView1.Clear @@ -511,6 +556,113 @@ Private Sub b_buscar_Click End If c.Close entro = "4" - End If End Sub + +Private Sub b_inicioVenta_Click +' b_inicioVenta.Enabled = False + Private cliente As String = Sender.As(Button).tag + Starter.skmt.ExecNonQuery($"delete from cuentaa"$) + Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${cliente}')"$) + Log($"insert into cuentaa (cuenta) values ('${cliente}')"$) + p_transparenciaIniciaInicioFinVenta.Visible = True + b_finVenta.Enabled = True + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "") + Starter.enVenta = True + Subs.enVenta(1, "CLIENTES") + + LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red) + Log(Subs.traeRuta2(Subs.traeCliente)) +End Sub + +Private Sub ventaIniciada +' b_inicioVenta.Enabled = False +' Private cliente As String = Sender.As(Button).tag +' Starter.skmt.ExecNonQuery($"delete from cuentaa"$) +' Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${cliente}')"$) +' Log($"insert into cuentaa (cuenta) values ('${cliente}')"$) + p_transparenciaIniciaInicioFinVenta.Visible = True + b_finVenta.Enabled = True + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "") + Starter.enVenta = True + Subs.enVenta(1, "CLIENTES") + LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) + Log(Subs.traeRuta2(Subs.traeCliente)) +End Sub + +Private Sub b_finVenta_Click + et_guardarPeso.Text = "" + p_guardarPeso.Visible = True +' b_inicioVenta.Enabled = True +' b_finVenta.Enabled = False +End Sub + +Private Sub p_transparenciaIniciaInicioFinVenta_Click + Log("Fondo clicked") + If b_finVenta.Enabled = False Then + p_transparenciaIniciaInicioFinVenta.Visible = False + Else + ToastMessageShow($"Es necesario ingresar "Peso" o "No Venta" para poder continuar"$, True) + End If +End Sub + +Private Sub b_guardarPeso_Click + If et_guardarPeso.Text <> "" And et_guardarPeso.Text <> "0" And IsNumber(et_guardarPeso.Text) Then + Private peso As Double = et_guardarPeso.Text + et_guardarPeso.Text = peso + + Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "") + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$) + Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.enVenta = False + Subs.enVenta(0, "") + p_guardarPeso.Visible = False + p_transparenciaIniciaInicioFinVenta.Visible = False +' b_inicioVenta.Enabled = True + b_finVenta.Enabled = False + B4XPages.MainPage.clientes.B4XPage_Appear + End If +End Sub + +Private Sub p_guardarPeso_Click + +End Sub + +Private Sub et_guardarPeso_TextChanged (Old As String, New As String) + If Old <> New And IsNumber(New.trim) And New.trim <> "0" Then + b_guardarPeso.Enabled = True + Else + b_guardarPeso.Enabled = False + End If +End Sub + +Private Sub b_noVenta_Click + p_noVenta.Visible = True +End Sub + +Private Sub b_guardaNoVenta_Click + If r_opcion1.Checked Then + motivo = "CERRADO" + Else If r_opcion2.Checked Then + motivo = "NO COMPRA" + Else If r_opcion3.Checked Then + motivo = "CON PRODUCTO" + Else + motivo = "NO ESTA EL ENCARGADO" + End If + DateTime.DateFormat="yy-MM-dd HH:mm:ss" + Dim fecha As String=DateTime.Date(DateTime.Now) + + Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text) + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$) + Starter.enVenta = False + Subs.enVenta(0, "") + Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + p_noVenta.Visible = False + p_guardarPeso.Visible = False + p_transparenciaIniciaInicioFinVenta.Visible = False +End Sub + +Private Sub b_cancelaNoVenta_Click + p_noVenta.Visible = False +End Sub \ No newline at end of file diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index 9817cc3..377ccd2 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -102,7 +102,6 @@ Sub GUARDA_Click Next End If - ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") @@ -131,6 +130,8 @@ Sub GUARDA_Click B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, cuenta)) LogColor($"actualizamos "${cuenta}, hora_final=${DateTime.now}"$,Colors.Red) + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, e_comm.text, "") + mandaPendientesnoventa B4XPages.ShowPage("Principal") End Sub diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index d5ac939..10a0d8d 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -218,6 +218,9 @@ Sub GUARDA_Click Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO, CN_SOLICITA) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As String(no_cliente, sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text, et_direccion.Text, ALMACEN, no_ruta, cb_giro.SelectedItem, ET_Atiende.Text)) ' fototomada = "0" + + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta, "Nuevo Cliente", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", no_cliente) + Log("Bitacora guardada") B4XPages.ShowPage("Cliente") CallSubDelayed(Tracker, "StartFLP") Else diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index bdf306d..7cebbc9 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -26,13 +26,13 @@ Sub Class_Globals Dim f As Cursor Dim D2 As Cursor Dim lv As ListView - Dim cargar As Button + Dim b_cargar As Button Dim pendiente As Button Dim foto1(), foto2() As Byte Dim usuario As String Dim connecta As Button Dim conn As String - Dim Subir As Button + Dim b_subir As Button Dim cmd As DBCommand Dim TOPE As Int Dim COUNT_CLIE As Int @@ -222,6 +222,7 @@ Sub Class_Globals Dim Panel4 As Panel Dim q_buscar As String Private et_buspc As EditText + Private Panel9 As Panel End Sub 'You can add more parameters here. @@ -307,6 +308,14 @@ Private Sub B4XPage_Created (Root1 As B4XView) l_rutasuplencia.Visible = True l_rutasuplencia.Text = s.GetString("RS_RUTA") End If + + p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0 + Panel5.Top = 0 : Panel5.Left = 0 + P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0 + SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0 + SCROLL_RESDIA.Height = Root.Height * 0.9 + SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2) + Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$) End Sub @@ -368,7 +377,9 @@ Sub B4XPage_Appear rd.respaldaInventarios rd.respaldaPaquetes HORAINGRESO ="000000" - Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) + Private inicioL As Float = (nvo_cliente.Left + nvo_cliente.Width) + Private finR As Float = Panel9.Left + Btn_Ubicar.Left = ((nvo_cliente.Left + nvo_cliente.Width)) - (Btn_Ubicar.Width / 2) + ((finR - inicioL)/2) + 15 reqManager.Initialize(Me, Starter.DBReqServer) Log(Starter.DBReqServer) PASO =0 @@ -569,7 +580,8 @@ Sub B4XPage_Appear End Sub -Sub Subir_Click +Sub b_subir_Click + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, ALMACEN, l_ruta.Text, "Enviar Dia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", "") CARGA = "SUBIR" p_mandaInfo.Width = Root.Width p_mandaInfo.Height = Root.Height @@ -583,8 +595,8 @@ Sub Subir_Click NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False - Subir.Visible=False - cargar.Visible=False + b_subir.Visible=False + b_cargar.Visible=False L_P_1.Visible = False S_CC.Visible = False L_P_3.Visible = False @@ -625,35 +637,34 @@ Sub Subir_Click c.Close ' ENVIO DE LOS CODIGOS QR - 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) - c=B4XPages.MainPage.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_ADM" - cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text ) - reqManager.ExecuteCommand(cmd , "ins_QR") - Next - End If - c.Close +' c = B4XPages.MainPage.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_ADM" +' cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text ) +' reqManager.ExecuteCommand(cmd , "ins_QR") +' Next +' End If +' c.Close - c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) - 's.Position =0 - foto1 = c.GetBlob("CAT_CL_FOTO") - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_QR_ADM" - cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text ) - reqManager.ExecuteCommand(cmd , "ins_QR") - Next - End If - c.Close +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) +' 's.Position =0 +' foto1 = c.GetBlob("CAT_CL_FOTO") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_QR_ADM" +' cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text ) +' reqManager.ExecuteCommand(cmd , "ins_QR") +' Next +' End If +' c.Close 'Envio de Pagares c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PAGARES") @@ -715,7 +726,32 @@ Sub Subir_Click ' Next ' End If ' c.Close - + + 'BITACORA (PROYECTO GPS) + Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS where enviado = 0"$) + Do While h.nextrow + cmd.Initialize + Private eventob As String = h.GetString("eventob") + cmd.Name = "mandaBitacora_ADM" + Log("mandaBitacora_ADM") + Private clienteb As String = h.GetString("clienteb") + Private finb As String = h.GetString("finb") + Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb")) + If eventob = "Llega a almacen" Then + nombreCliente = "BOLETA" + clienteb = "" + finb = h.GetString("iniciob") + End If + If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST" + If eventob = "Fin Día" Then nombreCliente = "FIN DIA" + If eventob = "Carga día" Then nombreCliente = "CARGA DIA" +' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$) +' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL + cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"), h.GetString("otro"), Application.VersionName) + reqManager.ExecuteCommand(cmd , $"mandaBitacora_${h.GetString("id")}"$) + Loop + Log("MANDAMOS BITACORA") + ' PEDIDO_CLIENTE Dim PCNoArts As String Dim PCMonto As String @@ -749,7 +785,7 @@ Sub Subir_Click cmd.Initialize cmd.Name = "insert_pedido2_ADM" 'CON TOTALES INCLUIDOS Log(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")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN) - 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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO")) + cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO")) reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$) ' Log($">>>> INS_PEDIDO= ${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")}, ${PCNoArts}, ${PCMonto}"$) ' cmd.Name = "insert_pedido_INTMEX" ' SIN TOTALES INCLUIDOS @@ -796,10 +832,6 @@ Sub Subir_Click End If c.Close - - - - ' GEO CERCA c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") If c.RowCount>0 Then @@ -858,8 +890,7 @@ Sub Subir_Click ' Next ' End If ' c.Close - - + c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> 01") If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 @@ -871,14 +902,31 @@ Sub Subir_Click userpiezas = c.GetString("PC_CLIENTE") reqManager.ExecuteQuery(cmd , 0, "piezas") Next - End If + ' PESOS + c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PESOS") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insertPesos" +' Log(c.GetString("PE_IDALMACEN")&", "&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")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN) + cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA")) +' Log($">>>> insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$) + reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$) +' cmd.Name = "insert_pedido_INTMEX" ' SIN TOTALES INCLUIDOS +' 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") + Next + End If + c.Close End If End Sub - -Sub cargar_Click +Sub b_cargar_Click + Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","") Dim pedidodiaanterior As Boolean = False Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO") If cp.RowCount > 0 Then @@ -1139,8 +1187,8 @@ Sub cargar_Click LogColor($"HIST_AVANCE Ruta=|${e_ruta.text}|, almacen=|${ALMACEN}|"$, Colors.Red) reqManager.ExecuteQuery(cmd , 0, "hist_avance") - cargar.Visible = False - Subir.Visible = False + b_cargar.Visible = False + b_subir.Visible = False inv.Visible = False If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) Else @@ -1150,886 +1198,899 @@ Sub cargar_Click End Sub Sub JobDone(Job As HttpJob) - Log("JOBDONE PRINCIPAL") + Log("INICA JOBDONE PRINCIPAL - " & Job.Tag) If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag)) - LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue) + LogColor($">>>>>> Recibimos y quitamos ${Job.tag.As(String).ToUpperCase}"$, Colors.Blue) End If LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) End If If Job.Success = False Then - Log("ERROR") - LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red) - Log("ex") - Log(2) + LogColor("############################################", Colors.red) + LogColor("###### JobError: " & Job.Tag & CRLF & Job.ErrorMessage, Colors.red) + LogColor("############################################", Colors.red) +' LogColor("Error2: " & Job.ErrorMessage, Colors.red) +' LogColor("Error1: " & reqManager.HandleJob(Job).tag, Colors.red) +' LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red) ' Job.Release Else 'If Job Success then ... - Log(3) - LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027 - 'Verificamos que el usuario guardado en BD sea VALIDO. - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "update_gps" Then - For Each records() As Object In RESULT.Rows - Log("==========================REGISTROS="&RESULT.Rows) - For Each k As String In RESULT.Columns.Keys - Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Try + LogColor(" >> JobSuccess: '" & reqManager.HandleJob(Job).tag & CRLF & " >> Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027 + 'Verificamos que el usuario guardado en BD sea VALIDO. + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "update_gps" Then + For Each records() As Object In RESULT.Rows + Log("==========================REGISTROS="&RESULT.Rows) + For Each k As String In RESULT.Columns.Keys + Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Next Next - Next - End If - If RESULT.Tag = "ins_pedidos" Then - For Each records() As Object In RESULT.Rows - Log("==========================REGISTROS="&RESULT.Rows) - For Each k As String In RESULT.Columns.Keys - Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + End If + If RESULT.Tag = "ins_pedidos" Then + For Each records() As Object In RESULT.Rows + Log("==========================REGISTROS="&RESULT.Rows) + For Each k As String In RESULT.Columns.Keys + Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Next Next - Next - End If - If RESULT.Tag = "usuarioA" Then 'query tag - Private n As String = "Sin Usuario" - For Each records() As Object In RESULT.Rows - n = records(RESULT.Columns.Get("USUARIO")) - Next - LogColor("**************************"&n, Colors.Green) - If n = "OKActivo" Then - Log("Usuario guardado en BD es 'Valido'") - Else If n = "OKExpirado" Then - Msgbox("Usuario Expirado llamar al administrador","") 'ignore - B4XPages.ShowPage("B4XMainPage") - Else If n = "OKCancelado" Then - Msgbox("Usuario Cancelado llamar al administrador","") 'ignore - B4XPages.ShowPage("B4XMainPage") - Else - Msgbox("Usuario o password No validos","") 'ignore - B4XPages.ShowPage("B4XMainPage") End If - Log("***************** "&n) + If RESULT.Tag = "usuarioA" Then 'query tag + Private n As String = "Sin Usuario" + For Each records() As Object In RESULT.Rows + n = records(RESULT.Columns.Get("USUARIO")) + Next + LogColor("**************************"&n, Colors.Green) + If n = "OKActivo" Then + Log("Usuario guardado en BD es 'Valido'") + Else If n = "OKExpirado" Then + Msgbox("Usuario Expirado llamar al administrador","") 'ignore + B4XPages.ShowPage("B4XMainPage") + Else If n = "OKCancelado" Then + Msgbox("Usuario Cancelado llamar al administrador","") 'ignore + B4XPages.ShowPage("B4XMainPage") + Else + Msgbox("Usuario o password No validos","") 'ignore + B4XPages.ShowPage("B4XMainPage") + End If + Log("***************** "&n) + End If End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "giro" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESC")) - - Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro)) - Next - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "giro" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESC")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + Listo3 =1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If End If - Listo3 =1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "kmt_datos" Then 'query tag - S_CC.TEXT = "CARGANDO" - For Each records() As Object In RESULT.Rows - Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) - Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) - Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) - Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) - Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) - Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) - Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) - Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) - Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) - Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) - Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) - Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) - Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) - Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) - Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) - Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) - Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) - Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) - Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) - Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) - Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) - Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) - Next - Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) - Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("1",e_ruta.TEXT, "VENTA RECARGA","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) - Listo1 = 1 - S_CC.Text = "LISTO" - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "kmt_datos" Then 'query tag + S_CC.TEXT = "CARGANDO" + For Each records() As Object In RESULT.Rows + Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) + Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) + Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) + Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) + Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) + Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) + Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) + Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) + Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) + Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) + Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) + Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) + Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) + Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) + Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) + Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) + Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) + Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) + Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) + Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) + Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) + Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) + Next + Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) + Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("1",e_ruta.TEXT, "VENTA RECARGA","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) + Listo1 = 1 + S_CC.Text = "LISTO" + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If End If End If - End If - - If Job.JobName = "DBRequest" Then - Dim resultado As DBResult = reqManager.HandleJob(Job) - If resultado.Tag = "piezas" Then 'query tag + + If Job.JobName = "DBRequest" Then + Dim resultado As DBResult = reqManager.HandleJob(Job) + If resultado.Tag = "piezas" Then 'query tag ' B4XPages.MainPage.picking.cl_picking.Clear - Dim piezasexiste As Int - - For Each records() As Object In resultado.Rows - - piezasexiste = records(resultado.Columns.Get("COUNT(*)")) - Log(piezasexiste) - DateTime.DateFormat = "MM/dd/yyyy" - DateTime.TimeFormat = "HH:mm:ss" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) - - If piezasexiste = 0 Then - - Dim PCNoArts As String - Dim PCMonto As String - c = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ? AND PC_CLIENTE <> 1", Array As String(userpiezas)) - - If c.RowCount > 0 Then - c.Position = 0 - PCNoArts = c.GetString("PC_NOART") - PCMonto = c.GetString("PC_MONTO") - End If - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_HVC_ADM" - cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, ALMACEN, l_ruta.Text) - reqManager.ExecuteCommand(cmd , "insert_hvc") + Dim piezasexiste As Int + For Each records() As Object In resultado.Rows + piezasexiste = records(resultado.Columns.Get("COUNT(*)")) + Log(piezasexiste) + DateTime.DateFormat = "MM/dd/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + If piezasexiste = 0 Then + Dim PCNoArts As String + Dim PCMonto As String + c = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ? AND PC_CLIENTE <> 1", Array As String(userpiezas)) + If c.RowCount > 0 Then + c.Position = 0 + PCNoArts = c.GetString("PC_NOART") + PCMonto = c.GetString("PC_MONTO") + End If + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_HVC_ADM" + cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, ALMACEN, l_ruta.Text) + reqManager.ExecuteCommand(cmd , "insert_hvc") ' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) - + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "kmt_datos_todos" Then 'query tag + S_CC.TEXT = "CARGANDO" + For Each records() As Object In RESULT.Rows + Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) + Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) + Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) + Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) + Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) + Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) + Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) + Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) + Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) + Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) + Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) + Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) + Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) + Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) + Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) + Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) + Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) + Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) + Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) + Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) + Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) + Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) + Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) + Next + Listo1 = 1 + S_CC.Text = "LISTO" + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 End If - Next - - - End If - End If - - - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "kmt_datos_todos" Then 'query tag - S_CC.TEXT = "CARGANDO" - For Each records() As Object In RESULT.Rows - Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) - Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) - Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) - Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) - Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) - Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) - Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) - Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) - Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) - Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) - Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) - Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) - Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) - Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) - Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) - Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) - Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) - Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) - Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) - Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) - Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) - Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) - Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) - Next - Listo1 = 1 - S_CC.Text = "LISTO" - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 End If End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "resum_apk" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HIST_RA_OBJMES As String = records(RESULT.Columns.Get("HIST_RA_OBJMES")) - Dim HIST_RA_VENTA As String = records(RESULT.Columns.Get("HIST_RA_VENTA")) - Dim HIST_RA_TENDENCIA As String = records(RESULT.Columns.Get("HIST_RA_TENDENCIA")) - Dim HIST_RA_ALCANCE As String = records(RESULT.Columns.Get("HIST_RA_ALCANCE")) - Dim HISR_RA_DRAOBJ As String = records(RESULT.Columns.Get("HISR_RA_DRAOBJ")) - Dim HIST_RA_DRAVTA As String = records(RESULT.Columns.Get("HIST_RA_DRAVTA")) - Dim HIST_RA_DSOBJ As String = records(RESULT.Columns.Get("HIST_RA_DSOBJ")) - Dim HIST_RA_DSVTA As String = records(RESULT.Columns.Get("HIST_RA_DSVTA")) - Dim HIST_RA_VPOOBJ As String = records(RESULT.Columns.Get("HIST_RA_VPOOBJ")) - Dim HIST_RA_VPOVTA As String = records(RESULT.Columns.Get("HIST_RA_VPOVTA")) - Dim HIST_RA_CTES As String = records(RESULT.Columns.Get("HIST_RA_CTES")) - Dim HIST_RA_COBCCC As String = records(RESULT.Columns.Get("HIST_RA_COBCCC")) - Dim HIST_RA_ECO As String = records(RESULT.Columns.Get("HIST_RA_ECO")) - Dim HIST_RA_VISITPLAN As String = records(RESULT.Columns.Get("HIST_RA_VISITPLAN")) - Dim HIST_RA_VISIREAL As String = records(RESULT.Columns.Get("HIST_RA_VISIREAL")) - Dim HIST_RA_COBVISIT As String = records(RESULT.Columns.Get("HIST_RA_COBVISIT")) - Dim HIST_RA_FRECCOMPOBJ As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMPOBJ")) - Dim HIST_RA_FRECCOMREAL As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMREAL")) - Dim HIST_RA_VENTAMES1 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES1")) - Dim HIST_RA_VENTAMES2 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES2")) - Dim HIST_RA_VENTAMES3 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES3")) - Dim HIST_RA_VENTAMES4 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES4")) - Dim HIST_RA_RECHAZO As String = records(RESULT.Columns.Get("HIST_RA_RECHAZO")) - Dim HIST_RA_RECHAZOPORCEN As String = records(RESULT.Columns.Get("HIST_RA_RECHAZOPORCEN")) - Dim HIST_RA_SEMANA1 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1")) - Dim HIST_RA_SEMANA1_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DIAS")) - Dim HIST_RA_SEMANA1_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DRA")) - Dim HIST_RA_SEMANA2 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2")) - Dim HIST_RA_SEMANA2_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DIAS")) - Dim HIST_RA_SEMANA2_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DRA")) - Dim HIST_RA_SEMANA3 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3")) - Dim HIST_RA_SEMANA3_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DIAS")) - Dim HIST_RA_SEMANA3_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DRA")) - Dim HIST_RA_SEMANA4 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4")) - Dim HIST_RA_SEMANA4_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DIAS")) - Dim HIST_RA_SEMANA4_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DRA")) - Dim HIST_RA_SEMANA5 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5")) - Dim HIST_RA_SEMANA5_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DIAS")) - Dim HIST_RA_SEMANA5_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DRA")) - Dim HIST_RA_SEMANA1_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_LPT")) - Dim HIST_RA_SEMANA2_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_LPT")) - Dim HIST_RA_SEMANA3_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_LPT")) - Dim HIST_RA_SEMANA4_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_LPT")) - Dim HIST_RA_SEMANA5_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_LPT")) - Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA")) - Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN")) + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "resum_apk" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HIST_RA_OBJMES As String = records(RESULT.Columns.Get("HIST_RA_OBJMES")) + Dim HIST_RA_VENTA As String = records(RESULT.Columns.Get("HIST_RA_VENTA")) + Dim HIST_RA_TENDENCIA As String = records(RESULT.Columns.Get("HIST_RA_TENDENCIA")) + Dim HIST_RA_ALCANCE As String = records(RESULT.Columns.Get("HIST_RA_ALCANCE")) + Dim HISR_RA_DRAOBJ As String = records(RESULT.Columns.Get("HISR_RA_DRAOBJ")) + Dim HIST_RA_DRAVTA As String = records(RESULT.Columns.Get("HIST_RA_DRAVTA")) + Dim HIST_RA_DSOBJ As String = records(RESULT.Columns.Get("HIST_RA_DSOBJ")) + Dim HIST_RA_DSVTA As String = records(RESULT.Columns.Get("HIST_RA_DSVTA")) + Dim HIST_RA_VPOOBJ As String = records(RESULT.Columns.Get("HIST_RA_VPOOBJ")) + Dim HIST_RA_VPOVTA As String = records(RESULT.Columns.Get("HIST_RA_VPOVTA")) + Dim HIST_RA_CTES As String = records(RESULT.Columns.Get("HIST_RA_CTES")) + Dim HIST_RA_COBCCC As String = records(RESULT.Columns.Get("HIST_RA_COBCCC")) + Dim HIST_RA_ECO As String = records(RESULT.Columns.Get("HIST_RA_ECO")) + Dim HIST_RA_VISITPLAN As String = records(RESULT.Columns.Get("HIST_RA_VISITPLAN")) + Dim HIST_RA_VISIREAL As String = records(RESULT.Columns.Get("HIST_RA_VISIREAL")) + Dim HIST_RA_COBVISIT As String = records(RESULT.Columns.Get("HIST_RA_COBVISIT")) + Dim HIST_RA_FRECCOMPOBJ As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMPOBJ")) + Dim HIST_RA_FRECCOMREAL As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMREAL")) + Dim HIST_RA_VENTAMES1 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES1")) + Dim HIST_RA_VENTAMES2 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES2")) + Dim HIST_RA_VENTAMES3 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES3")) + Dim HIST_RA_VENTAMES4 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES4")) + Dim HIST_RA_RECHAZO As String = records(RESULT.Columns.Get("HIST_RA_RECHAZO")) + Dim HIST_RA_RECHAZOPORCEN As String = records(RESULT.Columns.Get("HIST_RA_RECHAZOPORCEN")) + Dim HIST_RA_SEMANA1 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1")) + Dim HIST_RA_SEMANA1_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DIAS")) + Dim HIST_RA_SEMANA1_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DRA")) + Dim HIST_RA_SEMANA2 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2")) + Dim HIST_RA_SEMANA2_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DIAS")) + Dim HIST_RA_SEMANA2_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DRA")) + Dim HIST_RA_SEMANA3 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3")) + Dim HIST_RA_SEMANA3_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DIAS")) + Dim HIST_RA_SEMANA3_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DRA")) + Dim HIST_RA_SEMANA4 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4")) + Dim HIST_RA_SEMANA4_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DIAS")) + Dim HIST_RA_SEMANA4_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DRA")) + Dim HIST_RA_SEMANA5 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5")) + Dim HIST_RA_SEMANA5_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DIAS")) + Dim HIST_RA_SEMANA5_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DRA")) + Dim HIST_RA_SEMANA1_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_LPT")) + Dim HIST_RA_SEMANA2_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_LPT")) + Dim HIST_RA_SEMANA3_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_LPT")) + Dim HIST_RA_SEMANA4_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_LPT")) + Dim HIST_RA_SEMANA5_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_LPT")) + Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA")) + Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN)) - ' Msgbox("pasa","alo") - Next - Listo1 = 1 - S_CC.Text = "LISTO" - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True) - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_promos" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE")) - Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION)) - Next - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True) - If PB1.Progress = 0 Then - PB1.Progress = 30 - S_CH.Text = "CARGANDO" - ELSE If PB1.Progress = 30 Then - PB1.Progress = 60 - ELSE IF PB1.Progress = 60 Then - PB1.Progress = 100 - S_CH.Text = "LISTO" + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN)) + ' Msgbox("pasa","alo") + Next + Listo1 = 1 + S_CC.Text = "LISTO" + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True) End If End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_cliente_promos" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE")) - Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO")) - Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT)) - Next - If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) - End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "HIST_MARCAS_CUOTAS" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA")) - Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL)) - Next - If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_comp_promos" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID")) - Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM")) - Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC")) - Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE)) - Next - If PB1.Progress = 0 Then - PB1.Progress = 30 - S_CH.Text = "CARGANDO" - ELSE If PB1.Progress = 30 Then - PB1.Progress = 60 - ELSE IF PB1.Progress = 60 Then - PB1.Progress = 100 - S_CH.Text = "LISTO" + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_promos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE")) + Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION)) + Next + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True) + If PB1.Progress = 0 Then + PB1.Progress = 30 + S_CH.Text = "CARGANDO" + ELSE If PB1.Progress = 30 Then + PB1.Progress = 60 + ELSE IF PB1.Progress = 60 Then + PB1.Progress = 100 + S_CH.Text = "LISTO" + End If End If End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "cat_verificacion" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) - Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE")) - Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) - Next + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_cliente_promos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE")) + Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO")) + Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT)) + Next + If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) + End If End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "marcas_rutas" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA")) - Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES)) - Next - End If - End If - 'CUOTAS - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "CUOTAS" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HC_RUTA As String = records(RESULT.Columns.Get("HC_RUTA")) - Dim HC_CUOTA1 As String = records(RESULT.Columns.Get("HC_CUOTA1")) - Dim HC_CUOTA2 As String = records(RESULT.Columns.Get("HC_CUOTA2")) - Dim HC_CUOTA3 As String = records(RESULT.Columns.Get("HC_CUOTA3")) - Dim HC_CUOTA4 As String = records(RESULT.Columns.Get("HC_CUOTA4")) - Dim HC_CUOTA5 As String = records(RESULT.Columns.Get("HC_CUOTA5")) - Dim HC_CUOTA6 As String = records(RESULT.Columns.Get("HC_CUOTA6")) - Dim HC_META1 As String = records(RESULT.Columns.Get("HC_META1")) - Dim HC_META2 As String = records(RESULT.Columns.Get("HC_META2")) - Dim HC_META3 As String = records(RESULT.Columns.Get("HC_META3")) - Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4")) - Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5")) - Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6)) - Next + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "HIST_MARCAS_CUOTAS" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA")) + Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL)) + Next + If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_comp_promos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID")) + Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM")) + Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC")) + Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE)) + Next + If PB1.Progress = 0 Then + PB1.Progress = 30 + S_CH.Text = "CARGANDO" + ELSE If PB1.Progress = 30 Then + PB1.Progress = 60 + ELSE IF PB1.Progress = 60 Then + PB1.Progress = 100 + S_CH.Text = "LISTO" + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "cat_verificacion" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) + Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE")) + Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "marcas_rutas" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA")) + Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES)) + Next + End If + End If + + 'CUOTAS + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "CUOTAS" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HC_RUTA As String = records(RESULT.Columns.Get("HC_RUTA")) + Dim HC_CUOTA1 As String = records(RESULT.Columns.Get("HC_CUOTA1")) + Dim HC_CUOTA2 As String = records(RESULT.Columns.Get("HC_CUOTA2")) + Dim HC_CUOTA3 As String = records(RESULT.Columns.Get("HC_CUOTA3")) + Dim HC_CUOTA4 As String = records(RESULT.Columns.Get("HC_CUOTA4")) + Dim HC_CUOTA5 As String = records(RESULT.Columns.Get("HC_CUOTA5")) + Dim HC_CUOTA6 As String = records(RESULT.Columns.Get("HC_CUOTA6")) + Dim HC_META1 As String = records(RESULT.Columns.Get("HC_META1")) + Dim HC_META2 As String = records(RESULT.Columns.Get("HC_META2")) + Dim HC_META3 As String = records(RESULT.Columns.Get("HC_META3")) + Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4")) + Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5")) + Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6)) + Next + End If End If - End If - 'COMISIONES + 'COMISIONES - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "COMISIONES" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HCM_TOTAL_V As String = records(RESULT.Columns.Get("HCM_TOTAL_V")) - Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE")) - Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA")) - Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB)) - Next + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "COMISIONES" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HCM_TOTAL_V As String = records(RESULT.Columns.Get("HCM_TOTAL_V")) + Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE")) + Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA")) + Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB)) + Next + End If End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprod" Then 'query tag - If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" - For Each records() As Object In RESULT.Rows - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) - Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) - Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA")) - Dim CAT_DP_PRECIO4 As Int = records(RESULT.Columns.Get("CAT_DP_PRECIO4")) - Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1")) + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprod" Then 'query tag + If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" + For Each records() As Object In RESULT.Rows + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) + ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) + Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) + Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA")) + Dim CAT_DP_PRECIO4 As Int = records(RESULT.Columns.Get("CAT_DP_PRECIO4")) + Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1")) ' CAT_GP_INICIATIVA = 5 ' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1)) - Next - Listo2=1 - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" - End If - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1)) + Next + Listo2=1 + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If End If End If - End If - - - ''AQUI ESTAMOS TRABAJANDO - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprod2" Then 'query tag - If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" - For Each records() As Object In RESULT.Rows - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) - Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) - Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA")) - Dim CAT_DP_PRECIO4 As Int = records(RESULT.Columns.Get("CAT_DP_PRECIO4")) - Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1")) + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprod2" Then 'query tag + If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" + For Each records() As Object In RESULT.Rows + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) + ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) + Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) + Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA")) + Dim CAT_DP_PRECIO4 As Int = records(RESULT.Columns.Get("CAT_DP_PRECIO4")) + Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1")) ' CAT_GP_INICIATIVA = 5 ' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1)) - Next - Listo2=1 - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" - End If - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprodp" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) - CAT_GP_TIPOPROD = "5" - If CAT_GP_ID = "PAQUNI003" Then - CAT_GP_ALMACEN = 60 + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1)) + Next + Listo2=1 + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" End If -' Log("XXXXXXX gunaprodp XXXXXXXXX " & CAT_GP_ID & "|" & CAT_GP_IMP1 & "|" & CAT_GP_IMP2) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) - Next - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" - End If - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True) - Listo4=1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprodps" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) - Log("XXXXXXXX gunaprodps XXXXXXXX " & records(RESULT.Columns.Get("CAT_GP_ID")) & "|" & records(RESULT.Columns.Get("CAT_GP_IMP1"))) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) - Next - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - Log("C4") - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" - Log("3") - End If - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True) - - Listo4=1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "detallepaq" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_PDP_ALMACEN")) - Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_PDP_ID")) - Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_PDP_IDPROD")) - Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_PDP_TIPO")) - Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_PDP_PZAS")) - Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_PDP_USUARIO")) - Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_PDP_FECHA")) - Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_PDP_REGALO")) - Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_PDP_CLASIF")) - Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO")) - Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO_SIMPTOS")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS)) - Next - If PB2.Progress = 0 Then - PB2.Progress = 30 - S_CP.Text = "CARGANDO" - ELSE If PB2.Progress = 30 Then - PB2.Progress = 60 - ELSE IF PB2.Progress = 60 Then - PB2.Progress = 100 - S_CP.Text = "LISTO" - End If - Listo3 =1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_datos" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE")) - Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE")) - Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT")) - Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT)) - Next - Listo3 =1 - If PB1.Progress = 0 Then - PB1.Progress = 30 - S_CH.Text = "CARGANDO" - ELSE If PB1.Progress = 30 Then - PB1.Progress = 60 - ELSE IF PB1.Progress = 60 Then - PB1.Progress = 100 - S_CH.Text = "LISTO" - End If - If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True) - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - B4XPage_Appear - img2.Visible=False - EJECUTANDO=0 - End If - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "variables" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) - Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor)) - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "CUESTIONARIO" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor)) - 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" - Else - If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) - S_CP.Text = "ENVIAR DATOS (K-2)" + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 End If - Next + End If 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 - If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) - 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 - If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) - 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 = "REVISANDO ..." - Log("5") - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "version" Then 'query tag - For Each records() As Object In RESULT.Rows - B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION") - Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION)) - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "count_cli" Then 'query tag - For Each records() As Object In RESULT.Rows - COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE")) - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "ruta" Then 'query tag - Log("JOBDONE PRINCIPAL RUTA") - Log(RESULT.Rows.Size) - For Each records() As Object In RESULT.Rows - Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO")) - Log("|"&VALIDO) - If VALIDO = "OK" Then - cargar.Visible = True - Subir.Visible = True - inv.Visible = True - connecta.Visible = False - If conn = "1" Then - ToastMessageShow("Existe Conexión con el Servidor." , True) + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprodp" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) + Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) + CAT_GP_TIPOPROD = "5" + If CAT_GP_ID = "PAQUNI003" Then + CAT_GP_ALMACEN = 60 End If - Else - cargar.Visible = False - Subir.Visible = False - inv.Visible = False - connecta.Visible = False - ToastMessageShow("Ruta invalida." , True) +' Log("XXXXXXX gunaprodp XXXXXXXXX " & CAT_GP_ID & "|" & CAT_GP_IMP1 & "|" & CAT_GP_IMP2) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True) + Listo4=1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprodps" Then 'query tag + For Each records() As Object In RESULT.Rows + + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) + Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) + Log("XXXXXXXX gunaprodps XXXXXXXX " & records(RESULT.Columns.Get("CAT_GP_ID")) & "|" & records(RESULT.Columns.Get("CAT_GP_IMP1"))) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + Log("C4") + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + Log("3") + End If + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True) + + Listo4=1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "detallepaq" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_PDP_ALMACEN")) + Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_PDP_ID")) + Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_PDP_IDPROD")) + Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_PDP_TIPO")) + Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_PDP_PZAS")) + Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_PDP_USUARIO")) + Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_PDP_FECHA")) + Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_PDP_REGALO")) + Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_PDP_CLASIF")) + Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO")) + Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO_SIMPTOS")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + Listo3 =1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_datos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE")) + Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE")) + Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT")) + Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT)) + Next + Listo3 =1 + If PB1.Progress = 0 Then + PB1.Progress = 30 + S_CH.Text = "CARGANDO" + ELSE If PB1.Progress = 30 Then + PB1.Progress = 60 + ELSE IF PB1.Progress = 60 Then + PB1.Progress = 100 + S_CH.Text = "LISTO" + End If + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "variables" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) + Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "CUESTIONARIO" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor)) + 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" + Else + If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) + S_CP.Text = "ENVIAR DATOS (K-2)" + 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 + If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) + 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 + If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) + 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 = "REVISANDO ..." + Log("5") + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "version" Then 'query tag + For Each records() As Object In RESULT.Rows + B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION") + Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "count_cli" Then 'query tag + For Each records() As Object In RESULT.Rows + COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE")) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ruta" Then 'query tag + Log("JOBDONE PRINCIPAL RUTA") +' Log(RESULT.Rows.Size) + For Each records() As Object In RESULT.Rows + Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO")) + Log("|"&VALIDO) + If VALIDO = "OK" Then + b_cargar.Visible = True + b_subir.Visible = True + inv.Visible = True + connecta.Visible = False + If conn = "1" Then + ToastMessageShow("Existe Conexión con el Servidor." , True) + End If + Else + b_cargar.Visible = False + b_subir.Visible = False + inv.Visible = False + connecta.Visible = False + ToastMessageShow("Ruta invalida." , True) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "usuario" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim name2 As String = records(RESULT.Columns.Get("VALIDO")) + Next + If name2 = "OK" Then + PASO = 1 + End If + P1.Visible = False + p_mandaInfo.Visible = False + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "fecha" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA")) + B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "folio" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO")) + B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_avance" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim marca As String = records(RESULT.Columns.Get("HIST_AM_MARCA")) + Dim avance As String = records(RESULT.Columns.Get("HIST_AM_AVANCE")) + Dim objetivo As String = records(RESULT.Columns.Get("HIST_AM_OBJETIVO")) + Dim porcentaje1 As String = records(RESULT.Columns.Get("HIST_AM_PORCENTAJE")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "select_abonosp" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim NOTA As String = records(RESULT.Columns.Get("NOTA")) + Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE")) + Dim SALDO_PENDIENTE As String = records(RESULT.Columns.Get("SALDO_PENDIENTE")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO ABONOSP(NOTA,CLIENTE,SALDO_PENDIENTE) VALUES (?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE)) + Next + End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ins_cuestionario" Then 'query tag + Subs.logJobDoneResultados(RESULT) + End If + + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "test" Then 'query tag + Log(">>>>>>>>>>>>> TEST") + Subs.logJobDoneResultados(RESULT) + End If + + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "clientes_cuestionario" Then + Log("Entramos a clientes_cuestionario - Regs:" & RESULT.Rows.Size) + Starter.skmt.ExecNonQuery("delete from HIST_CUESTIONARIO") + For Each records() As Object In RESULT.Rows + Dim idCliente As String = records(RESULT.Columns.Get("HC_CLIENTE")) + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente)) + Next + End If + + 'PESOS + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag.As(String).Contains("insertPesos_") Then 'query tag + Subs.logJobDoneResultados(RESULT) + End If + End If + + If RESULT.Tag.As(String).StartsWith("mandaBitacora_") Then + For Each records() As Object In RESULT.Rows + Private id() = Regex.Split("_", RESULT.tag) + If id.Length > 1 Then + For Each k As String In RESULT.Columns.Keys +' Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Starter.skmt.ExecNonQuery($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$) +' Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$) + Next End If Next End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "usuario" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim name2 As String = records(RESULT.Columns.Get("VALIDO")) - Next - If name2 = "OK" Then - PASO = 1 - End If - P1.Visible = False - p_mandaInfo.Visible = False - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "fecha" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA")) - B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY)) - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "folio" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO")) - B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO)) - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_avance" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim marca As String = records(RESULT.Columns.Get("HIST_AM_MARCA")) - Dim avance As String = records(RESULT.Columns.Get("HIST_AM_AVANCE")) - Dim objetivo As String = records(RESULT.Columns.Get("HIST_AM_OBJETIVO")) - Dim porcentaje1 As String = records(RESULT.Columns.Get("HIST_AM_PORCENTAJE")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1)) - Next - End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "select_abonosp" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim NOTA As String = records(RESULT.Columns.Get("NOTA")) - Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE")) - Dim SALDO_PENDIENTE As String = records(RESULT.Columns.Get("SALDO_PENDIENTE")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO ABONOSP(NOTA,CLIENTE,SALDO_PENDIENTE) VALUES (?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE)) - Next - End If - End If + Catch + Log(LastException) + End Try End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "ins_cuestionario" Then 'query tag - Subs.logJobDoneResultados(RESULT) - End If + +' java.io.FileNotFoundException: /data/user/0/adm.keymon.com.mx/cache/22: open failed: ENOENT (No such file or directory) + - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "test" Then 'query tag - Log(">>>>>>>>>>>>> TEST") - Subs.logJobDoneResultados(RESULT) - End If - - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "clientes_cuestionario" Then - Log("Entramos a clientes_cuestionario - Regs:" & RESULT.Rows.Size) - Starter.skmt.ExecNonQuery("delete from HIST_CUESTIONARIO") - For Each records() As Object In RESULT.Rows - Dim idCliente As String = records(RESULT.Columns.Get("HC_CLIENTE")) - Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente)) - Next - End If - End If + LogColor(">>>>> Job.Release Principal - " & Job.Tag, Colors.RGB(179, 146, 0)) Job.Release End Sub Private Sub B4XPage_CloseRequest As ResumableSub 'Return True to close, False to cancel - - + If SCROLL_RESDIA.Visible Then SCROLL_RESDIA.Visible = False B_OK_RES_Click @@ -2075,18 +2136,18 @@ Sub connecta_Click cmd.Name = "select_ruta_ADM6" cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) -' Log($"${ALMACEN},${e_ruta.text},${imei}"$) + Log($"${ALMACEN},${e_ruta.text}"$) reqManager.ExecuteQuery(cmd , 0, "ruta") If e_ruta.Text = "KMTS1" Then - cargar.Visible = True - Subir.Visible = True + b_cargar.Visible = True + b_subir.Visible = True e_ruta.Text = "" End If If e_ruta.Text = "BERNA1" Then - cargar.Visible = True - Subir.Visible = True + b_cargar.Visible = True + b_subir.Visible = True e_ruta.Text = "" End If @@ -2151,6 +2212,7 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ") + Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","") B4XPage_Appear l_rutasuplencia.Visible = False Label22.Visible = False @@ -2198,8 +2260,8 @@ Sub inv_Click cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "detallepaq") - cargar.Visible = False - Subir.Visible = False + b_cargar.Visible = False + b_subir.Visible = False connecta.Visible = True inv.Visible = False ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) @@ -2360,8 +2422,8 @@ Sub resdia_Click NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False - Subir.Visible=False - cargar.Visible=False + b_subir.Visible=False + b_cargar.Visible=False Resumen.Visible= False d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO")) @@ -2592,8 +2654,8 @@ Sub B_COMM_Click NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False - Subir.Visible=False - cargar.Visible=False + b_subir.Visible=False + b_cargar.Visible=False Resumen.Visible= False ' If l_ruta.Text <> 0 Then diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 1277079..d113a0c 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -209,45 +209,42 @@ Sub B4XPage_Appear End If c2.Close End If - - Sleep(100) - l_total.Visible = False - l_totProds.Visible = False - l_total.Left = 5dip - l_totProds.Width = Root.Width * 0.19 - l_total.Left = l_totProds.Width + 20 - l_total.Width = Root.Width * 0.25 -' Log(Subs.traeTotalesClienteActual) - Dim m As Map = Subs.traeTotalesClienteActual - prodsPedidoActual = m.Get("productos") - montoPedidoActual = m.Get("monto") - hayPedido = Subs.hayPedido -' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta) - B4XPages.MainPage.productos.clv_prods_ll.Clear - If reiniciarlistaProds Then -' Log("Llamamos LlenaProdsLL") -' LlenaProdsLL(Null) - clv_prods_ll.Clear - else If hayPedido Then -' LogColor("HAY PEDIDO ANTERIOR", Colors.red) -' Log("Llamamos LlenaProdsLL") -' LlenaProdsLL(Null) - clv_prods_ll.Clear - End If - If clv_prods_ll.Size = 0 Then LlenaProdsLL(Null) - clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista. - PCLV.lblHint.SetTextSizeAnimated(0,13) - PCLV.B4XSeekBar1.Color1=Colors.DarkGray - PCLV.B4XSeekBar1.Color2=Colors.DarkGray - PCLV.B4XSeekBar1.ThumbColor=Colors.red - PCLV.B4XSeekBar1.mBase.Left=Root.Width *0.91 -' PCLV.B4XSeekBar1.mBase.Top=-50 - PCLV.B4XSeekBar1.mBase.Height=clv_prods_ll.AsView.Height - PCLV.pnlOverlay.Height = clv_prods_ll.AsView.Height - PCLV.B4XSeekBar1.Update - - - +' +' Sleep(100) +' l_total.Visible = False +' l_totProds.Visible = False +' l_total.Left = 5dip +' l_totProds.Width = Root.Width * 0.19 +' l_total.Left = l_totProds.Width + 20 +' l_total.Width = Root.Width * 0.25 +'' Log(Subs.traeTotalesClienteActual) +' Dim m As Map = Subs.traeTotalesClienteActual +' prodsPedidoActual = m.Get("productos") +' montoPedidoActual = m.Get("monto") +' hayPedido = Subs.hayPedido +'' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta) +' B4XPages.MainPage.productos.clv_prods_ll.Clear +' If reiniciarlistaProds Then +'' Log("Llamamos LlenaProdsLL") +'' LlenaProdsLL(Null) +' clv_prods_ll.Clear +' else If hayPedido Then +'' LogColor("HAY PEDIDO ANTERIOR", Colors.red) +'' Log("Llamamos LlenaProdsLL") +'' LlenaProdsLL(Null) +' clv_prods_ll.Clear +' End If +' If clv_prods_ll.Size = 0 Then LlenaProdsLL(Null) +' clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista. +' PCLV.lblHint.SetTextSizeAnimated(0,13) +' PCLV.B4XSeekBar1.Color1=Colors.DarkGray +' PCLV.B4XSeekBar1.Color2=Colors.DarkGray +' PCLV.B4XSeekBar1.ThumbColor=Colors.red +' PCLV.B4XSeekBar1.mBase.Left=Root.Width *0.91 +'' PCLV.B4XSeekBar1.mBase.Top=-50 +' PCLV.B4XSeekBar1.mBase.Height=clv_prods_ll.AsView.Height +' PCLV.pnlOverlay.Height = clv_prods_ll.AsView.Height +' PCLV.B4XSeekBar1.Update End Sub Sub PCLV_AddProds diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas index de27694..7803283 100644 --- a/B4A/C_TicketsDia.bas +++ b/B4A/C_TicketsDia.bas @@ -32,9 +32,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If - c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") + c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") - ListView1.Clear If c.RowCount>0 Then For i=0 To c.RowCount -1 @@ -56,14 +55,16 @@ End Sub Sub B4XPage_Appear nombre_boton = "NOVENTA" - c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") +' c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") + c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc") Dim noArticulos As Int = 0 - + ListView1.Clear If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i - Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$) +' Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$) + Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select 1 as PC_NOART from PESOS where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}'"$) If x.RowCount > 0 Then x.Position = 0 ' Log(x.GetString("PC_NOART")) @@ -96,6 +97,7 @@ Sub Activity_KeyPress (key As Int) As Boolean ' Returning False signals the system to handle the key Return False End Sub + Sub ListView1_ItemLongClick (Position As Int, Value As Object) B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value)) @@ -120,7 +122,8 @@ Sub b_noventa_Click If nombre_boton = "NOVENTA" Then nombre_boton = "VENTA" b_noventa.Text ="VENTA" - c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") +' c = B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") + c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as NV_CLIENTE, PE_MOTIVO as NV_MOTIVO, PE_COMENTARIO as NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'NO VENTA' ORDER BY PE_FECHA asc") ListView1.Clear If c.RowCount>0 Then For i=0 To c.RowCount -1 @@ -133,13 +136,14 @@ Sub b_noventa_Click label2 = ListView1.TwoLinesLayout.SecondLabel label2.TextSize = 10 label2.TextColor = Colors.Blue - ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),c.GetString("NOMBRE") &" Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM")) + ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),c.GetString("NOMBRE") &" Motivo #"& c.GetString("NV_MOTIVO")& " Comentario: "& c.GetString("NV_COMM")) Next End If Else nombre_boton = "NOVENTA" b_noventa.Text ="NO VENTA" - c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") +' c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") + c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc") ListView1.Clear If c.RowCount>0 Then diff --git a/B4A/CameraExClass.bas b/B4A/CameraExClass.bas index 4f4e2af..96d0d82 100644 --- a/B4A/CameraExClass.bas +++ b/B4A/CameraExClass.bas @@ -108,7 +108,11 @@ End Sub 'End Sub Public Sub TakePicture - cam.TakePicture + Try + cam.TakePicture + Catch + Log(LastException) + End Try End Sub Private Sub Camera_PictureTaken (Data() As Byte) diff --git a/B4A/DBRequestManager.bas b/B4A/DBRequestManager.bas index eb19e28..873a7c8 100644 --- a/B4A/DBRequestManager.bas +++ b/B4A/DBRequestManager.bas @@ -201,7 +201,7 @@ Public Sub HandleJob(Job As HttpJob) As DBResult table.Columns.Initialize table.rows.Initialize table.Tag = Job.Tag - If jobTagAnterior <> Job.Tag Then LogColor("HandleJob: '"&Job.Tag&"'", Colors.RGB(171,70,0)) 'Mod por CHV - 211109 + If jobTagAnterior <> Job.Tag Then LogColor("HandleJob: '" & Job.Tag.As(String).ToUpperCase & "'", Colors.RGB(171,70,0)) jobTagAnterior = Job.Tag 'Mod por CHV - 211109 If method = "query" Then Dim numberOfColumns As Int = ReadInt(In) diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 8f157d0ce59ee8dd645dbe74dce26c806c50ffbe..c10820ac7abf8804782a0d9d50e630cb564741d4 100644 GIT binary patch delta 5270 zcmZ{odsx&}8pr4S1at-koEb$xWE4>DGhD3@O_ncvdGd%gn`SJOk^ZwrVJ@0wX zd(QCwSIW7KgNAvkRH~caDwT%*-qSj)dH67b(&936RhgyITxhXbTOTcs@e`fpRpn*n z*4*-{B1=`R*-P}TF;|=Ux246^){^$*F=0h4)mRe^Y1}mROaH&dXkJW?T<`mDJ z=OcP+%ga_>t;am}dk$Tm97aCOziwdK{;YV%#z zk&d?-bCs>yTtn_z3LWm?d5>PU3f-RHGz}sdZq}cglSfG$KpaRdh}vk0gNesb3!!G9 z=KOXn@i=Os)WReVmw0?XH>oD{zo;UJor)qQj*>W9l8+&dr4~ocD6xq+o>~I6M2V9m zo+!AzDwd&5|>L{A@OSBN@{DURdMF) z&tI(krH`v6UMq2p#5Rd*CB9qYb;QnHP)F>HT)o7I)O^R{?f%|vgTw!*o(&_}y!^bZ zyv%uqqMZB%nK+`Y_u%yrMqRL%LJ)7l99_VacwYMEm`g2{iE5(kym>iUS$PHdLL|X8 zm^_#UvkK-E#7Fa56L+Ee5)gWrHkeb40yTDw-1@f)6X5N`#;$oG>R0(S=@uDYQ>PZki3D}}H z_=q`F7Mp9!EmbQl_E+?)7-o!I$P(?HBlQYP!m&}S*hB;c1hQl#2aM58`h%KX5-?&k z*O@q3Jg4wrmKLw$=Y+Y`TC>7l8_>*}Zd;|Tj%qH~_Wq-S*W^NLjbWvE9X-pd?y9la z%mz!Pp_Nx7t^VW6em$_wC-_H-A+Pa_nke+l=l5H; z47}$sLuP6KPIUR&&qV6|a3O4z+G@3OyG#RfPC7m3#!XVEwy660j!vD(cHzpxQ84Y% zvK7##B*AD@qo7ocMJc>z_t;RF#_Mr7Tdhkbn;~3TE`hN48iwx=!FyXZ=!pFuPfbn4 zl4*MME=_ zV>NivV8exs9jHpPVe~-_P8!4TilG3d(|4dZ-G(6>+5)lZQ*WDe#%3u^*V}$q+ZwW)Gd^%g~c&v+tcvkTBb3 zpKu4kb8~FipWjN;OhsLRk#!+FeH#mF(&$T2YzawrPR zr}*IV(iH4j#-|&NPw&)X?Q$b~9wEy%VyU@RtW{)bFiuVnLvnr;#$@^9r{xLk1)=jr zTA4!jBIz5Ar%YP*S1c~wh~gEFHND>wgp=J`v`p8cy-bS_EPUSHToNUj8eA%CU@xIH zHX9pq5|Hs|J&yx>8FNe0aNMFLiYrQDuefrNvKdQOCa~l7*4QY`jb~48?t`)kLO-9K5?a zNAngb<|Rk{Hg*RG(&qHSw8}~NX-zCl$-eAu#J30fzC!~1co;f@OTLNWFzje+QBJ7P z+E&iqr69$?P!&ehlOCtMr$S?UlGt4@Ri&_hk&lO6Ied~ho zACSMfNPT=TzPQ&9EqjNtQ{;OLJxvWESQ9zkKD~A&V;}Me`F`l;-6>qO1S5RidG--J z>SFNQ-9GeLdR+%QjVoIXXo}I2uO9HL_h%m?qCV93^nmZzZkvo9^}n(+g+d90} z*o_YwM&kGc15E8fzMl?|;l|F}d)IGa>@%8g3@?f}alh90vjKt^E#t9#m&WeB;Q@w* zrebo5y4XdqwiJ})`(W7v-RyHxLHR>=J|FNoxAPzLuFr#^S&h>VcCt$@*-L*Q`-PC* z{;(Rk4^3;jOcElGz9jgH8b4H3>i^P1bn~O@Yu@t>J-(&pb?cLl&woe2`1to6Vkl%k z5U6|UafO=Kt^1z4_9O54i5@>w^CS`a72?vwuNT}B4hH+eZ&ND!MI@ssN}b3Z;XgeX zzZjXQsksk&4!_W&KcCOio5KiCY;364;;T*PamS`0w1fxoSfOi^4@HxYmhf{SF-pX9 z`@`LMqnXE<$L=bR$BxZ8?6@O9!pR>=(CC(+Rb4K9Zc`r#_>JxxhP-I;`{%*9$y8{(FmcU%HW=I6DwH9PuTFM{q1vS7uSe5knHml4j{Es^l%xmnvzDW=D9Zh?b*PH8rQlZkeK@pJ zjZGahadW2@7dnEOkNsxH5$5en?#A$y_oG=iM^lv4XerSubY`}OCW<`ESf@sQ=SRrj z9j2L0`#@ypaLnz>QT8eJwyq3@L3{Y2I+#*XOFKUZhFxkuty>_5(-ccaV?(l_oZ8c)j1qd4*$QrT zkHGS-$;twTtIs^61UMG;_+GVdfSaCCIJ5Utgzw{dq{Yv4Qa0}MVF7&IaA2PnGyZ%Y zPwuyf9vg1%>%{N_jyD6II4~cz&vv5uptEP#q51gwKquM{2T@K;!`FwMxDia)mT;~kr1o!W- z?AW791kW}-ZOCBSj6rmuWY|M>5pII~v(*^h8H1jJA$ZpQ1lvgkBHLp_U0oem*El7T z+lgk8wCv(+Tauxh%FkL9J% zkB|0mLNa>3BSeXzptsD_xlCxCCNAS-RRmqd$0@PSNI6RvkJi}6P`}uL3YXST!j{G~ z9XBl;=Km@Y4xhtydxW^E|5lMI3QC+4&svg4qY2iAK;LjXOZx-s&CHxdYjT$T-z0syIRw2 Z)Y2B7rF-BuI&ZaWkg?hGHqAp}?Eep|No)WB delta 4139 zcmZvf3tZGy7RTp|yk^iD90!3x6aqDQISfcB4?zJ1DHErH&*ZVM++gCcO9g3Cw3HjPfeqP)+-Ci;Sr2}sI z`-%@oxwFD%MS<5UeC(C&yJ}f=RkdRYa=foo8IpZ2*9WmyFiQwaH(QuPS%$HMu?%1l zOAlum!4l3AA@Lm&M@k&U+&y=s#G`uo4$Ww3!kx@xSfW{Cx*4DQj;N30uXvUOmTtC5 zoG5XU#N#ARmiR7-QzRZQ@q}Kk*QEA-XwoE3mpDV>i4tc@oF(xji6={(Epd*@^`7W+ zrGY6DPn9@N;(UpxNjzQR0*MPHE|R#I?f0a;MB*6|mr6X7xqIhlG0$e1!*aL8b0xk< z;&~F!@8Wtfd4V)=uf%qV%OrM4TrTlK=0z+{mciEyglT8KOGMi*E-{nX%4f9!|ge{f(nZYCe6svG9_41 zXC6ig*k-m2v-N0=7iT?dW?oKVwnr@yr_JV|q=DRB;jp_L6^p8>s-3m!660{o97)L- z5jd9aLQ!ByWr}cWrlVGz@xrQA4pnWupO|cSR<5dbCWs!JRqC;+Jqg0D>SscVu$3c} z!zVi`Dx5A=!6u@rusc>Qb5<^Ls$Gf7>AZ;oCg;lk+PGy6o ziIm;Lwi`#ltrqL#Jq?s_WHU&HK zO{knW2HW@OF>!o?^Ha*H7iR$hSp6tfq zTo-oc)L~n8ul38>S!~&b>f?G?mhMIIy!9BC8;bAplCd(^glicV|7H$W+)LM#Q>6R2Qbw)9h(HZNk}Ujmo)vBVl=g3u!w&PJcGtjVpyN+=?XpIMYSD)ZW$} zqphmZ=ir>(s4SVqOWv5{qJ0>=^e{)0r|!$*Ii7uaX^w~}Qu};wAdBxw#frOcz-mpz zmbqqJoR^Mo=GG&8x(?2XHhNK5!-w-iQMDi$Ve>tk_4NW59ajA~qHa^5-9$%J53e4I zM!>y6IAFI?o2qfN%hNGg z6yZyfG1ln`{*CV7!_c|JM!#1EFO4R8vuh1+){VlTd=vMC=f~(zc5nVETw9R`|K+Ll zmb&!rA_QAC|C|Q}K|06Ff zj;HQD)NGkU?{_T~gu?MgdJh3Mi}8IP7LWA6K%w_82B(B`p7f}G-G-GZ26SfXaJn*$ zKHx0Gp<#VG{e*L#>TY_b8v~Qck8bLb3NieB7N%GalTYN`LJMc>M%Fw=0Z3;g}3mlNekgv$`g{)bsg#!cBos(xhFF|T3d=Y)(=Jc8h>1TEe@6IqF|^q zP>0gGZWvLg6kw>>6k}%}(;Z?OSKTLF~XOV{X zC|Djc887u)L}W>n-QQ7MpNAJ7+DBjZ%n4uOG5lq}Il}NiRKuuzOoymPw$oR?nDo`J zO#0e0sk2Fkmd3RDZ&*bw<8K+hV-fG4M)yx{)b61SmqpJNZmzQU+&*`<^LqvoJ}M+_#W!iF2V1BRHN6RFB29Cr0US^N;$t-idWj{0cZ-g_H`QtP_a%D85(rVX3y{Mo-ebV~8l;|aGn^PO?bBq|EU zZZS_Na@iqd^VeDpf!sw#@znPwO|?&i2KPp-mQa#98Etnf@M%fZ4iNfDsA>rn7?B^X zR-_kBwlr$J2|M>JBOkQ=CRXc1s9$S!rh-7f zBedqkiu;drs6Lp1O%I#2I>HZA;z*D8w~kX^Y}2!;h<{6ubNTadG9g6E|K?qaO~>jT zCi2II9q}|!d3nbX(hp**v7%lKsM$3IkMH0YZ**kWz3b<$(7~_uQ!;Wak=kim9NiUy zixUiper}X{ABUytl=A1Sqzw=WiQx=K83XzRVnofGqfk_@$4~8vDv=7;bm=j>rk$zb8(lfaDfOnU8X^H+14#!tU diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal index 08bea6c9893adc25025c854d174cccf1883704fb..71ff7b26b56d7d1e30ff71599b17f62b873026fb 100644 GIT binary patch delta 4743 zcmcgw-ES0C6rZ8AbhlsIZkKJh3p=z`>4&B5wqSwa#s&~ntX6?U!e+WVmeK9ZI^B{; zH0whFu_Cm$2tpA=L?9u=)CV6WXu@BhFTVIAeU@lg#Q zjZVl$+MH13P#HtYxbEW$t?>Eu-UIFRP$;=%N*^PGhN>4$R~PgJYy8vculMdGhZ)Nu zSNGz_#kJ<+IUtr6fLF7J7{*{X?;U9^Fy+x zWa0!l>a$QknKY7m7GAWTHVnE3^|7ozp{1Xi$YCve3^|)sjMf+Bw5q#Q6`1VMIt}$Y z2XUWJY5VAFWf#Pb{t|q=9I^sp;&KNj1E!ufievV@7|X+!K*6emm^cVb@ee^(Lc)*+ zNTUNs9JtAWqYk{vfmb_l%*J^^!e9-g8PWo2g**az)PWy!;I$4+0XFBiJ8*{scRKLn z4&23Yyx?pd2HlVzNUsCqwWaSf@%;8>&x_*q`O_sYm*`Hcw`ud{H0?35)XBcZ--&ubDAUY67)oZnMUW)H~Ql}U44B~K|*Sdl`$vRD#m z5=g6QeX#N}z1P_XLCABZ#VLYgR`KXa`i+=V_C_GbJ9i=b0CJn$jbecZyu-ZTbE^1h; zdK23pD8oAHe3O%td>MW=S-k-}|5jmyujyxb4?AAnRVxU$-D+0b6kH+D7Ws~{j;2mO zH5h8Kz78fgMZ!k`ZN9{QBczml5nLU77bpQKyNe&r^*g48+E_(>b#yKCT%`eU`ab~h z5N!qhHZ~BI#bfZeWeu%#0K$X7gLDidhf{VlCb`&(bo8_t(n4p$MCAQF5K?k?|nFt?zvzZcaJH@9l zNtV_bPP8i~bCpE=Hf>T>|1opK6)M-J3oy8c{B8 zuURs)?vk0cOQyqJGIPs|);GWn502HocA71+hMGX=6ec`q*3w*it+R}>_Cx3rkR`L$ zS|ercKAx|q-T8XjZ5pFR@|Dy)Zhr#smHl`5dd6$R&$yTpZ#!Q8!o#jW+1?UnG`v|I_hTTrB+-}u$6Xf|pCn?X5YV+V;&2EL-+$>e`qMKRa z@Lhu0MVMW{tm+f!5)jUe9SE&kjMEF4w2%`H$a*@Z>CY~~=Zc{!UV2D&mtbQ7yWpqL zB_MX(_AC{*ET(#JWUn+X*kM(?{E+M}!}LOSpFx*^*z681#g5JgFLpN~Z;MxmPMi)j zo?iO_czSIEaHrQ5Xq-f-k$nzb0%A9^>qLZKr>vy9i3!}jb^h1$8_v3@dAlhOBHj4E zUw9KJ-U;bydzE**O1vhDzN>gRIAG-Nct4w0QM#Y=jQ$3II}e!|Jz$;Cbp5%8>rd~( stIxfQzvglbR^e`+d8zxBmh5>2Dl=J7o^lp`lSMBNK~1cIt%_Ct4J_JDa{vGU delta 210 zcmaFZ&A8Hzmz9Bmp^uq?feT2>PUQ8TxH@C9En~#wgN!1R?=zb5fy4{qlXEgt^GZ^S zC+jjviLwEO0uu95bBy6E6TZoT%-X!{Kp74o<^*D{$s3vF1BHMr0U#CxVqqk<2ohTq z$QA=)aUhleVo4yD0%B<-whWBDnUU3>k+F4iAX_NM<|Bf-!jso)ae>^yz{mgqR=6H; diff --git a/B4A/Files/datosclientebotones.bal b/B4A/Files/datosclientebotones.bal new file mode 100644 index 0000000000000000000000000000000000000000..73452a9a910c174f1d7ef8dc9258a37f95259cda GIT binary patch literal 4538 zcmc&$&65*V5TCfoVq_6N0P&MW6c<<`EZ_%zuptQ&2+5L-V0jQ`XWni`XJ=9~vss`x zP$dTowTddLD6SqnSmjX<9z1aoikp@PPx2q=&0GBadNPxbO;E7FRJ}L-y8HF({&l~8 zNokt)bwbk~!FMgj!x&j3u$oqI_A$_zXmQfh8x7^H0dMY<sNN(aD>oTRXO$m?&p%PEOqRCU@RgTQ1)!rjB^Kr!Gu? z`s2vuKef-k|K5jFi2S7W&*Naw9K{FF=>lG1SgSrG%HIc}&zNmOifi0RJ>rI`}G8zZF8Gl3fU<-s~GSC-zP{19uCxp1jyf!W0LOeXQse6|01iNU; zR`UVNAaEPpylk04ou=!`TBrxySl1n+?s{S)B&oRn6U+2jOS_)NGzfmFx)t@fdw_O? zUg}}sAv+n10L(#o_;ZXMdQjPYSu@CHZZ68h)soPEz=8dO1H^IX|jw++yb zN+mNJ06g3B19Fh|XQAA=mLe^+rK}1z1=I4SKq4E&q+K)JtcIt2Uzrh$A@{rhQc$4| zWktRXx;M`2t}{+eyKrC{#P8ukOY_S%oF-1hH*py(qD6+5Ce$LQWoC1<^~YZ=e6=J& zOf!=#wv@&zkV^1Wu|>#4%1F`-k)7w~AX10JEIPDD2M-9RIU5H{Y z|25t;I27*#5cc9tC_=nJ48eOEq8O#2ctfcV@2lX5-@G?*B(WuKVB6A?SxgTI?}Iq1 zAMfd~zV8ih8vK9pW(uXgW4zhI?u2&^@&|->9!K@#-R>v%hBplk#d~ExDL_4}@8SJq z8ai=RN_~fT_V$w``bcj-VVjWp=9Rh=-iIK6KzP50qx$jwPxVcML-D?!{e;ylc*phq z4LE}LKh^hPD28|!LCJf01Vrb(JQ}e}AdX>#+T#&>6^P9kgZ^J!ym)a7L<#;6;4fLm zbQk+I?R@Y4%H8h2-n(C%81$CUK+<0eGsE6;zRGJb(nM+lMuLCBdf##y?5&04;H0`= v^pzFCKR4|g*lI~ae+B1WUUc3!F~Gkg((%3nAr(Pi?{otpZof6Xl&1X+Z{j_> literal 0 HcmV?d00001 diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index e6c4ddd2e1110ad4d777a99e0333144f4b658f1e..2271b9174b0ac5858860872836e8a8a30d26b068 100644 GIT binary patch delta 642 zcmaE|k@3k!#tl1}*bCy5GgH&^Hy>a+#5K8*&unrN@Bhi$`4Zt0^8D{4x$+no7?^;V zGk>yymel0;s;rZL89Po6*A|;BV8=SiMrcwXCu9EP*QQdFPipf`o@Jsq`JcAXh19?`u4wIR+LnfcoRh<0R z185w}WLCYP$)TPalk4?3CJX4iV=SHgUq@$hn*kqK`4q;o$pYS@lN*9%fr{BeK#nV) z%&lk2Uj}4q05OjMNUU_Tzuq%O#tNWfoyiFbD*P2F(uI>7ebs=nACycd|2Gtw%xdU5 znM=a2joIb#2T{Y(6H<=*@r9Wx0sqS=5Ky&%Ezonv|HPO zw$@Kpw=`y~+8k|J#mE%Jy7{`*UoKQTlqR`l1MSaoyMZdMFgedX7ii}l_h}rcGC&=s glP?DV9R$=RHCZJP&D9{C=98U+pb9om2?}5X07|)`zW@LL delta 679 zcmaE|k@3k!#tl1}*aPC7Jzd@XHy>a+#5H*b?|(+g$&P%&lMisROrFInH+ef>A_r87 z986-fIsY}u$@8^!CM#%|GUiQY)KQ+yt<4E!DaV9)?!9swZ1 znK#)+XUgPqO|i)hlCqNmS=d5AqJ@)rbxkLq(Bxyx-yEo`#yCmG8fcDF{7dLff9 z=qOI^mJ|Z2p3JTrwE2SmJx0dT$rp7*Ckxn#Pfk!!;V(tAqtRClsN#c?>Ew7Fw#fxX z!IOFPxZKNts+d65l>-S@AZ7+)2F?l~0T!+VGO9o#)j*;Kh#5f&L4bu5NU$<;0ZGo< z$sg6Egh4VAK+Fil4E#V06n8Xko9rvW#Z?F7f(@*nJV8rp@_SX*$-j&p85^KZW}RdM z^b03r{p59;Qb5sO6TQjr^o1s$HBp(oz(QnlzAEQrFD)YxKcF!X7h*NA9Ad!a9+Q1I zY@EEs)C{6%GppGbCOxA4-ww37X0p1aF=P4WXv-?b$tN^~Hb1v|i{>?>$pUWCKnrr* zZlJnAVRD{(E@S=XJMPmsP-Q?`R3~2!0J$s2O=_}AAe!SrTFoar2SF8Vo)Q$m1^~=J Bs6qe$ diff --git a/B4A/Files/mapa_rutas.bal b/B4A/Files/mapa_rutas.bal index 7b00c891f1cd33be8b5fafb43f559359f4215f40..d6cfaf3bbdf6c3773e663ebfee0c75d1870f1dd7 100644 GIT binary patch literal 16443 zcmeHNTaX-88SXW^k%1tHL=h2&aLaWd*-d~bu(P*h!)7Yd_t>$!Y3^rEFbj6@)4i3%F_6K|LH#6Jv*~IvlpOB zw(9i!eJ=m`&-Z`lKmVE89>XwR>o$z@@wpS_Jd|w7x94ns;bO>{@a4E?R;!k`5p@H_ z?1`gepJ3}i-S=H5-X;|sIaw^3PRXj67r|q*V#V_h5{?)51zIn2E+zigTQv#!81?E%j|e z-C?sj;+fMlarY&7&kWXUzB_x&w&nxXge|J%qN>G77oc0U1A?A5F>}Op5*Eojm#aqv zh7s6md_k&{LV6_d5SLOd24G(!FTQ6wwW{e^PRTY$=@<2M!!cZ(%(_=g`>4k&x>Y#Q z*}V-fnL&59>eiidf;`ve%(Cq!sxCn1SZ!R3U0d(m`S#d5JGLF$I-YrZ=hnY^J9oWx(fIf~qdkYb-FqJEf8sYA zp8JRKjD}${?ub7TKYx2CX3Nv+?=&IO=u38HC3-v@+Hr* z9P-I_N|k!qD%gHSdY&@pOs5-AcW7jp6E~_JMKSimuuW#H<5ge2oe4$ zVl|IybVo@--4V~lvEtiSZP&88b||$&rf(kb>@s(eS@+%D3@B!;Htf)8Wl}<_4=;?l zC2^_>D?vLqkhJGq-}J2mR?V+_RybO>!W(X-($LDyC}RtD#c$Pi!gXf{UB}1xP^%ut zwuW)UVxVqU%C<8d_NNOKK6LwyoYh&FpRr)4JLS(K1ZO7u%#1sE$}0J_Ozap5xJ{3t zmZRy>@rm5w>=+3jffB$$TGrrWpM4qFV#*l93Z6MNWtW29yHV5V@Ng3--XFL9nL*dX zMy!Pm)H>;UWy=#rMz6=oI1;`j0~qY}Du$ z1d=;Pj!#;cIL;L&)|{}J4wY{ES}BoKLzFaTDQ2ZQV-hjfvzeGM^wD7AQp}AWI9Q-| z8P!L+1g0OH$c>(u7%ybU2;#uR*bu#NbO6iArE^CM**ulxv*Y<6k(oC*Kq6G0xwhRVYwX|nV12i*jK2W#OOpL%IGi_DU$W7n) zg_FkVWTvr?*v(6CVLHDh?WVVkyJ<0Q3$eJFHYXC%R>ygmoO9us@FfU!ixYP4mMPaO zSwl#ZN!S_Nk*&*5*}CjuJJq@bJ@zOJ-(4UsJV)jcs#rIVD-SJ9a8(u?&41y0o3$b1nK_z!$qV zIAfJgTV+BpXnCGlcH^D)&?qdbfWT#?5v(mQ(ca6DgmX8Il%iZO`H99pdIp1W*b7aE zos#KIV+I}WdSxf;+oBG#dpWY%MUw6@jK}WihwvBmVx;)V8%K(H6-m_f9I6;SSYf27 zR@%8pBEIn){_tsZbFC>F!Kl$=a5X($CE-SbTT2WtFI2LX%jCQ zJzdwxll<)Ix=x~ojF`wMTK{uY!ZLbt$I!UcSjsP-O%RUKB7C1ek|IU`Qx!jn>3|jl1D6 z>I9f^2rYn_Koc}0VL)j{O>9+7%_HcOx{JN>*Oa3kDj50pa%+!x}3mmrAU zj52y9Ne`eU;HOB(@l+(e8yPK4F>Lbwk_^-cs0anU)nwc{dmGrGUjTv2j7 zt!WW`?r%Q6b3>q~IZujcXyi!{%NFy5t`MFOJK@Pg5RyEh!iXpI*-4ZhqhFp`JX4F= zVxl_9mglh-+G7iiirDf`yb0ajg#uv<_lmHEp=~L)Orrh6&yiPtzlS>st5bj7>(7xA zW@^EaCCpMMJ8pp4H)UaW1BQ=)Kl9!+c6?ROGQy8>1)ZlTr!l-c?Llrevks`m4 z&*zgIXqF;ZFqJ;!B&5BGnq-R1NGd5ZJ0}sd9d%m8B(X;wsZ<#qx&H+#r8{a> zdp~MqZZ>Iav?lgzOp#Xs3@^n343iE1bvFZM77f~z7Qj$}0K?7^FoY=y3_I%O2ryle zYb1eTFO8$L?+k(Y8=AB=S`#W40kevHwN)@Vd-iM+ueO2-jZ?wMFdj~hZxKvd&2JcQ zB*)9Tn;kC>TK1#FZ!s;iQ|9W)?DR_1+#U`W$5LVBSi1QnN+LVmg$nKM0lcJKJd!cw zUDOP*X&8?Y3hiC9x1y^sf+v@{6t-8Wr9!SKy+`Rqa4VZP|f;h9EnT`*^7xi01fL3i9gXseG{R2Us0b zY4eslz}Pv$mtg6Trs31aPRo=1J}gbTpM(MdOCMnGp+;MyHKB6R0XBy^A?G}VTTp^; zQ6Gf3m{SYvVDPG*%HyG@kOi~)44W>-;~^CJ;`3qFd>IcR9cO7lI?fn@LWmwg34(uD z7V?tcv7%jL*B~GCNvk3V&^25%Wdvv*(rCuAbS>q0P}AMGB>Bx)+C8|1)5^N z^W2SB+1&R)h)$jpVfDQb?n6;9wsjz#U1fIqtKh23pvS+Zzx+UlJ{08TQFhyIcKQUy z>_=I%?34;4$I{IwQI^S0>Apb}`EgJj`Yztu3sA|eatX$X0{-qIj9|Mkf>EmlBhV5L zO&>x=ydU=!m7RVSSga`{sIX&3d<}!vh7r`XLPlWZqHO8wsN2AX)VgO&Phu8L*yRE$ zJ4Yz5G+TPLI{@ousFUrZv!z3bFWQ z$Bg)po$SZ41{FrX1xfA!&q0Xp0c|Dx@o%7xVEEGi*z!Djv~a|2XiA1!9uY5~1pgaH z#BiwH^53yXc z;0LPhzz^R;_oN@rpk`HmU}*2m52rCg`JtWL%o@j~S1@_oez+8!8Gz-76FC`1@RmFo zsIa963TRB84BtnM@&E)0?5{y+&jV%jY;rRE9M$51*CEKsK)WwTkyNP3$>5_+d7$%) zHg%qdBHt(Nk?IXp6NMUA#bYeHq)KTG@oefOgzztmemP4KhC;w*z-j-3gIJOp8>pCuL(j59`{ z5TZv=+WuK0OhA5zLG96uG9G5+5%IwEc%kCNu6Q*4>qF+ AApigX delta 161 zcmdnpz_>)0mz9BmVH+a@0~e4MoXG1rahHM$8<6djn3S4h!V6^Sftle&i3J6zMIhy1 z{^V*#6IGDHfW*Ai95b*&FcV23n9ni!GLy3`Cr~BG3T`0g0b-DPJ|N}?Vu8u-EZL0N Wn>VxEX4`Df|BH9>e-%C^1_l5ffKXDnx_HaF;`;oF7JsF=b$iMBErE!$wpA47m#oKOIbl}* zqS>~N*0Wkz=2z!n*u!B2V+a@`h7Mymh8`mXL)93NM_`0vgkh-qaKaJDkr+mdD8eHN zM-Q??6EoP*mZTG-B|MGrbi!$bXAn*&oI!Xd;miSc$a`rc1G5OvCOn65 z7U9$0pLKAiSAyCE>RSZy~&u@HWER3BOJFoql#G)$Jey?;^j4@jk{*!n=^w+3ZGE zXDP3sI{PYQbrtsz{($gaa$A9~<`=C2;koCgdh7>5QO<@nfVTy$qiAQRynE+MY z2KaNo5rRK5LZ)RB^v=m)4T=UVQAOyW6n@OcVVe+A2U*eFggqGOME?3G~hu9^##PSPB9bP+S=XtDL{ECrVL= z8hP=Fmr-luRJeMW2N#sGr;17TVLjN>^l^&CA`7o%T7RL_2kH=a#Uj|hs z3&^YG>y@Lf*1g73PRqbnZG`?ZhCj>eBR&9c^UU!aWLClGA&VSI*{}qOQCl|x{ z)1gp#a)tAZAZOg#G!A-`1Ei2spE9`q*-WS_(2KlRy16-CN;&fhV}a0qI>Xtl7Xx2b zupnt(b1h@TRL!s_t2!@3teqRqplj)5#W(tk8%*zP&j5anUetSO2DFQ0 zBcSrDlrY19DhN-6MvF0ciQr~gAVeInD%L&a0$xEqq_#D1p@TCF_4-J_*DYL_vZ-7+ zgN`W{`MBxAJye*k?r!?|ZWiHew~G-TivBwsDOI&I#u?ErD_yz4MlaRfj`J)E>c80l zh6`!XS(C~wVEEj8&PDfED8C@lkkcIlF{ygG^3tIT(-_RVXn;H4rbE+3LC)wX7=WRBV7_ExW;k^%4~*Ztm<7^0?V@D}O{}76xa0!qav|0r=k@mm zUv`1D%K!^I(_vSa;4xNx#l_+w=9*oMAHs9A;`yS>#S#=v!VsE7MYH1v7fVt!NkeGH zpyptN6-PMSZ+d`B6~D!*N6zmj5L4$zG-_yEEbE>oZEG(<)qn)R_N9IkU!ZE{tKj_LDqmpGs$G4a$l)k?KEvvBL$ zk}6oKs)b%vqMP9ihZc(#hZc{PfHn|KgQh2(h@6CGKr<3fCTt=+nDEnt&He0Fr1TFI zse~6mkZd4Q(`;w-X*icr4*@gfj_e z5gt!?0`4EIU?Sm3gtG}xCOn034&kYUrxDI2{7it|;(1Rejv0gDLc+@luOPgV@G8Qq z39lhsMA$`mt;pi}i$}1IIMx&1fGmIc8KMV22ogF<*1^ApEL3qNRnjEdsWwP3CldXi#c1+NzFB>WsHd~RIM zOe*yF-_&TN>A3~7atq8eX6Gt#v`}!EE=EA#ejRv(RYGOT(T!j}paavszQCkf$a?da z2&h>+2TBe)SQqrvXTs*1Ox6vxW((K^HPWTMcJN$}!zD&sY6NHMSg&IN>j77x0oK%J z!OTM%3^QBI>{qy3obC18V7=ff&VgH}bbK!+BEEV9wD_a$hMrSPVDuOjWTb1rQ&+)$ z17~$IyAQ6V2FUX2`1@h;TPpQX;k^k)uMSR_(Hhl|=M^_R+c+M+d`k^yU<3O@Qh5OR zlPu7DSj|5OQTZM2)L5Z=zXonLIH0?}3?|eE)%b@Yv9fLj`%}_<6x4ha68Dg3c0yr8 zP!Fmb{Mog$za@pfph91W!e2p!dxvYee-yB@DIIn+>EL2hvN*imWMvE@k2raTp9}4w zy)6zdIg$a67&wkW>%=s62);Vf&P6crm{Y|b@eyHb)3`(05pmVhzwCy@*Db&ID&0@RkZ9@e|>j4H=PD}-Dn+~+CfoT>kENiP_ zEC#Ng$Prz9OxXUomJNW?_AYKSF^@G5A?1#0wj^A{Y&Kilf1LFkRB_F4IW&HSfcEF229Q_^?e9KWgU^ z{3omLKUsZ96fT!fc7DfomWUZUA*w?xNX#)w@N_c98BoPBMY_I*kmcg_?O;Y|{kW7% z_Gf}`gou~-&d0Y!jSo#d#0c3eSt$BsJ7a_4_GzbfaEOQrlPes8k4`j{oaut^PGdLT zO@i(VX)xl9hMB;A&dkivakT(Op7pU5n0wyIr-VvKF{x6_+vj}DBE?vq7-PENgE{Bd z1hoC@8ZP?a(+hFnyflR$@|cxFC3XI?j|~IcRVP2}F)_oXn0;4#%qqoL9}_bIV-6*a zM34B2tJ4wG;(0Ui!B&sLFCjiX11FWzzgo#J{+*TFyc7~9T7G>Re0y#36D4i`FKPRa GWW&GvCPsz; diff --git a/B4A/Files/resdia.bal b/B4A/Files/resdia.bal index ba3124c8766fb7b4119bce351621ff1d633fb26e..3dc7fa6b34701d17a9191c567d9f66803bc5dc34 100644 GIT binary patch delta 181 zcmV;m080P%-2$@S0tE#C007mo1vmWCX>x1!E(F3KI(honlak+8S~J0Ja8I6LkTzp9)u`lyXX$ delta 120 zcmdmVkLlZ8CRSDk28Nj%SuMDd5`ZlEZVn*Hz`()~98`YhWT1w(&MBWW+L~b+etM^L zG#(b|=$_>F^E>0o>Q!WD)Zoy(mwCcRhK{XQ4lA4z?cxraY<$^h^1@qdM0$F8w0v}U YO1d1Ya(Q<$NX(d~7RRvpHdpu(01m<_wg3PC diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 3f63b75..5ffa327 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -57,6 +57,28 @@ Sub Globals Dim GoogleMapEXTRA As GoogleMapsExtras Dim CODIGO As String Private SEMANA As String + Private p_transparenciaIniciaInicioFinVenta As Panel + Private b_inicioVenta As Button + Private b_finVenta As Button + Private p_inicioFinVenta As Panel + Private p_guardarPeso As Panel + Private et_guardarPeso As EditText + Private b_guardarPeso As Button + Private p_botonesGuardarPeso As Panel + Private b_noVenta As Button + Private p_noVenta As Panel + Private b_cancelaNoVenta As Button + Private b_guardaNoVenta As Button + Private p_botonesNoVenta As Panel + Private Panel5 As Panel + Private et_comentarioNoVenta As EditText + Private r_opcion4 As RadioButton + Private r_opcion3 As RadioButton + Private r_opcion2 As RadioButton + Private r_opcion1 As RadioButton + Private l_NoVenta As Label + Dim motivo As String + Private l_venta As Label End Sub Sub Activity_Create(FirstTime As Boolean) @@ -64,6 +86,12 @@ Sub Activity_Create(FirstTime As Boolean) ' If File.ExternalWritable Then ' ruta = File.DirDefaultExternal ' Else + p_transparenciaIniciaInicioFinVenta.top = 0 : p_transparenciaIniciaInicioFinVenta.Left = 0 + p_transparenciaIniciaInicioFinVenta.Height = Activity.Height : p_transparenciaIniciaInicioFinVenta.Width = Activity.Width + Subs.centraPanel(p_inicioFinVenta, Activity.Width) + p_guardarPeso.Top = p_inicioFinVenta.top : p_guardarPeso.left = p_inicioFinVenta.left + Subs.centraPanel(p_noVenta, Activity.Width) + ruta = File.DirInternal ' End If If File.Exists(ruta, "kmt.db") = False Then @@ -120,6 +148,7 @@ Sub Activity_Create(FirstTime As Boolean) End Sub Sub Activity_Resume + Log("MAPA_RUTAS RESUME") Starter.rp.Check(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) If Result Then @@ -137,13 +166,29 @@ Sub Activity_Resume azul = 1 rojo = 0 todos = 0 + If Subs.nosQuedamosEnVenta Then + Dim enVentaUsuario As String = "" + Dim enVentaPagina As String = "" + Private ev As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'EN_VENTA_USUARIO' or cat_va_descripcion = 'EN_VENTA_PAGINA'") + If ev.RowCount > 0 Then + For i = 0 To ev.RowCount - 1 + ev.Position = i + If ev.GetString("CAT_VA_DESCRIPCION") = "EN_VENTA_USUARIO" Then + enVentaUsuario = ev.GetString("CAT_VA_VALOR") + Else If ev.GetString("CAT_VA_DESCRIPCION") = "EN_VENTA_PAGINA" Then + enVentaPagina = ev.GetString("CAT_VA_VALOR") + End If + Next + ventaIniciada + End If + End If End Sub Sub MapFragment1_Ready - Log("ENTRANDO MapFragment1_Ready") +' Log("ENTRANDO MapFragment1_Ready") gmap = MapFragment1.GetMap gmap.IsInitialized - 'todos= 1 +' todos = 1 'permisos rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION) @@ -154,7 +199,7 @@ Sub MapFragment1_Ready JavaMapsObject = gmap.GetUiSettings JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True)) '''''''----------------------------MARKER AZUL - POR VISITAR - If azul = 1 Or todos = 1 Then + If azul = 1 Or todos = 1 Then c.IsInitialized c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") ' skmt.Initialize(ruta,"kmt.db", True) @@ -181,7 +226,7 @@ Sub MapFragment1_Ready If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL) End If '''''''----------------------------MARKER VERDE - VENTA - If verde = 1 Or todos = 1 Then + If verde = 1 Or todos = 1 Then c2.IsInitialized c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") Log($"============== Resultados = ${c2.RowCount}"$) @@ -198,7 +243,7 @@ Sub MapFragment1_Ready End If Next Else - If verde = 1 Or todos = 1 Then + If verde = 1 Or todos = 1 Then c2.IsInitialized c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") Log($"============== Resultados = ${c2.RowCount}"$) @@ -257,8 +302,9 @@ Sub MapFragment1_Ready ' If MARK_VERDE.Visible Or MARK_ROJO.Visible Then ' MARK_CEDIS.Remove ' End If +' Log("Centramos camara " & LatitudRu & ", " & LongitudRU) Dim aa As CameraPosition - aa.Initialize(LatitudRu,LongitudRU,15)''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES + aa.Initialize(LatitudRu, LongitudRU, 15) ''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES gmap.AnimateCamera(aa) '''''---------------------- ESTO ES PARA LOS CLICK EN LAS VENTANAS D INFORMACION----------- @@ -267,18 +313,32 @@ Sub MapFragment1_Ready GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1) End Sub -' + ''''-------------------------- PRUEBA CON MARKER _CLICK - Sub OnInfoWindowClickListener1_click(Marker1 As Marker) + Log("Tooltip clicked") skmt.ExecNonQuery("delete from CUENTAA") skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title)) - Activity.Finish +' Activity.Finish Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito - B4XPages.ShowPage("Cliente") + l_venta.Text = "Presiona el boton de ""Iniciar"" para inicar la venta" + b_inicioVenta.Enabled = True + b_finVenta.Enabled = False + p_transparenciaIniciaInicioFinVenta.Visible = True +' B4XPages.ShowPage("Cliente") End Sub +Sub ventaIniciada + Log("Tooltip clicked") +' skmt.ExecNonQuery("delete from CUENTAA") +' skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title)) +' Activity.Finish + Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito + b_inicioVenta.Enabled = False + b_finVenta.Enabled = True + p_transparenciaIniciaInicioFinVenta.Visible = True +End Sub Sub GPS_LocationChanged (Parametro As Location) MARK_CEDIS.IsInitialized @@ -305,15 +365,13 @@ Sub Activity_Pause (UserClosed As Boolean) GPS.Stop End Sub - Sub B_TODOS_Click todos =1 verde = 0 azul = 0 rojo = 0 - + gmap.Clear MapFragment1_Ready - End Sub Sub B_VERDE_Click @@ -323,7 +381,6 @@ Sub B_VERDE_Click todos = 0 gmap.Clear MapFragment1_Ready - End Sub Sub B_ROJO_Click @@ -332,9 +389,7 @@ Sub B_ROJO_Click azul = 0 todos = 0 gmap.Clear - MapFragment1_Ready - End Sub Sub B_AZUL_Click @@ -343,7 +398,127 @@ Sub B_AZUL_Click rojo = 0 todos = 0 gmap.Clear - MapFragment1_Ready - End Sub + +Private Sub b_inicioVenta_Click + b_inicioVenta.Enabled = False + et_guardarPeso.Text = "" + r_opcion1.Checked = True + r_opcion2.Checked = False + r_opcion3.Checked = False + r_opcion4.Checked = False + b_finVenta.Enabled = True + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "") + Starter.enVenta = True + Subs.enVenta(1, "MAPA") + l_venta.Text = "Ve a tu app de venta y cuando termines regresa aqui y presiona el botón para ingresar ""Peso"" o ""No Venta""" + LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) +End Sub + +Private Sub b_finVenta_Click + p_guardarPeso.Visible = True +' b_inicioVenta.Enabled = True +' b_finVenta.Enabled = False +End Sub + +Private Sub p_transparenciaIniciaInicioFinVenta_Click + Log("Fondo clicked") + If b_finVenta.Enabled = False Then + p_transparenciaIniciaInicioFinVenta.Visible = False + Else + ToastMessageShow($"Es necesario presionar "Terminar" para poder continuar"$, True) + End If +End Sub + +Sub Activity_KeyPress (key As Int) As Boolean + ' BACK key pressed + If key=KeyCodes.KEYCODE_BACK Then + ' I want to capture the key here so I return True + 'StartActivity(Main) + If p_transparenciaIniciaInicioFinVenta.Visible = True Then + If b_finVenta.Enabled = False Then + p_transparenciaIniciaInicioFinVenta.Visible = False + Else + ToastMessageShow($"Es necesario presionar "Terminar" para poder continuar"$, True) + End If + Return True ' Ya no hace nada aparte de ocultar el panel. + End If + Else + Return False + End If + ' Returning False signals the system to handle the key +' Return True +End Sub + +Private Sub b_guardarPeso_Click + If et_guardarPeso.Text <> "" And et_guardarPeso.Text <> "0" And IsNumber(et_guardarPeso.Text) Then + Private peso As Double = et_guardarPeso.Text + et_guardarPeso.Text = peso + + Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "") + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$) + Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.enVenta = False + Subs.enVenta(0, "") + + p_guardarPeso.Visible = False + p_transparenciaIniciaInicioFinVenta.Visible = False + b_inicioVenta.Enabled = True + b_finVenta.Enabled = False + End If + gmap.Clear + todos = 1 + MapFragment1_Ready +End Sub + +Private Sub p_guardarPeso_Click + +End Sub + +Private Sub et_guardarPeso_TextChanged (Old As String, New As String) + If Old <> New And IsNumber(New.trim) And New.trim <> "0" Then + b_guardarPeso.Enabled = True + Else + b_guardarPeso.Enabled = False + End If +End Sub + +Private Sub b_noVenta_Click + p_noVenta.Visible = True +End Sub + +Private Sub b_guardaNoVenta_Click + If r_opcion1.Checked Then + motivo = "CERRADO" + Else If r_opcion2.Checked Then + motivo = "NO COMPRA" + Else If r_opcion3.Checked Then + motivo = "CON PRODUCTO" + Else + motivo = "NO ESTA EL ENCARGADO" + End If + DateTime.DateFormat="yy-MM-dd HH:mm:ss" + Dim fecha As String=DateTime.Date(DateTime.Now) + + Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text) + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$) + Starter.enVenta = False + Subs.enVenta(0, "") + + Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + p_noVenta.Visible = False + p_guardarPeso.Visible = False + p_transparenciaIniciaInicioFinVenta.Visible = False + gmap.Clear + todos = 1 + MapFragment1_Ready +End Sub + +Private Sub b_cancelaNoVenta_Click + p_noVenta.Visible = False +End Sub + +Private Sub p_inicioFinVenta_Click + +End Sub \ No newline at end of file diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 89aacbc..b28f837 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -21,11 +21,9 @@ Sub Process_Globals ' Private flpStarted As Boolean Dim reqManager As DBRequestManager Dim DBReqServer As String = "http://keymon.net:1781" -' Dim DBReqServer As String = "http://11.0.0.107:1781" -' Dim DBReqServer As String = "http://10.0.0.205:1783" ' Dim DBReqServer As String = "http://192.168.100.10:1781" Dim Timer1 As Timer - Dim Interval As Int = 10 + Dim Interval As Int = 300 Dim ruta As String = File.DirInternal 'Para los Logs Private logs As StringBuilder @@ -39,6 +37,8 @@ Sub Process_Globals Private BTAdmin As BluetoothAdmin Public BluetoothState As Boolean Public fFileProvider As FileProvider + Dim lat_gps, lon_gps As String + Dim enVenta As Boolean = False End Sub Sub Service_Create @@ -105,7 +105,7 @@ Sub ENVIA_ULTIMA_GPS If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0" cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa) If logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$) - reqManager.ExecuteCommand(cmd, "inst_visitas") + reqManager.ExecuteCommand(cmd, "ubicacionTiempoReal") skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) 'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion" Timer1.Enabled = False @@ -140,4 +140,64 @@ Sub reinicializaReqManager(srv As String) DBReqServer = srv reqManager.Initialize(Me, srv) LogColor(srv, Colors.red) +End Sub + +Sub JobDone(Job As HttpJob) + Log("JOBDONE STARTER") + Try + If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. + If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then + reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag)) + LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue) + End If + LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) + End If + If Job.Success = False Then + Log("ERROR") + LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red) + Else 'If Job Success then ... +' Log(3) + LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027 + 'Verificamos que el usuario guardado en BD sea VALIDO. + If Job.JobName = "DBRequest" Then + Dim result As DBResult = reqManager.HandleJob(Job) +' For Each records() As Object In result.Rows +' Log("==========================REGISTROS="&result.Rows) +' For Each k As String In result.Columns.Keys +' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) +' Next +' Next + If result.Tag.As(String).StartsWith("mandaBitacora_") Then + For Each records() As Object In result.Rows + Private id() = Regex.Split("_", result.tag) + If id.Length > 1 Then + For Each k As String In result.Columns.Keys +' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) + skmt.ExecNonQuery($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$) +' Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$) + Next + End If + Next + End If + + 'HISTORIAL DE UBICACIONES (Tracker) + If result.Tag.As(String).StartsWith("guardaHistorialUbicaciones_") Then + For Each records() As Object In result.Rows + Private id() As String = Regex.Split("_", result.tag) + If id.Length > 1 Then + For Each k As String In result.Columns.Keys +' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) + skmt.ExecNonQuery($"update HIST_UBICACIONES set HU_ENVIADO = 1 where HU_ID = '${id(1)}'"$) +' Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$) + Next + End If + Next + End If + End If + End If + Log(">>>>> Job.Release Starter") + Job.Release + Catch + Log(LastException) + End Try End Sub \ No newline at end of file diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 172b6fd..b6e1354 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -710,12 +710,21 @@ End Sub 'Regresa la ruta actual de la base de datos. Sub traeRuta As String 'ignore Private c As Cursor - Private r As String - c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - r = "0" + Private r As String = "" + c = Starter.skmt.ExecQuery("select rutaa from rutaa") If c.RowCount > 0 Then - c.Position=0 - r = c.GetString("CAT_CL_RUTA") + c.Position = 0 + If c.GetString("RUTAA") <> "" Then + r = c.GetString("RUTAA") + End If + End If + If r = "" Then + c = B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + r = "0" + If c.RowCount > 0 Then + c.Position=0 + r = c.GetString("CAT_CL_RUTA") + End If End If c.Close Return r @@ -769,12 +778,12 @@ End Sub Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String) ' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta) Private c As Cursor - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") - B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN"))) + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ALMACEN, PC_RUTA, PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, rutaV, c.GetString("TOTAL_CLIE_SIN"))) B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") End Sub @@ -789,7 +798,19 @@ Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String, c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") - B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN"))) +' Log($"${clienteId}, ${fecha}, ${usuario}, ${c.GetString("CANT_CLIE")}, ${c.GetString("TOTAL_CLIE")}, ${B4XPages.MainPage.lon_gps}, ${B4XPages.MainPage.lat_gps}, ${cedis}, ${rutaV}, ${c.GetString("TOTAL_CLIE_SIN")}"$) + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ALMACEN, PC_RUTA, PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, rutaV, c.GetString("TOTAL_CLIE_SIN"))) +End Sub + +'Inserta un peso en la tabla "pesos" +Sub guardaPeso(tipo As String, almacen As String, ruta As String, usuario As String, cliente As String, peso As String, motivo As String, comentario As String) +' LogColor("guardaPesoSinGestion: "&cliente&", peso="&peso, Colors.Magenta) +' CREATE TABLE PESOS(PE_IDALMACEN TEXT, PE_RUTA TEXT, PE_USUARIO TEXT, PE_CLIENTE TEXT, PE_PESO TEXT, PE_FECHA TEXT, PE_FECHA_SINC TEXT) + DateTime.DateFormat="yy-MM-dd HH:mm:ss" + Dim fecha As String=DateTime.Date(DateTime.Now) + B4XPages.MainPage.skmt.ExecNonQuery($"delete from pesos where pe_cliente in (select cuenta from cuentaa) and pe_tipo = '${tipo}'"$) + B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}')"$) +' Log($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}')"$) End Sub Sub actualizaProducto(cedis As String, costoU As String, cant As Int, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String, cantc As String, bcajas As String) @@ -1535,4 +1556,98 @@ Sub traeinventario(id As String) As String End If c.Close Return inventario +End Sub + +'Regresa el nombre del cliente del id dado. +Sub traeNombreCliente(id As String) As String + Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_CL_NOMBRE from kmt_info where CAT_CL_CODIGO = '${id}'"$) + Private n As String = "N/A" + Do While c.NextRow + n = c.GetString("CAT_CL_NOMBRE") + Loop + Return n +End Sub + +'Regresa una fecha en string con formato "YYYY/MM/dd HH:mm:ss" +Sub fechanormal(fecha As String) As String 'ignore +' Log(fecha) + Dim OrigFormat As String = DateTime.DateFormat 'save orig date format + DateTime.DateFormat = "YYYY/MM/dd HH:mm:ss" + Dim nuevaFecha As String=DateTime.Date(fecha) + DateTime.DateFormat = OrigFormat 'return to orig date format +' Log(nuevaFecha) + Return nuevaFecha +End Sub + +'Guarda en la tabla BitacoraGPS el evento espcificado en eventob, junto con coordenadas y otros datos. +'En precision,si metio contraseña para brincar la geocerca, poner 0 gps, si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen. +'Mandar fecha de sync(sysdate) +Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String, otro As String) + Log($"Bitacora: ${eventob}, mnven: ${motivonoventa}, mnvis: ${motivonovisita}"$) + If Starter.Logger Then Log("bitacora") + Private cmd As DBCommand + Private id As String + cmd.Initialize + cmd.Name = "mandaBitacora_ADM" + If Starter.Logger Then Log("BITACORA3") + Private nombreCliente As String = traeNombreCliente(clienteb) + If eventob = "Llega a almacen" Then + nombreCliente = "BOLETA" + clienteb = "" + finb = iniciob + End If + If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST" + If eventob = "Fin Día" Then nombreCliente = "FIN DIA" + If eventob = "Carga día" Then nombreCliente = "CARGA DIA" + DateTime.DateFormat="yyMMddHHmmss" + id = DateTime.Date(DateTime.Now) & "-" & Rnd(0, 99) + If eventob.ToUpperCase <> "TERMINA VENTA" And eventob.ToUpperCase <> "NO VENTA" Then + Starter.skmt.ExecNonQuery($"INSERT INTO BITACORAGPS (id, fechab, usuariob , almacenb , rutab , eventob , clienteb , iniciob , finb , latitudb, longitudb , precision , motivonoventa , motivonovisita, otro) VALUES ('${id}', '${fechab}', '${usuariob}', '${almacenb}', '${rutab}', '${eventob}', '${clienteb}', '${iniciob}', '${finb}' , '${latitudb}', '${longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${otro}')"$) + Log($"'${id}', '${fechab}', '${usuariob}', '${almacenb}', '${rutab}', '${eventob}', '${clienteb}', '${iniciob}', '${finb}' , '${latitudb}', '${longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${otro}')"$) +' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL +' cmd.Parameters = Array As Object(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab) +' Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") + Else + Private e As Cursor = Starter.skmt.ExecQuery($"select * from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$) +' TMP_RUTA = (?) And tmp_almacen = (?) And tmp_usuario = (?) And tmp_id_cliente = (?) And tmp_evento = (?) And tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss') + If e.RowCount > 0 Then + e.Position = 0 + Log("ACTUALIZA BITACORA") + If eventob.ToUpperCase = "TERMINA VENTA" Then + Starter.skmt.ExecNonQuery($"update BITACORAGPS set finb = '${finb}', otro = '${otro}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$) + Log($"update BITACORAGPS set finb = '${finb}', otro = '${otro}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$) + else if eventob.ToUpperCase = "NO VENTA" Then + Starter.skmt.ExecNonQuery($"update BITACORAGPS set eventob = 'No Venta', finb = '${finb}', motivonoventa = '${motivonoventa}', motivonovisita = '${motivonovisita}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$) + Log($"update BITACORAGPS set eventob = 'No Venta', finb = '${finb}', motivonoventa = '${motivonoventa}', motivonovisita = '${motivonovisita}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$) + End If + End If + End If + If eventob <> "Inicia Venta" Then + Private c As Cursor = Starter.skmt.ExecQuery($"select * from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' order by fechab desc"$) + If c.RowCount > 0 Then + c.Position = 0 + cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("usuariob"), c.GetString("rutab"), c.GetString("eventob"), c.GetString("clienteb"), nombreCliente, c.GetString("iniciob"), c.GetString("finb"), c.GetString("latitudb"), c.GetString("longitudb"), c.GetString("precision"), c.GetString("motivonoventa"), c.GetString("motivonovisita"), c.GetString("fechab"), c.GetString("otro"), Application.VersionName) + Starter.reqManager.ExecuteCommand(cmd , $"mandaBitacora_${c.GetString("id")}"$) + End If + End If + If Starter.Logger Then Log("Mandamos bitacora") +End Sub + +Sub enVenta(valor As Int, pagina As String) +' Log("En venta: " & valor) + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("EN_VENTA")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("EN_VENTA", valor)) + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("EN_VENTA_USUARIO")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("EN_VENTA_USUARIO", traeCliente)) + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("EN_VENTA_PAGINA")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("EN_VENTA_PAGINA", pagina)) +End Sub + +'Revisa si hay registro de que nos quedamos en venta. +Sub nosQuedamosEnVenta As Boolean + Private c As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where CAT_VA_DESCRIPCION = 'EN_VENTA' and CAT_VA_VALOR = 1") + If c.RowCount > 0 Then + Return True + End If + Return False End Sub \ No newline at end of file diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas index 5fbbac7..98d520f 100644 --- a/B4A/Tracker.bas +++ b/B4A/Tracker.bas @@ -119,9 +119,9 @@ Private Sub CreateLocationRequest As LocationRequest ' Log("CreateLocationRequest") Dim lr As LocationRequest lr.Initialize - lr.SetInterval(1) 'Intervalo deseado para actualizaciones de ubicacion + lr.SetInterval(5000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion - lr.SetSmallestDisplacement(0) 'Solo registra cambio de ubicacion si es mayor a XX mts + lr.SetSmallestDisplacement(20) 'Solo registra cambio de ubicacion si es mayor a XX mts lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) actualLR=lr Return lr @@ -160,9 +160,11 @@ End Sub Sub flp_LocationChanged (Location1 As Location) ' ToastMessageShow("Loc changed", False) -' Log($"Loc changed:${Location1.Longitude},${Location1.Latitude}"$) + Log($"Loc changed:${Location1.Longitude},${Location1.Latitude}"$) B4XPages.MainPage.lat_gps = Location1.Latitude B4XPages.MainPage.lon_gps = Location1.Longitude + Starter.lat_gps = Location1.Latitude + Starter.lon_gps = Location1.Longitude UUGCoords = Location1 ' Log("SmallestDisplacement="&actualLR.GetSmallestDisplacement) ' If DateTime.Now > LastUpdateTime + 10 * DateTime.TicksPerSecond Then @@ -176,12 +178,13 @@ Sub flp_LocationChanged (Location1 As Location) sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) If Not(B4XPages.MainPage.skmt.IsInitialized) Then B4XPages.MainPage.skmt.Initialize(Starter.ruta,"kmt.db", True) - Try - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") - Catch - LogColor(LastException, Colors.Red) - End Try +' Try +' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) +' B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") +' Catch +' LogColor(LastException, Colors.Red) +' End Try + guardaYEnviaUbicacion(Location1.Latitude, Location1.Longitude) '/////// Dim coords As String = Location1.Latitude&","&Location1.Longitude&","&formatoFecha(Location1.Time) ' Log("Loc changed : "&Location1.Latitude&","&Location1.Longitude&"|"&B4XPages.MainPage.usuario&"|") @@ -195,7 +198,7 @@ Sub flp_LocationChanged (Location1 As Location) CallSub2(Starter, "GPS_LocationChanged", Location1) ' CallSub2(B4XPages.MainPage.cliente, "GPS_LocationChanged", Location1) ' CallSub2(gestion, "GPS_LocationChanged", Location1) - If B4XPages.MainPage.cliente.IsInitialized Then + If B4XPages.MainPage.cliente.BT_QR.IsInitialized Then CallSub2(B4XPages.GetPage("Cliente"), "GPS_LocationChanged", Location1) End If ' CallSub2(nuevocliente, "GPS_LocationChanged", Location1) @@ -298,4 +301,19 @@ Sub revisaUUG 'ignore Catch LogColor("If FLP.IsInitialized --> "&LastException, Colors.Red) End Try +End Sub + +Sub guardaYEnviaUbicacion(lat As String, lon As String) + DateTime.DateFormat="yy-MM-dd HH:mm:ss" + Private fecha As String = DateTime.Date(DateTime.Now) + DateTime.DateFormat="yyMMddHHmmss" + Private id As String = DateTime.Date(DateTime.Now) & "-" & Rnd(0, 99) + Private usuario As String = Subs.traeUsuarioDeBD + Starter.skmt.ExecNonQuery($"insert into hist_ubicaciones (HU_ID, HU_IDALMACEN, HU_RUTA, HU_USUARIO, HU_LATITUD, HU_LONGITUD, HU_FECHA) values ('${id}', '${Subs.traeAlmacen}', '${Subs.traeRuta}', '${usuario}', '${lat}', '${lon}', '${fecha}')"$) + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "guardaHistorialUbicaciones" + If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0" + cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, usuario, lat, lon, fecha) + Starter.reqManager.ExecuteCommand(cmd, $"guardaHistorialUbicaciones_${id}"$) End Sub \ No newline at end of file