1 Conta: Prorrateo gasolina, como admin, pedir a rene que te lo explique
This commit is contained in:
rakcsle
@@ -128,6 +128,20 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
<%--2021-04-15 contratos de obra--%>
|
||||||
|
<asp:UpdatePanel ID="UpAccionesProrrateoGasolina" runat="server" UpdateMode="Conditional">
|
||||||
|
|
||||||
|
<ContentTemplate>
|
||||||
|
<li style="text-align: left!important" >
|
||||||
|
<asp:LinkButton runat="server" ID="LnkProrrateoGasolina" CssClass="" data-toggle="tooltip" data-placement="left" title="Prorrateo Gasolina" OnClick="LnkProrrateoGasolina_Click" Visible="false" >
|
||||||
|
<i class="fa fa-list" aria-hidden="true"></i> Prorrateo Gasolina
|
||||||
|
</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</ContentTemplate>
|
||||||
|
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
@@ -4576,7 +4590,6 @@
|
|||||||
<label runat="server" id="LblSubProyectoEx" for="<%= DdlSubProyecto.ClientID.ToString()%>">
|
<label runat="server" id="LblSubProyectoEx" for="<%= DdlSubProyecto.ClientID.ToString()%>">
|
||||||
<asp:Label runat="server" id="LblSubProyecto"></asp:Label>:
|
<asp:Label runat="server" id="LblSubProyecto"></asp:Label>:
|
||||||
</label>
|
</label>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-4">
|
<div class="col-md-4">
|
||||||
@@ -5703,6 +5716,120 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<div id="DVModalProrrateoGasolina" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
<!-- Modal content-->
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">Prorratear Gasolina</h4>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="modal-body">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpModalProrrateoGasolina" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<ADS:Dropdownlost runat="server" ID="DdlPSProrrateoGasolina" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||||
|
<label for="<%= DdlPSProrrateoGasolina.ClientID.ToString()%>">
|
||||||
|
Productos / Servicio:
|
||||||
|
<label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row" style="margin-top:10px">
|
||||||
|
<div class="col-md-4">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubProyectoProrrateoGasolina" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||||
|
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlSubProyectoProrrateoGasolina" runat="server" ControlToValidate="DdlSubProyectoProrrateoGasolina" CssClass="help-block errorimput" InitialValue="-1"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GprAgregaPSProrateo">
|
||||||
|
</asp:RequiredFieldValidator>
|
||||||
|
<label runat="server" id="Label10" for="<%= DdlSubProyectoProrrateoGasolina.ClientID.ToString()%>">
|
||||||
|
<asp:Label runat="server" id="LblSubProyectoProrrateoGasolina"></asp:Label>:
|
||||||
|
</label>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-md-4">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtPrecioProrrateoGasolina" ClientIDMode="Static" runat="server" CssClass=" form-control " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
|
||||||
|
<ajax:FilteredTextBoxExtender ID="FilTxtPrecioProrrateoGasolina" runat="server" TargetControlID="TxtPrecioProrrateoGasolina" FilterType="Custom, Numbers" ValidChars="." />
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtPrecioProrrateoGasolina" runat="server" ControlToValidate="TxtPrecioProrrateoGasolina" CssClass="help-block errorimput"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPSProrateo">
|
||||||
|
</asp:RequiredFieldValidator>
|
||||||
|
<label for="<%= TxtPrecioProrrateoGasolina.ClientID.ToString()%>">Importe:</label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-4" style="margin-top:10px;text-align:right">
|
||||||
|
<asp:LinkButton ID="LnkAgregarProrrateoGasolina" OnClick="LnkAgregarProrrateoGasolina_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="GprAgregaPSProrateo" > </asp:LinkButton>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row" style="margin-top:10px">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:Label runat="server" ID="LblTotalProrrateoGasolina" CssClass="form-control" ></asp:Label>
|
||||||
|
<label for="<%= LblTotalProrrateoGasolina.ClientID.ToString()%>">Total:</label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:Label runat="server" ID="LblRestoProrrateoGasolina" CssClass="form-control"></asp:Label>
|
||||||
|
<label for="<%= LblRestoProrrateoGasolina.ClientID.ToString()%>">Restante:</label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<asp:GridView ID="GvProrrateoGasolina" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0"
|
||||||
|
DataKeyNames=""
|
||||||
|
CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" />
|
||||||
|
<asp:BoundField DataField="Subtotal" HeaderText="Subtotal" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
|
||||||
|
<asp:BoundField DataField="IVA" HeaderText="IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.######}" />
|
||||||
|
<asp:BoundField DataField="RetIVA" HeaderText="Ret. IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
|
||||||
|
<asp:BoundField DataField="RetISR" HeaderText="RetISR" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
|
||||||
|
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00##}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
|
||||||
|
<asp:TemplateField HeaderText="Eliminar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:LinkButton ID="LnkEliminarProrrateoGasolina" runat="server"
|
||||||
|
CssClass="btn btn-circle btn-xs red" OnClick="LnkEliminarProrrateoGasolina_Click"
|
||||||
|
Text="<i class='icon-trash'></i>" data-toggle="confirmation"
|
||||||
|
data-popout="true" data-original-title="¿Seguro que desea eliminar el prorrateo?" data-btn-ok-label="si">
|
||||||
|
</asp:LinkButton>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:UpdatePanel runat="server">
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<asp:Button ID="BtnGuardarProrrateoGasolina" OnClick="BtnGuardarProrrateoGasolina_Click" runat="server" Text="Guardar" CssClass="btn btn-primary" />
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div style="display:none">
|
<div style="display:none">
|
||||||
<asp:UpdatePanel runat="server">
|
<asp:UpdatePanel runat="server">
|
||||||
|
|||||||
@@ -1667,6 +1667,12 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If Not CveCompra > 0 Then
|
||||||
|
LnkProrrateoGasolina.Visible = True
|
||||||
|
InicializaDTProrrateoGasolina()
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'SE OCUPAN AFUERA DEL POSTBACK ??
|
'SE OCUPAN AFUERA DEL POSTBACK ??
|
||||||
@@ -22326,6 +22332,239 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
#Region "PRORRATEO GASOLINA"
|
||||||
|
|
||||||
|
|
||||||
|
Property DTProrrateoGasolina As DataTable
|
||||||
|
Get
|
||||||
|
If ViewState("DTProrrateoGasolina") Is Nothing Then
|
||||||
|
ViewState("DTProrrateoGasolina") = New DataTable
|
||||||
|
End If
|
||||||
|
Return DirectCast(ViewState("DTProrrateoGasolina"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DTProrrateoGasolina") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Sub InicializaDTProrrateoGasolina()
|
||||||
|
Dim TmpDTProrrateoGasolina As New DataTable
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("CvePS", GetType(Integer))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("CveSubProyecto", GetType(Integer))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("SubProyecto", GetType(String))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("SubTotal", GetType(Decimal))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("IVA", GetType(Decimal))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("RetIVA", GetType(Decimal))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal))
|
||||||
|
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("UM", GetType(String))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("Clasificacion", GetType(String))
|
||||||
|
TmpDTProrrateoGasolina.Columns.Add("PS", GetType(String))
|
||||||
|
|
||||||
|
|
||||||
|
DTProrrateoGasolina = TmpDTProrrateoGasolina
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkProrrateoGasolina_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
InicializaDTProrrateoGasolina()
|
||||||
|
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina)
|
||||||
|
|
||||||
|
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"))
|
||||||
|
|
||||||
|
LblTotalProrrateoGasolina.Text = TxtTotal.Text
|
||||||
|
|
||||||
|
CargaProrratePS(-1)
|
||||||
|
|
||||||
|
RegistraScript("$('#DVModalProrrateoGasolina').modal();")
|
||||||
|
UpModalProrrateoGasolina.Update()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CargaProrratePS(CveClasificacion As Integer)
|
||||||
|
|
||||||
|
DdlPSProrrateoGasolina.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
||||||
|
DdlPSProrrateoGasolina.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
|
||||||
|
DdlPSProrrateoGasolina.SelectedText = ""
|
||||||
|
DdlPSProrrateoGasolina.SelectedValue = "-1"
|
||||||
|
Else
|
||||||
|
DdlPSProrrateoGasolina.ddl.Items.Clear()
|
||||||
|
|
||||||
|
'DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion)
|
||||||
|
|
||||||
|
If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
|
||||||
|
|
||||||
|
Dim DTTemp As New DataTable
|
||||||
|
DTTemp.Columns.Add("CvePS", GetType(Integer))
|
||||||
|
DTTemp.Columns.Add("PSCodigo", GetType(String))
|
||||||
|
DTTemp.Columns.Add("CveClasificacion", GetType(Integer))
|
||||||
|
|
||||||
|
For Each dRow As DataRow In GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).Rows
|
||||||
|
For Each drowCla As DataRow In DTClasificacionesComprobaciones.Rows
|
||||||
|
|
||||||
|
If drowCla("CveClasificacion").ToString.ToEntero = dRow("CveClasificacion").ToString.ToEntero Then
|
||||||
|
|
||||||
|
Dim InRow As DataRow = DTTemp.NewRow
|
||||||
|
InRow("CvePS") = dRow("CvePS").ToString.ToEntero
|
||||||
|
InRow("PSCodigo") = dRow("PSCodigo").ToString
|
||||||
|
InRow("CveClasificacion") = dRow("CveClasificacion").ToString.ToEntero
|
||||||
|
DTTemp.Rows.Add(InRow)
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
DdlPSProrrateoGasolina.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp)
|
||||||
|
Else
|
||||||
|
DdlPSProrrateoGasolina.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa))
|
||||||
|
End If
|
||||||
|
|
||||||
|
DdlPSProrrateoGasolina.ddl.DataBind()
|
||||||
|
DdlPSProrrateoGasolina.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub GvProrrateoGasolinaBind()
|
||||||
|
GvProrrateoGasolina.DataSource = DTProrrateoGasolina
|
||||||
|
GvProrrateoGasolina.DataBind()
|
||||||
|
UpModalProrrateoGasolina.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkEliminarProrrateoGasolina_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||||
|
DTProrrateoGasolina.Rows.RemoveAt(GvRow.RowIndex)
|
||||||
|
DTProrrateoGasolina.AcceptChanges()
|
||||||
|
ProrateoCalculaRestante()
|
||||||
|
GvProrrateoGasolinaBind()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Sub LnkAgregarProrrateoGasolina_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Dim CvePs As Integer = DdlPSProrrateoGasolina.SelectedValue.ToEntero
|
||||||
|
|
||||||
|
If Not CvePs > 0 Then
|
||||||
|
Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim PsRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePs).FiltroPrimero("")
|
||||||
|
|
||||||
|
If PsRow Is Nothing Then
|
||||||
|
Alert("No se encontro el producto", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim CveUM As Integer = PsRow("CveUM").ToString.ToEntero
|
||||||
|
Dim UM As String = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $" CveUnidadMedida = {CveUM} ")
|
||||||
|
|
||||||
|
Dim CveClasificacion As Integer = PsRow("CveClasificacion").ToString.ToEntero
|
||||||
|
Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $" CveClasificacion = {CveClasificacion} ")
|
||||||
|
|
||||||
|
|
||||||
|
Dim SubTotalOriginal As Decimal = TxtSubTotal.Text.ToDecimal
|
||||||
|
Dim IVAOriginal As Decimal = TxtIVA.Text.ToDecimal
|
||||||
|
Dim RetISROriginal As Decimal = TxtRetISR.Text.ToDecimal
|
||||||
|
Dim RetIVAOriginal As Decimal = TxtRetIVA.Text.ToDecimal
|
||||||
|
Dim TotalOriginal As Decimal = TxtTotal.Text.ToDecimal
|
||||||
|
|
||||||
|
Dim totalParcialDeseado As Decimal = TxtPrecioProrrateoGasolina.Text.ToDecimal
|
||||||
|
|
||||||
|
Dim PorcentajeCalculado As Decimal = totalParcialDeseado / TotalOriginal
|
||||||
|
|
||||||
|
Dim subtotalParcial As Decimal = SubTotalOriginal * PorcentajeCalculado
|
||||||
|
Dim ivaParcial As Decimal = IVAOriginal * PorcentajeCalculado
|
||||||
|
Dim retIsrParcial As Decimal = RetISROriginal * PorcentajeCalculado
|
||||||
|
Dim retIvaParcial As Decimal = RetIVAOriginal * PorcentajeCalculado
|
||||||
|
|
||||||
|
Dim nRow As DataRow = DTProrrateoGasolina.NewRow
|
||||||
|
|
||||||
|
nRow("CvePS") = DdlPSProrrateoGasolina.SelectedValue.ToEntero
|
||||||
|
nRow("CveSubProyecto") = DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero
|
||||||
|
nRow("SubProyecto") = DdlSubProyectoProrrateoGasolina.SelectedItem.Text
|
||||||
|
nRow("SubTotal") = subtotalParcial
|
||||||
|
|
||||||
|
If CveFactura > 0 Then
|
||||||
|
nRow("IVA") = ivaParcial
|
||||||
|
nRow("RetIVA") = retIvaParcial
|
||||||
|
nRow("RetISR") = retIsrParcial
|
||||||
|
Else
|
||||||
|
nRow("IVA") = (ivaParcial / subtotalParcial)
|
||||||
|
nRow("RetIVA") = (retIvaParcial / subtotalParcial)
|
||||||
|
nRow("RetISR") = (retIsrParcial / subtotalParcial)
|
||||||
|
End If
|
||||||
|
|
||||||
|
nRow("Total") = totalParcialDeseado
|
||||||
|
nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial)
|
||||||
|
|
||||||
|
nRow("CveUM") = CveUM
|
||||||
|
nRow("UM") = UM
|
||||||
|
nRow("CveClasificacion") = CveClasificacion
|
||||||
|
nRow("Clasificacion") = Clasificacion
|
||||||
|
nRow("PS") = DdlPSProrrateoGasolina.txtText.Value
|
||||||
|
|
||||||
|
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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Sub BtnGuardarProrrateoGasolina_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
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()
|
||||||
|
End If
|
||||||
|
|
||||||
|
RegistraScript("$('#DVModalProrrateoGasolina').modal('hide');")
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user