Compras correciones, no actualiza iva al editar despues de asignar, AF insumos check de AF encontrado mantener activo

OC/OC.aspx.vb

@@ -1427,6 +1427,16 @@ Partial Class OC_OC
 
         ObjOC.Dispose()
     End Sub
+
+
+    Protected Function GetCveSubProyectoDetalles() As Integer
+
+        Dim CveSubProyectoDetalles As Integer = DtDetalle.MAX("CveSubProyecto").ToEntero
+
+        Return CveSubProyectoDetalles
+
+    End Function
+
 #End Region
 
 #Region "  CARGA DATOS  "
@@ -2880,9 +2890,13 @@ Partial Class OC_OC
 
             If Not TieneError Then ' AGREGAR ORDEN DE COMPRA
 
-                Dim tCveSubProyecto As Integer = -1
+                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
+                If tCveSubProyecto <= 0 Then
+                    tCveSubProyecto = GetCveSubProyectoDetalles()
+                End If
+
                 If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                  LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
                                  RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
@@ -2907,6 +2921,7 @@ Partial Class OC_OC
                         If Not TieneError Then
                             CveOCGeneradas.Add(CveOrdenCompra)
                             FolioOCGeneradas.Add(OC.Folio)
+                            SerieFolio = OC.Folio.ToString
                         End If
                     End If
 
@@ -3547,8 +3562,16 @@ Partial Class OC_OC
                         If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", CveProveedor, objOrdenCompra.IniciaTransacSQL) Then
                             HuboError = True
                         End If
-                        Dim CveSubProyecto As Integer = -1
-                        If ModalidadSubProyectoGeneral Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+
+                        Dim CveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+
+                        If ModalidadSubProyectoGeneral Then
+                            CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                        End If
+
+                        If CveSubProyecto <= 0 Then
+                            CveSubProyecto = GetCveSubProyectoDetalles()
+                        End If
 
                         If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                          CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
@@ -3624,8 +3647,14 @@ Partial Class OC_OC
                     HuboError = True
                 End If
 
-                Dim tCveSubProyecto As Integer = -1
+                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                If tCveSubProyecto <= 0 Then
+                    tCveSubProyecto = GetCveSubProyectoDetalles()
+                End If
+
+
+
 
                 If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                  CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,