diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index 656a2aa10..24f611f58 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -193,13 +193,53 @@ Partial Class Bancos_CuentasBancariasDetalle
 
                 DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
 
-                DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
+                DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
+
+
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
                 Else
-                    DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+
+                    Dim ExisteEnIntems As Boolean = False
+
+                    For Each li As ListItem In DDlCuentaContable.Items
+                        If li.Value.ToEntero = ObjCuentasBancariasDetalle.IdCtaContable Then
+                            ExisteEnIntems = True
+                            Exit For
+                        End If
+                    Next
+
+
+                    If ExisteEnIntems Then
+                        DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+                    Else
+
+                        If UsuarioActual.Empresa.UsaContabilidad Then
+                            Dim objCont As New ClsContPAQi(UsuarioActual.Empresa)
+
+
+                            If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then
+                                If objCont.DtResultados.Rows.Count > 0 Then
+
+                                    DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString))
+                                    DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+
+                                End If
+                            End If
+
+
+                            objCont.Dispose()
+
+                        End If
+
+
+                    End If
+
+
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+
+
                 End If
 
             Else
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index d1d1290f8..9b2e5f586 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2207,7 +2207,7 @@
                                                         <ItemTemplate>
                                                             <%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
                                                             <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px"></asp:TextBox>
-
+                                                             <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
 
                                                             <asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
@@ -6042,6 +6042,7 @@
             }
 
             $get("BtnLimpiaAF").click();
+           // $get("BtnVinculaAFEdit").click();
         }
 
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2c8b5f753..282e4212a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6570,7 +6570,7 @@ Partial Class Compras_Compras
 
                                                             If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
                                                                 'AF TipoAF 2 Es para las compras
-                                                                DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1")
+                                                                DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
                                                                 If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                                                     For Each Row2 As DataRow In DT.Rows
                                                                         importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal)
@@ -12626,6 +12626,17 @@ Partial Class Compras_Compras
 
         llenaDtsAF()
         CargaGVsAF()
+
+        For Each Row As DataRow In TmpDT.Rows
+
+            If Row("CveActivoFijo").ToString.ToEntero = 0 Then
+                Row("TipoAF") = DBNull.Value
+            End If
+
+        Next
+
+        TmpDT.AcceptChanges()
+
     End Sub
     Protected Sub DivirInsumo(sender As Object, e As EventArgs)
         Dim index2 As Integer = 0
@@ -12696,10 +12707,28 @@ Partial Class Compras_Compras
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
                     RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+
+                    Try
+                        TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                        TmpDT.AcceptChanges()
+                    Catch ex As Exception
+
+                    End Try
+
+
                 ElseIf HdnTipoAF.Value.ToEntero = 2 Then
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
                     RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+
+                    Try
+                        TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
+                        TmpDT.AcceptChanges()
+                    Catch ex As Exception
+
+                    End Try
+
+
                 End If
                 'COMENTADO IPP 15 JUNIO 2017
                 'RegistraScript(String.Format("EnterAFEditOK('{0}','{1}');", ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString, ObjAF.DtResultados.Rows(0)("Codigo").ToString))
@@ -12709,10 +12738,28 @@ Partial Class Compras_Compras
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
                     GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
                     RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+
+
+                    Try
+                        TmpDT.Rows(Index)("CveActivoFijo") = Nothing
+                        TmpDT.AcceptChanges()
+                    Catch ex As Exception
+
+                    End Try
+
+
                 ElseIf HdnTipoAF.Value.ToEntero = 2 Then
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
                     GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
                     RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
+
+                    Try
+                        TmpDT.Rows(Index)("CveActivoFijo") = Nothing
+                        TmpDT.AcceptChanges()
+                    Catch ex As Exception
+
+                    End Try
+
                 End If
 
                 Alert("No se encontró un Activo Fijo con el código proporcionado.", TipoMensaje.MsgAdvertencia)