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
2024-08-02 11:03:20 -07:00
parent ea46c0cbf3 fb0e61bd31
commit 848b1aa617
40 changed files with 836 additions and 652 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
App_Code/ClsNominas.vb
View File

@@ -3264,8 +3264,46 @@ Public Class ClsNominas
Return retorno
End Function
#End Region
Public Function GetConfiguracionNom(CveEmpresa As Int32, periodo As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_ConfiguracionNomGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Periodo", SqlDbType.Int).Value = periodo
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch sqEx As SqlException
retorno = False
OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
retorno = False
OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
#Region "MovtosPermanentes"
Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch sqEx As SqlException
retorno = False
OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
retorno = False
OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure)
@@ -3305,7 +3343,7 @@ Public Class ClsNominas
End Try
Return retorno
End Function
Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer
Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1, Optional EsAcumulado As Integer = 0) As Integer
Dim retorno As Integer = 0
DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
@@ -3321,6 +3359,7 @@ Public Class ClsNominas
.Add("@estatus", SqlDbType.Bit).Value = (estatus)
.Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
.Add("@CveIE", SqlDbType.Int).Value = (CveIE)
.Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado)
.Add("@CveMovtoPermanente", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
@@ -3335,7 +3374,7 @@ Public Class ClsNominas
End Try
Return retorno
End Function
Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean
Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional EsAcumulado As Integer = -1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -3350,6 +3389,7 @@ Public Class ClsNominas
.Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
.Add("@estatus", SqlDbType.Bit).Value = (estatus)
.Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
.Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado)
End With
Try
SqlAdapter.Fill(Data)

5
App_Code/ClsOC.vb
View File

@@ -1143,13 +1143,14 @@ Public Class ClsOC
Return Retorno
End Function
Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean
Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OC_OrdenesCompraDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra
.Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try

36
App_Code/ClsPaginas.vb
View File

@@ -1331,7 +1331,7 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}"
'sino existe, recarga los datos
@@ -1347,7 +1347,7 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable
Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}"
'sino existe, recarga los datos
@@ -2411,7 +2411,7 @@ Public Class ClsPaginas
End Set
End Property
Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable
Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}"
'sino existe, recarga los datos
@@ -4426,7 +4426,7 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable
Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}"
'sino existe, recarga los datos
@@ -7725,7 +7725,7 @@ Public Class ClsPaginas
End If
ObjEmpresa.Dispose()
Dim dtOC As DataTable = ObjOC.DtResultados
If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra
If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra
DtDetalle = ObjOC.DtResultados
End If
@@ -7795,15 +7795,9 @@ Public Class ClsPaginas
params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir))
End If
End If
End If
Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero
Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero
Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC)
@@ -8141,6 +8135,7 @@ Public Class ClsPaginas
Return Nothing
End If
Dim CveNomina As Integer = ObjNomina.CveNomina
Dim RFCPackCertifica As String = ""
Dim DTPercepciones As Data.DataTable
Dim DTDeducciones As Data.DataTable
Dim DTDeducciones2 As New Data.DataTable
@@ -8171,8 +8166,18 @@ Public Class ClsPaginas
If System.IO.File.Exists(PathXML) Then
Dim XmlDoc As New System.Xml.XmlDocument
'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml")
Dim timbreFiscal = (XDocument.Load(PathXML)).Descendants().
Where(Function(e) e.Name.LocalName = "TimbreFiscalDigital").
FirstOrDefault()
If timbreFiscal IsNot Nothing Then
RFCPackCertifica = timbreFiscal.Attribute("RfcProvCertif")?.Value
Else
End If
XmlDoc.Load(PathXML)
If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
@@ -8414,6 +8419,10 @@ Public Class ClsPaginas
Dim Archivo As New System.IO.FileInfo(RutaFormato)
If Not TieneError Then
If Archivo.Exists Then
If Extensiones.ModExtensiones.HasReportParameter(RutaFormato, "RFCPackCertifica") Then
RptParametro.Add(New ReportParameter("RFCPackCertifica", RFCPackCertifica))
End If
Retorno = StreamPDF(RutaFormato, LSRds, RptParametro, ObjNomina.SerieFolio, "PDF", MR:=Nothing)
Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\\{1}.pdf", RutaEmpresa, ObjNomina.SerieFolio))
If Not ArchivoPDF.Exists Then
@@ -10423,8 +10432,9 @@ Public Class ClsPaginas
PaginaDict.Add("/Nomina/PreNominaHistorial.aspx".ToUpper(), 148)
PaginaDict.Add("/Nomina/RepPreNomina.aspx".ToUpper(), 74)
PaginaDict.Add("/Nomina/Nomina.aspx".ToUpper(), 75)
PaginaDict.Add("/Nomina/NominaB.aspx".ToUpper(), 75)
PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75)
PaginaDict.Add("/Nomina/Configuracion.aspx".ToUpper(), 1135)
PaginaDict.Add("/Nomina/RepMovtosPermanentes.aspx".ToUpper(), 1136)
PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75)
PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91)
PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172)

15
App_Code/modExtensiones.vb
View File

@@ -30,6 +30,7 @@ Namespace Extensiones
#Region "E X T E N S I O N E S"
Public Module ModExtensiones
Public ReadOnly Property foreign_characters As Dictionary(Of String, String)
Get
Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
@@ -3771,6 +3772,20 @@ Namespace Extensiones
text = str.Replace("&", "&")
Return text
End Function
Function HasReportParameter(reportPath As String, parameterName As String) As Boolean
' Leer el archivo .rdlc como XML
Dim rdlcDoc As XDocument = XDocument.Load(reportPath)
' Buscar el parámetro en el XML
Dim parameters = From e In rdlcDoc.Descendants()
Where e.Name.LocalName = "ReportParameter"
Select e.Attribute("Name").Value
' Verificar si existe el parámetro RFCPackCertifica
Return parameters.Contains(parameterName)
End Function
End Module
#End Region

19
Bancos/IE.aspx
View File

@@ -250,15 +250,7 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Panel>
<div class="row" id="DivCveAutorizacion" runat="server" visible="false">
<label class="col-md-2 control-label">
<asp:Label runat="server" Text="Clave de autorización:"></asp:Label>
</label>
<label class="col-md-10 control-label">
<asp:Label ID="LblCveAutorizacion" runat="server" ></asp:Label>
</label>
</div>
</asp:Panel>
<div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
<label class="col-md-2 control-label ">Otros:</label>
@@ -377,7 +369,14 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row" id="DivCveAutorizacion" runat="server" visible="false">
<label class="col-md-2 control-label">
<asp:Label runat="server" Text="Clave de autorización:"></asp:Label>
</label>
<label class="col-md-10 control-label">
<asp:Label ID="LblCveAutorizacion" runat="server" ></asp:Label>
</label>
</div>
<div class="row">
<label class="col-md-2 control-label">Observaciones: </label>
<div class="col-md-10">

