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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-07-07 12:14:55 -07:00
parent 1b7daf4649 a3d4c02976
commit 64ed9960d8
32 changed files with 148 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/AF.aspx
View File

@@ -397,7 +397,7 @@
<div class="row" runat="server" id="RowProyecto"> <div class="row" runat="server" id="RowProyecto">
<div class="col-md-4 "> <div class="col-md-4 ">
<label class=" control-label">Proyecto: </label> <asp:Label runat="server" ID="lblProyecto" class=" control-label">Proyecto: </asp:Label>
</div> </div>
<div class="col-md-7"> <div class="col-md-7">
@@ -411,7 +411,7 @@
<div class="row"> <div class="row">
<div class="col-md-4 "> <div class="col-md-4 ">
<label class=" control-label">SubProyecto: </label> <asp:Label runat="server" ID="LblSubProyecto" class=" control-label">SubProyecto: </asp:Label>
</div> </div>
<div class="col-md-7"> <div class="col-md-7">

16
AF/AF.aspx.vb
View File

@@ -275,10 +275,6 @@ Partial Class AF_AF
End If End If
If UsuarioActual.Empresa.GralSoloProyecto Then
RowProyecto.Visible = False
End If
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
ActivarRegistroCuentaAF() ActivarRegistroCuentaAF()
End If End If
@@ -320,8 +316,8 @@ Partial Class AF_AF
CargaTipoActivoFijo() CargaTipoActivoFijo()
CargaResponsable() CargaResponsable()
CargaEstatusActivoFijo() CargaEstatusActivoFijo()
'CargaProyecto() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
CargaSubProyecto() RowProyecto.Visible = DdlProyecto.Visible
CargaCliente() CargaCliente()
CargaGrupos() CargaGrupos()
CargaMarcas() CargaMarcas()
@@ -404,10 +400,10 @@ Partial Class AF_AF
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
End Sub End Sub
Private Sub CargaProyecto() 'Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual) ' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
DdlProyecto.DataBind() ' DdlProyecto.DataBind()
End Sub 'End Sub
Private Sub CargaEstatusActivoFijo() Private Sub CargaEstatusActivoFijo()
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind() DdlEstadoActivoFijo.DataBind()

14
AF/CatAF.aspx
View File

@@ -106,11 +106,19 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo"></asp:DropDownList> <asp:DropDownList ID="DdlEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo"></asp:DropDownList>
</div> </div>
<div class="col-md-1">Proyecto: </div> <div runat="server" id="DivProyecto" class="col-md-1">
<div class="col-md-2"> <asp:Label runat="server" ID="LblProyecto">
Proyecto:
</asp:Label>
</div>
<div runat="server" id="DivProyectoDdl" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
</div> </div>
<div class="col-md-1">SubProyecto: </div> <div class="col-md-1">
<asp:Label runat="server" ID="LblSubProyecto">
SubProyecto:
</asp:Label>
</div>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
</div> </div>

9
AF/CatAF.aspx.vb
View File

@@ -88,9 +88,12 @@ Partial Class AF_CatAF
DdlEstatus.DataBind() DdlEstatus.DataBind()
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
DdlProyecto.DataBind() DivProyecto.Visible = LblProyecto.Visible
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DivProyectoDdl.Visible = LblProyecto.Visible
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
'DdlProyecto.DataBind()
'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlCliente.DataBind() DdlCliente.DataBind()

10
AF/PopUpBuscarAF.aspx
View File

@@ -177,15 +177,19 @@
</td> </td>
</tr> </tr>
<tr> <tr>
<td class="text-right"><b>Proyecto:</b></td> <td runat="server" id="tdProyecto" class="text-right">
<td> <asp:Label runat="server" ID="LblProyecto" Font-Bold="true">Proyecto:</asp:Label>
</td>
<td runat="server" id="tdDdlProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</td> </td>
<%-- </tr> <%-- </tr>
<tr>--%> <tr>--%>
<td class="text-right"><b>SubProyecto:</b></td> <td class="text-right">
<asp:Label runat="server" ID="LblSubProyectos" Font-Bold="true">SubProyecto:</asp:Label>
</td>
<td> <td>
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>

10
AF/PopUpBuscarAF.aspx.vb
View File

