diff --git a/OC/OC.aspx b/OC/OC.aspx index ebc659f7e..76248793d 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -285,11 +285,16 @@
- - - - - + + + + + + + + + +
@@ -483,7 +488,7 @@ Descuento: - + 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 @@
@@ -346,17 +346,18 @@ CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" > - + - - + + + + + + - - -