2
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -191,7 +191,7 @@ Partial Class Bancos_RepProgramarRecursos
Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy)
DdlSubProyecto.DataBind()
End If

8
Compras/Compras.aspx
View File

@@ -1885,10 +1885,10 @@
<asp:UpdatePanel runat="server" ID="UpGvOC2" UpdateMode="Conditional">
<ContentTemplate>
<div id="DivDatosCompra" style="height: 250px; overflow-y: auto;">
<asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,SATClaveProductoServicio,PU,Total,Descuento">
<asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,CvePS,CodigoPS,SATClaveProductoServicio,PU,Total,Descuento">
<Columns>
<asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-Width="40px" />
<asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" ItemStyle-Font-Size="6pt" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-Width="40px" />
<asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="40px" />
<asp:TemplateField HeaderText="UM" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
@@ -1896,7 +1896,7 @@
<asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
</span>
<br />
<asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("PS")%>'></asp:Label>
<asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("CodigoPS")%>'></asp:Label>
</ItemTemplate>
<HeaderTemplate>
Clasificación

79
Compras/Compras.aspx.vb
View File

@@ -1647,15 +1647,10 @@ Partial Class Compras_Compras
DdlTipoComprobante.SelectedValueExist("DEV")
End If
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then
ConfiguraseleccionRemisionNotaCredito()
End If
End If
@@ -7693,7 +7688,6 @@ Partial Class Compras_Compras
End If
End If
If Not TieneError Then
ObjCompras.Commit()
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
@@ -7735,7 +7729,7 @@ Partial Class Compras_Compras
Else
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
End If
@@ -10669,7 +10663,7 @@ Partial Class Compras_Compras
'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio))
RegistraScript("tb_remove();")
If OC.GetOrdenesDetalle(CveOC) Then
If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then
dt = OC.DtResultados
End If
End If
@@ -11087,7 +11081,7 @@ Partial Class Compras_Compras
Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear()
If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
End If
gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind()
gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -11143,7 +11137,7 @@ Partial Class Compras_Compras
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource =
If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1),
GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1))
GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero))
End If
e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind()
@@ -13491,7 +13485,7 @@ Partial Class Compras_Compras
CargaGVsAF()
CargaTipoCentroCostoOC()
GvOC1.DataSource = DTOCTemp
GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS")
Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
@@ -13502,7 +13496,7 @@ Partial Class Compras_Compras
GvOC1.DataBind()
' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
GvOC2.DataSource = TmpDT
GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
GvOC2.DataBind()
UpGvOC1.Update()
@@ -14341,7 +14335,7 @@ Partial Class Compras_Compras
Dim StrPromos As New StringBuilder
For Each CveOCItem As String In ArrayCveOC.Distinct
If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
If IsNothing(DTOCTemp) Then
DTOCTemp = ObjOC.DtResultados.Copy
Else
@@ -14547,24 +14541,10 @@ Partial Class Compras_Compras
CargaTipoCentroCostoOC()
GvOC1.DataSource = DTOCGV
GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS")
GvOC1.DataBind()
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
Change = True
End If
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = "0"
End If
Next
End If
Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
If DTCVEOGV.Rows.Count > 1 Then
@@ -14578,14 +14558,43 @@ Partial Class Compras_Compras
RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ") }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
Cont += 1
Next
UpGvOC1.Update()
TmpDT = TmpDT.FiltraParametros("", "PU")
TmpDT = TmpDT.FiltraParametros("", "CodigoPS")
GvOC2.DataSource = TmpDT
GvOC2.DataBind()
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False
For Each Dr2 As DataRow In TmpDT.Rows
If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
Change = True
End If
Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
'detectar los ps que no están en la OC, códigos que no están en la OC
'mostrar los ps que no están en la oc
Dim strMsg As New StringBuilder
For Each Gvr As GridViewRow In GvOC2.Rows
Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count
If i = 0 Then
strMsg.AppendFormat("- {0} <br/>", Gvr.DataKey("CodigoPS"))
Gvr.BackColor = Drawing.Color.Red
End If
Next
If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra<br/>" & strMsg.ToString, TipoMensaje.MsgAdvertencia)
'condicion temporal rmf
GvOC1.Columns(6).Visible = False
GvOC2.Columns(4).Visible = False
End If
UpGvOC2.Update()
End Sub
Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound
@@ -17195,7 +17204,7 @@ Partial Class Compras_Compras
CveProyecto = -1
End If
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -17924,7 +17933,7 @@ Partial Class Compras_Compras
Private Sub CargaSubProyectoAsignado()
DdlAsignaSubProyecto.Items.Clear()
If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then
DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero))
End If
DdlAsignaSubProyecto.DataBind()
DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))

2
Contratos/Contrato.vb
View File

@@ -835,7 +835,7 @@ Partial Class Contratos_Default
End Sub
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProyectoContrato.Items.Clear()
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
End Sub

10
Contratos/ContratoObra.aspx.vb
View File

@@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra
' DdlProyecto.DataBind()
'End If
End Sub
'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
'End Sub
'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
' DdlSubProyectoContrato.Items.Clear()
' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
' DdlSubProyectoContrato.DataBind()
' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
'End Sub
Private Sub CargaContratista()
DdlContratista.setEsWebService(True)
DdlContratista.Attributes.Add("data-metodo", "getproveedores")

4
Inventarios/Equivalencia.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia
Private Sub InicializarListas()
'Llenar el dropdownlist de unidad de medida
ddlUnidad.DataSource = GlobalDTUnidadesMedida()
ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlUnidad.DataBind()
@@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia
Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
e.Row.FCDropDownList("ddlEUnidad").DataBind()
End If

156
Inventarios/TrasladoSolicitud.aspx
View File

