Rep Entradas Salidas Almacenes, Compras desvincular AF

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()