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
 

Ventas/Ventas.aspx.vb

@@ -5820,9 +5820,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
+                        If PrecioMinimo > 0 Then
-                        '    Costo = PrecioMinimo
+                            Costo = PrecioMinimo
-                        'End If
+                        End If
                     End If
                     objPS.Dispose()
 
@@ -18436,8 +18436,6 @@ 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/>")
 
@@ -18450,10 +18448,11 @@ Partial Class Ventas
                     Exit Sub
                 End If
                 If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
-                        If Not String.IsNullOrEmpty(FolioFiscal) 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
+
                     sb.Append("<b>No encontrado</b> <br/>")
                 Else
                     sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
@@ -18468,9 +18467,6 @@ Partial Class Ventas
 
             RegistraScript("$('#ModalCancelarDocumento').modal();")
             UpCancelarDocumento.Update()
-            Else
-                CancelarDocumento()
-            End If
 
         Else
             CancelarDocumento()