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-03 17:57:23 -07:00
parent def012c005 b561a9aff0
commit 85fe88070f
16 changed files with 2601 additions and 2308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsClasificaciones.vb
View File

@@ -254,7 +254,7 @@ Public Class ClsClasificaciones
Return Retorno Return Retorno
End Function End Function
Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True, Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False,
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

3
App_Code/ClsInventarios.vb
View File

@@ -2484,7 +2484,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoDetalleGet") DataAdapter("PA_Inv_InventarioFisicoDetalleGet")
@@ -2493,6 +2493,7 @@ Public Class ClsInventarios
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Agrupar", SqlDbType.Bit).Value = Agrupar .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

21
App_Code/ClsPaginas.vb
View File

@@ -7275,7 +7275,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("TipoCambio", TipoCambio)) params.Add(New ReportParameter("TipoCambio", TipoCambio))
params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString)) params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString))
params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString
params.Add(New ReportParameter("NombreAutorizo", UsuarioActual.Nombre)) params.Add(New ReportParameter("NombreAutorizo", nombreautorizo))
params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString
params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición")))
params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI))
@@ -8041,5 +8041,24 @@ Public Class ClsPaginas
End Sub End Sub
#End Region #End Region
Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label)
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Centro Costo"
Case 2
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Sucursal"
Case 3
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto"
Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
LblSubProyecto.Text = "Subproyecto"
Case 5
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
LblSubProyecto.Text = "Sucursal"
End Select
End Sub
End Class End Class

0
App_Code/ClsSucursales.vb → App_Code/ClsSucursales.vb.exclude
View File

4
Compras/Compras.aspx
View File

@@ -613,7 +613,7 @@
Producto o Servicio<asp:HyperLink ID="HyperLink1" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " data-placement="top" ToolTip="Agregar Producto o Servicio" NavigateUrl="/Ventas/CatPS.aspx" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink></th> Producto o Servicio<asp:HyperLink ID="HyperLink1" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " data-placement="top" ToolTip="Agregar Producto o Servicio" NavigateUrl="/Ventas/CatPS.aspx" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink></th>
<th style="width: 200px">Observación</th> <th style="width: 200px">Observación</th>
<th style="width: 150px"> <th style="width: 150px">
<asp:Literal ID="LitHProyecto" runat="server" Text="Proyecto<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"></asp:Literal><asp:Label runat="server" ID="LblSubProyectoHeader" Text="SubProyecto"></asp:Label>&nbsp; <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
@@ -653,7 +653,7 @@
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto"> <asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" 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>
<br /> <%--<br />--%>
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"> <asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>

99
Compras/Compras.aspx.vb
View File

@@ -1535,26 +1535,27 @@ Partial Class Compras_Compras
DivConsignaciones.Visible = False DivConsignaciones.Visible = False
End If End If
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
LitHProyecto.Text = "Proyecto" ' LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto" ' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = "" ' LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = "" ' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Proyecto" ' LblSubProyecto.InnerText = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Proyecto" ' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) ' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear() ' '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.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.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False divproyecto.Visible = False
'divasignaproyecto.Visible = False 'divasignaproyecto.Visible = False
@@ -1562,57 +1563,57 @@ Partial Class Compras_Compras
DdlProyecto.Items(0).Text = "" DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
LitHProyecto.Text = "Sucursal" ' LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal" ' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = "" ' LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = "" ' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Sucursal" ' LblSubProyecto.InnerText = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Sucursal" ' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear() ' '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.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.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False divproyecto.Visible = False
'divasignaproyecto.Visible = False 'divasignaproyecto.Visible = False
DdlProyecto.Visible = False DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = "" DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LitHProyecto.Text = "Sucursal" ' LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal" ' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = "Proyecto" ' LblSubProyectoHeader.Text = "Proyecto"
LblSubProyectoPHeader.Text = "Proyecto" ' LblSubProyectoPHeader.Text = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Sucursal" ' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
'LblProyectoDivAplica.InnerText = "Proyecto" ' 'LblProyectoDivAplica.InnerText = "Proyecto"
LblSubProyecto.InnerText = "Sucursal" ' LblSubProyecto.InnerText = "Sucursal"
LblProyecto.InnerText = "Proyecto" ' LblProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LitHProyecto.Text = "Proyecto" ' LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto" ' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = "Sucursal" ' LblSubProyectoHeader.Text = "Sucursal"
LblSubProyectoPHeader.Text = "Sucursal" ' LblSubProyectoPHeader.Text = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Proyecto" ' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
'LblProyectoDivAplica.InnerText = "Sucursal" ' 'LblProyectoDivAplica.InnerText = "Sucursal"
LblSubProyecto.InnerText = "Proyecto" ' LblSubProyecto.InnerText = "Proyecto"
LblProyecto.InnerText = "Sucursal" ' LblProyecto.InnerText = "Sucursal"
End If End If
CargaGvPersonal() CargaGvPersonal()
CargaDdlPersonal() CargaDdlPersonal()

4732
Empresas/7/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

5
General/CatSatListado69B.aspx.vb
View File