@@ -24,69 +24,73 @@
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
<div class="tools">
<asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
</div>
<div class="titlefiltros caption ">
<div class="row">
<div class="col-md-1 truncate">Origen</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlAlmacenOrigenFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
</div>
<asp:UpdatePanel ID="UPCons" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-1 truncate">Destino</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlAlmacenDestinoFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
<div class="tools">
<asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
</div>
<div class="col-md-1 truncate">Fecha Inicio</div>
<div class="col-md-1 col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<div class="titlefiltros caption ">
<div class="row">
<div class="col-md-1 truncate">Origen</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlAlmacenOrigenFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
</div>
<div class="col-md-1 truncate">Destino</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlAlmacenDestinoFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
</div>
<div class="col-md-1 truncate">Fecha Inicio</div>
<div class="col-md-1 col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-md-1 truncate">Fecha Fin</div>
<div class="col-md-1 col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-md-1 truncate">Fecha Fin</div>
<div class="col-md-1 col-sm-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
</div>
</div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row">
<div class="col-md-12">
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvT" Width="1000px" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall"
<asp:GridView ID="GvT" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound"
DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre" >
DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada,CveMovimientoRelacionado" >
<Columns>
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="10%" />
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" />
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="10%" DataFormatString="{0:d}" />
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" ItemStyle-Width="200px" />
<%--<asp:BoundField DataField="TraspasoEstatus" HeaderText="Estatus" ItemStyle-Width="10%" />--%>
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Estatus" ItemStyle-Width="70px" >
<ItemTemplate>
@@ -96,25 +100,40 @@
<asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} "
Target="_blank" ItemStyle-Width="5%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="FolioMovimiento" />
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="30px">
<%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<div class="row">
<div class="col-lg-12">
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
</div>
<div class="col-lg-12">
<asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />
</div>
</div>
</ItemTemplate>
</asp:TemplateField>
</asp:TemplateField>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<div class="row">
<div class="col-lg-4" style="text-align:right">
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
</div>
<div class="col-lg-4" style="text-align:left">
<asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank" CssClass="btn btn-circle btn-sm blue" ToolTip="Recivir traspaso" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />
</div>
<div class="col-lg-4" style="text-align:left"></div>
</div>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
<Triggers>
</Triggers>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="DVModalSolicitudAdd" class="modal ADS fade" role="dialog" data-backdrop="static" >
<div class="modal-dialog" style="width: 450px;">
@@ -145,31 +164,34 @@
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator>
</div>
</div>
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
<div class="row marginRowLeft">
<div class="col-md-6 form-group form-md-line-input input-iconright">
<div class="col-md-2 form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidad" CssClass="form-control marginFixRow" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="AgregarPS"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" />
</div>
<div class="col-md-6 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">
<div class="col-md-8 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">
<ADS:Dropdownlost ID="DdlProductoServicio" runat="server" CssClass="form-control input-sm" CssClassDdl="select2me" CssStyle="width: 100%;" DataTextField="PSCodigo" DataValueField="CvePS" ></ADS:Dropdownlost>
<label for="<%= DdlProductoServicio.ClientID.ToString()%>">Producto o Servicio:</label>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" id="Div3" runat="server">
<asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar' style="margin-top:+5px" ValidationGroup="AgregarPS"/>
</div>
</div>
<div class="row">
<%-- <div class="row">
<div class="col-md-12" style="text-align:right!important">
<%--<asp:Button ID="BtnAgregarPS" runat="server" class="btn btn-success" Text="Agregar" Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>--%>
<asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar' Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>
</div>
</div>
</div>--%>
<div class="row">
<div class="col-md-12">

42
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud
Private Sub CargaAlmacenes()
'Cargo los almacenes
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
@@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud
End Sub
Private Sub CargaCombos()
DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenOrigenFiltro.DataBind()
DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenDestinoFiltro.DataBind()
DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs)
GvSolicitudes.DataSource = Nothing
GvSolicitudes.DataBind()
UpModalSolicitudes.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd"))
End Sub
@@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs)
Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
If Not CveAlmacenTransictorio > 0 Then
Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia)
@@ -674,24 +677,43 @@ Partial Class Inventarios_TrasladoSolicitud
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False)
Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero
Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero
Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero
Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero
Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero
Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True
If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen
Else
If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
e.Row.FCLinkButton("LnkMostrarTraspaso").Text = "<i class='fa fa-info'></i>"
If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso e.Row.DataKey("CveMovimientoRelacionado") = "" Then
e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True
e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}"
End If
If e.Row.DataKey("CveMovimientoRelacionado") <> "" Then
e.Row.FCLabel("LblTraspasoEstatus").Text = "Recibido"
End If
Else
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
End If
End If
End If
End Sub
@@ -702,7 +724,7 @@ Partial Class Inventarios_TrasladoSolicitud
DdlAlmacenDestino.SelectedValue = Nothing
DdlAlmacenDestino.Items.Clear()
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
UpPS.Update()

4
Inventarios/TrasladoSolicitudOld.aspx.vb
View File

@@ -1153,7 +1153,7 @@ Partial Class Inventarios_TrasladoSolicitudOld
Dim SB As New StringBuilder
Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim
If CorreoDestino.Length > 0 Then
@@ -1193,7 +1193,7 @@ Partial Class Inventarios_TrasladoSolicitudOld
Dim SB As New StringBuilder
Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim
If CorreoDestino.Length > 0 Then

25
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen
ImgFechaRecepcion.Visible = False
End If
If Request("CveAlmacenTransitorioR") IsNot Nothing Then
CargaRecepcionTraspaso()
End If
Else
If ChkTransitorio.Checked Then
RegistraScript(" $('#DivGastoIndirecto').show(0); ")
@@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen
End If
End Sub
Private Sub CargaRecepcionTraspaso()
Tab.ActiveTabIndex = 1
Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1)
Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1)
Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1)
DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR)
DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR)
TxtFolioRecepcion.Text = FolioR.ToString
CargaRecepcion()
End Sub
#Region "CARGA DATOS"
Protected Sub CreaDT()
Dim dt As New DataTable
@@ -457,7 +474,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1"))
'Llena Almacen Transitorio Recepcion
DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorioRecepcion.DataBind()
DdlAlmacenTransitorioRecepcion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -2377,11 +2394,11 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Mensaje As StringBuilder = New StringBuilder
Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
Mensaje.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
If CancelacionTraspaso IsNot Nothing Then
If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Devolución <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Devolución <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
End If
Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)

568
Nomina/Nomina.aspx
View File

