AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-08-22 12:16:27 -07:00
parent 0e282bfe51 dc03d82c94
commit 18b9fc366d
19 changed files with 1127 additions and 464 deletions
Download Patch File Download Diff File Expand all files Collapse all files

205
AF/TipoOrdenTrabajo.aspx
View File

@@ -39,15 +39,21 @@
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Registro Revisión Tipo Servicio
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <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>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -90,9 +96,7 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <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> <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()%>"> <label for="<%= DdlTipoMantenimiento.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblTipo" Text="Tipo Mantenimiento:"></asp:Label> <asp:Label runat="server" ID="LblTipo" Text="Tipo Mantenimiento:"></asp:Label>
</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> <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>
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtDuracion" runat="server" MaxLength="30"></asp:TextBox> <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." /> <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDuracion" FilterType="Numbers,Custom" InvalidChars="-*+" ValidChars="1234567890." />
<asp:Label AssociatedControlID="TxtDuracion" runat="server" Text="Duración:"></asp:Label> <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> <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> <i></i>
</div> </div>--%>
</div> </div>
@@ -125,28 +129,43 @@
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" > <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> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-12"> <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:UpdatePanel runat="server" ID="UpGvMaterial" UpdateMode="Conditional" >
</asp:GridView> <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>
</div> </div>
@@ -156,49 +175,73 @@
<ajax:TabPanel ID="TabActividades" runat="server" HeaderText="Actividades"> <ajax:TabPanel ID="TabActividades" runat="server" HeaderText="Actividades">
<ContentTemplate> <ContentTemplate>
<div class="row"> <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" <asp:UpdatePanel runat="server" ID="UpGvActividades" UpdateMode="Conditional" >
DataKeyNames="" <ContentTemplate>
GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Unidad"> <asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
<ItemStyle Width="350px" /> DataKeyNames="CveActividad" GridLines="None">
<ItemTemplate> <Columns>
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
</Columns> <asp:TemplateField HeaderText="Horas" >
</asp:GridView> <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>
</div> </div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="check List"> <ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="Check List">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall" <asp:UpdatePanel runat="server" ID="UpGvCheckList" UpdateMode="Conditional" >
DataKeyNames="" <ContentTemplate>
GridLines="None"> <asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
<Columns> DataKeyNames=""
GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Unidad"> <asp:TemplateField HeaderText="Unidad">
<ItemStyle Width="350px" /> <ItemStyle Width="350px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal> <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Unidad")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
@@ -209,13 +252,60 @@
</ajax:TabContainer> </ajax:TabContainer>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate> <div id="ModalMateriales" class="modal ADS fade" role="dialog">
</asp:UpdatePanel> <div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</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="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Telefono ''&lt;/b&gt; 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>
</div> </div>
<br />
<div class="row"> <div class="row">
<div class="col-md-12" style="text-align:center"> <div class="col-md-12" style="text-align:center">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

357
AF/TipoOrdenTrabajo.aspx.vb
View File

@@ -12,20 +12,59 @@ Partial Class AF_TipoOrdenTrabajo
#Region " PROPIEDADES" #Region " PROPIEDADES"
Property CveOrdenTrabajo As Integer Property CveTipoServicio As Integer
Get Get
If ViewState("CveOrdenTrabajo") Is Nothing Then If ViewState("CveTipoServicio") Is Nothing Then
Return -1 Return -1
Else Else
Return ViewState("CveOrdenTrabajo").ToString.ToEntero Return ViewState("CveTipoServicio").ToString.ToEntero
End If End If
End Get End Get
Set(value As Integer) 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 Set
End Property 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 #End Region
@@ -34,8 +73,12 @@ Partial Class AF_TipoOrdenTrabajo
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If Request("CveOrdenTrabajo") IsNot Nothing Then If Request("CveTipoServicio") IsNot Nothing Then
CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero CveTipoServicio = Request("CveTipoServicio").ToEntero
End If
If CveTipoServicio = -1 Then
CrearTablas()
End If End If
CargaCombos() CargaCombos()
@@ -43,11 +86,57 @@ Partial Class AF_TipoOrdenTrabajo
End Sub 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 " #Region " CARGA PARAMETROS "
#End Region #End Region
#Region " CARGA COMBOS " #Region " CARGA COMBOS "
Protected Sub CargaCombos() Protected Sub CargaCombos()
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
@@ -65,6 +154,52 @@ Partial Class AF_TipoOrdenTrabajo
UpFiltro.Update() 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 End Sub
@@ -72,6 +207,7 @@ Partial Class AF_TipoOrdenTrabajo
#End Region #End Region
#Region " CARGA DATOS " #Region " CARGA DATOS "
'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) 'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
' CargaDatos() ' CargaDatos()
@@ -85,6 +221,61 @@ Partial Class AF_TipoOrdenTrabajo
Private Sub CargaDatos() 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 Dim ObjAF As New ClsAF
@@ -94,7 +285,6 @@ Partial Class AF_TipoOrdenTrabajo
End Sub End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then 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 End Class