@@ -126,7 +126,11 @@ Partial Class AF_PopUpBuscarAF
CargaEstatusActivoFijo() CargaEstatusActivoFijo()
CargaMarcaActivoFijo() CargaMarcaActivoFijo()
'CargaModeloActivoFijo() 'CargaModeloActivoFijo()
CargaProyecto() CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos)
If Not LblProyecto.Visible Then
tdProyecto.Attributes.Add("style", "display:none")
tdDdlProyecto.Attributes.Add("style", "display:none")
End If
CargaSubProyecto() CargaSubProyecto()
CargaSubTipoActivoFijo() CargaSubTipoActivoFijo()
CargaCliente() CargaCliente()
@@ -236,10 +240,6 @@ Partial Class AF_PopUpBuscarAF
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
End Sub End Sub
Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
End Sub
Private Sub CargaEstatusActivoFijo() Private Sub CargaEstatusActivoFijo()
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind() DdlEstadoActivoFijo.DataBind()

4
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -48,10 +48,6 @@ Partial Class Acumuladores_CatFoliosGarantia
#Region "Folios Garantía" #Region "Folios Garantía"
Private Sub CargaSubProyectos() Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
DdlSubProyectos.Items.Clear()
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String) Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

6
Acumuladores/RepIndicadorDiario.aspx
View File

@@ -151,10 +151,10 @@
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label> <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2"> <div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"> <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%> </asp:DropDownList>
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox> <%--<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>--%>
</div> </div>

8
Acumuladores/RepIndicadorDiario.aspx.vb
View File

@@ -84,10 +84,8 @@ Partial Class ACumuladores_RepIndicadorDiario
Private Sub CargaCombos() Private Sub CargaCombos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.DataBind() DdlSubProyecto.SelectedValueExist("-1")
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValuesIfExist("-1")
End Sub End Sub
@@ -188,7 +186,7 @@ Partial Class ACumuladores_RepIndicadorDiario
If txtFechaF.Text = "" Then FechaFn = "" If txtFechaF.Text = "" Then FechaFn = ""
Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}") Dim SubProyecto = If(DdlSubProyecto.SelectedItem.Text = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Dim FechaIF, FechaFF As String Dim FechaIF, FechaFF As String

4
App_Code/ClsInventarios.vb
View File

@@ -304,7 +304,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer,
Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1,
Optional CveUsuarioConsulta As Integer = -1) As Boolean Optional CveUsuarioConsulta As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -315,7 +315,7 @@ Public Class ClsInventarios
.Add("@FechaF", SqlDbType.VarChar).Value = FechaFin .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
.Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@Inventariable", SqlDbType.Int).Value = Inventariable
.Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables
.Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable
.Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes

76
App_Code/ClsPaginas.vb
View File

@@ -783,20 +783,20 @@ Public Class ClsPaginas
Application("GlobalDTMonedasAlias") = value Application("GlobalDTMonedasAlias") = value
End Set End Set
End Property End Property
Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable 'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
Get ' Get
If CveEmpresa <> -1 Then ' If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows) ' Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
GlobalDTSucursales = Dv.ToTable ' GlobalDTSucursales = Dv.ToTable
Dv.Dispose() ' Dv.Dispose()
Else ' Else
GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable) ' GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
End If ' End If
End Get ' End Get
Set(value As DataTable) ' Set(value As DataTable)
Application("GlobalDTSucursales") = value ' Application("GlobalDTSucursales") = value
End Set ' End Set
End Property 'End Property
Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
Get Get
If EsPersonaFisica <> -1 Then If EsPersonaFisica <> -1 Then
@@ -1013,10 +1013,10 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
If Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then If Application(AppNombre) Is Nothing Then
Dim ObjSubProyectos As New ClsSubProyectos() Dim ObjSubProyectos As New ClsSubProyectos()
If ObjSubProyectos.GetSubProyectosUsuarios Then Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
GuardaLog("Se Cargo GlobalDTProyectosUsuarios") GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
End If End If
@@ -1028,25 +1028,18 @@ Public Class ClsPaginas
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
GlobalDTProyectosUsuarios = Dv.ToTable GlobalDTProyectosUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTProyectosUsuarios = DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable) GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
If value Is Nothing OrElse value.Rows.Count = 0 Then Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
Dim msg As String = "aqui no se carga proyectos" Application(AppNombre) = value
If Request IsNot Nothing Then
msg = msg & Request.ServerVariables("URL")
End If
msg.GuardaLog()
End If
Application("GlobalDTProyectosUsuarios") = value
End Set End Set
End Property End Property
Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable
@@ -1779,20 +1772,26 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjUsr As New ClsSisUsuarios
If ObjUsr.GetAlmacen(-1, CveEmpresa) Then Application(AppNombre) = ObjUsr.DtResultados
ObjUsr.Dispose()
End If
Dim Str As New StringBuilder Dim Str As New StringBuilder
If CveEmpresa <> -1 Then Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) If CveEmpresa <> -1 Then Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus) If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAlmacenUsuarios = Dv.ToTable GlobalDTAlmacenUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTAlmacenUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
Application(AppNombre) = value
End Set End Set
End Property End Property
@@ -8045,19 +8044,22 @@ Public Class ClsPaginas
Select Case UsuarioActual.Empresa.Tipo_CentroCosto Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1 Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Centro Costo" If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo"
Case 2 Case 2
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Sucursal" If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
Case 3 Case 3
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto" If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
Case 4 Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>" If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Subproyecto" If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
Case 5 Case 5
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>" If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Sucursal" If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
End Select End Select
If DdlProyecto IsNot Nothing Then If DdlProyecto IsNot Nothing Then