@@ -794,6 +794,8 @@
<asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
</div>
</asp:Panel>
</div>
<div class="row">
<asp:Panel ID="PnlSubProyecto" CssClass="col-md-12" runat="server">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
@@ -814,11 +816,7 @@
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkGuardarASistencia" OnClick="LnkGuardarASistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
<asp:LinkButton ID="LnkGuardarASistencia" OnClick="LnkGuardarASistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
</div>
</div>
</ContentTemplate>
@@ -1390,7 +1388,7 @@
<asp:GridView ID="GVMovtoPermanente" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall " AutoGenerateColumns="False"
ShowHeader="true" EmptyDataText="No se encontraron Movimientos"
DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,TipoDescuento,Valor,VecesAplicar,MontoLimite,FechaInicioAplicacion,Estatus,FechaRegistro">
DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,MontoLimiteV,TipoDescuento,Valor,VecesAplicar,MontoLimite,EsAcumulado,FechaInicioAplicacion,Estatus,FechaRegistro">
<Columns>
<asp:TemplateField HeaderText="Descripción">
<ItemTemplate>
@@ -1419,7 +1417,7 @@
<asp:TemplateField HeaderText="Monto limite" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" OnClick="LnkEditarMovtoPermanente_Click"
CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimite","{0:###,###.##}")%>'></asp:LinkButton>
CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimiteV","{0:###,###.##}")%>'></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
@@ -1444,6 +1442,8 @@
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
@@ -2182,6 +2182,207 @@
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
<div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" onclick="$('#ModalMovtoPermanente').modal('hide');return;">&times;</button>
<h4 class="modal-title">Movimiento permanente</h4>
</div>
<div class="modal-body">
<asp:Panel runat="server" Visible="false" CssClass="portlet light xspadding bordered " ID="pnlAddupMovto">
<div class="portlet-title">
<div class="caption ">
<i class="icon-pin font-yellow-gold"></i>
<span class="caption-subject font-yellow-gold bold uppercase">
<asp:Literal ID="LtlMovtoPermanenteaddup" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body ">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDescripcion" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Descripción:" AssociatedControlID="TxtDescripcion"></asp:Label>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Tipo Concepto:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" OnSelectedIndexChanged="DdlTipo_SelectedIndexChanged" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value="P" Text="Percepciones"></asp:ListItem>
<asp:ListItem Value="D" Selected="True" Text="Deducciones"></asp:ListItem>
<asp:ListItem Value="O" Text="Obligaciones"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Concepto:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Tipo Descuento:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlTipoDescto" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDescto_SelectedIndexChanged" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value="1" Text="Importe"></asp:ListItem>
<asp:ListItem Value="2" Text="Porcentaje"></asp:ListItem>
<asp:ListItem Value="3" Text="Importe(Tope Monto)"></asp:ListItem>
<asp:ListItem Value="4" Text="Porcentaje(Tope Monto)"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtValor" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvValor" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Valor:" AssociatedControlID="TxtValor"></asp:Label>
</div>
</div>
<asp:Panel runat="server" ID="pnlVecesAplicar" CssClass="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvVecesAplicar" runat="server" ControlToValidate="TxtVecesAplicar" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Veces por Aplicar''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID="TxtVecesAplicar"></asp:Label>
</div>
</asp:Panel>
<asp:Panel runat="server" ID="pnlMonto" CssClass="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtMontoLimite" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" ControlToValidate="TxtMontoLimite" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Monto Limite''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Monto Limite:" AssociatedControlID="TxtMontoLimite"></asp:Label>
</div>
</asp:Panel>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFechaAplicacion" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Fecha de Aplicación: " AssociatedControlID="TxtFechaAplicacion"></asp:Label>
<ajax:MaskedEditExtender ID="MKEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar" Visible="False"></asp:CompareValidator>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
<asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-3">
<div style="padding-top: 10px; padding-bottom: 14px;">
¿Activo?
</div>
<asp:CheckBox ID="ChkEstatus" CssClass="chksino " Text=" " runat="server" />
</div>
<div class="col-md-3">
<div style="padding-top: 10px; padding-bottom: 14px;">
¿Es acumulado?
</div>
<asp:CheckBox ID="ChkPermEsAcumulado" CssClass="chksino " Text=" " runat="server" />
</div>
</div>
</div>
</asp:Panel>
<asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
DataKeyNames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
<Columns>
<asp:TemplateField HeaderText="Nombre">
<ItemTemplate>
<asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
<asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cve Movto Permanente">
<ItemTemplate>
<asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<%--<asp:TemplateField HeaderText="Fecha Fin">
<ItemTemplate>
<asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<%--<asp:TemplateField HeaderText="Cve Periodo">
<ItemTemplate>
<asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No Pagos">
<ItemTemplate>
<asp:Label ID="lblnoPagos" runat="server" Text='<%# Eval("NoPagos")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe Pago">
<ItemTemplate>
<asp:Label ID="lblimportePagos" runat="server" Text='<%# Eval("ImportePagos","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Pagado">
<ItemTemplate>
<asp:Label ID="lblpagado" runat="server" Text='<%# Eval("Pagado","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total">
<ItemTemplate>
<asp:Label ID="lbltotal" runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Saldo">
<ItemTemplate>
<asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
<asp:LinkButton ID="LnkUpMovto" OnClick="LnkUpMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-success" runat="server">Actualizar</asp:LinkButton>
<button type="button" class="btn btn-danger" onclick="$('#ModalMovtoPermanente').modal('hide');return;">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate>
<Triggers>
<%--<asp:PostBackTrigger ControlID="BtnImprimirsobrerecibo" />--%>
@@ -4359,132 +4560,7 @@
</asp:TemplateField>
</Columns>
</asp:GridView>
<%--<table id="headerProcesaSUA" style="display: none">
<tr>
<th></th>
<th colspan="2">Salario</th>
<th colspan="2">Días</th>
<th colspan="2">Cuota Fija</th>
<th colspan="2">Cuota Excedente</th>
<th colspan="2">Prestaciones en Dinero</th>
<th colspan="2">Gastos Medicos</th>
<th colspan="2">Riesgos de Trabajo</th>
<th colspan="2">Invalidez y Vida</th>
<th colspan="2">Guarderia</th>
<th colspan="2">Retiro</th>
</tr>
</table>
<asp:GridView ID="GVProcesarSUA" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
OnRowDataBound="GVProcesarSUA_RowDataBound" data-height="300" data-tableheader="#headerProcesaSUA"
DataKeyNames="CvePersonal,CodigoNombreCompleto,CuotaFijaSUA,CuotaFijaSIG,CuotaExcedenteSUA,CuotaExcedenteSIG,PrestacionesDineroSUA,PrestacionesSIG,GastosMedPenSUA,GastosMedicosSIG,RiesgosdeTrabajoSUA,RiesgoTrabajoSIG,InvalidezyVidaSUA,InvalidezyVidaSIG,GuarderiaSUA,GuarderiaSIG,RetiroSUA,RetiroSIG,SalarioSUA,SalarioSIG">
<Columns>
<asp:TemplateField HeaderText="Nombre">
<ItemTemplate>
<asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("DiasMes","{0:N0}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("DiasAsistio","{0:N0}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SUA">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
</ItemTemplate>
</asp:TemplateField>showResult
</Columns>
</asp:GridView>--%>
</div>
</div>
</div>
@@ -5101,7 +5177,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="divPersonalizarNomina" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpPersonalizarxls" class="modal-dialog modal" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -5114,11 +5190,11 @@
<asp:Label runat="server" ID="Label12" Text="Personalizar"></asp:Label>
</h4>
</div>
<div class="modal-body" >
<div class="modal-body">
<div class="portlet light bordered xspadding" id="portletpersonalizarxls" >
<div class="portlet light bordered xspadding" id="portletpersonalizarxls">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -5130,24 +5206,24 @@
</div>
</div>
<div class="portlet-body">
<div class="row">
<div class="col-md-6">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="ddltipoPersonalizar" runat="server" CssClass="form-control Widthall select2me" AutoPostBack="true" OnSelectedIndexChanged="ddltipoPersonalizar_SelectedIndexChanged" Style="width: 100%"
DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder">
<asp:ListItem Selected="True" Text="campo Libre" Value="-1"></asp:ListItem>
<asp:ListItem Text="Percepciones" Value="1"></asp:ListItem>
<asp:ListItem Text="deducciones" Value="2"></asp:ListItem>
<asp:ListItem Text="obligacion" Value="3"></asp:ListItem>
<asp:ListItem Text="Datos Personal" Value="4"></asp:ListItem>
<asp:ListItem Text="Percepciones" Value="1"></asp:ListItem>
<asp:ListItem Text="deducciones" Value="2"></asp:ListItem>
<asp:ListItem Text="obligacion" Value="3"></asp:ListItem>
<asp:ListItem Text="Datos Personal" Value="4"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Tipo:" AssociatedControlID="ddltipoPersonalizar"></asp:Label>
<asp:Label runat="server" Text="Tipo:" AssociatedControlID="ddltipoPersonalizar"></asp:Label>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
@@ -5156,7 +5232,7 @@
<asp:ListItem Text="Ocultar" Value="0"></asp:ListItem>
</asp:DropDownList>--%>
<asp:TextBox ID="TxtTitulo" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label Text="Titulo:" AssociatedControlID="TxtTitulo" runat="server"></asp:Label>
<asp:Label Text="Titulo:" AssociatedControlID="TxtTitulo" runat="server"></asp:Label>
</div>
</div>
@@ -5166,7 +5242,7 @@
DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Columna:" AssociatedControlID="DdlMOPXColumna"></asp:Label>
<asp:Label runat="server" Text="Columna:" AssociatedControlID="DdlMOPXColumna"></asp:Label>
</div>
</div>
@@ -5205,202 +5281,6 @@
</Triggers>
</asp:UpdatePanel>
</div>
<div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" onclick="$('#ModalMovtoPermanente').modal('hide');return;">&times;</button><h4 class="modal-title">Movimiento permanente</h4>
</div>
<div class="modal-body">
<asp:Panel runat="server" Visible="false" CssClass="portlet light xspadding bordered " ID="pnlAddupMovto">
<div class="portlet-title">
<div class="caption ">
<i class="icon-pin font-yellow-gold"></i>
<span class="caption-subject font-yellow-gold bold uppercase">
<asp:Literal ID="LtlMovtoPermanenteaddup" runat="server"></asp:Literal></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body ">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDescripcion" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Descripción:" AssociatedControlID="TxtDescripcion"></asp:Label>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Tipo Concepto:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" OnSelectedIndexChanged="DdlTipo_SelectedIndexChanged" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value="P" Text="Percepciones"></asp:ListItem>
<asp:ListItem Value="D" Selected="True" Text="Deducciones"></asp:ListItem>
<asp:ListItem Value="O" Text="Obligaciones"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Concepto:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" Text="Tipo Descuento:" AssociatedControlID=""></asp:Label>
<asp:DropDownList ID="DdlTipoDescto" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDescto_SelectedIndexChanged" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value="1" Text="Importe"></asp:ListItem>
<asp:ListItem Value="2" Text="Porcentaje"></asp:ListItem>
<asp:ListItem Value="3" Text="Importe(Tope Monto)"></asp:ListItem>
<asp:ListItem Value="4" Text="Porcentaje(Tope Monto)"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtValor" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvValor" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Valor:" AssociatedControlID="TxtValor"></asp:Label>
</div>
</div>
<asp:Panel runat="server" ID="pnlVecesAplicar" CssClass="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvVecesAplicar" runat="server" ControlToValidate="TxtVecesAplicar" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Veces por Aplicar''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID="TxtVecesAplicar"></asp:Label>
</div>
</asp:Panel>
<asp:Panel runat="server" ID="pnlMonto" CssClass="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtMontoLimite" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" ControlToValidate="TxtMontoLimite" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Monto Limite''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Monto Limite:" AssociatedControlID="TxtMontoLimite"></asp:Label>
</div>
</asp:Panel>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFechaAplicacion" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario "
ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Fecha de Aplicación: " AssociatedControlID="TxtFechaAplicacion"></asp:Label>
<ajax:MaskedEditExtender ID="MKEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar" Visible="False"></asp:CompareValidator>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
<asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-3">
<div style="padding-top: 10px; padding-bottom: 14px;">
¿Activo?
</div>
<asp:CheckBox ID="ChkEstatus" CssClass="chksino " Text=" " runat="server" />
</div>
<div class="col-md-3">
</div>
</div>
<div class="text-right"></div>
</div>
</asp:Panel>
<asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
DataKeyNames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
<Columns>
<asp:TemplateField HeaderText="Nombre">
<ItemTemplate>
<asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
<asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cve Movto Permanente">
<ItemTemplate>
<asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<%--<asp:TemplateField HeaderText="Fecha Fin">
<ItemTemplate>
<asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<%--<asp:TemplateField HeaderText="Cve Periodo">
<ItemTemplate>
<asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No Pagos">
<ItemTemplate>
<asp:Label ID="lblnoPagos" runat="server" Text='<%# Eval("NoPagos")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe Pago">
<ItemTemplate>
<asp:Label ID="lblimportePagos" runat="server" Text='<%# Eval("ImportePagos","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Pagado">
<ItemTemplate>
<asp:Label ID="lblpagado" runat="server" Text='<%# Eval("Pagado","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total">
<ItemTemplate>
<asp:Label ID="lbltotal" runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Saldo">
<ItemTemplate>
<asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
<asp:LinkButton ID="LnkUpMovto" OnClick="LnkUpMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-success" runat="server">Actualizar</asp:LinkButton>
<button type="button" class="btn btn-danger" onclick="$('#ModalMovtoPermanente').modal('hide');return;">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
<asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

316
Nomina/Nomina.aspx.cs
View File

@@ -40,7 +40,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
set { ViewState["DtNomOcultarMostrar"] = value; }
}
private DataTable DtNomPersonalizarxls
{
get
@@ -2642,10 +2642,92 @@ public partial class Nomina_Nomina2 : ClsPaginas
}//ImgDelete
protected void LnkReenviarCorreoSobreRecibo_Click(object sender, EventArgs e)
{
//string msggral = "";
int CvePeriodo = 0;
ClsSisMail Mail = new ClsSisMail();
DataTable dtpersonal = new DataTable();
DataRow drow;
using (ClsRH objrh = new ClsRH())
{
objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto" });
}
using (ClsRH objrh = new ClsRH())
using (ClsNominas ObjNomina = new ClsNominas())
{
foreach (GridViewRow gvRow in GvNominas.Rows)
{
CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero());
LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
string Correo = string.Empty;
string NombreCompleto = string.Empty;
if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
{
Correo = drow["Correo"].ToString();
NombreCompleto = drow["NombreCompleto"].ToString();
}
if (CvePersonal == SRCvePersonal && SeTimbro == 1)
{
if (Correo.Trim().Length > 0)
{
byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
if (pdf != null)
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
{
string Ruta = "";
string PathXML = "";
string PathXMLF = "";
string Xmlname = "";
string XmlnameF = "";
//string empleado = "";
Ruta = UsuarioActual.Empresa.Ruta;
PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
Xmlname = $"{ObjNomina.SerieFolio}.xml";
XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
//this.GuardaLog(PathXML);
if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
}
if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
}
}
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
// Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
}
}
}
}
}
Alert("se reenvió el recibos timbrados");
}
protected void LnkCancelarSobreRecibo_Click(object sender, EventArgs e)
{
showhideaccionesSR(true);
DataRow dr = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
CveNominaCancelar = dr["CveNomina"].ToString().ToEntero();
DdlMotivoCancelacion.DataSource = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)");
DdlMotivoCancelacion.DataBind();
UpCancelarDocumento.Update();
RegistraScript("$('#ModalCancelarDocumento').modal()");
//showhideaccionesSR(true);
}
public void showhideaccionesSR(bool cargadatos = false)
{
@@ -4836,7 +4918,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DataTable dtColumnas = GetTablaColumnasConceptos();
DdlMOPXColumna.DataSource = dtColumnas;
DdlMOPXColumna.DataBind();
{
addcoltopersonalizar("Codigo", "0", "Codigo", "");
@@ -4859,7 +4941,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows)//
{
{
if (!(dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
addcoltopersonalizar(row["Concepto"].ToString(), "1", string.Format("[V_{0}]", row["CveConcepto"].ToString()), row["Codigo"].ToString());
@@ -4944,11 +5026,67 @@ public partial class Nomina_Nomina2 : ClsPaginas
UpPersonalizarxls.Update();
}
private void Titlecell(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null)
{
ClosedXML.Excel.IXLCell celda = libro.Cell(fi, ff);
celda.Value = Valor;
if (borderColor != null)
{
if (topBorder)
{
celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.TopBorderColor = borderColor;
}
celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.LeftBorderColor = borderColor;
celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.RightBorderColor = borderColor;
if (bottomBorder)
{
celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.BottomBorderColor = borderColor;
}
}
}
//IXLRange
private void TitleRange(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, int fi2, int ff2, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null)
{
ClosedXML.Excel.IXLRange celda = libro.Range(fi, ff, fi2, ff2).Merge();
celda.Value = Valor;
if (borderColor != null)
{
if (topBorder)
{
celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.TopBorderColor = borderColor;
}
celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.LeftBorderColor = borderColor;
celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.RightBorderColor = borderColor;
if (bottomBorder)
{
celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
celda.Style.Border.BottomBorderColor = borderColor;
}
}
}
protected void LnkFormatoPersonalizado_Click(object sender, EventArgs e)
{
try
{
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var PercborderColor = ClosedXML.Excel.XLColor.FromArgb(0, 102, 0);
var dedcborderColor = ClosedXML.Excel.XLColor.FromArgb(99, 37, 35);
ClosedXML.Excel.XLColor colorperp = ClosedXML.Excel.XLColor.FromArgb(51, 153, 102);
ClosedXML.Excel.XLColor colorded = ClosedXML.Excel.XLColor.FromArgb(150, 54, 52);
ClosedXML.Excel.IXLCell celda;
var libro = wb.AddWorksheet("Nomina");
int column = 1;
int filainicio = 3;
@@ -4968,71 +5106,88 @@ public partial class Nomina_Nomina2 : ClsPaginas
libro.Range(2, 2, 2, 4).Merge().Value = periodo;
int iniciotipe = column;
int incioConceptos = iniciotipe + 1;
column++;
libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Mensual";
libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Sueldo";
Titlecell(libro, "Mensual", filainicio + 2, column, true, false, PercborderColor);
Titlecell(libro, "Sueldo", filainicio + 3, column, false, true, PercborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
libro.Column(column).Width = 15;
column++;
libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Sueldo";
libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "diario";
Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor);
Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
libro.Column(column).Width = 15;
column++;
libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "dias Pen";
libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Pago";
Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor);
Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
libro.Column(column).Width = 15;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND SoloVisible =0").Rows)
{
column++;
libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
libro.Column(column).Hide();
}
else
{
Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, PercborderColor);
Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, PercborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
libro.Column(column).Width = 15;
}
}
column++;
TitleRange(libro, "Percepciones", filainicio + 2, column, filainicio + 3, column, true, true, PercborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
libro.Column(column).Width = 15;
if (iniciotipe < column)
{
libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
TitleRange(libro, "Percepciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, PercborderColor);
libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
}
//column++;
//libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones";
//libro.Column(column).Width = 15;
//if (iniciotipe < column)
//{
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
//}
iniciotipe = column;
int finPercepciones = iniciotipe;
column++;
libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Incapacidad";
libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Perm. Faltas";
TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, true, false, dedcborderColor);
TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, true, dedcborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
libro.Column(column).Width = 15;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows)
{
column++;
libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
libro.Column(column).Hide();
}
else
{
Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, dedcborderColor);
Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, dedcborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
libro.Column(column).Width = 15;
}
}
//column++;
//libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones";
//libro.Column(column).Width = 15;
//if (iniciotipe < column)
//{
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones";
//}
column++;
TitleRange(libro, "Deducciones", filainicio + 2, column, filainicio + 3, column, true, true, dedcborderColor);
libro.Column(column).Width = 15;
if (iniciotipe < column)
{
libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
TitleRange(libro, "Deducciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, dedcborderColor);
Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
}
int findeducciones = column;
//column++;
//libro.Cell(filainicio + 1, column).Value = " ";
@@ -5043,23 +5198,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Total";
libro.Column(column).Width = 15;
iniciotipe = column;
//if (iniciotipe < column)
//{
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
// libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones";
//}
//libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
//libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
//libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
//libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
//libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
//libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
//libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
int maxnocolumn = column;
libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Range(filainicio + 1, incioConceptos, filainicio + 4, finPercepciones).Style.Fill.SetBackgroundColor(colorperp);
libro.Range(filainicio + 1, finPercepciones + 1, filainicio + 4, findeducciones).Style.Fill.SetBackgroundColor(colorded);
int Fila = filainicio + 3;
int cveSupProyecto = -5;
@@ -5068,7 +5214,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int oldcveSupProyecto = -5;
bool newsubproyecto = false;
bool newsubproyectoTitulo = false;
List<int> filasborrar= new List<int>();
List<int> filasborrar = new List<int>();
DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto");
dtsr.Rows.Add(dtsr.NewRow());
foreach (DataRow erow in dtsr.Rows)
@@ -5107,6 +5253,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
column++;
libro.Cell(Fila, column).Value = erow["SalarioDiario"];
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
column++;
libro.Cell(Fila, column).Value = "";
@@ -5115,22 +5262,32 @@ public partial class Nomina_Nomina2 : ClsPaginas
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
libro.Cell(Fila -3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
}
}
//column++;
//libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
//libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
//if (newsubproyecto)
//{
// libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
//}
column++;
libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorperp);
Titlecell(libro, erow["SumaPercepciones"], Fila, column, false, false, PercborderColor);
libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
if (newsubproyecto)
{
libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorperp);
Titlecell(libro,"", Fila - 2, column, false, false, PercborderColor);
libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorperp);
libro.Cell(Fila - 3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
Titlecell(libro, dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, PercborderColor);
//libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
@@ -5140,20 +5297,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
}
}
//column++;
//libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
//libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
//if (newsubproyecto)
//{
// libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
//}
column++;
libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorded);
Titlecell(libro, erow["SumaDeducciones"], Fila, column, false, false, dedcborderColor);
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
if (newsubproyecto)
{
libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorded);
Titlecell(libro, "", Fila - 2, column, false, false, dedcborderColor);
libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorded);
libro.Cell(Fila -3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
Titlecell(libro, dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, dedcborderColor);
//libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
//column++;
//libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
//libro.Cell(Fila, column).Value = erow["SumaEspecie"];
@@ -5164,8 +5331,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
column++;
libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
libro.Cell(Fila, column).Value = erow["Total"];
libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
if (newsubproyecto)
{
libro.Cell(Fila-2, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
libro.Cell(Fila-3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
@@ -5190,9 +5361,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
//}
}
libro.Rows(Fila-2, Fila).Delete();
libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
{
var columnsToDelete = new List<int>();
foreach (var columnx in libro.Columns())
@@ -5211,11 +5381,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
libro.Column(columnNumber).Delete();
}
}
int primera = filasborrar.First();
filasborrar.Remove(primera);
filasborrar.Reverse();
foreach (int rownumber in filasborrar)
{
libro.Rows(rownumber, rownumber).Delete();
libro.Rows(rownumber-1, rownumber).Delete();
}
libro.Rows(primera, primera).Delete();
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
@@ -10525,7 +10698,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
StringBuilder SbErrores = new StringBuilder();
bool ErroresValidaciones = false;
int modalidadnomina = 1;
if (UsuarioActual.CveEmpresa.Contiene(189,193,195,196,197)) modalidadnomina = 2;
if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197)) modalidadnomina = 2;
SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:<br/>");
@@ -11994,4 +12167,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
UpDatos.Update();
}
protected void ddltipoPersonalizar_SelectedIndexChanged(object sender, EventArgs e)
{
}
}

