Rep Entradas Salidas Almacenes, Compras desvincular AF

Compras/Compras.aspx

@@ -734,7 +734,7 @@
                                     </asp:Panel>
 
 
-                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
+                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
                                         <Columns>
                                             <%-- 0 --%>
                                             <asp:TemplateField ItemStyle-Width="15px">
@@ -4476,6 +4476,13 @@
                                                             <label for="<%= TxtIEPSModal.ClientID.ToString()%>">% IEPS:</label>
                                                         </div>
                                                     </div>
+                                                     <div class="col-md-3" runat="server" id="DVModalAddPSChkDesvincularAF" visible="false">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:CheckBox  runat="server" ID="ChkModalDesvincularAF" CssClass="form-control " />
+                                                            <label for="<%= ChkModalDesvincularAF.ClientID.ToString()%>">Desvicnular A.F.:</label>
+                                                        </div>
+                                                    </div>
+
                                                 </div>
                                             </ContentTemplate>
                                         </asp:UpdatePanel>

Compras/Compras.aspx.vb

@@ -1778,6 +1778,7 @@ Partial Class Compras_Compras
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
+
                             'TmpDT.Columns.Add("RetIVAPorcentaje")
                             'TmpDT.Columns.Add("RetISRPorcentaje")
                             'TmpDT.Columns.Add("IEPSPSPorcentaje")
@@ -9929,6 +9930,22 @@ Partial Class Compras_Compras
 
 
 
+
+                        If Not TmpDT.Columns.Contains("DesvicularAF") Then
+                            TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+                        End If
+
+                        For Each drowAF As DataRow In TmpDT.Rows
+                            If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
+                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then
+                                    Retorno = False
+                                End If
+                            End If
+                        Next
+
+
+
+
                         'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
                         If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
                             Retorno = False
@@ -10513,6 +10530,9 @@ Partial Class Compras_Compras
             tipoCambioPago = 1
         End If
 
+
+
+
         If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
             For Each Row As DataRow In ObjConta.DtResultados.Rows
 
@@ -17900,6 +17920,17 @@ Partial Class Compras_Compras
         ChkAgregar.Checked = False
         divagregrarotrops.Visible = False
 
+        DVModalAddPSChkDesvincularAF.Visible = False
+
+
+        Dim TipoAF As Integer = GvRow.DataKey("TipoAF").ToEntero
+        ChkModalDesvincularAF.Checked = False
+
+        If CveCompra > 0 AndAlso TipoAF = 2 Then
+            DVModalAddPSChkDesvincularAF.Visible = True
+        End If
+
+
         UpPSS.Update()
         RegistraScript("$('#divAddProducto').modal('show');")
     End Sub
@@ -18297,6 +18328,38 @@ Partial Class Compras_Compras
             GuardaAC()
         End If
 
+
+
+
+
+        If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
+
+
+            If Not TmpDT.Columns.Contains("DesvicularAF") Then
+                TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+            End If
+
+            Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
+            'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
+
+            For Each dRow As DataRow In TmpDT.Rows
+
+                If dRow("CveCompraDetalle").ToString.ToEntero = CveCompraDetalleDesvicnualarAF Then
+                    dRow("TipoAF") = 0
+                    dRow("CveActivoFijo") = 0
+                    dRow("DesvicularAF") = True
+
+                End If
+
+            Next
+                TmpDT.AcceptChanges()
+            'Else
+            '    Retorno = False
+            'End If
+
+
+        End If
+
         UpPS.Update()
         CargaGvPersonal()