2
App_Code/ClsSisEmpresas.vb
View File

@@ -449,7 +449,7 @@ Public Class ClsSisEmpresas
_Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero
_Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero
_Empresa.PeriodoActual = Data.Rows(0)("PeriodoActual").ToString.ToEntero _Empresa.PeriodoActual = Data.Rows(0)("PeriodoActual").ToString.ToEntero
_Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No" '_Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No"
_Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero
_Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
_Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No" _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No"

3
App_Code/ClsSisUsuarios.vb
View File

@@ -1571,13 +1571,14 @@ Public Class ClsSisUsuarios
#End Region #End Region
#Region " A L M A C E N " #Region " A L M A C E N "
Public Function GetAlmacen(CveUsuario As Integer) As Boolean Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosAlmacenesGet") DataAdapter("PA_Sis_UsuariosAlmacenesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

1
App_Code/Empresa.vb
View File

@@ -40,7 +40,6 @@ Public Class Empresa
Public Property MostrarRetIVA As Boolean Public Property MostrarRetIVA As Boolean
Public Property EjercicioActual As Integer Public Property EjercicioActual As Integer
Public Property PeriodoActual As Integer Public Property PeriodoActual As Integer
Public Property GralSoloProyecto As Boolean
Public Property MetodoOC As Integer Public Property MetodoOC As Integer
Public Property CveMetodoInventario As Integer Public Property CveMetodoInventario As Integer
Public Property RequiereCentroCostos As Boolean Public Property RequiereCentroCostos As Boolean

25
App_Code/Modelos.vb
View File

@@ -7478,21 +7478,24 @@ Namespace Modelos
End Property End Property
Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
Dim Str As New StringBuilder 'sino existe, recarga los datos
Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) If HttpContext.Current.Application(AppNombre) Is Nothing Then
If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) Dim ObjUsr As New ClsSisUsuarios
If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) ObjUsr.Dispose()
GlobalDTAlmacenUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable)
End If End If
Dim Str As New StringBuilder
Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAlmacenUsuarios = Dv.ToTable
Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTNom_Periodos() As DataTable Property GlobalDTNom_Periodos() As DataTable

2
Compras/Compras.aspx
View File

@@ -4431,7 +4431,7 @@
<div class="col-md-6" id="divproyecto" runat="server"> <div class="col-md-6" id="divproyecto" runat="server">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="50%" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto"> <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="50%" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <%--<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>--%>
</asp:DropDownList> </asp:DropDownList>
<%-- <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVProyecto" ControlToValidate="DdlProyecto" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator> <%-- <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVProyecto" ControlToValidate="DdlProyecto" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCEProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%>

89
Compras/Compras.aspx.vb
View File

