tipopermisoSCT

2021-10-05 08:26:18 -07:00
parent c12e0d1b82
commit 814f51d8c5
3 changed files with 21 additions and 16 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5490,7 +5490,7 @@ Public Class ClsInventarios
        End Try
        Return Retorno
    End Function
-    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, TipoPermisoSCT As String, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean
+    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Inv_CamionesAdd")
        With SqlAdapter.SelectCommand.Parameters
@@ -5498,7 +5498,7 @@ Public Class ClsInventarios
            .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
            .Add("@Anio", SqlDbType.Int).Value = Anio
-            .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT
+            .Add("@CveTipoPermisoSCT", SqlDbType.VarChar).Value = CveTipoPermisoSCT
            .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT
            .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora
            .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro
@@ -5528,7 +5528,7 @@ Public Class ClsInventarios
        End Try
        Return Retorno
    End Function
-    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, TipoPermisoSCT As String, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Inv_CamionesUpdate")
        With SqlAdapter.SelectCommand.Parameters
@@ -5537,7 +5537,7 @@ Public Class ClsInventarios
            .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
            .Add("@Anio", SqlDbType.Int).Value = Anio
-            .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT
+            .Add("@CveTipoPermisoSCT", SqlDbType.Int).Value = CveTipoPermisoSCT
            .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT
            .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora
            .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -34,21 +34,21 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,TipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro" 
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro" 
                EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; width: 100%" GridLines="None">
                <Columns>
                    
                    <asp:BoundField HeaderText="Placa" DataField="Placa" ItemStyle-HorizontalAlign="Left" />
                    <asp:BoundField HeaderText="Especificación" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
-                     <asp:BoundField HeaderText="Configuración Carta Porte" DataField="ConfigCartaPorte" ItemStyle-HorizontalAlign="Left" />                    
-                    <asp:BoundField HeaderText="Tipo Permiso SCT" DataField="TipoPermisoSCT" ItemStyle-HorizontalAlign="Left" />
+                     <asp:BoundField HeaderText="Config Carta Porte" DataField="ConfigCartaPorte" ItemStyle-HorizontalAlign="Left" />                    
+                    <asp:BoundField HeaderText="Tipo Permiso SCT" DataField="ClaveTipoPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                    <asp:BoundField HeaderText="Número Permiso SCT" DataField="NumPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                    <asp:BoundField HeaderText="Nombre Aseguradora" DataField="NombreAseguradora" ItemStyle-HorizontalAlign="Left" />
                    <asp:BoundField HeaderText="Numero Póliza Seguro" DataField="NumPolizaSeguro" ItemStyle-HorizontalAlign="Left" />                                    

                    <asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="15%" DataFormatString="{0:G}" />
                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
-                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                    <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
                        <ItemTemplate>
                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
@@ -113,14 +113,15 @@


                            <div class="form-group form-md-line-input input-iconright"  style="padding:0px">
-                                <label for="<%= TxtTipoPermisoSCT.ClientID.ToString()%>"  style="padding:0px">Tipo Permiso SCT:</label>
-                                <asp:TextBox ID="TxtTipoPermisoSCT" CssClass="form-control" runat="server" MaxLength="10"  style="padding:0px"></asp:TextBox>
-                                <asp:RequiredFieldValidator runat="server" ID="RfvTxtTipoPermisoSCT" ControlToValidate="TxtTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                <label for="<%= DdlTipoPermisoSCT.ClientID.ToString()%>"  style="padding:0px">Tipo Permiso SCT:</label>
+                                <asp:DropDownList ID="DdlTipoPermisoSCT" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveTipoPermisoDescripcion" DataValueField="CveTipoPermisoSCT"  style="padding:0px">                                     
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator runat="server" ID="RfvTxtTipoPermisoSCT" ControlToValidate="DdlTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
                                <i></i>
                            </div>

                            <div class="form-group form-md-line-input input-iconright"   style="padding:0px">
-                                <label for="<%= TxtNumermisoSCT.ClientID.ToString()%>"  style="padding:0px">Numero Permiso SCT:</label>
+                                <label for="<%= TxtNumermisoSCT.ClientID.ToString()%>"  style="padding:0px">Número Permiso SCT:</label>
                                <asp:TextBox ID="TxtNumermisoSCT" CssClass="form-control" runat="server" MaxLength="50"  style="padding:0px"></asp:TextBox>
                                <%--<asp:RequiredFieldValidator runat="server" ID="RfvTxtNumermisoSCT" ControlToValidate="TxtNumermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>--%>
                                <i></i>
--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -48,9 +48,13 @@ Partial Class Inventarios_CatUnidades
            If ObjGral.GetCartaPorteConfigAutoTransportes() Then
                DdlConfigAuto.DataSource = ObjGral.DtResultados
            End If
+            If ObjGral.GetCartaPorteTipoPermisoSCT() Then
+                DdlTipoPermisoSCT.DataSource = ObjGral.DtResultados
+            End If
        End Using

        DdlConfigAuto.DataBind()
+        DdlTipoPermisoSCT.DataBind()

        UpModalUnidades.Update()

@@ -69,7 +73,7 @@ Partial Class Inventarios_CatUnidades
        DdlConfigAuto.SelectedValueExist(-1)

        TxtAnio.Text = ""
-        TxtTipoPermisoSCT.Text = ""
+        'TxtTipoPermisoSCT.Text = ""
        TxtNumermisoSCT.Text = ""
        TxtNombreAseguradora.Text = ""
        TxtNumPolizaSeguro.Text = ""
@@ -94,7 +98,7 @@ Partial Class Inventarios_CatUnidades
        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"))

        TxtAnio.Text = GvRow.DataKey("Anio")
-        TxtTipoPermisoSCT.Text = GvRow.DataKey("TipoPermisoSCT")
+        DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT"))
        TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT")
        TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora")
        TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro")
@@ -140,13 +144,13 @@ Partial Class Inventarios_CatUnidades
        Dim ObjInventarios As New ClsInventarios

        If CveCamion <= 0 Then
-            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) Then
+            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) Then
                Alert("Unidad agregada correctamente")
            Else
                ErrorPrceso = True
            End If
        Else
-            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), TxtTipoPermisoSCT.Text, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                Alert("Unidad actualizada correctamente")
            Else
                ErrorPrceso = True