agregando 2 nuevos campos a los folios garantias y nueva validación en punto de venta

2020-02-13 13:37:41 -07:00
parent 1e9d164476
commit a1b2c1271a
5 changed files with 100 additions and 21 deletions
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -67,6 +67,42 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:Panel ID="Panel1" runat="server" DefaultButton="BtnConsultar">
+                <div class="portlet solid grey-cascade portlet-filter">
+                    <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
+                        <div class="tools">
+                            <asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" />
+                        </div>
+                        <div class="titlefiltros  caption ">
+                            <div class="row" style="padding-top: 10px;">
+                                <label class="col-md-1 truncate">Tipo Folio:</label>
+                                <div class="col-md-2 ">
+                                   <%-- <asp:DropDownList ID="DdlSucursal" runat="server" CssClass="select2me" DataTextField="Sucursal" DataValueField="CveSucursal" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>--%>
+                                     <asp:DropDownList ID="DdlTipoFolio" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Value="general" >general</asp:ListItem>
+                                        <asp:ListItem Value="optima">optima</asp:ListItem>
+                                        <asp:ListItem Value="motobateria">motobateria</asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                                <label class="col-md-1 truncate">Estatus:</label>
+                                <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Text="Activo" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </asp:Panel>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
    <asp:UpdatePanel ID="UpGral" runat="server" UpdateMode="Conditional">
        <ContentTemplate>

@@ -77,12 +113,12 @@
                </div>
            </div>

-            <div class="row"  style="margin:5px">
+            <div class="row" style="margin: 5px">
                <asp:UpdatePanel ID="UPGvFolioGarantia" runat="server" UpdateMode="Conditional">
                    <ContentTemplate>

                        <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto"
+                            DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                            data-sort="true"
@@ -94,7 +130,16 @@
                                        &nbsp;<asp:Literal ID="LblFolioGarantia" runat="server" Text='<%# Eval("FolioGarantia") %>'></asp:Literal>
                                    </ItemTemplate>
                                </asp:TemplateField>
-                                
+                                <asp:TemplateField HeaderText="Tipo Folio">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Limite">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                <asp:TemplateField HeaderText="SubProyecto" ItemStyle-Width="150px">
                                    <ItemTemplate>
                                        &nbsp;<asp:Literal ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
@@ -201,9 +246,9 @@
                                    <label for="<%= TxtFolioGarantia.ClientID.ToString()%>">Folio:</label>
                                    <i></i>
                                </div>
-                                
+
                                <br />
-                                
+
                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                    <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="200px" AutoPostBack="true"></asp:DropDownList>
                                    <asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
@@ -216,10 +261,27 @@

                                <div class="form-group form-md-line-input input-iconright">
                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>&nbsp;
+                                   
                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
                                    <i></i>
                                </div>

+                                <div class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
+                                    <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Value="general" Selected ="True">general</asp:ListItem>
+                                        <asp:ListItem Value="optima">optima</asp:ListItem>
+                                        <asp:ListItem Value="motobateria">motobateria</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label>
+                                    <i></i>
+                                </div>
                                <%--                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                    <asp:TextBox ID="TxtCargo" CssClass="form-control " Width="150px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important; margin-right: 10px!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
                                    <asp:RequiredFieldValidator ID="RFVTxtCargo" runat="server" ControlToValidate="TxtCargo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cargo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTamanio"></asp:RequiredFieldValidator>
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -38,7 +38,7 @@ Partial Class Acumuladores_CatFoliosGarantia

        If Not Page.IsPostBack Then
            CargaSubProyectos()
-            CargadatosGvFolioGarantia()
+            CargadatosGvFolioGarantia(-1, "-1")
        End If

    End Sub
@@ -53,11 +53,11 @@ Partial Class Acumuladores_CatFoliosGarantia
        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

-    Private Sub CargadatosGvFolioGarantia()
+    Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

        Dim objAcum As New ClsAcumuladores

-        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa) Then
+        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor) Then
            GvFolioGarantia.DataSource = objAcum.DtResultados
        Else
            GvFolioGarantia.DataSource = Nothing
@@ -116,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia


        If Not Actualizar Then