20
App_Code/ClsAF.vb
View File

@@ -89,10 +89,12 @@ Public Class ClsAF
Public Property CveGrupoAF As Integer Public Property CveGrupoAF As Integer
Public Property CveAFPadre As Integer Public Property CveAFPadre As Integer
Public Property CveDispositivo As Integer Public Property CveDispositivo As Integer
Public Property MedidaVehicular As Integer Public Property MedidaVehicular As Integer
Public Property CveTipoServicio As Integer
#End Region #End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then 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 Public Function AddTiposServicios(Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
CveTipoServicio = -1
DataAdapter("PA_AF_TiposServicioAdd") DataAdapter("PA_AF_TiposServicioAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -3510,10 +3512,16 @@ Public Class ClsAF
.Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveTipoServicio", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
CveTipoServicio = SqlAdapter.SelectCommand.Parameters("@CveTipoServicio").Value.ToString.ToEntero
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al agregar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al agregar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -3715,13 +3723,15 @@ Public Class ClsAF
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_AF_TiposServiciosMaterialDelete") DataAdapter("PA_AF_TiposServiciosMaterialDelete")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

24
App_Code/ClsCompProveedores.vb
View File

@@ -1785,6 +1785,27 @@ Public Class ClsCompProveedores
End Function 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 Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False 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 Dim Retorno As Boolean = False
@@ -1822,6 +1843,7 @@ Public Class ClsCompProveedores
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
End With End With
Try Try

5
App_Code/ClsEdocumentacion.vb
View File

@@ -458,7 +458,8 @@ Public Class ClsEdocumentacion
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Edoc_DocumentacionElectronicaAuditoriaGet") DataAdapter("PA_Edoc_DocumentacionElectronicaAuditoriaGet")
@@ -471,6 +472,8 @@ Public Class ClsEdocumentacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Modulo", SqlDbType.Int).Value = Modulo .Add("@Modulo", SqlDbType.Int).Value = Modulo
.Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
End With End With
Try Try

4
Compras/Compras.aspx
View File

@@ -471,7 +471,7 @@
<asp:ListItem Text="Costo Indirecto" Value="2" Enabled="false"></asp:ListItem> <asp:ListItem Text="Costo Indirecto" Value="2" Enabled="false"></asp:ListItem>
<asp:ListItem Text="Almacen" Value="3"></asp:ListItem> <asp:ListItem Text="Almacen" Value="3"></asp:ListItem>
<asp:ListItem Text="Almacen con costo indirecto" Value="8"></asp:ListItem> <asp:ListItem Text="Almacen con costo indirecto" Value="8"></asp:ListItem>
<asp:ListItem Text="Flete" Value="4"></asp:ListItem> <asp:ListItem Text="Costo Indirecto" Value="4"></asp:ListItem>
<asp:ListItem Text="Importación" Value="5"></asp:ListItem> <asp:ListItem Text="Importación" Value="5"></asp:ListItem>
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem> <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem> <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
@@ -3303,7 +3303,7 @@
<div class="modal-content" style="width: 600px;"> <div class="modal-content" style="width: 600px;">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button> <button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
<h3 class="modal-title" runat="server" id="headeralias">Vincular Fletes y Servicios </h3> <h3 class="modal-title" runat="server" id="headeralias">Vincular Costo indirectos </h3>

4
Compras/Compras.aspx.vb
View File

@@ -4452,11 +4452,11 @@ Partial Class Compras_Compras
If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
End If End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) Then If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
CveConceptoContableAlmacen = 205 CveConceptoContableAlmacen = 205
End If End If
Else Else
CveConceptoContableAlmacen = 225 CveConceptoContableAlmacen = 225
End If End If
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen 'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen

4
Compras/Proveedores.aspx
View File