@@ -1534,96 +1534,17 @@ Partial Class Compras_Compras
liServicios.Visible = False liServicios.Visible = False
DivConsignaciones.Visible = False DivConsignaciones.Visible = False
End If End If
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader) CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then CargarCentrosDeCosto(DdlProyecto, Nothing, Nothing, Nothing)
' LitHProyecto.Text = "Proyecto" divproyecto.Visible = DdlProyecto.Visible
' LthProyectoP.Text = "Proyecto"
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
' LblSubProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
'DdlSubProyecto.Items.Clear()
''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
' LblSubProyecto.InnerText = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
'DdlSubProyecto.Items.Clear()
''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
' LblSubProyectoHeader.Text = "Proyecto"
' LblSubProyectoPHeader.Text = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
' 'LblProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Sucursal"
' LblProyecto.InnerText = "Proyecto"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
' LblSubProyectoHeader.Text = "Sucursal"
' LblSubProyectoPHeader.Text = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
' 'LblProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Proyecto"
' LblProyecto.InnerText = "Sucursal"
End If
CargaGvPersonal() CargaGvPersonal()
CargaDdlPersonal() CargaDdlPersonal()
InicializaDevolucionAlmacen() InicializaDevolucionAlmacen()
HabilitaEdicionManualAgregar() HabilitaEdicionManualAgregar()
InicializaActualizarTC() InicializaActualizarTC()
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCompra:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCompra) LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCompra:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCompra)
End If End If
@@ -11300,7 +11221,6 @@ Partial Class Compras_Compras
CargaClasificacionesComprobaciones() CargaClasificacionesComprobaciones()
CargaClasificaciones() CargaClasificaciones()
CargaPS(-1) CargaPS(-1)
CargaProyecto()
CreaDTCompras() CreaDTCompras()
CargaMonedas() CargaMonedas()
CargarAlmacen() CargarAlmacen()
@@ -17430,12 +17350,7 @@ Partial Class Compras_Compras
Alert("Es necesario seleccionar el Proveedor al cual se le va a capturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Compras/PopUpBuscarProveedor.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")") Alert("Es necesario seleccionar el Proveedor al cual se le va a capturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Compras/PopUpBuscarProveedor.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")")
End If End If
End Sub End Sub
Private Sub CargaProyecto()
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
'DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
End Sub
Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargaSubProyecto()
End Sub End Sub

2
GPS/FacturacionMasiva.aspx.vb
View File

@@ -511,7 +511,7 @@ Partial Class Contratos_FacturacionMasiva
ObjFactura.CveCondicionEntrega = -1 ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = "" ObjFactura.CondicionEntrega = ""
ObjFactura.NumeroCuenta = "" ObjFactura.NumeroCuenta = ""
ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero 'ObjFactura.CveSucursal = GlobalDTSubProyectos.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero
'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim 'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
ObjFactura.CondicionesPago = 0 ObjFactura.CondicionesPago = 0
ObjFactura.FormaPago = 0 ObjFactura.FormaPago = 0

4
Global.asax
View File

@@ -498,8 +498,8 @@
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
Else Else
Application("GlobalDTUsuarios") = Nothing Application("GlobalDTUsuarios") = Nothing
End If End If
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

16
Inventarios/Apartados.aspx.vb
View File

@@ -132,9 +132,6 @@ Partial Class Inventarios_Apartados
TipoSeccionAlmacen = 0 TipoSeccionAlmacen = 0
GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvDatosDesapartado.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
@@ -631,12 +628,6 @@ Partial Class Inventarios_Apartados
Next Next
Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad") Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
' If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
' Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
'End If
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
@@ -909,13 +900,6 @@ Partial Class Inventarios_Apartados
End If End If
Next Next
'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
' If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
' Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
'End If
'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA 'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble) Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}") 'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")