4
OC/CotizacionEnvio.aspx.vb
View File

@@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio
If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then
'Cargar los detalles de la cotizacion
If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
'Agrega CveCotizacion a la lista
OrdenCotizacion.Add(objCotizacion.CveCotizacion)
For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
@@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio
'verifico los permisos según el estatus
Dim dtConceptos As DataTable = Nothing
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
dtConceptos = objOC.DtResultados
End If

16
OC/OC.aspx
View File

@@ -212,7 +212,8 @@
<asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
</label>
<b>
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
<div class="col-md-4" id="DivPrioridad" runat="server">
<asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -220,6 +221,9 @@
<asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Baja" Value="3"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlSubProyectoGral" Visible="false" CssClass="form-control select2me" runat="server" Width="85%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</ContentTemplate>
@@ -446,15 +450,7 @@
<asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
<asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
</td>
</tr>
<tr id="trSubProyecto">
<td><b>Sucursal:</b></td>
<td>
<asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
</tr>
</tr>
<tr id="trCfdi" style="display:none;" >
<td>
<div class="caption font-green">

23
OC/OC.aspx.vb
View File

@@ -728,7 +728,7 @@ Partial Class OC_OC
'temporal
If UsuarioActual.CveEmpresa = 189 Then
'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
DdlSubProyectoGral.DataBind()
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
End If
End If
If UsuarioActual.CveRol = 1 Then
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
chkSubProyectoEntrega.Visible = True
LblPrioridad.Text = "Sucursal"
DdlPrioridad.Visible = False
DdlSubProyectoGral.Visible = True
End If
End If
@@ -1686,7 +1689,7 @@ Partial Class OC_OC
CboE.DataBind()
End If
If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then
If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then
DtDetalle = objOC.DtResultados
End If
@@ -2043,7 +2046,7 @@ Partial Class OC_OC
End Sub
Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
DdlSP.Items.Clear()
DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
DdlSP.DataBind()
DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
End If
End Sub
Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa)
RegistraScript("hideDivEC();")
End Sub
#End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC
'verifico los permisos según el estatus
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
For Each dr As DataRow In objOC.DtResultados.Rows
strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))
@@ -6470,7 +6473,7 @@ Partial Class OC_OC
objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
CveProveedor = objOC.CveProveedor
Dim DttDetalle As DataTable = Nothing
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
DttDetalle = objOC.DtResultados
End If
@@ -6567,7 +6570,7 @@ Partial Class OC_OC
#End Region
#Region "Correo Eliminar Cotización"
Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String
Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String
Dim ObjCotizacion As New ClsOC
ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
strBody.Append(" </tr>")
Dim dtConceptos As DataTable = Nothing
If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
dtConceptos = ObjCotizacion.DtResultados
End If
@@ -9282,6 +9285,8 @@ Partial Class OC_OC
End Sub
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPDetalle.Update()
CargaFolios()
End Sub
End Class