@@ -604,11 +604,11 @@
</div> </div>
</div>--%> </div>--%>
<div class="portlet light smmallpadding bordered "> <div class="portlet light smmallpadding bordered " style="display:none!important">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <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>
<div class="actions"> <div class="actions">

2
Compras/Proveedores.aspx.vb
View File

@@ -6112,7 +6112,7 @@ Partial Class Compras_Proveedores
Dim ObjFolios As New ClsGralFolios() Dim ObjFolios As New ClsGralFolios()
Dim CveSubProyectoMatriz As Integer Dim CveSubProyectoMatriz As Integer
If ObjSub.GetSubProyectos() Then If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
End If End If

32
Compras/RepDocumentacionProveedor.aspx
View File

@@ -94,7 +94,32 @@
</div> </div>
</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> </div>
</ContentTemplate> </ContentTemplate>
@@ -125,7 +150,10 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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> <ItemTemplate>
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal> <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>

22
Compras/RepDocumentacionProveedor.aspx.vb
View File

@@ -212,8 +212,20 @@ Partial Class Proveedores_RepDocumentacionProveedor
DdlProveedores.setEsWebService(True) DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos" 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 End Sub
@@ -247,7 +259,7 @@ Partial Class Proveedores_RepDocumentacionProveedor
Dim obEDoc As New ClsEdocumentacion 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 GvDocumentos.DataSource = obEDoc.DtResultados
Else Else
GvDocumentos.DataSource = Nothing GvDocumentos.DataSource = Nothing
@@ -269,6 +281,10 @@ Partial Class Proveedores_RepDocumentacionProveedor
Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound 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 If e.Row.RowType = DataControlRowType.DataRow Then
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString

56
Edoc/CatDocumentosContratos.aspx
View File

@@ -27,34 +27,36 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row">
<div class="col-md-8">
<div class="col-md-8"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,CveDocumentacion" EmptyDataText="No se encontraron datos" Width="100%"
<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" >
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" GridLines="None" > <Columns>
<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> <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>

2
Edoc/CatTipoContratos.aspx
View File

@@ -30,7 +30,7 @@
<div class="col-md-8"> <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%" <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> <Columns>
<asp:TemplateField HeaderText="Tipo Contrato"> <asp:TemplateField HeaderText="Tipo Contrato">

137
Edoc/Contratos.aspx
View File

@@ -21,17 +21,77 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <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> <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> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="col-md-12"> <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%" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContrato,Contrato,CveProveedor,NombreComercial,CveSubProyecto,CveTipoContrato,CveRepresentanteLegal,FechaInicio, FechaFin,Estatus"
ToolTip="Listado Contratos" CssClass="table table-striped table-advance table-hover" GridLines="None"> 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> <Columns>
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
@@ -40,7 +100,10 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Sub Proyecto"> <asp:TemplateField >
<HeaderTemplate>
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal> <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -121,7 +184,7 @@
<div class="form-group form-md-line-input input-iconright" style="width:500px!important"> <div class="form-group form-md-line-input input-iconright" style="width:500px!important">
<label for="DdlProveedores" >Proveedor:</label> <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> <i></i>
@@ -137,7 +200,7 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <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: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:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
@@ -147,7 +210,7 @@
<div class="form-group form-md-line-input input-iconright"> <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: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:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
@@ -157,11 +220,17 @@
</div> </div>
<br /> <br />
<div class="row"> <div class="row" style="vertical-align:bottom!important">
<div class="col-md-6">
<div class="form-group">
<label class="col-md-2" for="<%= TxtFechaInicio.ClientID.ToString()%>">Fecha Inicio:</label> <table>
<div class=" input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-right: 10px!important"> <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> <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;"> <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> <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> <ajax:ValidatorCalloutExtender ID="RfvctxtFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="RfvtxtFechaInicio" Width="100px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </td>
</div>
<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> <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;"> <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> <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> <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>
<div class="col-md-6">
<div class="form-group">
</div>
</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>&nbsp; <label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" /> <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
@@ -243,7 +332,7 @@
<br /> <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"> ToolTip="Listado de representantes" CssClass="table table-striped table-advance table-hover" GridLines="None">
<Columns> <Columns>

89
Edoc/Contratos.aspx.vb
View File

