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

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