14
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -340,7 +340,6 @@ Partial Class Inventarios_EntradasSalidas
BtnContabilizar.Enabled = PermiteContabilizar() BtnContabilizar.Enabled = PermiteContabilizar()
BtnNuevo.Enabled = PermiteCrearNuevo() BtnNuevo.Enabled = PermiteCrearNuevo()
ActivaPermisoSeccionAlmacen()
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
PermisoVerImportes() PermisoVerImportes()
End If End If
@@ -367,11 +366,7 @@ Partial Class Inventarios_EntradasSalidas
Private Function PermiteCrearNuevo() As Boolean Private Function PermiteCrearNuevo() As Boolean
Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False) Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False)
End Function End Function
Private Sub ActivaPermisoSeccionAlmacen()
If CveMovimiento <= 0 Then
GvM.Columns(11).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
End If
End Sub
Private Sub PermisoVerImportes() Private Sub PermisoVerImportes()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
' tdPU.Visible = TienePermisoImportes ' tdPU.Visible = TienePermisoImportes
@@ -2286,13 +2281,6 @@ Partial Class Inventarios_EntradasSalidas
e.Row.FCTextBox("LblEditCodigo").Attributes.Add("onblur", String.Format("AFBlurEdit(this,{0},{1});", e.Row.FCHiddenField("HdnCveActivoFijo").ClientID, e.Row.FCHiddenField("HdnCodigoAF").ClientID)) e.Row.FCTextBox("LblEditCodigo").Attributes.Add("onblur", String.Format("AFBlurEdit(this,{0},{1});", e.Row.FCHiddenField("HdnCveActivoFijo").ClientID, e.Row.FCHiddenField("HdnCodigoAF").ClientID))
e.Row.FCImage("ImgAF").Attributes.Add("onclick", String.Format("AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OCE&RI={0}',950,600,'N');", e.Row.RowIndex)) e.Row.FCImage("ImgAF").Attributes.Add("onclick", String.Format("AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OCE&RI={0}',950,600,'N');", e.Row.RowIndex))
'If UsuarioActual.Empresa.Funcionalidad(147) = "1" Then
' e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
' e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
' e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedValueExist(e.Row.DBCampo("CveSeccionAlmacen"))
'End If
'PERMISO SOLO PARA EDITAR OBSERVACIONES 'PERMISO SOLO PARA EDITAR OBSERVACIONES
If PermiteGuardarObservacionDetalle() Then If PermiteGuardarObservacionDetalle() Then
e.Row.FCTextBox("txtPrecio").Enabled = False e.Row.FCTextBox("txtPrecio").Enabled = False

7
Inventarios/RepAlmacen.aspx
View File

@@ -143,8 +143,13 @@
<div class="col-md-2 v-center"> <div class="col-md-2 v-center">
<asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox> <asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
</div> </div>
<div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
<div class="col-md-2"> <div class="col-md-2">
<asp:CheckBox ID="ChkInventariable" CssClass="md-checksd" runat="server" Text="Aplica Inventario" /> <asp:DropDownList ID="DdlAplicaInventario" runat="server" CssClass="input-small input-sm select2me" Width="100%">
<asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
<asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
<asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
</asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

2
Inventarios/RepAlmacen.aspx.vb
View File

@@ -60,7 +60,7 @@ Partial Class Inventarios_RepAlmacen
Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()
If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero,
Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
GVAlmacen.DataSource = objInv.DtResultados GVAlmacen.DataSource = objInv.DtResultados
TmpDT = objInv.DtResultados TmpDT = objInv.DtResultados

2
Inventarios/RepAnomalias.aspx
View File

@@ -234,7 +234,7 @@
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" /> <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>

2
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -152,8 +152,6 @@ Partial Class Inventarios_ResguardoMaterial
CargaCombos() CargaCombos()
TxtFecha.Text = Now.ToShortDateString TxtFecha.Text = Now.ToShortDateString
TxtFechaLiberacion.Text = Now.ToShortDateString TxtFechaLiberacion.Text = Now.ToShortDateString
GvM.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvMLiberacion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvM.DataBind() GvM.DataBind()

4
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -195,10 +195,6 @@ Partial Class Inventarios_TraspasoAlmacen
If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
CargaMovimiento(Request("CveEntrada").ToString.ToEntero) CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
Else
GvDatos.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvDatosRecepcion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
ThSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
End If End If
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then

32
OC/OC.aspx.vb
View File

@@ -696,46 +696,18 @@ Partial Class OC
End If End If
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Sucursal"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DivProyecto.Visible = False
DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
LblSubProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Proyecto"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DivProyecto.Visible = False
DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
'TtituloProyecto.Text = "Sucursal"
'TituloSubProyecto.Text = "Proyecto"
LblSubProyecto.Text = "Proyecto"
LblProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
'TtituloProyecto.Text = "Proyecto"
'TituloSubProyecto.Text = "Sucursal"
LblSubProyecto.Text = "Sucursal"
LblProyecto.Text = "Proyecto"
End If End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoContrato, LblProyecto, LblSubProyecto)
DivProyecto.Visible = DdlProyecto.Visible
'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO 'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
If Not CveOrdenCompra > 0 Then If Not CveOrdenCompra > 0 Then