@@ -23,8 +23,10 @@ Partial Class Proveedores_Contratos
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaDatos()
CargaCombos() CargaCombos()
CargaDatos()
End If End If
@@ -35,7 +37,7 @@ Partial Class Proveedores_Contratos
Dim ObjProv As New ClsCompProveedores 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 GvDatos.DataSource = ObjProv.DtResultados
Else Else
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
@@ -50,18 +52,24 @@ Partial Class Proveedores_Contratos
Private Sub CargaCombos() Private Sub CargaCombos()
'CargaProveedores 'CargaProveedores
DdlProveedores.setEsWebService(True) DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos" DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1" DdlProveedores.SelectedValue = "-1"
DdlSubProyecto.Items.Clear() 'DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, LblSubProyectoFiltro)
DdlTipoContrato.Items.Clear() DdlTipoContrato.Items.Clear()
Dim ObjProveedor As New ClsCompProveedores Dim ObjProveedor As New ClsCompProveedores
@@ -69,15 +77,26 @@ Partial Class Proveedores_Contratos
If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then
DdlTipoContrato.DataSource = ObjProveedor.DtResultados DdlTipoContrato.DataSource = ObjProveedor.DtResultados
DdlTipoContratoFiltro.DataSource = ObjProveedor.DtResultados
End If End If
If ObjProveedor.GetContratoProvedores(UsuarioActual.CveEmpresa) Then
DdlProveedorFiltro.DataSource = ObjProveedor.DtResultados
End If
ObjProveedor.Dispose() ObjProveedor.Dispose()
DdlTipoContrato.DataBind() DdlTipoContrato.DataBind()
DdlTipoContratoFiltro.DataBind()
DdlProveedorFiltro.DataBind()
DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione", "-1")) 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 End Sub
@@ -96,6 +115,10 @@ Partial Class Proveedores_Contratos
DdlTipoContrato.SelectedValueExist("-1") DdlTipoContrato.SelectedValueExist("-1")
DdlSubProyecto.SelectedValueExist("-1") DdlSubProyecto.SelectedValueExist("-1")
DDlRePresentanteLegal.Items.Clear()
DDlRePresentanteLegal.Items.Add(New ListItem("Seleccione uno", "-1"))
DDlRePresentanteLegal.SelectedValueExist("-1") DDlRePresentanteLegal.SelectedValueExist("-1")
TxtFechaInicio.Text = "" TxtFechaInicio.Text = ""
@@ -104,6 +127,11 @@ Partial Class Proveedores_Contratos
BtnAgregarModalContrato.Text = "Agregar" BtnAgregarModalContrato.Text = "Agregar"
CheckActiveSection.Visible = False
ChkEstatus.Enabled = True
UpModalContrato.Update() UpModalContrato.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato")) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato"))
@@ -119,8 +147,13 @@ Partial Class Proveedores_Contratos
DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor") DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor")
DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial") DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial")
DdlTipoContrato.SelectedValueExist(GvRow.DataKey("CveTipoContrato")) DdlTipoContrato.SelectedValueExist(GvRow.DataKey("CveTipoContrato"))
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
CargaRepresentantes(GvRow.DataKey("CveProveedor").ToEntero)
DDlRePresentanteLegal.SelectedValueExist(GvRow.DataKey("CveRepresentanteLegal")) DDlRePresentanteLegal.SelectedValueExist(GvRow.DataKey("CveRepresentanteLegal"))
TxtFechaInicio.Text = GvRow.DataKey("FechaInicio").ToString.ToDate().ToString("dd/MM/yyyy") 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")) ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
BtnAgregarModalContrato.Text = "Actualizar" BtnAgregarModalContrato.Text = "Actualizar"
CheckActiveSection.Visible = True
UpModalContrato.Update() UpModalContrato.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato")) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarContrato"))
@@ -183,10 +219,6 @@ Partial Class Proveedores_Contratos
End If End If
End Sub End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs) 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) 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 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.") Alert("Se agrego representante correctamente.")
TxtRepresentanteLegal.Text = "" TxtRepresentanteLegal.Text = ""
End If End If
ObjProv.Dispose() ObjProv.Dispose()
CargaRepresentantes() CargaRepresentantes(CveProveedor)
End Sub End Sub
Private Sub CargaRepresentantes() Private Sub CargaRepresentantes(CveProveedor As Integer)
Dim ObjProv As New ClsCompProveedores Dim ObjProv As New ClsCompProveedores
If ObjProv.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa) Then If ObjProv.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa, CveProveedor) Then
GvRepresentante.DataSource = ObjProv.DtResultados GvRepresentante.DataSource = ObjProv.DtResultados
DDlRePresentanteLegal.DataSource = ObjProv.DtResultados DDlRePresentanteLegal.DataSource = ObjProv.DtResultados
Else Else
@@ -263,6 +302,7 @@ Partial Class Proveedores_Contratos
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveRepresentanteLegal As Integer = GvRow.DataKey("CveRepresentanteLegal").ToEntero Dim CveRepresentanteLegal As Integer = GvRow.DataKey("CveRepresentanteLegal").ToEntero
Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
Dim ObjProv As New ClsCompProveedores Dim ObjProv As New ClsCompProveedores
If ObjProv.RemoveRePresentanteLegal(CveRepresentanteLegal, UsuarioActual.CveEmpresa) Then If ObjProv.RemoveRePresentanteLegal(CveRepresentanteLegal, UsuarioActual.CveEmpresa) Then
@@ -271,7 +311,22 @@ Partial Class Proveedores_Contratos
ObjProv.Dispose() 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 Sub
End Class End Class

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2444,7 +2444,7 @@ Partial Class Inventarios_EntregaAlmacen
Else Else
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
ErrorMovInv = True ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada") TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
Exit For Exit For

