1 Conta: Prorrateo gasolina, como admin, pedir a rene que te lo explique

Compras/Compras.aspx

@@ -130,13 +130,13 @@
     </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" >
+              <asp:LinkButton runat="server" ID="LnkProrrateoGasolina" CssClass="" data-toggle="tooltip" data-placement="left"  title="Prorrateo" OnClick="LnkProrrateoGasolina_Click" Visible="false" >
-                  <i class="fa fa-list" aria-hidden="true"></i> Prorrateo Gasolina
+                  <i class="fa fa-list" aria-hidden="true"></i> Prorrateo
               </asp:LinkButton>
           </li>
       </ContentTemplate>
@@ -5723,7 +5723,15 @@
             <div class="modal-content">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Prorratear Gasolina</h4>
+                    <h4 class="modal-title"> 
+                        <asp:UpdatePanel runat="server" ID="UpProrratearTitulo" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:Label runat="server" id="LblRiruloProrrareo">Prorratear</asp:Label>                                 
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                        
+
+                    </h4>
                 </div>
 
                 <div class="modal-body">
@@ -5747,9 +5755,9 @@
                                         <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"
+                                        <%--<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">
+                                            ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GprAgregaPSProrateo">
-                                                    </asp:RequiredFieldValidator>
+                                        </asp:RequiredFieldValidator>--%>
                                         <label runat="server" id="Label10" for="<%= DdlSubProyectoProrrateoGasolina.ClientID.ToString()%>">
                                             <asp:Label  runat="server" id="LblSubProyectoProrrateoGasolina"></asp:Label>:
                                         </label>

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("CveSubProyecto") = CveSubProyecto
-        nRow("SubProyecto") = DdlSubProyectoProrrateoGasolina.SelectedItem.Text
+        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()
+    Function ProrateoCalculaRestante(Optional MostrarMensaje As Boolean = False) As Boolean
-        LblRestoProrrateoGasolina.Text = (TxtTotal.Text.ToDecimal - DTProrrateoGasolina.SUM("Total")).ToString("###,###,###.00")
+
-    End Sub
+        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