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

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

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-09-29 16:57:04 -07:00
parent 6a6c7a70d8 f53dc040c2
commit e5c613ee5e
15 changed files with 826 additions and 389 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
App_Code/ClsCompras.vb
View File

@@ -3074,6 +3074,39 @@ Public Class ClsCompras
Return Retorno
End Function
Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_FletesComprasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_FletesComprasAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveOC", SqlDbType.Int).Value = CveOC
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#Region "REPORTE PUE SIN PAGO"
Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean

199
App_Code/ClsSisUsuarios.vb
View File

@@ -413,8 +413,125 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
End Function
End Function
Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = -1
.Add("@CveRol", SqlDbType.Int).Value = -1
.Add("@Usuario", SqlDbType.VarChar).Value = Usuario
.Add("@Contraseña", SqlDbType.VarChar).Value = Password
.Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With
Try
SqlAdapter.Fill(Data)
If Data.Rows.Count > 0 Then
Retorno = New Usuario
Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Retorno.Usuario = Usuario
Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
Retorno.Nombre = Data.Rows(0)("Nombre").ToString
Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
Retorno.Rol = Data.Rows(0)("Rol").ToString
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveCliente = CveCliente
Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
'Retorno.Liga = Data.Rows(0)("Liga").ToString
'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveCliente)
Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
Next
Retorno.Modulos = UsuariosModulos
''cargo los procesos del usuario
dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
Dim UsuariosProcesos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
Next
Retorno.Procesos = UsuariosProcesos
End If
Catch ex As SqlException
OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
Retorno = Nothing
End Try
Return Retorno
End Function
Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = -1
.Add("@CveRol", SqlDbType.Int).Value = -1
.Add("@Usuario", SqlDbType.VarChar).Value = Usuario
.Add("@Contraseña", SqlDbType.VarChar).Value = Password
.Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With
Try
SqlAdapter.Fill(Data)
If Data.Rows.Count > 0 Then
Retorno = New Usuario
Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Retorno.Usuario = Usuario
Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
Retorno.Nombre = Data.Rows(0)("Nombre").ToString
Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
Retorno.Rol = Data.Rows(0)("Rol").ToString
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveProveedor = CveProveedor
Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
'Retorno.Liga = Data.Rows(0)("Liga").ToString
'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor)
Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
Next
Retorno.Modulos = UsuariosModulos
''cargo los procesos del usuario
dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
Dim UsuariosProcesos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
Next
Retorno.Procesos = UsuariosProcesos
End If
Catch ex As SqlException
OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
Retorno = Nothing
End Try
Return Retorno
End Function
#Region "U S U A R I O - I N D I C A D O R E S"
Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
@@ -2671,12 +2788,84 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
End Function
End Function
Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosClienteGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedoresAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedorGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region "U S U A R I O S - PyME"
Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean
Dim Retorno As Boolean = False

19
Compras/Compras.aspx.vb
View File

@@ -19218,13 +19218,13 @@ Partial Class Compras_Compras
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
ObjInventario.Dispose()
Exit Sub
End If
End If
'If Dr IsNot Nothing Then
' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
' ObjInventario.Dispose()
' Exit Sub
' End If
'End If
ObjInventario.Dispose()
End If
@@ -19257,8 +19257,11 @@ Partial Class Compras_Compras
If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
ErrorTrans = True
End If
If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then
ErrorTrans = True
End If
Else
ErrorTrans = True
ErrorTrans = True
End If
Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then

3
Compras/RepComprasDetalle.aspx
View File

@@ -410,6 +410,7 @@
<asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Descripcion" ItemStyle-Width="100px" HeaderText="Descripción" />
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -481,7 +482,7 @@
<asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
<td>
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
<td></td>
<td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td>
</tr>
<tr>
<td>

3
Compras/RepComprasDetalle.aspx.vb
View File