5
PortalProveedor/PortalProveedor.aspx
View File

@@ -69,6 +69,7 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<ajax:TabContainer ID="Tab" runat="server" Width="100%" CssClass="tabBodyOverride" ActiveTabIndex="0"> <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"> <ajax:TabPanel ID="TabCxP" runat="server" HeaderText="<i class='fa fa-list-alt'></i> Cuentas x Cobrar" Visible="False">
<ContentTemplate> <ContentTemplate>
@@ -799,13 +800,13 @@
</ajax:TabPanel> </ajax:TabPanel>
<%---2020/02/06 - Auditoria--%> <%---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> <ContentTemplate>
<asp:UpdatePanel ID="UpTabAuditoria" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTabAuditoria" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<asp:UpdatePanel ID="UPGvDocumentos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPGvDocumentos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="col-md-12"> <div class="col-md-12">

564
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -284,8 +284,16 @@ Partial Class Portal_PortalProveedor
' CargaUsuariosPortal() ' CargaUsuariosPortal()
End If End If
If UsuarioActual.TienePermisoProceso(305) Then
TabAuditoria.Visible = True
End If
'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS 'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS
If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True
End If End If
End Sub End Sub
@@ -647,289 +655,289 @@ Partial Class Portal_PortalProveedor
GvCxPHistorial.DataBind() GvCxPHistorial.DataBind()
' UpDatos.Update() ' UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "Usuarios Portal" #Region "Usuarios Portal"
'Private Sub CargaUsuariosPortal() 'Private Sub CargaUsuariosPortal()
' Dim ObjUsrs As New ClsSisUsuarios() ' Dim ObjUsrs As New ClsSisUsuarios()
' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then ' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
' Dim dtUsr As DataTable = ObjUsrs.DtResultados ' Dim dtUsr As DataTable = ObjUsrs.DtResultados
' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)) ' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario))
' 'If dr IsNot Nothing Then ' 'If dr IsNot Nothing Then
' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True" ' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True"
' ' If True Then TabCxP.Visible = True ' ' If True Then TabCxP.Visible = True
' ' If True Then TabAnticipos.Visible = True ' ' If True Then TabAnticipos.Visible = True
' ' If True Then TabBancos.Visible = True ' ' If True Then TabBancos.Visible = True
' ' If True Then TabSistema.Visible = True ' ' If True Then TabSistema.Visible = True
' 'End If ' 'End If
' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario) ' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
' ViewState("OrdenUsuarios") = "" ' ViewState("OrdenUsuarios") = ""
' GvUsuariosPortal.DataSource = dtUsr ' GvUsuariosPortal.DataSource = dtUsr
' ViewState("DTUsuariosProveedor") = dtUsr ' ViewState("DTUsuariosProveedor") = dtUsr
' Else ' Else
' GvUsuariosPortal.DataSource = Nothing ' GvUsuariosPortal.DataSource = Nothing
' ViewState("DTUsuariosProveedor") = Nothing ' ViewState("DTUsuariosProveedor") = Nothing
' End If ' End If
' ObjUsrs.Dispose() ' ObjUsrs.Dispose()
' GvUsuariosPortal.DataBind() ' GvUsuariosPortal.DataBind()
'End Sub 'End Sub
'Private Sub CargaGridUsuarios(Orden As String) 'Private Sub CargaGridUsuarios(Orden As String)
' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then ' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then
' If Orden <> String.Empty Then ' If Orden <> String.Empty Then
' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows) ' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows)
' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario) ' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
' DV.Dispose() ' DV.Dispose()
' Else ' Else
' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario) ' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
' End If ' End If
' End If ' End If
' GvUsuariosPortal.DataBind() ' GvUsuariosPortal.DataBind()
' UPPUsuarios.Update() ' UPPUsuarios.Update()
'End Sub 'End Sub
''ajustar el tamaño de las celdas de la GvUsuarios Portal ''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 'Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' 'El usuario Admin no se puede editar ni eliminar ' 'El usuario Admin no se puede editar ni eliminar
' If e.Row.DataKey("Nombre") = "Admin" Then ' If e.Row.DataKey("Nombre") = "Admin" Then
' e.Row.FCLinkButton("imgE").Visible = False ' e.Row.FCLinkButton("imgE").Visible = False
' e.Row.FCLinkButton("imgD").Visible = False ' e.Row.FCLinkButton("imgD").Visible = False
' e.Row.FCLinkButton("imgC").Visible = False ' e.Row.FCLinkButton("imgC").Visible = False
' End If ' End If
' If e.Row.RowIndex = 0 Then ' 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(0).Width = Unit.Pixel(120) ' 'e.Row.Cells(0).Width = Unit.Pixel(120)
' 'e.Row.Cells(1).Width = Unit.Pixel(150) ' 'e.Row.Cells(1).Width = Unit.Pixel(150)
' 'e.Row.Cells(2).Width = Unit.Pixel(55) ' 'e.Row.Cells(2).Width = Unit.Pixel(55)
' 'e.Row.Cells(3).Width = Unit.Pixel(55) ' 'e.Row.Cells(3).Width = Unit.Pixel(55)
' 'e.Row.Cells(4).Width = Unit.Pixel(55) ' 'e.Row.Cells(4).Width = Unit.Pixel(55)
' 'e.Row.Cells(5).Width = Unit.Pixel(55) ' 'e.Row.Cells(5).Width = Unit.Pixel(55)
' 'e.Row.Cells(6).Width = Unit.Pixel(55) ' 'e.Row.Cells(6).Width = Unit.Pixel(55)
' 'e.Row.Cells(7).Width = Unit.Pixel(55) ' 'e.Row.Cells(7).Width = Unit.Pixel(55)
' 'e.Row.Cells(8).Width = Unit.Pixel(75) ' 'e.Row.Cells(8).Width = Unit.Pixel(75)
' 'e.Row.Cells(9).Width = Unit.Pixel(100) ' 'e.Row.Cells(9).Width = Unit.Pixel(100)
' 'e.Row.Cells(10).Width = Unit.Pixel(150) ' 'e.Row.Cells(10).Width = Unit.Pixel(150)
' End If ' End If
' End If ' End If
'End Sub 'End Sub
''Editar usuarios ''Editar usuarios
'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing 'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing
' GvUsuariosPortal.EditIndex = e.NewEditIndex ' GvUsuariosPortal.EditIndex = e.NewEditIndex
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then ' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString()) ' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
' Else ' Else
' CargaGridUsuarios("") ' CargaGridUsuarios("")
' End If ' End If
'End Sub 'End Sub
'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating 'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating
' Dim ObjUsuario As New ClsSisUsuarios ' Dim ObjUsuario As New ClsSisUsuarios
' Dim Nombre, Correo As String ' Dim Nombre, Correo As String
' Dim Estatus As Boolean ' Dim Estatus As Boolean
' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex) ' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim ' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim ' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim ' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim
' Estatus = gvr.FCCheckBox("ChkEstatus").Checked ' Estatus = gvr.FCCheckBox("ChkEstatus").Checked
' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero ' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero
' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero ' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero
' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then ' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then
' GvUsuariosPortal.EditIndex = -1 ' GvUsuariosPortal.EditIndex = -1
' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario) ' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados ' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
' End If ' End If
' ObjUsuario.Dispose() ' ObjUsuario.Dispose()
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then ' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString()) ' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
' Else ' Else
' CargaGridUsuarios("") ' CargaGridUsuarios("")
' End If ' End If
'End Sub 'End Sub
''Cancelar Edición ''Cancelar Edición
'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit 'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit
' GvUsuariosPortal.EditIndex = -1 ' GvUsuariosPortal.EditIndex = -1
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then ' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString()) ' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
' Else ' Else
' CargaGridUsuarios("") ' CargaGridUsuarios("")
' End If ' End If
'End Sub 'End Sub
''Restablecer contraseña ''Restablecer contraseña
'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand 'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
' If e.CommandName = "RestablecerContraseña" Then ' If e.CommandName = "RestablecerContraseña" Then
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero ' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
' Dim Usuario As New ClsSisUsuarios ' Dim Usuario As New ClsSisUsuarios
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then ' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("") ' 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 ' 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 ' GvUsuariosPortal.EditIndex = -1
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario) ' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "") ' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "")
' End If ' End If
' End If ' End If
' Usuario.Dispose() ' Usuario.Dispose()
' End If ' End If
' If e.CommandName = "ReenviarCorreo" Then ' If e.CommandName = "ReenviarCorreo" Then
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero ' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
' Dim Usuario As New ClsSisUsuarios ' Dim Usuario As New ClsSisUsuarios
' Usuario.IniciaTransacSQL() ' Usuario.IniciaTransacSQL()
' Dim TieneError = False ' Dim TieneError = False
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then ' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("") ' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
' 'ACTUALIZA USUARIO, CONTRASEÑA Y ESTATUS ' '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 ' If Not Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
' TieneError = True ' TieneError = True
' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError)
' End If ' End If
' 'MANDA CORREO ACTIVACION ' 'MANDA CORREO ACTIVACION
' If Not TieneError Then ' If Not TieneError Then
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL) ' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx" ' 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 LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
' Dim ObjMail As New ClsSisMail() ' Dim ObjMail As New ClsSisMail()
' If dr("Correo").ToString <> "" Then ' If dr("Correo").ToString <> "" Then
' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c}) ' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c})
' Dim Texto = "" ' Dim Texto = ""
' For Each Correo As String In Correos ' 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) ' 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.MandaCorreo(EmpresaNotificaciones, Correo, "Activación de cuenta", "", "", {""}, Texto) Then
' If Not ObjMail.SendMail(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) ' Alert("Error al mandar el correo. Por favor vuelva a intentar", TipoMensaje.MsgError)
' TieneError = True ' TieneError = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' Else ' Else
' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia) ' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia)
' TieneError = True ' TieneError = True
' End If ' End If
' End If ' End If
' If Not TieneError Then ' If Not TieneError Then
' Usuario.Commit() ' Usuario.Commit()
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados ' 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) ' 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 ' Else
' Usuario.RollBack() ' Usuario.RollBack()
' End If ' End If
' End If ' End If
' Usuario.Dispose() ' Usuario.Dispose()
' End If ' End If
'End Sub 'End Sub
''Eliminar Usuarios ''Eliminar Usuarios
'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting 'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting
' Dim Usuario As New ClsSisUsuarios ' Dim Usuario As New ClsSisUsuarios
' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then ' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
' GvUsuariosPortal.EditIndex = -1 ' GvUsuariosPortal.EditIndex = -1
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados ' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
' End If ' End If
' Usuario.Dispose() ' Usuario.Dispose()
' Alert("Usuario Eliminado") ' Alert("Usuario Eliminado")
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then ' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString()) ' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
' Else ' Else
' CargaGridUsuarios("") ' CargaGridUsuarios("")
' End If ' End If
'End Sub 'End Sub
''Agregar Usuario ''Agregar Usuario
'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click 'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
' Dim ObjUsuario As New ClsSisUsuarios ' Dim ObjUsuario As New ClsSisUsuarios
' Dim CvePlataforma As Integer = 7 ' Dim CvePlataforma As Integer = 7
' ObjUsuario.IniciaTransacSQL() ' 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) ' 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 CveUsuario > 0 Then
' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then ' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then
' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then ' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario) ' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario)
' End If ' End If
' TxtNombrePortal.Text = "" ' TxtNombrePortal.Text = ""
' TxtCorreo.Text = "" ' TxtCorreo.Text = ""
' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'") ' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'")
' ObjUsuario.Commit() ' ObjUsuario.Commit()
' Else ' Else
' ObjUsuario.RollBack() ' ObjUsuario.RollBack()
' End If ' End If
' Else ' Else
' ObjUsuario.RollBack() ' ObjUsuario.RollBack()
' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado") ' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado")
' End If ' End If
' ObjUsuario.Dispose() ' ObjUsuario.Dispose()
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then ' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString()) ' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
' Else ' Else
' CargaGridUsuarios("") ' CargaGridUsuarios("")
' End If ' End If
'End Sub 'End Sub
#End Region #End Region
#Region "O R D E N A M I E N T O" #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) 'Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
' Dim Orden As String = "" ' Dim Orden As String = ""
' Dim Campo As String = "" ' Dim Campo As String = ""
' Dim Literal As Literal = Nothing ' Dim Literal As Literal = Nothing
' Const OrdenInicial As String = "" ' Const OrdenInicial As String = ""
' Dim Arg(2) As String ' Dim Arg(2) As String
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c) ' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
' Campo = Arg(0) ' Campo = Arg(0)
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal) ' 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 ' 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) ' 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>") ' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
' Else ' Else
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo) ' 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>") ' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
' End If ' End If
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString ' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
' ViewState("Orden") = Orden ' ViewState("Orden") = Orden
' CargaGridUsuarios(Orden) ' CargaGridUsuarios(Orden)
'End Sub 'End Sub
#End Region #End Region
#Region " BANCOS" #Region " BANCOS"
Protected Sub BtnExcelGvBancosCuentas_Click(sender As Object, e As EventArgs) Protected Sub BtnExcelGvBancosCuentas_Click(sender As Object, e As EventArgs)
Dim retorno As Byte() = ImprimirReporteGvBancosCuentas("EXCEL") Dim retorno As Byte() = ImprimirReporteGvBancosCuentas("EXCEL")

