-- mejoras

2024-11-06 08:52:42 -07:00
parent c256596b38
commit f2420770d4
3 changed files with 35 additions and 27 deletions
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -285,11 +285,16 @@
                                    </div>
                                    <label class="col-md-2" runat="server" id="DivLugarEntrega1">Lugar Entrega:</label>
                                    <div class="col-md-4" runat="server" id="DivLugarEntrega2">
-                                        <asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true"  OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" />
-                                          <asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" >
-                                              <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
-                                          </asp:DropDownList>
-                                        <asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox>
+                                         <asp:UpdatePanel ID="UPPLugarEntrega" runat="server" updatemode="Conditional">
+                                            <ContentTemplate>                                               
+                                                <asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true"  OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" />
+                                                  <asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" >
+                                                      <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                  </asp:DropDownList>
+                                                <asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox>
+                                            </ContentTemplate>
+                                            </asp:UpdatePanel>
+
                                    </div>
                                    <div class="row" runat="server" visible="False" id="TrCancelacion">
                                        <label class="col-md-2">Cancelacion:</label>
@@ -483,7 +488,7 @@
                                        <td><b>Descuento:</b></td>
                                        <td>
                                            <asp:TextBox ID="TxtDescuentoEscalonado" runat="server" Width="80px"  Height="28px"></asp:TextBox>
-                                            <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+" />
+                                            <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+." />
                                            <asp:Button runat="server" ID="BtnDescuenEscalonado" Text="Aplicar" CssClass="btn btn-primary" OnClick="BtnDescuenEscalonado_Click" />
                                        </td>
                                    </tr>
--- 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
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -286,7 +286,7 @@
                 <div class="modal-header">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
                     <h4 class="modal-title">
-                         <asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Porcentajes</asp:Label>
+                         <asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Ventas menores a </asp:Label>
                     </h4>
                 </div>
                 <div class="modal-body">
@@ -326,8 +326,8 @@
                               <div class="form-group form-md-line-input input-iconright">
                                  <asp:TextBox ID="TxtModalPorcentaje" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="5" Enabled="true"></asp:TextBox>
                                  <asp:RequiredFieldValidator ID="RfvTxtModalPorcentaje" CssClass="help-block errorimput"   runat="server" ControlToValidate="TxtModalPorcentaje" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalPorcentaje"></asp:RequiredFieldValidator>
-                                  <ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-" runat="server" />
-                                  <label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">Porcentaje Menor a:</label>
+                                  <ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-." runat="server" />
+                                  <label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">% Menor a:</label>
                              </div>
                         </div>
                         <div class="col-md-3">
@@ -346,17 +346,18 @@
                                 CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" >
                                 <Columns>

-                                     <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto"  ItemStyle-Width="200px"  />
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto"  ItemStyle-Width="120px"  />

                                     <asp:HyperLinkField ItemStyle-HorizontalAlign="Center"  HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}"  Target="_blank"
                                         DataNavigateUrlFields="CveVenta" 
                                         DataNavigateUrlFormatString="Ventas.aspx?CveVenta={0}" />                                    
-                                     <asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}"  ItemStyle-Width="100px" />
-                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="100px" />
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}"  ItemStyle-Width="85px" />
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="90px" />
+
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="90px" />
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="70px" />                                     
+                                     <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="Vendedor" DataField="Vendedor"  ItemStyle-Width="100px"  />

-                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="100px" />
-                                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="100px" />                                     
-                                   
                                 </Columns>
                             </asp:GridView>
                         </div>