diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index fecbf4358..f91a5a395 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1020,16 +1020,12 @@ Partial Class OC_OC
TrDescuentoProntoPago.Visible = True
End If
-
-
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
BtnEdicionMasiva.Visible = True
End If
-
End If
MostrarUsuarioAsignado()
-
ValidaCancelacionConAlamcen()
Me.Form.DefaultButton = ""
@@ -1396,9 +1392,9 @@ Partial Class OC_OC
Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
If dts IsNot Nothing Then
ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
- If UsuarioActual.CveEmpresa = 189 Then
- lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString
- SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString
+ If ModalidadSubProyectoGeneral Then
+ lblFolio.Text = dts("Serie").ToString + "-" + dts("FActual").ToString
+ SerieFolio = dts("Serie").ToString + "-" + dts("FActual").ToString
Else
lblFolio.Text = TipoOC + " " + dts("FActual").ToString
SerieFolio = dts("FActual").ToString
@@ -1409,7 +1405,7 @@ Partial Class OC_OC
lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
SerieFolio = DT.Rows(0)("FActual").ToString
Else
- Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
+ Alert("No tiene registrados folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
End If
DT.Dispose()
@@ -6901,8 +6897,12 @@ Partial Class OC_OC
SubProyecto = DrProyecto("SubProyecto").ToString
End If
Else
- CveProyecto = -1
- CveSubProyecto = -1
+ If ModalidadSubProyectoGeneral Then
+ CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+ Else
+ CveProyecto = -1
+ CveSubProyecto = -1
+ End If
End If
If Codigo.Length > 0 Then
@@ -7731,8 +7731,8 @@ Partial Class OC_OC
Private Function ValidarDescuentos() As Boolean
Dim Retorno As Boolean = True
- Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento")
- Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal
+ Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
+ Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal.RoundSQL
If DescuentoConceptos <> DescuentoGeneral Then
Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia)
@@ -9394,6 +9394,8 @@ Partial Class OC_OC
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+ DdlSubProyectoEntrega.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+ UPPLugarEntrega.Update()
UPPDetalle.Update()
CargaFolios()
End Sub
diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx
index 286745018..b62cca4b0 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -286,7 +286,7 @@
- Consulta Porcentajes
+ Consulta Ventas menores a