@@ -63,10 +63,13 @@ Partial Class General_CatSatListado69B
If ObjSAT.GetListado69B(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If ObjSAT.GetListado69B(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GVDatosGeneral.DataSource = ObjSAT.DtResultados GVDatosGeneral.DataSource = ObjSAT.DtResultados
GVDatosGeneral.DataBind()
Else Else
GVDatosGeneral.DataSource = Nothing GVDatosGeneral.DataSource = Nothing
End If End If
ObjSAT.Dispose()
GVDatosGeneral.DataBind()
UpDatosGeneral.Update() UpDatosGeneral.Update()

2
General/PopUpPaqueteriasGuias.aspx
View File

@@ -205,6 +205,8 @@
<td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td> <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td>
<td align="left" valign="top" style="width: 200px;"> <td align="left" valign="top" style="width: 200px;">
<asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList> <asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvPaqueteriaGuiaTipo" runat="server" ControlToValidate="DdlPaqueteriaGuiaTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Documento''</b> es necesario." ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcePaqueteriaGuiaTipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvPaqueteriaGuiaTipo" Width="220px" PopupPosition="Left"></ajax:ValidatorCalloutExtender>
</td> </td>
</tr> </tr>

2
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -315,7 +315,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
GvIFDUltimoRegistrado.Rows(0).Cells(8).Text = TxtCantidadProducto.Text.Trim GvIFDUltimoRegistrado.Rows(0).Cells(8).Text = TxtCantidadProducto.Text.Trim
Else Else
Consulto = True Consulto = True
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, TopSelect:=1) Then
If Inventarios.DtResultados.Rows.Count > 0 Then If Inventarios.DtResultados.Rows.Count > 0 Then
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
Else Else

4
OC/OC.aspx
View File

@@ -738,8 +738,8 @@
<th scope="col">Unidad</th> <th scope="col">Unidad</th>
<th scope="col">Observación</th> <th scope="col">Observación</th>
<th scope="col"> <th scope="col">
<asp:Label ID="TtituloProyecto" Text="Proyecto" runat="server" /><br /> <asp:Label ID="TtituloProyecto" Text="" runat="server" />
<asp:Label ID="TituloSubProyecto" Text="SubProyecto" runat="server" /> <asp:Label ID="TituloSubProyecto" Text="" runat="server" />
</th> </th>
<th scope="col" id="ThActivoFijo" runat="server">Activo Fijo</th> <th scope="col" id="ThActivoFijo" runat="server">Activo Fijo</th>
<th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th> <th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th>

17
OC/OC.aspx.vb
View File

@@ -697,8 +697,8 @@ Partial Class OC
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False DdlProyecto.Visible = False
TituloSubProyecto.Text = "" 'TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Sucursal" '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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -710,8 +710,8 @@ Partial Class OC
LblSubProyecto.Text = "Sucursal" LblSubProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False DdlProyecto.Visible = False
TituloSubProyecto.Text = "" 'TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Proyecto" '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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -722,19 +722,20 @@ Partial Class OC
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
LblSubProyecto.Text = "Proyecto" LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
TtituloProyecto.Text = "Sucursal" 'TtituloProyecto.Text = "Sucursal"
TituloSubProyecto.Text = "Proyecto" 'TituloSubProyecto.Text = "Proyecto"
LblSubProyecto.Text = "Proyecto" LblSubProyecto.Text = "Proyecto"
LblProyecto.Text = "Sucursal" LblProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
TtituloProyecto.Text = "Proyecto" 'TtituloProyecto.Text = "Proyecto"
TituloSubProyecto.Text = "Sucursal" 'TituloSubProyecto.Text = "Sucursal"
LblSubProyecto.Text = "Sucursal" LblSubProyecto.Text = "Sucursal"
LblProyecto.Text = "Proyecto" LblProyecto.Text = "Proyecto"
End If End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO 'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
If Not CveOrdenCompra > 0 Then If Not CveOrdenCompra > 0 Then

0
Planeacion/CatSucursales.aspx → Planeacion/CatSucursales.aspx.exclude
View File

0
Planeacion/CatSucursales.aspx.vb → Planeacion/CatSucursales.aspx.vb.exclude
View File

16
Ventas/Ventas.aspx.vb
View File

@@ -2452,7 +2452,7 @@ Partial Class Ventas
CargaFletes() CargaFletes()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False 'DdlProyecto.Visible = False
BrSubProyecto.Visible = False BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Sucursal" LblProyectoHeader.Text = "Sucursal"
@@ -2476,7 +2476,7 @@ Partial Class Ventas
dttSub.Dispose() dttSub.Dispose()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False 'DdlProyecto.Visible = False
BrSubProyecto.Visible = False BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Proyecto" LblProyectoHeader.Text = "Proyecto"
@@ -2509,6 +2509,8 @@ Partial Class Ventas
End If End If
CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto)
'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
ImgOtrosConceptos.Visible = False ImgOtrosConceptos.Visible = False
@@ -10044,7 +10046,17 @@ Partial Class Ventas
CveCuentaCliente = CveCuenta CveCuentaCliente = CveCuenta
End If End If
Case 7 'descuentos
If LblDescuentos.Text.ToDecimal > 0 Then
importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
CveSubProyectoContabilizar = CveSubProyectoVenta
IdCtaContable = 0
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
End If
Case 3 'Cliente Case 3 'Cliente
If ObjFactura.TipoDocto = "Ant" Then If ObjFactura.TipoDocto = "Ant" Then

2
vwd.webinfo
View File

@@ -74,6 +74,8 @@