@@ -606,7 +606,8 @@ Partial Class Compras_RepComprasDetalle
GvDatos.Columns(9).Visible = ChkRazon.Checked
GvDatos.Columns(10).Visible = ChkFolio.Checked
GvDatos.Columns(11).Visible = ChkFecha.Checked
GvDatos.Columns(12).Visible = ChkObs.Checked
GvDatos.Columns(12).Visible = ChkObs.Checked
GvDatos.Columns(13).Visible = ChkDescripcion.Checked
UPDatos.Update()
End Sub

1
Contabilidad/RegPrePoliza.aspx
View File

@@ -190,6 +190,7 @@
<asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
<asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
<asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
<ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
<br />
<asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />

25
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -568,8 +568,18 @@ Partial Class ContabilidadC_RegPrePoliza
Else
TxtTC.Text = ""
TxtTC.Visible = False
End If
End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
CargaClasificaciones()
DdlClasificaciones.Visible = True
Else
TxtTC.Text = ""
DdlClasificaciones.Visible = False
End If
End Sub
Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -631,6 +641,12 @@ Partial Class ContabilidadC_RegPrePoliza
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaClasificaciones()
DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificaciones.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaVentas(CveCliente As Integer)
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
'MENSAJE PRINCIPAL
MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1
dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1
dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
dr("TC") = TxtTC.Text.ToDouble

71
Inventarios/Fletes.aspx
View File

@@ -63,34 +63,34 @@
</div>
</div>
</div>
<div class="row">
<%--<div class="row">
<div class="col-md-12">
<hr />
</div>
<div class="col-md-2">
Modalidad
</div>
<div class="col-md-5">
</div>--%>
<%--<div class="col-md-5">
<asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
<asp:ListItem Text="OC" Value="1" Selected="True" />
<asp:ListItem Text="Compra" Value="2" />
</asp:DropDownList>
</div>
<div class="col-md-5 text-center">
<div runat="server" id="DivVincularOC">
</div>--%>
<%--<div class="col-md-5 text-center">
<%--<div runat="server" id="DivVincularOC">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
<asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" />
<asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
</div>
</div>--%>
<div runat="server" id="DivVincularCompra" visible="false">
<%--<div runat="server" id="DivVincularCompra" visible="false">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
<asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
</div>
</div>
</div>
<div class="row">
</div>--%>
<%--</div>--%>
<%--</div>--%>
<%--<div class="row">
<div class="col-md-2">Proveedor:</div>
<div class="col-md-10">
<asp:Label ID="LbOCProveedor" Text="" runat="server" />
@@ -107,12 +107,51 @@
<div class="col-md-10">
<asp:Label ID="LbOCImporte" Text="" runat="server" />
</div>
</div>
</div>--%>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpComprasGrid">
<ContentTemplate>
<div class="portlet light smmallpadding bordered " id="PorletCompras">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Compras</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
<Columns>
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
<asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
<%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
<ItemTemplate>
<div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
<asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</div>
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div class="row">
@@ -128,13 +167,13 @@
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="actions">
<%--<div class="actions">
<div class="btn-group">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
<asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
</div>
</div>
</div>--%>
</div>
<div class="portlet-body rowpadding">
<div class="row">

345
Inventarios/Fletes.aspx.vb
View File

