T129 Auditoria SAT
This commit is contained in:
Rakcsle Supertramp
@@ -39,15 +39,21 @@
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Registro Revisión
|
||||
Tipo Servicio
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<li style="text-align: left!important">
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarMaterial" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar Material" Text="<i class='fa fa-plus'></i> Agregar Material" OnClick="LnkAgregarMaterial_Click"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
@@ -90,9 +96,7 @@
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
<asp:DropDownList ID="DdlTipoMantenimiento" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="TipoMantenimiento" DataValueField="CveTipoMantenimiento"></asp:DropDownList>
|
||||
|
||||
<label for="<%= DdlTipoMantenimiento.ClientID.ToString()%>">
|
||||
<asp:Label runat="server" ID="LblTipo" Text="Tipo Mantenimiento:"></asp:Label>
|
||||
</label>
|
||||
@@ -100,13 +104,13 @@
|
||||
<asp:RequiredFieldValidator ID="RFVDdlTipoServicio" runat="server" InitialValue="-1" ControlToValidate="DdlTipoMantenimiento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Mantenimientp''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtDuracion" runat="server" MaxLength="30"></asp:TextBox>
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtDuracion" runat="server" MaxLength="5"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDuracion" FilterType="Numbers,Custom" InvalidChars="-*+" ValidChars="1234567890." />
|
||||
<asp:Label AssociatedControlID="TxtDuracion" runat="server" Text="Duración:"></asp:Label>
|
||||
<asp:RequiredFieldValidator ID="RFVTxtDuracion" runat="server" ControlToValidate="TxtDuracion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Duración''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
</div>
|
||||
@@ -125,28 +129,43 @@
|
||||
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" >
|
||||
|
||||
<ajax:TabPanel ID="TabMaterial" runat="server" HeaderText="Materia">
|
||||
<ajax:TabPanel ID="TabMaterial" runat="server" HeaderText="Material">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvMaterial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames=""
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Unidad">
|
||||
<ItemStyle Width="350px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:UpdatePanel runat="server" ID="UpGvMaterial" UpdateMode="Conditional" >
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvMaterial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames="CveTipoServicioMaterial,CveTipoServicio,Cantidad,CveUM,CvePS,Tipo"
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Cantidad" ItemStyle-Width="15%" HeaderText="Cantidad" />
|
||||
<asp:BoundField DataField="Abreviatura" ItemStyle-Width="15%" HeaderText="U.M." />
|
||||
<asp:TemplateField ItemStyle-Width="45%" HeaderText="Producto" >
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>' Width="220px"></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEliminarMaterial" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarMaterial_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -156,49 +175,73 @@
|
||||
<ajax:TabPanel ID="TabActividades" runat="server" HeaderText="Actividades">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="col-md-6">
|
||||
|
||||
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames=""
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
<asp:UpdatePanel runat="server" ID="UpGvActividades" UpdateMode="Conditional" >
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:TemplateField HeaderText="Unidad">
|
||||
<ItemStyle Width="350px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames="CveActividad" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemStyle Width="20px" />
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox runat="server" ID="Chk" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:TemplateField HeaderText="Horas" >
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtHoras" Width="100px"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtHoras" FilterType="Custom" ValidChars="1234567890." />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:BoundField DataField="Nombre" ItemStyle-Width="30%" HeaderText="Actividad" />
|
||||
<asp:BoundField DataField="Puesto" ItemStyle-Width="30%" HeaderText="Puesto" />
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="check List">
|
||||
<ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="Check List">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames=""
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
<asp:UpdatePanel runat="server" ID="UpGvCheckList" UpdateMode="Conditional" >
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
|
||||
DataKeyNames=""
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Unidad">
|
||||
<ItemStyle Width="350px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Unidad">
|
||||
<ItemStyle Width="350px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
@@ -209,13 +252,60 @@
|
||||
</ajax:TabContainer>
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div id="ModalMateriales" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Literal ID="Literal1" runat="server">Material </asp:Literal>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</h4>
|
||||
</div>
|
||||
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpModalMaterialesBody" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPS" DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" CssClassDdl="select2me" CssStyle="width: 220px;"/>
|
||||
<label for="<%= DdlPS.ClientID.ToString()%>">
|
||||
Producto:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" MaxLength="100"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890." />
|
||||
<asp:RequiredFieldValidator ID="RFVTxtCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono ''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterial"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtCantidad.ClientID.ToString()%>">
|
||||
Cantidad:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox runat="server" Text="Continuar agregando" ID="ChkContinuarMaterial" />
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button runat="server" ID="BtnGuardarMaterial" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpMaterial" OnClick="BtnGuardarMaterial_Click" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -262,13 +352,14 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12" style="text-align:center">
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" OnClick="BtnGuardar_Click" Visible="false" />
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" OnClick="BtnGuardar_Click" Visible="true" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
@@ -12,20 +12,59 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
|
||||
Property CveOrdenTrabajo As Integer
|
||||
Property CveTipoServicio As Integer
|
||||
Get
|
||||
If ViewState("CveOrdenTrabajo") Is Nothing Then
|
||||
If ViewState("CveTipoServicio") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveOrdenTrabajo").ToString.ToEntero
|
||||
Return ViewState("CveTipoServicio").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveOrdenTrabajo") = value
|
||||
ViewState("CveTipoServicio") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DTMateriales As DataTable
|
||||
Get
|
||||
If ViewState("DTMateriales") Is Nothing Then
|
||||
Return New DataTable
|
||||
Else
|
||||
Return DirectCast(ViewState("DTMateriales"), DataTable)
|
||||
End If
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTMateriales") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Property DTActividades As DataTable
|
||||
Get
|
||||
If ViewState("DTActividades") Is Nothing Then
|
||||
Return New DataTable
|
||||
Else
|
||||
Return DirectCast(ViewState("DTActividades"), DataTable)
|
||||
End If
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTActividades") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Property DTACheckList As DataTable
|
||||
Get
|
||||
If ViewState("DTACheckList") Is Nothing Then
|
||||
Return New DataTable
|
||||
Else
|
||||
Return DirectCast(ViewState("DTACheckList"), DataTable)
|
||||
End If
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTACheckList") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
@@ -34,8 +73,12 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
|
||||
If Request("CveOrdenTrabajo") IsNot Nothing Then
|
||||
CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
|
||||
If Request("CveTipoServicio") IsNot Nothing Then
|
||||
CveTipoServicio = Request("CveTipoServicio").ToEntero
|
||||
End If
|
||||
|
||||
If CveTipoServicio = -1 Then
|
||||
CrearTablas()
|
||||
End If
|
||||
|
||||
CargaCombos()
|
||||
@@ -43,11 +86,57 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Property IndexMaterial As Integer
|
||||
Get
|
||||
If ViewState("IndexMaterial") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("IndexMaterial").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexMaterial") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Property IndexActividades As Integer
|
||||
Get
|
||||
If ViewState("IndexActividades") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("IndexActividades").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexActividades") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property IndexCheckList As Integer
|
||||
Get
|
||||
If ViewState("IndexCheckList") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("IndexCheckList").ToString.ToEntero
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexCheckList") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CARGA PARAMETROS "
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " CARGA COMBOS "
|
||||
|
||||
Protected Sub CargaCombos()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
@@ -65,6 +154,52 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
UpFiltro.Update()
|
||||
|
||||
DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
|
||||
|
||||
If CveTipoServicio <= 0 Then
|
||||
CargaActividades()
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "CREAR TABLAS"
|
||||
|
||||
Private Sub CrearTablas()
|
||||
'CveTipoServicioMaterial CveTipoServicio Cantidad CveUM CvePS Tipo
|
||||
|
||||
Dim DtTempMaterial As New DataTable
|
||||
Dim DtTempActividades As New DataTable
|
||||
|
||||
DtTempMaterial.Columns.Add("CveTipoServicioMaterial", GetType(Integer))
|
||||
DtTempMaterial.Columns.Add("CveTipoServicio", GetType(Integer))
|
||||
DtTempMaterial.Columns.Add("Cantidad", GetType(Decimal))
|
||||
DtTempMaterial.Columns.Add("CveUM", GetType(Integer))
|
||||
DtTempMaterial.Columns.Add("CvePS", GetType(Integer))
|
||||
DtTempMaterial.Columns.Add("Tipo", GetType(Integer))
|
||||
DtTempMaterial.Columns.Add("PS", GetType(String))
|
||||
DtTempMaterial.Columns.Add("Abreviatura", GetType(String))
|
||||
DtTempMaterial.AcceptChanges()
|
||||
|
||||
DTMateriales = DtTempMaterial
|
||||
|
||||
|
||||
'CveTipoServicioActividad CveActividad Duracion Observaciones
|
||||
|
||||
DtTempActividades.Columns.Add("CveTipoServicioActividad", GetType(String))
|
||||
DtTempActividades.Columns.Add("CveActividad", GetType(String))
|
||||
DtTempActividades.Columns.Add("Duracion", GetType(Decimal))
|
||||
DtTempActividades.Columns.Add("Observaciones", GetType(String))
|
||||
DtTempActividades.AcceptChanges()
|
||||
|
||||
DTActividades = DtTempActividades
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -72,6 +207,7 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CARGA DATOS "
|
||||
'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
|
||||
' CargaDatos()
|
||||
@@ -85,6 +221,61 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
Private Sub CargaDatos()
|
||||
|
||||
CargaMateriales()
|
||||
CargaActividades()
|
||||
CargaCheckList()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMateriales()
|
||||
|
||||
If CveTipoServicio > 0 Then
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetTiposServiciosMaterial(-1, CveTipoServicio) Then
|
||||
GvMaterial.DataSource = DTMateriales
|
||||
|
||||
Else
|
||||
GvMaterial = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
GvMaterial.DataBind()
|
||||
Else
|
||||
GvMaterial.DataSource = DTMateriales
|
||||
GvMaterial.DataBind()
|
||||
End If
|
||||
|
||||
UpGvMaterial.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaActividades()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If CveTipoServicio <= 0 Then
|
||||
|
||||
If ObjAF.GetActividades(-1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvActividades.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvActividades.DataSource = Nothing
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
GvActividades.DataBind()
|
||||
|
||||
UpGvActividades.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCheckList()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
|
||||
@@ -94,7 +285,6 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -110,9 +300,6 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -277,4 +464,154 @@ Partial Class AF_TipoOrdenTrabajo
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkAgregarMaterial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
RegistraScript("$('#ModalMateriales').modal('show');")
|
||||
ResetModalMaterial()
|
||||
End Sub
|
||||
|
||||
Private Sub ResetModalMaterial()
|
||||
|
||||
DdlPS.txtValue.Value = ""
|
||||
DdlPS.txtText.Value = ""
|
||||
TxtCantidad.Text = ""
|
||||
|
||||
UpModalMaterialesBody.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnGuardarMaterial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
If DdlPS.txtValue.Value.ToString.ToEntero <= 0 Then
|
||||
Alert("Debe seleccionar un producto o servicio", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim CveUnidadMedida As Integer = -1
|
||||
Dim CvePS As Integer = DdlPS.txtValue.Value.ToEntero
|
||||
Dim Tipo As Integer = -1
|
||||
Dim UMAbreviatura As String = ""
|
||||
|
||||
Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||
CveUnidadMedida = drPS("CveUM").ToString.ToEntero
|
||||
Tipo = drPS("CveTipoPS").ToString.ToEntero
|
||||
UMAbreviatura = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Abreviatura", $"CveUnidadMedida = {CveUnidadMedida}")
|
||||
|
||||
If CveTipoServicio > 0 Then
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.AddTiposServiciosMaterial(CveTipoServicio, TxtCantidad.Text.ToDecimal, CveUnidadMedida, CvePS, Tipo) Then
|
||||
Alert("Material agregado correctamente")
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
Else
|
||||
|
||||
Dim nRow As DataRow = DTMateriales.NewRow
|
||||
|
||||
nRow("CveTipoServicioMaterial") = -1
|
||||
nRow("CveTipoServicio") = -1
|
||||
nRow("Cantidad") = TxtCantidad.Text.ToEntero
|
||||
nRow("CveUM") = CveUnidadMedida
|
||||
nRow("CvePS") = DdlPS.txtValue.Value.ToEntero
|
||||
nRow("Tipo") = Tipo
|
||||
nRow("Abreviatura") = UMAbreviatura
|
||||
nRow("PS") = DdlPS.txtText.Value
|
||||
|
||||
DTMateriales.Rows.Add(nRow)
|
||||
Alert("Material agregado correctamente")
|
||||
|
||||
End If
|
||||
|
||||
CargaMateriales()
|
||||
|
||||
ResetModalMaterial()
|
||||
|
||||
RegistraScript("$('#ModalMateriales').modal('hide');")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminarMaterial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
|
||||
If CveTipoServicio > 0 Then
|
||||
|
||||
|
||||
Dim CveTipoServicioMaterial As Integer = GvRow.DataKey("CveTipoServicioMaterial").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
If ObjAF.DeleteTiposServiciosMaterial(CveTipoServicioMaterial, UsuarioActual.CveEmpresa) Then
|
||||
Alert("Material agregado correctamente")
|
||||
End If
|
||||
ObjAF.Dispose()
|
||||
Else
|
||||
|
||||
|
||||
Dim dr As DataRow = DTMateriales.Rows(GvRow.RowIndex)
|
||||
dr.Delete()
|
||||
DTMateriales.AcceptChanges()
|
||||
Alert("Material agregado correctamente")
|
||||
End If
|
||||
|
||||
CargaMateriales()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim SBError As New StringBuilder
|
||||
|
||||
ObjAF.IniciaTransacSQL()
|
||||
|
||||
'validacion?
|
||||
|
||||
|
||||
|
||||
If ObjAF.AddTiposServicios(TxtTipoServicio.Text.Trim, DdlTipoMantenimiento.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
|
||||
CveTipoServicio = ObjAF.CveTipoServicio
|
||||
|
||||
For Each GvRow As GridViewRow In GvMaterial.Rows
|
||||
|
||||
If Not ObjAF.AddTiposServiciosMaterial(CveTipoServicio, GvRow.DataKey("Cantidad").ToDecimal, GvRow.DataKey("CveUM").ToEntero, GvRow.DataKey("CvePS").ToEntero, GvRow.DataKey("Tipo").ToEntero) Then
|
||||
ErrorProceso = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
For Each GvRow As GridViewRow In GvActividades.Rows
|
||||
|
||||
Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
|
||||
Dim Horas As Decimal = GvRow.FCTextBox("").Text.ToDecimal
|
||||
|
||||
|
||||
If ObjAF.AddTiposServiciosActividades(GvRow.DataKey("").ToEntero) Then
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If ErrorProceso Then
|
||||
ObjAF.RollBack()
|
||||
Else
|
||||
ObjAF.Commit()
|
||||
Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -89,10 +89,12 @@ Public Class ClsAF
|
||||
Public Property CveGrupoAF As Integer
|
||||
Public Property CveAFPadre As Integer
|
||||
Public Property CveDispositivo As Integer
|
||||
Public Property MedidaVehicular As Integer
|
||||
|
||||
Public Property MedidaVehicular As Integer
|
||||
Public Property CveTipoServicio As Integer
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
|
||||
|
||||
If TransaccionCompartida Is Nothing Then
|
||||
@@ -3502,7 +3504,7 @@ Public Class ClsAF
|
||||
|
||||
Public Function AddTiposServicios(Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
CveTipoServicio = -1
|
||||
DataAdapter("PA_AF_TiposServicioAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -3510,10 +3512,16 @@ Public Class ClsAF
|
||||
.Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveTipoServicio", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
CveTipoServicio = SqlAdapter.SelectCommand.Parameters("@CveTipoServicio").Value.ToString.ToEntero
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agregar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
@@ -3715,13 +3723,15 @@ Public Class ClsAF
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function DeleteTiposServiciosMaterial(CveTipoServicioMaterial As Integer) As Boolean
|
||||
Public Function DeleteTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_TiposServiciosMaterialDelete")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -1785,6 +1785,27 @@ Public Class ClsCompProveedores
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetContratoProvedores(CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Prov_SAT_ContratosProveedoresGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al Obtener los contratos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1812,7 +1833,7 @@ Public Class ClsCompProveedores
|
||||
|
||||
|
||||
|
||||
Public Function AddRePresentanteLegal(RepresentanteLegal As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Public Function AddRePresentanteLegal(RepresentanteLegal As String, CveUsuario As Integer, CveEmpresa As Integer, CveProveedor As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1822,6 +1843,7 @@ Public Class ClsCompProveedores
|
||||
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -458,7 +458,8 @@ Public Class ClsEdocumentacion
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function DocumentacionElectronicaAuditoriaGet(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Modulo As Integer = 3, Optional Estatus As Integer = -1) As Boolean
|
||||
Public Function DocumentacionElectronicaAuditoriaGet(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Modulo As Integer = 3, Optional Estatus As Integer = -1, Optional CveSubProyecto As Integer = -1,
|
||||
Optional CveTipoContrato As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Edoc_DocumentacionElectronicaAuditoriaGet")
|
||||
@@ -471,6 +472,8 @@ Public Class ClsEdocumentacion
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Modulo", SqlDbType.Int).Value = Modulo
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -604,11 +604,11 @@
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
<div class="portlet light smmallpadding bordered ">
|
||||
<div class="portlet light smmallpadding bordered " style="display:none!important">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Representastes Legales</span>
|
||||
<span class="caption-subject bold uppercase">Representantes Legales</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
|
||||
@@ -94,7 +94,32 @@
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-1 "><asp:Label runat="server" id="LblSubProyectoFiltro" ></asp:Label></div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 ">Perfil:</div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlTipoContratoFiltro" runat="server" CssClass="select2me" Width="100%" DataTextField="TipoContrato" DataValueField="CveTipoContrato">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
@@ -125,7 +150,10 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="SubProyecto">
|
||||
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275">
|
||||
<HeaderTemplate>
|
||||
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
@@ -212,8 +212,20 @@ Partial Class Proveedores_RepDocumentacionProveedor
|
||||
DdlProveedores.setEsWebService(True)
|
||||
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedores.SelectedText = "Todos"
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, LblSubProyectoFiltro)
|
||||
|
||||
Dim ObjProveedor As New ClsCompProveedores
|
||||
|
||||
If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTipoContratoFiltro.DataSource = ObjProveedor.DtResultados
|
||||
End If
|
||||
ObjProveedor.Dispose()
|
||||
|
||||
DdlTipoContratoFiltro.DataBind()
|
||||
DdlTipoContratoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -247,7 +259,7 @@ Partial Class Proveedores_RepDocumentacionProveedor
|
||||
|
||||
Dim obEDoc As New ClsEdocumentacion
|
||||
|
||||
If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero) Then
|
||||
If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlTipoContratoFiltro.SelectedValue.ToEntero) Then
|
||||
GvDocumentos.DataSource = obEDoc.DtResultados
|
||||
Else
|
||||
GvDocumentos.DataSource = Nothing
|
||||
@@ -269,6 +281,10 @@ Partial Class Proveedores_RepDocumentacionProveedor
|
||||
Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound
|
||||
|
||||
|
||||
If e.Row.RowType = DataControlRowType.Header Then
|
||||
e.Row.FCLabel("LblSubProyecto").Text = LblSubProyectoFiltro.Text
|
||||
End If
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
|
||||
|
||||
@@ -27,34 +27,36 @@
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
|
||||
<div class="col-md-8">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,CveDocumentacion" EmptyDataText="No se encontraron datos" Width="100%"
|
||||
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" GridLines="None" >
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Tipo Contrato">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LrlTipoContrato" runat="server" Text='<%# Eval("TipoContrato") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Documento" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDocumento" runat="server" Text='<%# Eval("Documentacion") %>' ></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Requerido" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox runat="server" ID="ChkRequerido" Checked= '<%# Eval("Requerido") %>' AutoPostBack="true" OnCheckedChanged="ChkRequerido_CheckedChanged" CssClass="md-checksd" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<div class="row">
|
||||
<div class="col-md-8">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,CveDocumentacion" EmptyDataText="No se encontraron datos" Width="100%"
|
||||
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" >
|
||||
<Columns>
|
||||
|
||||
</div>
|
||||
<asp:TemplateField HeaderText="Tipo Contrato">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LrlTipoContrato" runat="server" Text='<%# Eval("TipoContrato") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Documento" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDocumento" runat="server" Text='<%# Eval("Documentacion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Requerido" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox runat="server" ID="ChkRequerido" Checked='<%# Eval("Requerido") %>' AutoPostBack="true" OnCheckedChanged="ChkRequerido_CheckedChanged" CssClass="md-checksd" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -30,7 +30,7 @@
|
||||
|
||||
<div class="col-md-8">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,TipoContrato,Estatus" EmptyDataText="No se encontraron Tipos de contrato" Width="100%"
|
||||
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" GridLines="None" >
|
||||
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" >
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Tipo Contrato">
|
||||
|
||||
@@ -21,17 +21,77 @@
|
||||
</asp:Content>
|
||||
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter" style="">
|
||||
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
|
||||
|
||||
<div class="tools">
|
||||
<asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" OnClick="btConsultar_Click" /></td>
|
||||
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||
</div>
|
||||
<div class="titlefiltros caption magindate">
|
||||
<div class="row">
|
||||
|
||||
|
||||
<div class="col-md-1 "><asp:Label runat="server" id="LblSubProyectoFiltro" ></asp:Label></div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 ">Proveedor:</div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlProveedorFiltro" runat="server" CssClass="select2me" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" >
|
||||
</asp:DropDownList >
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 ">Perfil:</div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlTipoContratoFiltro" runat="server" CssClass="select2me" Width="100%" DataTextField="TipoContrato" DataValueField="CveTipoContrato">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<%-- <div class="portlet-body">
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-1 ">Estatus:</div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100%" >
|
||||
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
<asp:ListItem Value="1" >Vigente</asp:ListItem>
|
||||
<asp:ListItem Value="2" >Rescindido</asp:ListItem>
|
||||
<asp:ListItem Value="3" >Suspendido</asp:ListItem>
|
||||
<asp:ListItem Value="4" >Terminado</asp:ListItem>
|
||||
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div> --%>
|
||||
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContrato,Contrato,CveProveedor,NombreComercial,CveSubProyecto,CveTipoContrato,CveRepresentanteLegal,FechaInicio, FechaFin,Estatus" EmptyDataText="No se encontraron contratos" Width="100%"
|
||||
ToolTip="Listado Contratos" CssClass="table table-striped table-advance table-hover" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContrato,Contrato,CveProveedor,NombreComercial,CveSubProyecto,CveTipoContrato,CveRepresentanteLegal,FechaInicio, FechaFin,Estatus"
|
||||
EmptyDataText="No se encontraron contratos" Width="100%" OnRowDataBound="GvDatos_RowDataBound"
|
||||
ToolTip="Listado Contratos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
|
||||
@@ -40,7 +100,10 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Sub Proyecto">
|
||||
<asp:TemplateField >
|
||||
<HeaderTemplate>
|
||||
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -121,7 +184,7 @@
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="width:500px!important">
|
||||
<label for="DdlProveedores" >Proveedor:</label>
|
||||
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" Onselectedindexchange="DdlProveedores_selectedindexchange" ></ADS:Dropdownlost>
|
||||
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" Onselectedindexchange="DdlProveedores_selectedindexchange" ></ADS:Dropdownlost>
|
||||
|
||||
<i></i>
|
||||
|
||||
@@ -137,7 +200,7 @@
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="DdlSubProyecto">Sub Proyecto:</label><br />
|
||||
<asp:Label runat="server" ID="LblSubProyecto" for="DdlSubProyecto">Sub Proyecto:</asp:Label><br />
|
||||
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="500px" AutoPostBack="True">
|
||||
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
@@ -147,7 +210,7 @@
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="DdlSubProyecto">Representante Legal:</label><br />
|
||||
<label for="DDlRePresentanteLegal">Representante Legal:</label><br />
|
||||
<asp:DropDownList ID="DDlRePresentanteLegal" CssClass="form-control input-sm select2me" runat="server" DataTextField="RepresentanteLegal" DataValueField="CveRepresentanteLegal" Width="500px" >
|
||||
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
@@ -157,11 +220,17 @@
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group">
|
||||
<label class="col-md-2" for="<%= TxtFechaInicio.ClientID.ToString()%>">Fecha Inicio:</label>
|
||||
<div class=" input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-right: 10px!important">
|
||||
<div class="row" style="vertical-align:bottom!important">
|
||||
|
||||
|
||||
<table>
|
||||
<tr>
|
||||
|
||||
<td style="vertical-align:bottom!important;text-align:center!important">
|
||||
<label style="width:100px!important">Fecha Inicio:</label>
|
||||
</td>
|
||||
<td>
|
||||
<div class=" input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-right: 10px!important">
|
||||
<asp:TextBox ID="TxtFechaInicio" Style="margin-top: 10px" Width="100" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
|
||||
|
||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 0px;">
|
||||
@@ -172,14 +241,16 @@
|
||||
<asp:RequiredFieldValidator ID="RfvtxtFechaInicio" runat="server" ControlToValidate="txtFechaInicio" Display="None" ErrorMessage="El campo <b>''Fecha Inicio''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardaContrato" ></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="RfvctxtFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="RfvtxtFechaInicio" Width="100px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="form-group">
|
||||
<label class="col-md-2" for="<%= TxtFechaFin.ClientID.ToString()%>">Fecha Fin:</label>
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
|
||||
|
||||
|
||||
|
||||
<td style="vertical-align:bottom!important;text-align:center!important" > <label style="width:100px!important">Fecha Fin:</label></td>
|
||||
<td>
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<asp:TextBox ID="TxtFechaFin" Width="100" Style="margin-top: 10px" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
|
||||
|
||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 0px;">
|
||||
@@ -191,9 +262,27 @@
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="El campo <b>''Fecha Fin''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardaContrato" ></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="CXRfvTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaFin" Width="100px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</td>
|
||||
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<%-- <div class="col-md-6">
|
||||
|
||||
<div class="form-group">
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group">
|
||||
|
||||
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -202,7 +291,7 @@
|
||||
|
||||
|
||||
|
||||
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
|
||||
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
|
||||
<label for="ChkEstatus">Activo:</label>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
||||
|
||||
@@ -243,7 +332,7 @@
|
||||
|
||||
<br />
|
||||
|
||||
<asp:GridView ID="GvRepresentante" runat="server" AutoGenerateColumns="False" DataKeyNames="CveRepresentanteLegal" EmptyDataText="No se encontraron Representantes" Width="100%"
|
||||
<asp:GridView ID="GvRepresentante" runat="server" AutoGenerateColumns="False" DataKeyNames="CveRepresentanteLegal,CveProveedor" EmptyDataText="No se encontraron Representantes" Width="100%"
|
||||
ToolTip="Listado de representantes" CssClass="table table-striped table-advance table-hover" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
|
||||
@@ -23,8 +23,10 @@ Partial Class Proveedores_Contratos
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
|
||||
CargaCombos()
|
||||
CargaDatos()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -35,7 +37,7 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
Dim ObjProv As New ClsCompProveedores
|
||||
|
||||
If ObjProv.GetContrato(-1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProv.GetContrato(-1, DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlProveedorFiltro.SelectedValue.ToEntero, DdlTipoContratoFiltro.SelectedValue.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjProv.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
@@ -50,18 +52,24 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
Private Sub CargaCombos()
|
||||
'CargaProveedores
|
||||
|
||||
|
||||
|
||||
DdlProveedores.setEsWebService(True)
|
||||
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedores.SelectedText = "Todos"
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
|
||||
DdlSubProyecto.Items.Clear()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlSubProyecto.Items.Clear()
|
||||
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
'DdlSubProyecto.DataBind()
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, LblSubProyectoFiltro)
|
||||
|
||||
DdlTipoContrato.Items.Clear()
|
||||
|
||||
Dim ObjProveedor As New ClsCompProveedores
|
||||
@@ -69,15 +77,26 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlTipoContrato.DataSource = ObjProveedor.DtResultados
|
||||
DdlTipoContratoFiltro.DataSource = ObjProveedor.DtResultados
|
||||
End If
|
||||
|
||||
If ObjProveedor.GetContratoProvedores(UsuarioActual.CveEmpresa) Then
|
||||
DdlProveedorFiltro.DataSource = ObjProveedor.DtResultados
|
||||
End If
|
||||
|
||||
|
||||
ObjProveedor.Dispose()
|
||||
|
||||
DdlTipoContrato.DataBind()
|
||||
DdlTipoContratoFiltro.DataBind()
|
||||
DdlProveedorFiltro.DataBind()
|
||||
|
||||
DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
CargaRepresentantes()
|
||||
DdlTipoContratoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlProveedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -96,6 +115,10 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
DdlTipoContrato.SelectedValueExist("-1")
|
||||
DdlSubProyecto.SelectedValueExist("-1")
|
||||
|
||||
|
||||
DDlRePresentanteLegal.Items.Clear()
|
||||
DDlRePresentanteLegal.Items.Add(New ListItem("Seleccione uno", "-1"))
|
||||
DDlRePresentanteLegal.SelectedValueExist("-1")
|
||||
|
||||
TxtFechaInicio.Text = ""
|
||||
@@ -104,6 +127,11 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
BtnAgregarModalContrato.Text = "Agregar"
|
||||
|
||||
CheckActiveSection.Visible = False
|
||||
ChkEstatus.Enabled = True
|
||||
|
||||
|
||||
|
||||
UpModalContrato.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato"))
|
||||
|
||||
@@ -119,8 +147,13 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor")
|
||||
DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial")
|
||||
|
||||
DdlTipoContrato.SelectedValueExist(GvRow.DataKey("CveTipoContrato"))
|
||||
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
|
||||
|
||||
|
||||
CargaRepresentantes(GvRow.DataKey("CveProveedor").ToEntero)
|
||||
|
||||
DDlRePresentanteLegal.SelectedValueExist(GvRow.DataKey("CveRepresentanteLegal"))
|
||||
|
||||
TxtFechaInicio.Text = GvRow.DataKey("FechaInicio").ToString.ToDate().ToString("dd/MM/yyyy")
|
||||
@@ -128,9 +161,12 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
|
||||
|
||||
|
||||
BtnAgregarModalContrato.Text = "Actualizar"
|
||||
|
||||
CheckActiveSection.Visible = True
|
||||
|
||||
|
||||
|
||||
UpModalContrato.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato"))
|
||||
@@ -183,10 +219,6 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
|
||||
@@ -221,25 +253,32 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
Protected Sub BtnAgregarRepresentante_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim CveProveedor As Integer = DdlProveedores.txtValue.Value.ToEntero
|
||||
|
||||
If CveProveedor <= 0 Then
|
||||
Alert("Debe de seleccionar un proveedor", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim ObjProv As New ClsCompProveedores
|
||||
|
||||
If ObjProv.AddRePresentanteLegal(TxtRepresentanteLegal.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProv.AddRePresentanteLegal(TxtRepresentanteLegal.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor) Then
|
||||
Alert("Se agrego representante correctamente.")
|
||||
TxtRepresentanteLegal.Text = ""
|
||||
End If
|
||||
|
||||
ObjProv.Dispose()
|
||||
|
||||
CargaRepresentantes()
|
||||
CargaRepresentantes(CveProveedor)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRepresentantes()
|
||||
Private Sub CargaRepresentantes(CveProveedor As Integer)
|
||||
|
||||
Dim ObjProv As New ClsCompProveedores
|
||||
|
||||
|
||||
If ObjProv.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProv.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa, CveProveedor) Then
|
||||
GvRepresentante.DataSource = ObjProv.DtResultados
|
||||
DDlRePresentanteLegal.DataSource = ObjProv.DtResultados
|
||||
Else
|
||||
@@ -263,6 +302,7 @@ Partial Class Proveedores_Contratos
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveRepresentanteLegal As Integer = GvRow.DataKey("CveRepresentanteLegal").ToEntero
|
||||
Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
|
||||
Dim ObjProv As New ClsCompProveedores
|
||||
|
||||
If ObjProv.RemoveRePresentanteLegal(CveRepresentanteLegal, UsuarioActual.CveEmpresa) Then
|
||||
@@ -271,7 +311,22 @@ Partial Class Proveedores_Contratos
|
||||
|
||||
ObjProv.Dispose()
|
||||
|
||||
CargaRepresentantes()
|
||||
CargaRepresentantes(CveProveedor)
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
|
||||
|
||||
Dim CveProveedor As Integer = DdlProveedores.txtValue.Value.ToEntero
|
||||
CargaRepresentantes(CveProveedor)
|
||||
End Sub
|
||||
Protected Sub btConsultar_Click(sender As Object, e As EventArgs)
|
||||
CargaDatos()
|
||||
End Sub
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.Header Then
|
||||
e.Row.FCLabel("LblSubProyecto").Text = LblSubProyectoFiltro.Text
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -69,6 +69,7 @@
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
<ajax:TabContainer ID="Tab" runat="server" Width="100%" CssClass="tabBodyOverride" ActiveTabIndex="0">
|
||||
|
||||
<ajax:TabPanel ID="TabCxP" runat="server" HeaderText="<i class='fa fa-list-alt'></i> Cuentas x Cobrar" Visible="False">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -799,13 +800,13 @@
|
||||
</ajax:TabPanel>
|
||||
|
||||
<%---2020/02/06 - Auditoria--%>
|
||||
<ajax:TabPanel ID="TabAuditoria" runat="server" HeaderText="<i class='fa fa-search'></i> Auditoría">
|
||||
<ajax:TabPanel ID="TabAuditoria" runat="server" HeaderText="<i class='fa fa-search'></i> Auditoría" Visible="false" >
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpTabAuditoria" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<asp:UpdatePanel ID="UPGvDocumentos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-12">
|
||||
|
||||
@@ -284,8 +284,16 @@ Partial Class Portal_PortalProveedor
|
||||
' CargaUsuariosPortal()
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(305) Then
|
||||
|
||||
TabAuditoria.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS
|
||||
If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -647,289 +655,289 @@ Partial Class Portal_PortalProveedor
|
||||
GvCxPHistorial.DataBind()
|
||||
|
||||
' UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "Usuarios Portal"
|
||||
|
||||
'Private Sub CargaUsuariosPortal()
|
||||
' Dim ObjUsrs As New ClsSisUsuarios()
|
||||
' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' Dim dtUsr As DataTable = ObjUsrs.DtResultados
|
||||
' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario))
|
||||
' 'If dr IsNot Nothing Then
|
||||
|
||||
' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True"
|
||||
' ' If True Then TabCxP.Visible = True
|
||||
' ' If True Then TabAnticipos.Visible = True
|
||||
' ' If True Then TabBancos.Visible = True
|
||||
' ' If True Then TabSistema.Visible = True
|
||||
|
||||
' 'End If
|
||||
|
||||
' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
|
||||
' ViewState("OrdenUsuarios") = ""
|
||||
' GvUsuariosPortal.DataSource = dtUsr
|
||||
' ViewState("DTUsuariosProveedor") = dtUsr
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = Nothing
|
||||
' ViewState("DTUsuariosProveedor") = Nothing
|
||||
' End If
|
||||
' ObjUsrs.Dispose()
|
||||
' GvUsuariosPortal.DataBind()
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaGridUsuarios(Orden As String)
|
||||
' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
' End If
|
||||
' GvUsuariosPortal.DataBind()
|
||||
' UPPUsuarios.Update()
|
||||
'End Sub
|
||||
|
||||
''ajustar el tamaño de las celdas de la GvUsuarios Portal
|
||||
'Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' 'El usuario Admin no se puede editar ni eliminar
|
||||
' If e.Row.DataKey("Nombre") = "Admin" Then
|
||||
' e.Row.FCLinkButton("imgE").Visible = False
|
||||
' e.Row.FCLinkButton("imgD").Visible = False
|
||||
' e.Row.FCLinkButton("imgC").Visible = False
|
||||
' End If
|
||||
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' '' e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(1).Width = Unit.Pixel(150)
|
||||
' 'e.Row.Cells(2).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(3).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(4).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(5).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(6).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(7).Width = Unit.Pixel(55)
|
||||
|
||||
' 'e.Row.Cells(8).Width = Unit.Pixel(75)
|
||||
' 'e.Row.Cells(9).Width = Unit.Pixel(100)
|
||||
' 'e.Row.Cells(10).Width = Unit.Pixel(150)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Editar usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing
|
||||
' GvUsuariosPortal.EditIndex = e.NewEditIndex
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim Nombre, Correo As String
|
||||
' Dim Estatus As Boolean
|
||||
' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
|
||||
|
||||
' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
|
||||
' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
|
||||
' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim
|
||||
' Estatus = gvr.FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero
|
||||
' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero
|
||||
|
||||
' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
|
||||
' End If
|
||||
' ObjUsuario.Dispose()
|
||||
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Cancelar Edición
|
||||
'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Restablecer contraseña
|
||||
'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
|
||||
|
||||
' If e.CommandName = "RestablecerContraseña" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "")
|
||||
' End If
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
' If e.CommandName = "ReenviarCorreo" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' Usuario.IniciaTransacSQL()
|
||||
' Dim TieneError = False
|
||||
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' 'ACTUALIZA USUARIO, CONTRASEÑA Y ESTATUS
|
||||
' If Not Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' 'MANDA CORREO ACTIVACION
|
||||
' If Not TieneError Then
|
||||
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
|
||||
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
|
||||
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
|
||||
|
||||
' Dim ObjMail As New ClsSisMail()
|
||||
|
||||
' If dr("Correo").ToString <> "" Then
|
||||
' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c})
|
||||
' Dim Texto = ""
|
||||
' For Each Correo As String In Correos
|
||||
' Texto = String.Format("Direccion de Acceso: <a href='{0}' target='_blank'>Portal del Proveedor</a><br>Usuario: {2}<br>Haga click para activar su cuenta <a href='{3}' target='_blank'>Activar</a>", Liga, CveProveedor, dr("Usuario").ToString, LigaActivar)
|
||||
' 'If Not ObjMail.MandaCorreo(EmpresaNotificaciones, Correo, "Activación de cuenta", "", "", {""}, Texto) Then
|
||||
' If Not ObjMail.SendMail(EmpresaNotificaciones, Correo, "Activación de cuenta", Texto) Then
|
||||
' Alert("Error al mandar el correo. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
' TieneError = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' Else
|
||||
' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia)
|
||||
' TieneError = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not TieneError Then
|
||||
' Usuario.Commit()
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' Alert(String.Format("Se envio correo al usuario y se restablecio contraseña .<br> La nueva contraseña es: ""{0}""", ContraseñaPredeterminada), TipoMensaje.MsgInformacion)
|
||||
' Else
|
||||
' Usuario.RollBack()
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Eliminar Usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' Alert("Usuario Eliminado")
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Agregar Usuario
|
||||
'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim CvePlataforma As Integer = 7
|
||||
|
||||
' ObjUsuario.IniciaTransacSQL()
|
||||
|
||||
' Dim CveUsuario As Integer = ObjUsuario.AddUsuarioPortal(TxtCorreo.Text.Trim, ContraseñaPredeterminadaEncriptada, TxtNombrePortal.Text.Trim, TxtCorreo.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
' If CveUsuario > 0 Then
|
||||
' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then
|
||||
' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
|
||||
' TxtNombrePortal.Text = ""
|
||||
' TxtCorreo.Text = ""
|
||||
' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'")
|
||||
' ObjUsuario.Commit()
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' End If
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado")
|
||||
' End If
|
||||
|
||||
' ObjUsuario.Dispose()
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaUsuariosPortal()
|
||||
' Dim ObjUsrs As New ClsSisUsuarios()
|
||||
' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' Dim dtUsr As DataTable = ObjUsrs.DtResultados
|
||||
' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario))
|
||||
' 'If dr IsNot Nothing Then
|
||||
|
||||
' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True"
|
||||
' ' If True Then TabCxP.Visible = True
|
||||
' ' If True Then TabAnticipos.Visible = True
|
||||
' ' If True Then TabBancos.Visible = True
|
||||
' ' If True Then TabSistema.Visible = True
|
||||
|
||||
' 'End If
|
||||
|
||||
' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
|
||||
' ViewState("OrdenUsuarios") = ""
|
||||
' GvUsuariosPortal.DataSource = dtUsr
|
||||
' ViewState("DTUsuariosProveedor") = dtUsr
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = Nothing
|
||||
' ViewState("DTUsuariosProveedor") = Nothing
|
||||
' End If
|
||||
' ObjUsrs.Dispose()
|
||||
' GvUsuariosPortal.DataBind()
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaGridUsuarios(Orden As String)
|
||||
' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
' End If
|
||||
' GvUsuariosPortal.DataBind()
|
||||
' UPPUsuarios.Update()
|
||||
'End Sub
|
||||
|
||||
''ajustar el tamaño de las celdas de la GvUsuarios Portal
|
||||
'Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' 'El usuario Admin no se puede editar ni eliminar
|
||||
' If e.Row.DataKey("Nombre") = "Admin" Then
|
||||
' e.Row.FCLinkButton("imgE").Visible = False
|
||||
' e.Row.FCLinkButton("imgD").Visible = False
|
||||
' e.Row.FCLinkButton("imgC").Visible = False
|
||||
' End If
|
||||
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' '' e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(1).Width = Unit.Pixel(150)
|
||||
' 'e.Row.Cells(2).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(3).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(4).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(5).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(6).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(7).Width = Unit.Pixel(55)
|
||||
|
||||
' 'e.Row.Cells(8).Width = Unit.Pixel(75)
|
||||
' 'e.Row.Cells(9).Width = Unit.Pixel(100)
|
||||
' 'e.Row.Cells(10).Width = Unit.Pixel(150)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Editar usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing
|
||||
' GvUsuariosPortal.EditIndex = e.NewEditIndex
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim Nombre, Correo As String
|
||||
' Dim Estatus As Boolean
|
||||
' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
|
||||
|
||||
' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
|
||||
' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
|
||||
' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim
|
||||
' Estatus = gvr.FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero
|
||||
' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero
|
||||
|
||||
' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
|
||||
' End If
|
||||
' ObjUsuario.Dispose()
|
||||
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Cancelar Edición
|
||||
'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Restablecer contraseña
|
||||
'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
|
||||
|
||||
' If e.CommandName = "RestablecerContraseña" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "")
|
||||
' End If
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
' If e.CommandName = "ReenviarCorreo" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' Usuario.IniciaTransacSQL()
|
||||
' Dim TieneError = False
|
||||
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' 'ACTUALIZA USUARIO, CONTRASEÑA Y ESTATUS
|
||||
' If Not Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' 'MANDA CORREO ACTIVACION
|
||||
' If Not TieneError Then
|
||||
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
|
||||
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
|
||||
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
|
||||
|
||||
' Dim ObjMail As New ClsSisMail()
|
||||
|
||||
' If dr("Correo").ToString <> "" Then
|
||||
' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c})
|
||||
' Dim Texto = ""
|
||||
' For Each Correo As String In Correos
|
||||
' Texto = String.Format("Direccion de Acceso: <a href='{0}' target='_blank'>Portal del Proveedor</a><br>Usuario: {2}<br>Haga click para activar su cuenta <a href='{3}' target='_blank'>Activar</a>", Liga, CveProveedor, dr("Usuario").ToString, LigaActivar)
|
||||
' 'If Not ObjMail.MandaCorreo(EmpresaNotificaciones, Correo, "Activación de cuenta", "", "", {""}, Texto) Then
|
||||
' If Not ObjMail.SendMail(EmpresaNotificaciones, Correo, "Activación de cuenta", Texto) Then
|
||||
' Alert("Error al mandar el correo. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
' TieneError = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' Else
|
||||
' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia)
|
||||
' TieneError = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not TieneError Then
|
||||
' Usuario.Commit()
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' Alert(String.Format("Se envio correo al usuario y se restablecio contraseña .<br> La nueva contraseña es: ""{0}""", ContraseñaPredeterminada), TipoMensaje.MsgInformacion)
|
||||
' Else
|
||||
' Usuario.RollBack()
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Eliminar Usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' Alert("Usuario Eliminado")
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Agregar Usuario
|
||||
'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim CvePlataforma As Integer = 7
|
||||
|
||||
' ObjUsuario.IniciaTransacSQL()
|
||||
|
||||
' Dim CveUsuario As Integer = ObjUsuario.AddUsuarioPortal(TxtCorreo.Text.Trim, ContraseñaPredeterminadaEncriptada, TxtNombrePortal.Text.Trim, TxtCorreo.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
' If CveUsuario > 0 Then
|
||||
' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then
|
||||
' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
|
||||
' TxtNombrePortal.Text = ""
|
||||
' TxtCorreo.Text = ""
|
||||
' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'")
|
||||
' ObjUsuario.Commit()
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' End If
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado")
|
||||
' End If
|
||||
|
||||
' ObjUsuario.Dispose()
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
'Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim Orden As String = ""
|
||||
' Dim Campo As String = ""
|
||||
' Dim Literal As Literal = Nothing
|
||||
' Const OrdenInicial As String = ""
|
||||
' Dim Arg(2) As String
|
||||
|
||||
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
' Campo = Arg(0)
|
||||
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
' Else
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
' End If
|
||||
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
' ViewState("Orden") = Orden
|
||||
' CargaGridUsuarios(Orden)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim Orden As String = ""
|
||||
' Dim Campo As String = ""
|
||||
' Dim Literal As Literal = Nothing
|
||||
' Const OrdenInicial As String = ""
|
||||
' Dim Arg(2) As String
|
||||
|
||||
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
' Campo = Arg(0)
|
||||
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
' Else
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
' End If
|
||||
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
' ViewState("Orden") = Orden
|
||||
' CargaGridUsuarios(Orden)
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " BANCOS"
|
||||
Protected Sub BtnExcelGvBancosCuentas_Click(sender As Object, e As EventArgs)
|
||||
Dim retorno As Byte() = ImprimirReporteGvBancosCuentas("EXCEL")
|
||||
|
||||
Reference in New Issue
Block a user