2
OC/OC2.aspx.vb
View File

@@ -795,7 +795,7 @@ Partial Class OC
End Sub
Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
DdlSP.Items.Clear()
DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
DdlSP.DataBind()
DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub

2
OC/PopUpBuscarReq.aspx.vb
View File

@@ -129,7 +129,7 @@ Partial Class OC_PopUpBuscarReq
Private Sub CargaSubProyectos(CveProyecto As Integer)
DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1),
GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

2
OC/RepCotizacionesDetalle.aspx.vb
View File

@@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle
Private Sub CargaOCDetalle(pCveOrden As Integer)
Dim objOC As New ClsOC
If objOC.GetOrdenesDetalle(pCveOrden) Then
If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then
DtDetalle = objOC.DtResultados
End If

2
OC/RepRequisiciones.aspx.vb
View File

@@ -80,7 +80,7 @@ Partial Class OC_RepRequisiciones
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
Else
DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
End If

11
OS/OrdenesServicios.aspx.vb
View File

@@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios
End Sub
Private Sub CargaTiposVenta()
DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlTipoVenta.DataBind()
End Sub
@@ -500,16 +500,7 @@ Partial Class OS_OrdenesServicios
End If
UpDetalleOS.Update()
End Sub
'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
' gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero)
' gvr.FCDropDownList("DDlSubProyecto").DataBind()
' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
'End Sub
Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList)
Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero

2
OS/PopUpMateriales.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales
Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0)
Dim PS As String = RowPS("PS").ToString
Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString

2
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class CatSubProyectos
Private Sub RecargaGlobal()
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
End Sub

6
Presupuestos/GenerarPresupuestos.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlPUM.DataBind()
Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
tbPrecioMO.Text = PU.ToString
ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlMOUnidad.DataBind()
End If
@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
If ddlPS.SelectedIndex > 0 Then
Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
tbPrecio.Text = PU.ToString
ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlUM.DataBind()
End If
End Sub

2
RH/AsistenciaDetalle.aspx.vb
View File

@@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle
Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear()
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind()
End Sub

2
RH/CatPersonalRequerido.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido
SubProyectoDdl.Items.Clear()
SubProyectoDdl.SelectedValue = Nothing
If CveProyecto > 0 Then
SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto)
SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)
End If
SubProyectoDdl.DataBind()
SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))

2
Sistemas/CatSesiones.aspx.vb
View File

@@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones
Case ""
dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Case Else
dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable)
dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
End Select
Gv.DataSource = dt

4
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
End Sub
Private Sub GetEmpresas()
GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
GlobalDTUsuarios(-1, -1) = Nothing
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1)
If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then

27
Transportes/RepContratos.aspx.vb
View File

