diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 1ab731944..77a1c8d1b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -720,7 +720,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                         Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("Original").ToDecimal)
 
-                        If UsuarioActual.CveEmpresa < 2 Then
+                        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa < 2 Then
                             Valida.EsValida = 1
                         End If
 
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index a6a8b87f1..8f01ade50 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2793,7 +2793,7 @@ Partial Class Ventas_ClientesAbonar
 
                                 'CANCELA IE
                                 If Not ErrorCancelar Then
-                                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+                                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
                                         ErrorCancelar = True
                                     End If
                                 End If
@@ -2820,7 +2820,7 @@ Partial Class Ventas_ClientesAbonar
 
                             'CANCELA IE
                             If Not ErrorCancelar Then
-                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
                                     ErrorCancelar = True
                                 End If
                             End If
@@ -2833,12 +2833,12 @@ Partial Class Ventas_ClientesAbonar
 
                 If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
                     'CANCELA IE MES ANTERIOR
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
                         ErrorCancelar = True
                     End If
                 Else
                     'CANCELA IE MES ACTUAL
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
                         ErrorCancelar = True
                     End If
                 End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b9b769b94..9717df420 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5824,9 +5824,9 @@ Partial Class Ventas
                     Dim objPS As New ClsProductosServicios
                     If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then
                         PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal
-                        'If PrecioMinimo > 0 Then
-                        '    Costo = PrecioMinimo
-                        'End If
+                        If PrecioMinimo > 0 Then
+                            Costo = PrecioMinimo
+                        End If
                     End If
                     objPS.Dispose()
 
@@ -18440,42 +18440,38 @@ Partial Class Ventas
         'End If
         If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
 
-            'SI ES PRODUCCION VERIFICA EL ESTATUS ANTE EL SAT
-            If UsuarioActual.Empresa.FacturaProduccion AndAlso Not FolioFiscal.Contains("test") Then
-                Dim sb As New StringBuilder()
-                sb.Append("La factura se encuentra en el  siguiente estatus del SAT:<br/>")
+            Dim sb As New StringBuilder()
+            sb.Append("La factura se encuentra en el  siguiente estatus del SAT:<br/>")
 
-                Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
-                Dim RFCReceptor As String = LblRFC.Text.Trim
-                Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
-                If Vigencia IsNot Nothing Then
-                    If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
-                        Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
+            Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
+            Dim RFCReceptor As String = LblRFC.Text.Trim
+            Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
+            If Vigencia IsNot Nothing Then
+                If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
+                    Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+                If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
+                    If UsuarioActual.Empresa.FacturaProduccion AndAlso Not String.IsNullOrEmpty(FolioFiscal) Then
+                        Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
-                    If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
-                        If Not String.IsNullOrEmpty(FolioFiscal) Then
-                            Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
-                            Exit Sub
-                        End If
-                        sb.Append("<b>No encontrado</b> <br/>")
-                    Else
-                        sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
-                    End If
-                Else
+
                     sb.Append("<b>No encontrado</b> <br/>")
+                Else
+                    sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                 End If
-
-                sb.Append("Está seguro de cancelar el documento?.")
-
-                LblCancelarDocumento.Text = sb.ToString()
-
-                RegistraScript("$('#ModalCancelarDocumento').modal();")
-                UpCancelarDocumento.Update()
             Else
-                CancelarDocumento()
+                sb.Append("<b>No encontrado</b> <br/>")
             End If
 
+            sb.Append("Está seguro de cancelar el documento?.")
+
+            LblCancelarDocumento.Text = sb.ToString()
+
+            RegistraScript("$('#ModalCancelarDocumento').modal();")
+            UpCancelarDocumento.Update()
+
         Else
             CancelarDocumento()
         End If