diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 962040392..a9ca68b14 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -130,13 +130,13 @@ - <%--2021-04-15 contratos de obra--%> +
  • - - Prorrateo Gasolina + + Prorrateo
    • @@ -5723,7 +5723,15 @@
    -

    Prorratear Gasolina

    +

    + + + Prorratear + + + + +

    @@ -5747,9 +5755,9 @@ - - + <%-- + --%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9fe4edcb0..7ac1e7df7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1662,12 +1662,9 @@ Partial Class Compras_Compras End If If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then - ConfiguraseleccionRemisionNotaCredito() - End If - If Not CveCompra > 0 Then LnkProrrateoGasolina.Visible = True InicializaDTProrrateoGasolina() @@ -22373,12 +22370,14 @@ Partial Class Compras_Compras Protected Sub LnkProrrateoGasolina_Click(sender As Object, e As EventArgs) InicializaDTProrrateoGasolina() - CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina) + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina,) + GvProrrateoGasolina.Columns(0).HeaderText = LblSubProyectoProrrateoGasolina.Text + LblRiruloProrrareo.Text = $"Prorratear por { LblSubProyectoProrrateoGasolina.Text}" DdlSubProyectoProrrateoGasolina.Items.Clear() DdlSubProyectoProrrateoGasolina.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=-1)) DdlSubProyectoProrrateoGasolina.DataBind() - DdlSubProyectoProrrateoGasolina.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoProrrateoGasolina.Items.Insert(0, New ListItem("Todos", "-1")) LblTotalProrrateoGasolina.Text = TxtTotal.Text @@ -22386,6 +22385,7 @@ Partial Class Compras_Compras RegistraScript("$('#DVModalProrrateoGasolina').modal();") UpModalProrrateoGasolina.Update() + UpProrratearTitulo.Update() End Sub @@ -22476,6 +22476,27 @@ Partial Class Compras_Compras Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $" CveClasificacion = {CveClasificacion} ") + If DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero > 0 Then + AgregarProrrateoGasolina(DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero, DdlSubProyectoProrrateoGasolina.SelectedItem.Text, CvePs, CveUM, UM, CveClasificacion, Clasificacion) + Else + DTProrrateoGasolina.Rows.Clear() + + For Each item As ListItem In DdlSubProyectoProrrateoGasolina.Items + If item.Value.ToEntero > 0 Then + AgregarProrrateoGasolina(item.Value.ToEntero, item.Text, CvePs, CveUM, UM, CveClasificacion, Clasificacion) + End If + Next + End If + + TxtPrecioProrrateoGasolina.Text = "" + DdlSubProyectoProrrateoGasolina.SelectedValueExist(-1) + UpModalProrrateoGasolina.Update() + + End Sub + + + Private Sub AgregarProrrateoGasolina(CveSubProyecto As Integer, SubProyecto As String, CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String) + Dim SubTotalOriginal As Decimal = TxtSubTotal.Text.ToDecimal Dim IVAOriginal As Decimal = TxtIVA.Text.ToDecimal Dim RetISROriginal As Decimal = TxtRetISR.Text.ToDecimal @@ -22494,8 +22515,8 @@ Partial Class Compras_Compras Dim nRow As DataRow = DTProrrateoGasolina.NewRow nRow("CvePS") = DdlPSProrrateoGasolina.SelectedValue.ToEntero - nRow("CveSubProyecto") = DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero - nRow("SubProyecto") = DdlSubProyectoProrrateoGasolina.SelectedItem.Text + nRow("CveSubProyecto") = CveSubProyecto + nRow("SubProyecto") = SubProyecto nRow("SubTotal") = subtotalParcial If CveFactura > 0 Then @@ -22519,35 +22540,54 @@ Partial Class Compras_Compras DTProrrateoGasolina.Rows.Add(nRow) - DdlSubProyectoProrrateoGasolina.SelectedValueExist(-1) - TxtPrecioProrrateoGasolina.Text = "" ProrateoCalculaRestante() GvProrrateoGasolinaBind() - End Sub - Private Sub ProrateoCalculaRestante() - LblRestoProrrateoGasolina.Text = (TxtTotal.Text.ToDecimal - DTProrrateoGasolina.SUM("Total")).ToString("###,###,###.00") - End Sub + Function ProrateoCalculaRestante(Optional MostrarMensaje As Boolean = False) As Boolean + + Dim Acumulado As Decimal = DTProrrateoGasolina.SUM("Total") + Dim Total As Decimal = TxtTotal.Text.ToDecimal + Dim Respuesta As Boolean = False + + LblRestoProrrateoGasolina.Text = (Total - Acumulado).ToString("###,###,###.00") + + If Acumulado = Total Then + Respuesta = True + Else + Respuesta = False + If MostrarMensaje Then + + If Acumulado <> Total Then + Alert($"El importe prorrateado es diferenque del total, Total:{Total.ToString("###,###,###.00")}, Prorrateado:{Acumulado.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia) + End If + + End If + End If + + Return Respuesta + + End Function Protected Sub BtnGuardarProrrateoGasolina_Click(sender As Object, e As EventArgs) + If Not ProrateoCalculaRestante(True) Then + Exit Sub + End If + If DTProrrateoGasolina.Rows.Count > 0 Then TmpDT.Rows.Clear() For Each dRow As DataRow In DTProrrateoGasolina.Rows - AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "", "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("PorcentajeIVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal) - - Next AddPS2() - RegistraScript("$('#DVModalProrrateoGasolina').modal('hide');") + End If @@ -22559,14 +22599,6 @@ Partial Class Compras_Compras #End Region - - - - - - - - End Class