2
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida
DDLSucursal.DataSource = GlobalDTSucursales(UsuarioActual.Empresa.CveEmpresa) DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
DDLSucursal.DataBind() DDLSucursal.DataBind()
DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1")) DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then If UsuarioActual.CveSucursal > 0 Then

28
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1303,12 +1303,13 @@ Partial Class Sistemas_UsuarioDetalle
End If End If
If Not TieneError Then If Not TieneError Then
If ObjSubProyectos.GetSubProyectosUsuarios Then GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing
Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) 'If ObjSubProyectos.GetSubProyectosUsuarios Then
Else ' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
Application("GlobalDTProyectosUsuarios") = Nothing 'Else
TieneError = True ' Application("GlobalDTProyectosUsuarios") = Nothing
End If ' TieneError = True
'End If
End If End If
'RECARGA GLOBAL BANCOS 'RECARGA GLOBAL BANCOS
@@ -1318,13 +1319,14 @@ Partial Class Sistemas_UsuarioDetalle
'RECARGA GLOBAL ESTATUS 'RECARGA GLOBAL ESTATUS
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
'RECARGA GLOBAL ALMACEN 'RECARGA GLOBAL ALMACEN
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS
'RECARGA GLOBAL EMPRESAS USUARIOS
If ObjUsuarios.GetUsuariosEmpresas(-1) Then If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")

7
Ventas/Ventas.aspx
View File

@@ -595,9 +595,12 @@
</td> </td>
</tr> </tr>
<tr align="left"> <tr align="left">
<td><b>Sucursal:</b></td>
<td> <td>
<asp:DropDownList ID="DdlSubProyectoDatos" AutoPostBack="True" runat="server" CssClass="form-control input-sm " DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100px"></asp:DropDownList></td> <asp:Label runat="server" Font-Bold="true" ID="LblSubProyectosDatos">Sucursal:</asp:Label>
</td>
<td>
<asp:DropDownList ID="DdlSubProyectoDatos" AutoPostBack="True" runat="server" CssClass="form-control input-sm " DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100px"></asp:DropDownList>
</td>
</tr> </tr>
<tr align="left"> <tr align="left">
<td><b>Serie - Folio:</b></td> <td><b>Serie - Folio:</b></td>

70
Ventas/Ventas.aspx.vb
View File

@@ -2451,66 +2451,10 @@ Partial Class Ventas
CargaFletes() CargaFletes()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
DdlProyecto.Visible = False CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
BrSubProyecto.Visible = False BrSubProyecto.Visible = DdlProyecto.Visible
DdlProyectoPyME.Visible = False divProyectoPyME.Visible = DdlProyecto.Visible
LblProyectoHeader.Text = "Sucursal"
LblSubProyecto.Text = ""
divProyectoPyME.Visible = False
LblSubProyectoPyME.Text = "Sucursal"
Dim dttSub As New DataTable
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = dttSub
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoPyME.Items.Clear()
DdlSubProyectoPyME.DataSource = dttSub
'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoPyME.DataBind()
DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
dttSub.Dispose()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Proyecto"
LblSubProyecto.Text = ""
divProyectoPyME.Visible = False
LblSubProyectoPyME.Text = "Proyecto"
Dim dttSub As New DataTable
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = dttSub
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoPyME.Items.Clear()
DdlSubProyectoPyME.DataSource = dttSub
'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoPyME.DataBind()
DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
dttSub.Dispose()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyectoHeader.Text = "Sucursal"
LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyectoHeader.Text = "Proyecto"
LblSubProyecto.Text = "Sucursal"
End If
'CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
'CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
'MOSTRAR LA OPCION DE AGREGAR PS EN BDH 'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
@@ -10836,7 +10780,7 @@ Partial Class Ventas
importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -10913,7 +10857,7 @@ Partial Class Ventas
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -10978,7 +10922,7 @@ Partial Class Ventas
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas

2
vwd.webinfo
View File

@@ -78,6 +78,8 @@