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
-                        '    Costo = PrecioMinimo
-                        'End If
+                        If PrecioMinimo > 0 Then
+                            Costo = PrecioMinimo
+                        End If
                     End If
                     objPS.Dispose()
 
@@ -18436,42 +18436,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