57
Ventas/Ventas.aspx.vb
View File

@@ -3771,6 +3771,7 @@ Partial Class Ventas
InicializaDTAnticiposAmortizacion() InicializaDTAnticiposAmortizacion()
ChkAplicaNCAnticipo.Enabled = False ChkAplicaNCAnticipo.Enabled = False
Else Else
ChkAplicaNCAnticipo.Enabled = False
ChkAplicaNCAnticipo.Checked = False ChkAplicaNCAnticipo.Checked = False
End If End If
'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False 'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
@@ -25937,39 +25938,39 @@ Partial Class Ventas
If CveVenta <= 0 OrElse EsCreaApartirDe Then If CveVenta <= 0 OrElse EsCreaApartirDe Then
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
For Each RowServicio As DataRow In TmpDT.Rows For Each RowServicio As DataRow In TmpDT.Rows
Dim tClienteRetIVA = ClienteRetIVA Dim tClienteRetIVA = ClienteRetIVA
If tClienteRetIVA <= 0 Then If tClienteRetIVA <= 0 Then
If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
tClienteRetIVA = 0.106667D tClienteRetIVA = 0.106667D
ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
tClienteRetIVA = 0.04D tClienteRetIVA = 0.04D
ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
tClienteRetIVA = 0.06D tClienteRetIVA = 0.06D
End If
ViewState("ClienteRetIVA") = tClienteRetIVA
End If End If
ViewState("ClienteRetIVA") = tClienteRetIVA
Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
RowServicio("PorcentajeRetIVA") = ClienteRetIVA
Next
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
If PorcentajeRetIVA > 0 Then
TrRetIVA.Style.Add("display", "")
UsuarioActual.Empresa.MostrarRetIVA = True
DdlTipoRetencion.Visible = True
End If End If
GvPS.DataSource = TmpDT Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
GvPS.DataBind() RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
RowServicio("PorcentajeRetIVA") = ClienteRetIVA
Next
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
If PorcentajeRetIVA > 0 Then
TrRetIVA.Style.Add("display", "")
UsuarioActual.Empresa.MostrarRetIVA = True
DdlTipoRetencion.Visible = True
End If End If
GvPS.DataSource = TmpDT
GvPS.DataBind()
End If
End If End If
UpPS.Update() UpPS.Update()
@@ -26166,7 +26167,7 @@ Partial Class Ventas
Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer) Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
DtDatos = ObjMovtos.DtResultados DTDatos = ObjMovtos.DtResultados
GVAuxiliar.DataSource = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados
Else Else
GVAuxiliar.DataSource = Nothing GVAuxiliar.DataSource = Nothing