-            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero) Then
+            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then

                TxtFolioGarantia.Text = ""
                ChkEstatus.Checked = True
@@ -125,7 +125,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                'TxtCompra.Text = ""
                'TxtPuntos.Text = ""

-                CargadatosGvFolioGarantia()
+                CargadatosGvFolioGarantia(-1, "-1")

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
                UpGral.Update()
@@ -135,7 +135,8 @@ Partial Class Acumuladores_CatFoliosGarantia
                Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError)
            End If
        Else
-            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero) Then
+            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
+                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then

                TxtFolioGarantia.Text = ""
                ChkEstatus.Checked = True
@@ -144,7 +145,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                'TxtCompra.Text = ""
                'TxtPuntos.Text = ""

-                CargadatosGvFolioGarantia()
+                CargadatosGvFolioGarantia(-1, "-1")
                UpModalFolioGarantia.Update()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
@@ -171,7 +172,7 @@ Partial Class Acumuladores_CatFoliosGarantia
        Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")

        If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
-            CargadatosGvFolioGarantia()
+            CargadatosGvFolioGarantia(-1, "-1")

            Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion)
        Else
@@ -180,7 +181,7 @@ Partial Class Acumuladores_CatFoliosGarantia

        objAcum.Dispose()

-        CargadatosGvFolioGarantia()
+        CargadatosGvFolioGarantia(-1, "-1")

        CveFolioGarantia = -1

@@ -198,6 +199,8 @@ Partial Class Acumuladores_CatFoliosGarantia

        TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia")
        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
+        TxtLimite.Text = GvRow.DataKey("Limite")
+        DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
        'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")
        'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00")
        'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00")
@@ -221,6 +224,8 @@ Partial Class Acumuladores_CatFoliosGarantia

 #End Region

-
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
+    End Sub

 End Class
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -483,7 +483,7 @@ Public Class ClsAcumuladores

 #Region " FOLIOS GARANTÍA "

-    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean
+    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional TipoFolio As String = "-1") As Boolean
        Dim Retorno As Boolean = False
        'Data = New DataTable

@@ -493,6 +493,7 @@ Public Class ClsAcumuladores
            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
            .Add("@Estatus", SqlDbType.Int).Value = Estatus
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@tipoFolio", SqlDbType.VarChar).Value = TipoFolio
        End With

        Try
@@ -507,7 +508,7 @@ Public Class ClsAcumuladores
        Return Retorno
    End Function

-    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
+    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
        Dim Retorno As Boolean = False
        'Data = New DataTable

@@ -520,6 +521,8 @@ Public Class ClsAcumuladores
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
+            .Add("@Limite", SqlDbType.Int).Value = Limite

        End With

@@ -535,7 +538,7 @@ Public Class ClsAcumuladores
        Return Retorno
    End Function

-    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean
+    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
        Dim Retorno As Boolean = False
        'Data = New DataTable

@@ -548,6 +551,8 @@ Public Class ClsAcumuladores
            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
+            .Add("@Limite", SqlDbType.Int).Value = Limite

        End With

--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -1099,7 +1099,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
+                                  <Value>=Fields!PS.Value &amp; System.Environment.NewLine &amp; IIF(Fields!Obs.Value &lt;&gt; "","Observaciones: ","") &amp; Fields!Obs.Value</Value>
                                  <Style>
                                    <FontFamily>calibri</FontFamily>
                                    <FontSize>8.75pt</FontSize>
@@ -3150,7 +3150,7 @@
            </Style>
          </Textbox>
        </ReportItems>
-        <Height>20.5093cm</Height>
+        <Height>20.50931cm</Height>
        <Style />
      </Body>
      <Width>21.16666cm</Width>
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5503,7 +5503,14 @@ Partial Class PV
        Dim ObjAcumuladores As New ClsAcumuladores
        If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
            Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
-            TxtConsecutivoAjuste.Text = resultado.ToString
+            If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
+                If resultado < Limite Or Limite = 0 Then
+                    TxtConsecutivoAjuste.Text = resultado.ToString
+                Else
+                    Alert("limite de folios alcanzado")
+                End If
+            End If
            UpAjuste.Update()
        End If
        ObjAcumuladores.Dispose()