@@ -81,27 +81,27 @@ Partial Class Compras_Fletes
TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString
If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then
DdlModalidad.SelectedValue = "1"
'DdlModalidad.SelectedValue = "1"
Else
DdlModalidad.SelectedValue = "2"
'DdlModalidad.SelectedValue = "2"
End If
CambiaModalidad()
HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
'CambiaModalidad()
'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
If ObjInv.GetFleteDetalle(CveFlete) Then
DtCompras = ObjInv.DtResultados
Else
Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
End If
CargarComprasRelacionadas()
Else
Alert("No se encontró el flete", TipoMensaje.MsgInformacion)
Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
End If
Else
Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError)
@@ -123,168 +123,168 @@ Partial Class Compras_Fletes
#Region " VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA "
Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs)
CambiaModalidad()
'CambiaModalidad()
UpRegistro.Update()
End Sub
Private Sub CambiaModalidad()
HdnCveOC.Value = "-1"
HdnCveCompra.Value = "-1"
'Private Sub CambiaModalidad()
' HdnCveOC.Value = "-1"
' HdnCveCompra.Value = "-1"
LbOCProveedor.Text = ""
HLOCFolio.Text = ""
HLOCFolio.NavigateUrl = "#"
LbOCImporte.Text = ""
' LbOCProveedor.Text = ""
' HLOCFolio.Text = ""
' HLOCFolio.NavigateUrl = "#"
' LbOCImporte.Text = ""
DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
End Sub
' DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
' DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
'End Sub
Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
VinculaOC()
End Sub
Private Sub VinculaOC()
If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
Dim ObjInv As New ClsInventarios
Dim ObjOC As New ClsOC
If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjOC.DtResultados.Rows.Count > 0 Then
LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
End If
Else
HdnCveOC.Value = "-1"
End If
Else
Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
ObjInv.Dispose()
ObjOC.Dispose()
End If
UpRegistro.Update()
End Sub
Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
VincularCompra()
End Sub
Private Sub VincularCompra()
'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
' VinculaOC()
'End Sub
'Private Sub VinculaOC()
' If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
' Dim ObjInv As New ClsInventarios
' Dim ObjOC As New ClsOC
' If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
' If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
' If ObjOC.DtResultados.Rows.Count > 0 Then
' LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
' HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
' HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
' LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
' End If
' Else
' HdnCveOC.Value = "-1"
' End If
' Else
' Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
' ObjInv.Dispose()
' ObjOC.Dispose()
' End If
' UpRegistro.Update()
'End Sub
'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
' VincularCompra()
'End Sub
'Private Sub VincularCompra()
If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
' If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
' Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
Dim ObjCompras As New ClsCompras
Dim ObjInv As New ClsInventarios
Dim ErrorAgregar = False
Dim RowCompras As DataRow = Nothing
' Dim ObjCompras As New ClsCompras
' Dim ObjInv As New ClsInventarios
' Dim ErrorAgregar = False
' Dim RowCompras As DataRow = Nothing
If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
RowCompras = ObjCompras.DtResultados.Rows(0)
If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
ErrorAgregar = True
Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
Else
ErrorAgregar = True
Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
End If
' If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
' RowCompras = ObjCompras.DtResultados.Rows(0)
' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
' ErrorAgregar = True
' Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
' Else
' ErrorAgregar = True
' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
' End If
If Not ErrorAgregar Then
If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
ErrorAgregar = True
Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
End If
' If Not ErrorAgregar Then
' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
' ErrorAgregar = True
' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
' End If
If Not ErrorAgregar Then
LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
Else
HdnCveCompra.Value = "-1"
End If
' If Not ErrorAgregar Then
' LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
' HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
' HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
' LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
' Else
' HdnCveCompra.Value = "-1"
' End If
ObjCompras.Dispose()
ObjInv.Dispose()
' ObjCompras.Dispose()
' ObjInv.Dispose()
End Sub
'End Sub
#End Region
#Region " AGREGA COMPRA GASTO "
Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
AgregaCompraGasto()
End Sub
Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
AgregaCompraGasto()
End Sub
Private Sub AgregaCompraGasto()
'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
' AgregaCompraGasto()
'End Sub
'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
' AgregaCompraGasto()
'End Sub
'Private Sub AgregaCompraGasto()
If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
' If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
' Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
Dim ObjCompras As New ClsCompras
Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
Dim ErrorAgregar = False
Dim RowCompras As DataRow = Nothing
' Dim ObjCompras As New ClsCompras
' Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
' Dim ErrorAgregar = False
' Dim RowCompras As DataRow = Nothing
If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
RowCompras = ObjCompras.DtResultados.Rows(0)
If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
ErrorAgregar = True
Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
Else
ErrorAgregar = True
Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
End If
' If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
' RowCompras = ObjCompras.DtResultados.Rows(0)
' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
' ErrorAgregar = True
' Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
' Else
' ErrorAgregar = True
' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
' End If
If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
ErrorAgregar = True
Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
' If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
' ErrorAgregar = True
' Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
If Not ErrorAgregar Then
If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
ErrorAgregar = True
Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
End If
' If Not ErrorAgregar Then
' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
' ErrorAgregar = True
' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' End If
' End If
If Not ErrorAgregar Then
If Not GvDatos.Rows.Count > 0 Then
DtCompras = RowCompras.Table.Clone
DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
End If
If CveFlete > 0 Then
If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
ErrorAgregar = True
Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
End If
End If
End If
' If Not ErrorAgregar Then
' If Not GvDatos.Rows.Count > 0 Then
' DtCompras = RowCompras.Table.Clone
' DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
' End If
' If CveFlete > 0 Then
' If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
' ErrorAgregar = True
' Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
' End If
' End If
' End If
If Not ErrorAgregar Then
ObjCompras.Commit()
DtCompras.ImportRow(RowCompras)
CargaGrid()
If CveFlete > 0 Then
Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
End If
Else
ObjCompras.RollBack()
End If
' If Not ErrorAgregar Then
' ObjCompras.Commit()
' DtCompras.ImportRow(RowCompras)
' CargaGrid()
' If CveFlete > 0 Then
' Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
' End If
' Else
' ObjCompras.RollBack()
' End If
HdnCveCompraGasto.Value = "-1"
ObjCompras.Dispose()
ObjInv.Dispose()
' HdnCveCompraGasto.Value = "-1"
' ObjCompras.Dispose()
' ObjInv.Dispose()
End Sub
'End Sub
Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim TieneError = False
If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then
@@ -312,18 +312,18 @@ Partial Class Compras_Fletes
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
Select Case DdlModalidad.SelectedValue.ToEntero
Case 1
If Not HdnCveOC.Value.ToEntero > 0 Then
Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Case 2
If Not HdnCveCompra.Value.ToEntero > 0 Then
Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End Select
'Select Case DdlModalidad.SelectedValue.ToEntero
' Case 1
' 'If Not HdnCveOC.Value.ToEntero > 0 Then
' ' Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
' ' Exit Sub
' 'End If
' Case 2
' 'If Not HdnCveCompra.Value.ToEntero > 0 Then
' ' Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
' ' Exit Sub
' 'End If
'End Select
If Not DtCompras.Rows.Count > 0 Then
Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia)
@@ -336,7 +336,7 @@ Partial Class Compras_Fletes
Dim CveFleteTemporal As Integer = 0
If CveFlete < 0 Then
If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CveFleteTemporal = ObjInv.CveFlete
Else
ErrorFlete = True
@@ -352,7 +352,7 @@ Partial Class Compras_Fletes
ErrorFlete = True
End If
Else
If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then
If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then
ErrorFlete = True
End If
End If
@@ -410,25 +410,32 @@ Partial Class Compras_Fletes
If Archivo.Exists Then
Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
Dim ImporteData As Double = ImporteStr.ToDouble()
'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
'Dim ImporteData As Double = ImporteStr.ToDouble()
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Folio", LblFolio.Text))
params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
params.Add(New ReportParameter("Fecha", TxtFecha.Text))
params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
params.Add(New ReportParameter("Modalidad", "Factura de Compra"))
params.Add(New ReportParameter("Proveedor", ""))
params.Add(New ReportParameter("FolioModalidad", ""))
params.Add(New ReportParameter("Importe", (ImporteGrid).ToString()))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
End If
End Sub
Private Sub CargarComprasRelacionadas()
Dim ObjCompras As New ClsCompras
If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
GvComprasVinculadas.DataSource = ObjCompras.DtResultados
End If
ObjCompras.Dispose()
GvComprasVinculadas.DataBind()
End Sub
End Class