@@ -166,22 +166,23 @@ Partial Class ListadoContratos
End If
Anexo.Text = ""
If ErrorProceso = False Then
'If ErrorProceso = False Then
Dim Respuesta As New RespuestaFacturacion()
Dim CvePS As Integer = 907783
Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
' Dim Respuesta As New RespuestaFacturacion()
' Dim CvePS As Integer = 907783
' Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
If Respuesta.CveVenta > 0 Then
CveVentaRemision = Respuesta.CveVenta
SerieFolioRemision = Respuesta.SerieFolio
ErrorProceso = False
Else
ErrorProceso = True
Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
End If
' If Respuesta.CveVenta > 0 Then
' CveVentaRemision = Respuesta.CveVenta
' SerieFolioRemision = Respuesta.SerieFolio
' ErrorProceso = False
' Else
' ErrorProceso = True
' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
' End If
'End If
End If
Else
ErrorProceso = True

6
Ventas/PVCobranza.aspx
View File

@@ -431,13 +431,13 @@
<div class="row" id="DivDatosCheque" runat="server" visible="false" style="padding-top: 8px;">
<div class="col-md-12">
<div class="row">
<label class="col-md-2">Clave de autorización:</label>
<label class="col-md-2">Clave de aut.:</label>
<div class="col-md-4">
<asp:TextBox ID="TxtClaveAutorizacion" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
<asp:TextBox ID="TxtClaveAutorizacion" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100px" ClientIDMode="Static"></asp:TextBox>
</div>
<label class="col-md-2">¿Quién autorizó?:</label>
<div class="col-md-4">
<asp:TextBox ID="TxtAutorizo" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
<asp:TextBox ID="TxtAutorizo" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="125px" ClientIDMode="Static"></asp:TextBox>
</div>
</div>
</div>

2
Ventas/PVCobranza.aspx.vb
View File

@@ -382,7 +382,7 @@ Partial Class Ventas_PVCobranza
'validaciones
Dim Pagado As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
If Pagado = 0 Then
Alert("Favor de especificar importe", TipoMensaje.MsgAdvertencia)
Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia)
Exit Sub
End If

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
#Region "GV PAQUETE DETALLE"
Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
e.Row.FCDropDownList("ddlEUnidad").DataBind()
End If

15
Ventas/RepProductosServiciosDetalle.aspx
View File

@@ -433,9 +433,11 @@
<%--20--%>
<asp:BoundField HeaderText="O. C." DataField="OC_noOrden" ItemStyle-Width="5%" Visible="false" />
<%--21--%>
<asp:BoundField HeaderText="Kilogramos" DataField="OC_Kilogramos" ItemStyle-Width="5%" Visible="false" />
<asp:BoundField HeaderText="Kilogramos" DataField="OC_Kilogramos" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
<%--22--%>
<asp:BoundField HeaderText="Cantiadad" DataField="OC_Cantidad" ItemStyle-Width="5%" Visible="false" />
<asp:BoundField HeaderText="Cantiadad" DataField="OC_Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
<%--23--%>
<asp:BoundField HeaderText="Manifiesto" DataField="NoManifiesto" ItemStyle-Width="5%" Visible="false" />
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
@@ -477,7 +479,7 @@
<asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
</td>
</tr>
<tr>
<tr runat="server" id="DivMostrarCgame">
<td style="text-align: left;">
<asp:CheckBox ID="ChkOC_noOrden" runat="server" Text="O. C." />
</td>
@@ -493,11 +495,12 @@
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
<td style="text-align: left;" runat="server" id="DivMostrarCgame2">
<asp:CheckBox ID="ChkNoManifiesto" runat="server" Text="Manifiesto" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
</td>
</tr>
</tbody>

4
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -73,7 +73,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
DivMostrarCgame.Visible = (UsuarioActual.CveEmpresa = 172)
DivMostrarCgame2.Visible = (UsuarioActual.CveEmpresa = 172)
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
SetValues()
CargaParametrosDetalle()
@@ -558,6 +559,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
GvDatos.Columns(20).Visible = ChkOC_noOrden.Checked
GvDatos.Columns(21).Visible = ChkOC_Kilogramos.Checked
GvDatos.Columns(22).Visible = ChkOC_Cantidad.Checked
GvDatos.Columns(23).Visible = ChkNoManifiesto.Checked

2
Ventas/Ventas.aspx.vb
View File

@@ -37861,7 +37861,7 @@ Partial Class Ventas
Private Sub CargaTiposVenta()
RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
RBLTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
RBLTipoVenta.DataBind()
RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))

13
asmx/WSSIGApp.asmx
View File

@@ -2449,7 +2449,7 @@ Public Class WSSIGApp
If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then
Dim IDPolizaPresupuestal = ObjOC.IdPoliza
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
DtDetalle = ObjOC.DtResultados.Copy
Dim ObjConta As ClsContPAQi = Nothing
Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos)
@@ -2679,7 +2679,7 @@ Public Class WSSIGApp
Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson)
Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault()
If json IsNot Nothing Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson)))
End If
Retorno = Encripta(json.ToString)
@@ -2700,13 +2700,14 @@ Public Class WSSIGApp
Dim Estructura = New With
{
Key .[CveOrdenCompra] = -1,
Key .[CveEmpresa] = -1,
Key .[Ticks] = ""
}
Dim JsonRequest As String = Decripta(Cadena)
Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura)
If IsCurrentDate(Entrada.Ticks) Then
Dim ObjOC As New ClsOC
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
Dim JsonRetorno = ObjOC.DtResultados.ToJson
retorno = Encripta(JsonRetorno)
End If
@@ -2871,7 +2872,7 @@ Public Class WSSIGApp
If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then
CveCotizacion = ObjOC.CveCotizacion
'Cargar los detalles de la cotizacion
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
'Agrega CveCotizacion a la lista
For Each RowCD As DataRow In ObjOC.DtResultados.Rows
@@ -3221,7 +3222,7 @@ Public Class WSSIGApp
Dim dtConceptos As DataTable = Nothing
Dim ObjOCdb As New ClsOC
If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then
If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then
dtConceptos = ObjOCdb.DtResultados
End If
@@ -3320,7 +3321,7 @@ Public Class WSSIGApp
'verifico los permisos según el estatus
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
For Each dr As DataRow In objOC.DtResultados.Rows
strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))