diff --git a/Durakelo_reparto.b4a.meta b/Durakelo_reparto.b4a.meta index d75339f..c77dc70 100644 --- a/Durakelo_reparto.b4a.meta +++ b/Durakelo_reparto.b4a.meta @@ -64,6 +64,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=3,6,8,17,18,19 ModuleClosedNodes9= -NavigationStack=MAPA_RUTAS,MapFragment1_Ready,146,0,seleccion,JobDone,626,6,seleccion,cargar_Click,549,6,Main,Activity_Create,58,0,DiseƱador Visual,fila.bal,-100,1,Starter,pe_BatteryChanged,43,0,colonia,Activity_Resume,64,5,colonia,ListView1_ItemClick,141,2,colonia,BUSCA_TextChanged,195,2,Main,Process_Globals,37,0 +NavigationStack=seleccion,JobDone,626,6,Main,Activity_Create,58,0,Starter,pe_BatteryChanged,43,0,colonia,Activity_Resume,64,5,colonia,ListView1_ItemClick,141,2,colonia,BUSCA_TextChanged,195,2,DiseƱador Visual,fila.bal,-100,2,Main,Process_Globals,30,0,Starter,ENVIA_ULTIMA_GPS,62,0,seleccion,cargar_Click,535,6 SelectedBuild=0 VisibleModules=18,21,10,9,12,8,4,14,11,2,17 diff --git a/seleccion.bas b/seleccion.bas index aa54585..4641def 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -510,38 +510,7 @@ Sub cargar_Click 'cmd.Name = "Select_count_clie" 'reqManager.ExecuteQuery(cmd,0,"count_cli") Log(ALMACEN) - If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then - cmd.Initialize - cmd.Name = "select_punteo_re_DUR2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "punteo") - - cmd.Initialize - cmd.Name = "select_almacen_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") - - cmd.Initialize - cmd.Name = "select_almacen_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") - - cmd.Initialize - cmd.Name = "select_reparto_entrega_DUR2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "rechazo") - - cmd.Initialize - cmd.Name = "select_cliente_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - - cmd.Initialize - cmd.Name = "select_ventad_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_datos") - 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT - Else + If ALMACEN = "1" Then Log("aqui") cmd.Initialize @@ -574,6 +543,40 @@ Sub cargar_Click cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO + + Else + + cmd.Initialize + cmd.Name = "select_punteo_re_DUR2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "punteo") + + cmd.Initialize + cmd.Name = "select_almacen_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") + + cmd.Initialize + cmd.Name = "select_almacen_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") + + cmd.Initialize + cmd.Name = "select_reparto_entrega_DUR2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "rechazo") + + cmd.Initialize + cmd.Name = "select_cliente_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + + cmd.Initialize + cmd.Name = "select_ventad_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_datos") + 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT + End If c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")