48
Sistemas/PopUpAddUsuario.aspx
View File

@@ -21,6 +21,17 @@
#GvPermisosComandos tr td:nth-child(n+3), #GVNotificaciones tr th:nth-child(n+2) {
width: 50px;
}
.CustomSpinner {
position: fixed;
background-image: url(/Imagenes/Loading.gif);
background-repeat: no-repeat, repeat;
background-size: contain;
top: 60px;
right: 25px;
z-index: 500000;
height: 40px;
width: 40px;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -430,6 +441,7 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="CustomSpinner" style="display: none;"></div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script>
@@ -440,30 +452,34 @@
let myTick = 0
$('body').on('keyup', '#TxtEmail ', function (e) {
changeUser();
});
function changeUser() {
let Tick = myTick + 1;
myTick = Tick;
myTick = Tick;
setTimeout(
function () {
if (myTick == Tick) {
function () {
if (myTick == Tick) {
myTick = 0;
let Tusuario = $('#TxtEmail').val();
if (TusuarioOld != Tusuario) {
if (TusuarioOld != Tusuario) {
$('.CustomSpinner').show();
TusuarioOld = Tusuario
//console.log(Tusuario)
$.ajax({
$.ajax({
url: "/Ashx/SIGWeb.ashx",
data: { usuario: Tusuario, metodo: 'GetUser' }
data: { usuario: Tusuario, metodo: 'GetUser' }
}).done(function (data) {
//console.log(data)
if (data == "1") {
$('#BtnCambiarUsuario').click()
}
if (data == "1") {
$('#BtnCambiarUsuario').click()
} else {
$('.CustomSpinner').hide();
}
});
}
}
}, 2000);
});
}
}
}, 500);
}
function ADSBegin() {
TusuarioOld = $('#TxtEmail').val()

30
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -371,7 +371,33 @@ Partial Class Sistemas_PopUpAddUsuario
' Return
'End If
If UsuarioActual.Empresa.CvePlataforma = 3 Then
'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE
If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then
Dim DtClientesAcceso As DataTable = Nothing
If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
'DEBE AGREGAR EL USUARIO AL CLIENTE
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioCliente(CveUsuario, CveCliente) Then
HuboError = True
End If
End If
Else
HuboError = True
End If
'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR
ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then
Dim DtProveedoresAcceso As DataTable = Nothing
If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
'DEBE AGREGAR EL USUARIO AL PROVEEDOR
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
HuboError = True
End If
End If
Else
HuboError = True
End If
ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
HuboError = True
End If
@@ -855,6 +881,8 @@ Partial Class Sistemas_PopUpAddUsuario
CargaModulosPermisos()
CargaComandos()
UpDatos.Update()
RegistraScript(" $('.CustomSpinner').hide();")
End Sub
End Class

225
Sistemas/PopUpSeleccionarEmpresa.aspx
View File

@@ -1,123 +1,158 @@
<%@ Page Title="Lista de Empresas con acceso disponible" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpSeleccionarEmpresa.aspx.vb" Inherits="PopUpSeleccionarEmpresa" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Lista de Empresas con acceso disponible
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div style="align-content: center;">
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnSeleccionar" runat="server" ClientIDMode="Static" Text="Seleccionar" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnEmpresa" runat="server" ClientIDMode="Static" Value="-1" />
<asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" />
<asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" />
<div id="TblBusqueda" runat="server" border="0" visible="false" >
<div>
Número de registros encontrados: <b>
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
</div>
<div>
<input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
</div>
<asp:GridView ID="GV" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Empresa</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Empresa")%>' CommandArgument='<%# Eval("CveEmpresa") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle HorizontalAlign="Left" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
<asp:GridView ID="GVCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Portal Rastreo</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Cliente")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<%@ Page Title="Lista de Empresas con acceso disponible" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpSeleccionarEmpresa.aspx.vb" Inherits="PopUpSeleccionarEmpresa" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Lista de Empresas con acceso disponible
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div style="align-content: center;">
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnSeleccionar" runat="server" ClientIDMode="Static" Text="Seleccionar" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnEmpresa" runat="server" ClientIDMode="Static" Value="-1" />
<asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" />
<asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" />
<div id="TblBusqueda" runat="server" border="0" visible="false">
<div>
Número de registros encontrados: <b>
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
</div>
<div>
<input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
</div>
<asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Empresa</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Empresa")%>' CommandArgument='<%# Eval("CveEmpresa") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle HorizontalAlign="Left" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
<asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Portal Rastreo</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("Cliente")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:GridView ID="GvPortalCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Portal del Cliente</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ClienteEmpresa")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:GridView ID="GvPortalProveedor" runat="server" DataKeyNames="CveUsuario, CveProveedor, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Portal del Proveedor</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ProveedorEmpresa")%>' CommandArgument='<%# Eval("CveProveedor") %>' CommandName="Cambia"></asp:LinkButton>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" />
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">
jQuery(document).ready(function () {
jQuery(document).ready(function () {
buscarDT();
Sys.Application.add_load(function (s, e) {
buscarDT();
});
Sys.Application.add_load(function (s, e) {
buscarDT();
});
});
document.body.onload = function () {
alertSize();
document.body.onload = function () {
alertSize();
}
function Ir(c) {
function Ir(c) {
$get("HdnEmpresa").value = c;
$('#BtnSeleccionar').click();
$('#BtnSeleccionar').click();
}
function Ir2() {
gotourl('/PortalGPS/InicioGPS.aspx');
function Ir2() {
gotourl('/PortalGPS/InicioGPS.aspx');
}
function Ir3() {
gotourl('/Inicio.aspx');
function Ir3() {
gotourl('/Inicio.aspx');
}
function buscarDT() {
$('.TxtBusqueda').on('keyup', function () {
if (this.value == '') {
$('table' + $(this).attr('data-table') + ' tr').css('display', '');
} else {
function Ir4() {
gotourl('/PortalCliente/PortalCliente.aspx');
}
function Ir5() {
gotourl('/PortalProveedor/PortalProveedor.aspx');
}
function buscarDT() {
$('.TxtBusqueda').on('keyup', function () {
if (this.value == '') {
$('table' + $(this).attr('data-table') + ' tr').css('display', '');
} else {
$('table' + $(this).attr('data-table') + ' tr').css('display', 'none');
$('table' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', '');
}
$('table' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', '');
}
});
$('.TxtBusqueda').removeClass('TxtBusqueda');
$('.TxtBusqueda').removeClass('TxtBusqueda');
}
function alertSize() {
function alertSize() {
var myWidth = 0, myHeight = 0;
if (typeof (window.innerWidth) == 'number') {
//Non-IE
myWidth = window.innerWidth;
myHeight = window.innerHeight;
myHeight = window.innerHeight;
} else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
//IE 6+ in 'standards compliant mode'
myWidth = document.documentElement.clientWidth;
myHeight = document.documentElement.clientHeight;
myHeight = document.documentElement.clientHeight;
} else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
//IE 4 compatible
myWidth = document.body.clientWidth;
myHeight = document.body.clientHeight;
myHeight = document.body.clientHeight;
}
$get("HdnAncho").value = myWidth;
//$get("TablaGeneral").style.width = myWidth;
@@ -126,5 +161,5 @@
//$('#BtnSetWindows').click();
}
</script>
</asp:Content>
</script>
</asp:Content>

191
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -12,37 +12,50 @@ Partial Class PopUpSeleccionarEmpresa
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CType(Me.Master, BaseMasterPage).EsPopup = True
'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
'RegistraScript("alertSize();")
GetEmpresas()
End If
End Sub
Private Sub GetEmpresas()
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then
LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
Dim NumRegistros As Integer = 0
GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
Else
LtlTotalRegistros.Text = "0"
GV.DataSource = Nothing
GvEmpresas.DataSource = Nothing
GvPortalRastreo.DataSource = Nothing
GvPortalCliente.DataSource = Nothing
GvPortalProveedor.DataSource = Nothing
Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If
End If
GV.DataBind()
GVCliente.DataBind()
GvEmpresas.DataBind()
GvPortalRastreo.DataBind()
GvPortalCliente.DataBind()
GvPortalProveedor.DataBind()
UPDatos.Update()
TblBusqueda.Visible = True
End Sub
Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -80,35 +93,7 @@ Partial Class PopUpSeleccionarEmpresa
End If
End Sub
Private Sub GuardaLogR(Mensaje As String)
Dim ArchivoW As IO.StreamWriter
Dim MensajeLog As String = ""
Dim continuar As Boolean = True
Try
If Not IsNothing(System.Web.HttpContext.Current) Then
If Not IsNothing(System.Web.HttpContext.Current.Request) Then
MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
End If
End If
Catch
End Try
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
Try
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch
Exit Sub
End Try
Try
ArchivoW.Write(MensajeLog)
Catch
End Try
ArchivoW.Close()
ArchivoW.Dispose()
End Sub
Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.RowCommand
Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -142,32 +127,89 @@ Partial Class PopUpSeleccionarEmpresa
End If
End If
End Sub
End Sub
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
End Sub
Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing
Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose()
Private Sub CreaObjetoEmpresa()
Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
'Session("Empresa") = ObjEmpresa
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
Usuario.CvePlataforma = 6
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
CreaObjetoEmpresa(Usuario)
'si la contraseña es la prederminada, pide la nueva contraseña
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
RegistraScript("Ir4();")
End If
End If
dt.Dispose()
End If
Dim EmpresasFuncionalidades As New HybridDictionary
For Each Row As Data.DataRow In dttmp.Rows
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
Next
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
End If
UsuarioActual.Empresa = ObjEmpresa.Empresa
Else
Session("Empresa") = Nothing
End If
ObjEmpresa.Dispose()
End Sub
Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing
Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
Usuario.CvePlataforma = 7
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
CreaObjetoEmpresa(Usuario)
'si la contraseña es la prederminada, pide la nueva contraseña
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
RegistraScript("Ir5();")
End If
End If
dt.Dispose()
End If
End If
End If
End Sub
#Region "F U N C I O N E S"
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
End Sub
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -190,9 +232,34 @@ Partial Class PopUpSeleccionarEmpresa
Session("Empresa") = Nothing
End If
ObjEmpresa.Dispose()
End Sub
End Sub
Private Sub GuardaLogR(Mensaje As String)
Dim ArchivoW As IO.StreamWriter
Dim MensajeLog As String = ""
Dim continuar As Boolean = True
Try
If Not IsNothing(System.Web.HttpContext.Current) Then
If Not IsNothing(System.Web.HttpContext.Current.Request) Then
MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
End If
End If
Catch
End Try
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
Try
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch
Exit Sub
End Try
Try
ArchivoW.Write(MensajeLog)
Catch
End Try
ArchivoW.Close()
ArchivoW.Dispose()
End Sub
#End Region
End Class

6
Site.master.vb
View File

@@ -122,15 +122,11 @@ Partial Class Site
'2018.08.14, se movió de la linea 59 a la actual
CargaTipoCambio()
CargaUsuario()
If UsuarioActual.Portal = False Then
CreaMenu()
'Configuracion()
CargaUsuario()
CargaBuscadores()
Else
LtMasterPerfil.Text = UsuarioActual.Rol
LtMasterUsuario.Text = UsuarioActual.Usuario
End If
End If

16
asmx/WSApp.asmx
View File

@@ -548,15 +548,19 @@ Public Class WSApp
Salida.CveSubProyecto = UsuarioActual.CveSubProyecto
Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
Salida.Cliente = ObjClientes.Nombre
Salida.CvePrecioLista = ObjClientes.CvePrecioLista
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
End If
End If
retorno = JsonConvert.SerializeObject(Salida)
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
retorno = JsonConvert.SerializeObject(Salida)
End If
Else
retorno = "{}"
End If
Else
retorno = "{}"
End If