diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 32896db..3e9a2ce 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1088,8 +1088,8 @@ Sub envioinfo ' c.Close Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_drop_rep_PROFINA_VN" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") + cmd.Name = "insert_drop_rep_PROFINA_VN2" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName) reqManager.ExecuteCommand(cmd , "inst_drop") ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End Sub @@ -1132,7 +1132,7 @@ Sub cargar_Click Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_drop_rep_PROFINA_VN" + cmd.Name = "insert_drop_rep_PROFINA_VN2" cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA") reqManager.ExecuteCommand(cmd , "inst_drop") ' reqs.Add("inst_noventa") @@ -1194,7 +1194,13 @@ Sub cargar_Click ' Next ' End If ' c.Close - + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_PROFINA_VN2" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGAR",Application.VersionName) + reqManager.ExecuteCommand(cmd , "inst_drop") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) + ' NOVENTA ' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' If c.RowCount > 0 Then diff --git a/B4A/Profina_reparto.b4a.meta b/B4A/Profina_reparto.b4a.meta index f756791..596baf1 100644 --- a/B4A/Profina_reparto.b4a.meta +++ b/B4A/Profina_reparto.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Created,1395,3,C_Principal,StartPrinter,2835,0,C_Principal,Subir_Click,812,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,C_Principal,e_ruta_EnterPressed,2012,0,C_Principal,cargar_Click,1130,0,C_Principal,envioinfo,864,2 +NavigationStack=C_Principal,StartPrinter,2835,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,appUpdater,Service_Start,126,0,C_Principal,cargar_Click,1194,0,C_Principal,e_ruta_EnterPressed,2018,0,C_Principal,Subir_Click,812,0,C_Principal,envioinfo,1085,2 SelectedBuild=0 VisibleModules=1,2,3,4,5,6,7,8,9,10,16