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

Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-06-06 13:21:10 -07:00
parent 5267af354e bacf54c361
commit 62c4608db4
54 changed files with 2257 additions and 285 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
App_Code/ClsClientes.vb
View File

@@ -23,11 +23,13 @@ Public Class ClsClientes
'Atributos de la clase 'Atributos de la clase
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
'REGISTRAR CONEXIÓN 'REGISTRAR CONEXIÓN
Private CveConexion As Integer = 0 Private CveConexion As Integer = 0
Private EsTransaccionCompartida As Boolean = False
#End Region #End Region
#Region "Propiedades" #Region "Propiedades"
Public Property CveCliente As Integer Public Property CveCliente As Integer
Public Property Nombre As String Public Property Nombre As String
Public Property NombreComercial As String Public Property NombreComercial As String
@@ -186,7 +188,8 @@ Public Class ClsClientes
End Try End Try
Else Else
SqlConexion = TransaccionCompartida.Connection SqlConexion = TransaccionCompartida.Connection
SqlTransacc = TransaccionCompartida SqlTransacc = TransaccionCompartida
EsTransaccionCompartida = True
End If End If
SqlCommand = New SqlCommand("", SqlConexion) SqlCommand = New SqlCommand("", SqlConexion)
@@ -201,11 +204,11 @@ Public Class ClsClientes
End With End With
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable Data = New DataTable
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
DataAdapter("PA_Sis_RegistrarConexion") DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters

6
App_Code/ClsInventarios.vb
View File

@@ -4749,13 +4749,17 @@ Public Class ClsInventarios
#Region "MOVIMIENTOS SALIDA" #Region "MOVIMIENTOS SALIDA"
Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveCliente As Integer, CveClasificacion As Integer, Grupo As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RepMovimientosSalidaGet") DataAdapter("PA_Inv_RepMovimientosSalidaGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Grupo", SqlDbType.Int).Value = Grupo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

30
App_Code/ClsPaginas.vb
View File

@@ -4262,13 +4262,14 @@ Public Class ClsPaginas
PaginaDict.Add("/General/CatDiasInhabiles.aspx".ToUpper(), 429) PaginaDict.Add("/General/CatDiasInhabiles.aspx".ToUpper(), 429)
PaginaDict.Add("/General/CatTipoCambio.aspx".ToUpper(), 642) PaginaDict.Add("/General/CatTipoCambio.aspx".ToUpper(), 642)
PaginaDict.Add("/General/PopUpPaqueteriasGuias.aspx".ToUpper(), 659) PaginaDict.Add("/General/PopUpPaqueteriasGuias.aspx".ToUpper(), 659)
PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 659)
PaginaDict.Add("/General/CatPaqueterias.aspx".ToUpper(), 665) PaginaDict.Add("/General/CatPaqueterias.aspx".ToUpper(), 665)
PaginaDict.Add("/General/CatDocumentacionTipo.aspx".ToUpper(), -1) PaginaDict.Add("/General/CatDocumentacionTipo.aspx".ToUpper(), -1)
PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710) PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710)
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727)
#End Region #End Region
#Region "GPS" #Region "GPS"
@@ -5044,8 +5045,8 @@ Public Class ClsPaginas
Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object) Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object)
'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente 'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks) Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
'Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
Session.Add(VSKey, pviewState) 'Store the ViewState on Cache 'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey) ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
End Sub End Sub
@@ -5055,11 +5056,11 @@ Public Class ClsPaginas
If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it. If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it.
Throw New Exception(String.Format("Invalid VIEWSTATE Key: {0}", VSKey)) Throw New Exception(String.Format("Invalid VIEWSTATE Key: {0}", VSKey))
End If End If
If Session(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío If Cache(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
Response.Redirect(Request.RawUrl) Response.Redirect(Request.RawUrl)
Return Nothing Return Nothing
Else Else
Return Session(VSKey) Return Cache(VSKey)
End If End If
End Function End Function
@@ -5267,6 +5268,8 @@ Public Class ClsPaginas
params.Add(param) params.Add(param)
Next Next
Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
wsreport = Nothing
params = Nothing
Else Else
If IsNothing(MR) Then MR = New ReportViewer If IsNothing(MR) Then MR = New ReportViewer
Try Try
@@ -5339,6 +5342,7 @@ Public Class ClsPaginas
End If End If
sw.Stop() sw.Stop()
If sw.Elapsed.TotalSeconds > 5 Then If sw.Elapsed.TotalSeconds > 5 Then
GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ")
End If End If
@@ -5591,7 +5595,7 @@ Public Class ClsPaginas
HttpContext.Current.Response.SuppressContent = True HttpContext.Current.Response.SuppressContent = True
HttpContext.Current.ApplicationInstance.CompleteRequest() HttpContext.Current.ApplicationInstance.CompleteRequest()
HttpContext.Current.Response.End() HttpContext.Current.Response.End()
bytes = Nothing
Catch ex As Exception Catch ex As Exception
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
@@ -7246,6 +7250,20 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
End If End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim ObjCuentasBancos As New ClsGenerales()
If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
Dim CuentasStr As New StringBuilder("")
For Each CuentasBancarios As DataRow In CuentasActivas.Rows
Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString)
Dim infoCuenta As String = String.Format("<br>{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe)
CuentasStr.AppendFormat(infoCuenta)
Next
params.Add(New ReportParameter("Cuentas", CuentasStr.ToString))
End If
ObjCuentasBancos.Dispose()
End If
'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol)) Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))

4
App_Code/ClsVentas.vb
View File

@@ -339,7 +339,8 @@ Public Class ClsVentas
Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1,
Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoNotificacion As String = "") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_VentasAdd") DataAdapter("PA_VentasAdd")
@@ -428,6 +429,7 @@ Public Class ClsVentas
.Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
.Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion .Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion
.Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
.Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With

9
App_Code/MyHub.vb
View File

@@ -69,13 +69,4 @@ Public Class MyHub
Public Sub send(name As String, mensaje As String) Public Sub send(name As String, mensaje As String)
Clients.All.broadcastMessage(name, mensaje) Clients.All.broadcastMessage(name, mensaje)
End Sub End Sub
End Class
Public Class MyhubUserIdProvider
Implements IUserIdProvider
Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId
Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name)
Return userId.ToString()
End Function
End Class End Class

9
App_Code/Notificaciones.vb
View File

@@ -44,3 +44,12 @@ Public Class Notificaciones
' Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds) ' Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
'End Sub 'End Sub
End Class End Class
Public Class MyhubUserIdProvider
Implements IUserIdProvider
Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId
Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name)
Return userId.ToString()
End Function
End Class

11
App_Code/modExtensiones.vb
View File

@@ -192,10 +192,10 @@ Namespace Extensiones
Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log") Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
Dim ArchivoW As StreamWriter Dim ArchivoW As StreamWriter
Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}" Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
Try Try
ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8) ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException Catch ex As UnauthorizedAccessException
'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
Exit Sub Exit Sub
@@ -544,6 +544,8 @@ Namespace Extensiones
Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia) Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia)
retorno = False retorno = False
End Try End Try
directorioOld.Clear()
directorioNew.Clear()
Return retorno Return retorno
End Function End Function
<Runtime.CompilerServices.Extension()> <Runtime.CompilerServices.Extension()>
@@ -2044,6 +2046,8 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(sb.ToString()) HttpContext.Current.Response.Write(sb.ToString())
HttpContext.Current.Response.End() HttpContext.Current.Response.End()
sb.Clear()
style.Clear()
End If End If
End Sub End Sub
@@ -2076,6 +2080,8 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(sb.ToString()) HttpContext.Current.Response.Write(sb.ToString())
HttpContext.Current.Response.End() HttpContext.Current.Response.End()
sb.Clear()
style.Clear()
End Sub End Sub
<Runtime.CompilerServices.Extension()> <Runtime.CompilerServices.Extension()>
Public Sub ExportToExcel(datatable As DataTable, NombreArchivoXLSX As String) Public Sub ExportToExcel(datatable As DataTable, NombreArchivoXLSX As String)
@@ -2284,6 +2290,7 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(pdfDoc) HttpContext.Current.Response.Write(pdfDoc)
HttpContext.Current.Response.[End]() HttpContext.Current.Response.[End]()
style.Clear()
End Using End Using
End Using End Using
End Sub End Sub

5
Bancos/IE.aspx.vb
View File

@@ -941,7 +941,8 @@ Partial Class Bancos_IE
HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}" HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
Else Else
HplListaProveedores.NavigateUrl = String.Format("/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}", ObjIE.CveIE) Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={ObjIE.CveIE}")
HplListaProveedores.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", StrEncript)
End If End If
If CveIEDeposito2 > 0 Then If CveIEDeposito2 > 0 Then
divDepositado.Visible = True divDepositado.Visible = True
@@ -2492,7 +2493,7 @@ Partial Class Bancos_IE
'GUARDA COMPROBANTE 'GUARDA COMPROBANTE
If filemove <> "" Then If filemove <> "" Then
filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa))
End If End If
'GUARDA PREPOLIZAS DETALLE [PRIMERO SON LOS CASOS ESPECIALES, AL FINAL (ELSE) LOS CASOS NORMALES] --REEMPLAZA IFs 'GUARDA PREPOLIZAS DETALLE [PRIMERO SON LOS CASOS ESPECIALES, AL FINAL (ELSE) LOS CASOS NORMALES] --REEMPLAZA IFs

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar
'If Archivo.Exists Then 'If Archivo.Exists Then
Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE))) Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
'End If 'End If
Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE) Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE)))
If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza) If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString) Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)

13
Compras/Compras.aspx
View File

@@ -2364,10 +2364,8 @@
<table> <table>
<tr id="TrRembolsoUpdate" runat="server" visible="False"> <tr id="TrRembolsoUpdate" runat="server" visible="False">
<td>Rembolso: <td>Reembolso:
<asp:RadioButtonList ID="RblRembolso" OnSelectedIndexChanged="RblRembolso_SelectedIndexChanged" RepeatDirection="Horizontal" runat="server" AutoPostBack="True"> <asp:RadioButtonList ID="RblRembolso" OnSelectedIndexChanged="RblRembolso_SelectedIndexChanged" RepeatDirection="Horizontal" runat="server" AutoPostBack="True">
<asp:ListItem Value="1">Personal/Empleado</asp:ListItem> <asp:ListItem Value="1">Personal/Empleado</asp:ListItem>
<asp:ListItem Value="2">Caja Chica</asp:ListItem> <asp:ListItem Value="2">Caja Chica</asp:ListItem>
@@ -2554,10 +2552,11 @@
<asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" /> <asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" ValidationGroup="GrpGuardar" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
<asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" /> <asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" />
<br /> <br />
<br /> <br />
<asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" /> <asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
<br /> <br />
<br /> <br />
@@ -3920,8 +3919,8 @@
<div class="row"> <div class="row">
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left"> <div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" /> <asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
<asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolso''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div> </div>
</div> </div>
</div> </div>

4
Compras/Compras.aspx.vb
View File

@@ -10695,7 +10695,6 @@ Partial Class Compras_Compras
'VALIDA UNIDAD DE MEDIDA 'VALIDA UNIDAD DE MEDIDA
If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
'SI UM NO ESTA REGISTRADA 'SI UM NO ESTA REGISTRADA
If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
@@ -10707,6 +10706,8 @@ Partial Class Compras_Compras
'EQUIVALENCIA 'EQUIVALENCIA
If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
'UM NO BASE 'UM NO BASE
@@ -10724,6 +10725,7 @@ Partial Class Compras_Compras
e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
End If End If
DtEquivalencias.Dispose()
End If End If
End If End If

174
Compras/PopUpVerFactura.aspx.vb
View File

@@ -382,6 +382,13 @@ Partial Class PopUpVerFactura
End If End If
End If End If
'Imprime Movimiento de IE
If UrlParametros("OP").ToString = "ImprimeMov" Then
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
End If
End If
'IMPRIME DEPOSITOS CAJA 'IMPRIME DEPOSITOS CAJA
If UrlParametros("OP").ToString = "DC" Then If UrlParametros("OP").ToString = "DC" Then
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
@@ -3922,10 +3929,171 @@ Partial Class PopUpVerFactura
ObjIE.Dispose() ObjIE.Dispose()
End Sub End Sub
Private Sub ImprimeMov(CveIE As Integer)
Dim ObjIE As New ClsBancos()
Dim DtGvRH As New DataTable
Dim DtComprobacion As New DataTable
Dim ParamComprobacion As New DataTable
'Movimientos Relacionados de Comprobacion - Hijo
If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
DtGvRH = ObjIE.DtResultados
End If
If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
ParamComprobacion = ObjIE.DtResultados
End If
Dim ObjMov As New ClsMovimientos
For Each dr As DataRow In DtGvRH.Rows
If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
End If
Next
ObjMov.Dispose()
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter)
If Archivo.Exists Then
If UsuarioActual.CveEmpresa = 72 Then
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
params.Add(New ReportParameter("CveFyE", "0")) '
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
Else
params.Add(New ReportParameter("Numero", "")) '
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
params.Add(New ReportParameter("Elaboro", ""))
params.Add(New ReportParameter("Autorizo", ""))
params.Add(New ReportParameter("ElaboroPuesto", ""))
params.Add(New ReportParameter("AutorizoPuesto", ""))
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
End If
Else
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
End If
Else
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE.DtResultados.Rows.Count > 0 Then
Dim reportDataSetsList As New List(Of ReportDataSource)
Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)")
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
For Each Dr As DataRow In dtMovs.Rows
Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
Next
End If
End If
Mov.Dispose()
Dim rds = New ReportDataSource("DataSet1", dtMovs)
reportDataSetsList.Add(rds)
Dim dtnc As New DataTable
Dim ObjCompra As New ClsCompras()
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
dtnc = ObjCompra.DtResultados
End If
ObjCompra.Dispose()
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
reportDataSetsList.Add(rds2)
dtnc.Dispose()
Dim paramList As New List(Of ReportParameter)
With paramList
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
If Imagen.Exists Then
.Add(New ReportParameter("LogoPath", logouri))
Else
.Add(New ReportParameter("LogoPath", ""))
End If
End With
dtMovs.Dispose()
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
End If
End If
End If
DtGvRH.Dispose()
DtComprobacion.Dispose()
ParamComprobacion.Dispose()
ObjIE.Dispose()
End Sub
#End Region #End Region
#Region "OP = RECIBO DE PAGOS" #Region "OP = RECIBO DE PAGOS"
Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer) Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)

4
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -1432,11 +1432,11 @@ Partial Class Compras_ReembolsosComprobaciones
Dim Mensaje As New StringBuilder Dim Mensaje As New StringBuilder
If CvePrePolizaExcedente > 0 Then If CvePrePolizaExcedente > 0 Then
Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque: <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text) Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque: <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente)))
Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
Else Else
Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIERegistrado) Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado)))
If CvePrePolizaIERegistrado > 0 Then If CvePrePolizaIERegistrado > 0 Then
Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
End If End If

15
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1765,13 +1765,14 @@ Partial Class RegPoliza
Try Try
Select Case Tipo Select Case Tipo
Case "EXCEL" Case "EXCEL"
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") 'Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
Conexion.Open() 'Conexion.Open()
Dim cmd = Conexion.CreateCommand() 'Dim cmd = Conexion.CreateCommand()
cmd.CommandType = CommandType.Text 'cmd.CommandType = CommandType.Text
cmd.CommandText = "Select * FROM [Hoja1$]" 'cmd.CommandText = "Select * FROM [Hoja1$]"
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) 'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
DataAdapter.Fill(dt) 'DataAdapter.Fill(dt)
dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{0}{1}", Ruta, FileName), True)
Case Else Case Else
Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
Exit Sub Exit Sub

20
Default2.aspx Normal file
View File

@@ -0,0 +1,20 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
</asp:Content>

14
Default2.aspx.cs Normal file
View File

@@ -0,0 +1,14 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
public partial class Default2 : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
}

46
Empresas/13/Formatos/OC.rdlc
View File

@@ -3089,6 +3089,46 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Cuentas">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cuentas Bancarias: </Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Cuentas.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cuentas</rd:DefaultName>
<Top>5.72992cm</Top>
<Left>0.20457cm</Left>
<Height>1.34594cm</Height>
<Width>15.48536cm</Width>
<ZIndex>43</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Height>5.19589in</Height> <Height>5.19589in</Height>
<Style /> <Style />
@@ -3403,6 +3443,12 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Cuentas">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="LogoEMD"> <EmbeddedImage Name="LogoEMD">

1247
Empresas/72/Formatos/EntregasPorRealizar.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

48
Empresas/83/Formatos/OC.rdlc
View File

@@ -2986,6 +2986,46 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Cuentas">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cuentas Bancarias: </Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Cuentas.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cuentas</rd:DefaultName>
<Top>5.38277cm</Top>
<Left>0.20457cm</Left>
<Height>1.34594cm</Height>
<Width>15.48536cm</Width>
<ZIndex>42</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Height>5.1933in</Height> <Height>5.1933in</Height>
<Style /> <Style />
@@ -3027,7 +3067,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName> <rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.08114cm</Top> <Top>0.08113cm</Top>
<Left>0.20457cm</Left> <Left>0.20457cm</Left>
<Height>0.46771cm</Height> <Height>0.46771cm</Height>
<Width>6.86562cm</Width> <Width>6.86562cm</Width>
@@ -3396,6 +3436,12 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Cuentas">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="LOGOPrisay3"> <EmbeddedImage Name="LOGOPrisay3">

102
Empresas/Grales/Formatos/RepFacturas.rdlc
View File

@@ -6,6 +6,41 @@
<TablixCorner> <TablixCorner>
<TablixCornerRows> <TablixCornerRows>
<TablixCornerRow> <TablixCornerRow>
<TablixCornerCell>
<CellContents>
<Textbox Name="Textbox3">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Tipo</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
</Border>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCornerCell>
<TablixCornerCell> <TablixCornerCell>
<CellContents> <CellContents>
<Textbox Name="Textbox28"> <Textbox Name="Textbox28">
@@ -47,16 +82,16 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>3.5579cm</Width> <Width>2.36727cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>7.63463cm</Width> <Width>7.23964cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.64509cm</Width> <Width>2.57894cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.86998cm</Width> <Width>2.34081cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -172,7 +207,10 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Switch(Fields!FueValidado.Value = "1","Validado", Fields!FueValidado.Value = "2","Cancelada", Fields!FueValidado.Value = "3","Omitida")</Value> <Value>=Switch(Fields!FueValidado.Value = "1","Validado",
Fields!FueValidado.Value = "2","Cancelada",
Fields!FueValidado.Value = "3","Omitida",
1=1,"No validado")</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
@@ -360,16 +398,19 @@
</SortExpression> </SortExpression>
</SortExpressions> </SortExpressions>
<TablixHeader> <TablixHeader>
<Size>2.33715cm</Size> <Size>2.16269cm</Size>
<CellContents> <CellContents>
<Textbox Name="SerieFolio"> <Textbox Name="TipoComprobante">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!SerieFolio.Value</Value> <Value>=Switch(Fields!TipoComprobante.Value="I","Ingreso",
Fields!TipoComprobante.Value="E","Egreso",
Fields!TipoComprobante.Value="P","Pago"
)</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
@@ -378,7 +419,7 @@
<Style /> <Style />
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>SerieFolio</rd:DefaultName> <rd:DefaultName>TipoComprobante</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -389,16 +430,51 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixHeader> </TablixHeader>
<TablixMembers>
<TablixMember>
<TablixHeader>
<Size>2.33715cm</Size>
<CellContents>
<Textbox Name="SerieFolio">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>SerieFolio</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
</TablixMembers>
</TablixMember> </TablixMember>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Left>0.06614cm</Left> <Left>0.06614cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>19.04475cm</Width> <Width>19.0265cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -805,6 +881,10 @@
<CommandText>/* Local Query */</CommandText> <CommandText>/* Local Query */</CommandText>
</Query> </Query>
<Fields> <Fields>
<Field Name="TipoComprobante">
<DataField>TipoComprobante</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieFolio"> <Field Name="SerieFolio">
<DataField>SerieFolio</DataField> <DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>

4
General/PopUpPaqueteriasGuiasInternas.aspx.cs
View File

@@ -92,14 +92,14 @@ public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas
String Observaciones = TxtObservaciones.Text; String Observaciones = TxtObservaciones.Text;
int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true); UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true);
if (CvePaqueteriaGuia > 0) if (CvePaqueteriaGuia > 0)
{ {
if (CveVenta > 0 || CveSubProyecto > 0 ) if (CveVenta > 0 || CveSubProyecto > 0 )
{ {
TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1); TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1);
} }
} }
else else

2
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -235,7 +235,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{ {
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa); DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
DdlUsuarios.DataBind(); DdlUsuarios.DataBind();
DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
} }
protected void InicializaFechas() protected void InicializaFechas()

2
Inicio.aspx
View File

@@ -1144,7 +1144,7 @@
<br /> <br />
<asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox> <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar" ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar" ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

5
Inventarios/EntradasSalidas.aspx
View File

@@ -1325,7 +1325,7 @@
<ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator> <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
<ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= txtCantidad.ClientID.ToString()%>">Cant</label> <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>
<br /> <br />
</div> </div>
<div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright"> <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
@@ -1342,6 +1342,7 @@
<label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label> <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
<br /> <br />
</div> </div>
<div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false"> <div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox> <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
<label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label> <label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
@@ -1350,7 +1351,7 @@
<div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false"> <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox> <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
<asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" /> <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
<label for="<%= TxtnSerie.ClientID.ToString()%>">Serie Lote</label> <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
<br /> <br />
</div> </div>
<div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false"> <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">

16
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas
'TrLote2.Visible = True 'TrLote2.Visible = True
End If End If
If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True
End If
End If End If
End If End If
@@ -2231,7 +2235,7 @@ Partial Class Inventarios_EntradasSalidas
GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> "" GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> "" GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> "" GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
End If End If
@@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones") TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen")) DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
LkAgregarDetalle.Text = "Actualizar" LkAgregarDetalle.Text = "Actualizar"
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
UpAgregar.Update() UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()") RegistraScript("$('#ModalAgregar').modal()")
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas
TxtnSerie.Text = GvRow.DataKey("Serie") TxtnSerie.Text = GvRow.DataKey("Serie")
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones") TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen")) DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
LkAgregarDetalle.Text = "Actualizar" LkAgregarDetalle.Text = "Actualizar"
UpAgregar.Update() UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()") RegistraScript("$('#ModalAgregar').modal()")
@@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas
Else Else
VisualizaPUExtranjero(False) VisualizaPUExtranjero(False)
End If End If
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
UpAgregar.Update() UpAgregar.Update()
End Sub End Sub

18
Inventarios/EntregaAlmacen.aspx
View File

@@ -242,11 +242,13 @@
</tr> </tr>
<tr> <tr>
<td colspan="2"> <td colspan="2">
<div >
<asp:RadioButton ID="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton> <asp:Panel ID="PnlEntrega" runat="server" Visible="false">
<asp:RadioButton ID="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton> <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
<asp:RadioButton ID="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton> <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
</div> <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
</asp:Panel>
</td> </td>
</tr> </tr>
@@ -718,7 +720,6 @@
<div class="col-md-5" style="text-align: right;"> <div class="col-md-5" style="text-align: right;">
Cantidad Cantidad
</div> </div>
<div class="col-md-7"> <div class="col-md-7">
<asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox> <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -761,8 +762,6 @@
<asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecialDiv"> <asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecialDiv">
Cant.: Cant.:
<asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecialDiv" Text="1" onfocus="this.select();" Width="50px" runat="server"></asp:TextBox> <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecialDiv" Text="1" onfocus="this.select();" Width="50px" runat="server"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtCantidadEspecialDiv" FilterType="Custom, Numbers" ValidChars="." /> <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtCantidadEspecialDiv" FilterType="Custom, Numbers" ValidChars="." />
<br /> <br />
@@ -884,8 +883,7 @@
<tr runat="server" id="RowDimensiones" align="left" visible="true"> <tr runat="server" id="RowDimensiones" align="left" visible="true">
<td class="text-right" style="width: 140px"><b># Cajas:</b></td> <td class="text-right" style="width: 140px"><b># Cajas:</b></td>
<td style="width: 200px"> <td style="width: 200px">
<asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox> <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>
<ajax:MaskedEditExtender ID="MEENoCajas" runat="server" TargetControlID="TxtNoCajas" Mask="9999" MaskType="Number" AcceptNegative="None"></ajax:MaskedEditExtender>
</td> </td>
</tr> </tr>

137
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2,16 +2,14 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports System.Linq
Imports CrystalDecisions.[Shared].Json
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_EntregaAlmacen Partial Class Inventarios_EntregaAlmacen
Inherits ClsPaginas Inherits ClsPaginas
#Region "PROPIEDADES" #Region "PROPIEDADES"
Private Property CveVentaAD As Integer Private Property CveVentaAD As Integer
Get Get
@@ -245,10 +243,10 @@ Partial Class Inventarios_EntregaAlmacen
Set(value As Boolean) Set(value As Boolean)
ViewState("EsDevolucionDirecta") = value ViewState("EsDevolucionDirecta") = value
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
@@ -256,9 +254,9 @@ Partial Class Inventarios_EntregaAlmacen
CargaParametrosAD() CargaParametrosAD()
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
End If End If
End Sub End Sub
#Region " INICIALIZA VALORES " #Region " INICIALIZA VALORES "
Private Sub InicializaValores() Private Sub InicializaValores()
TipoEstatus = -1 TipoEstatus = -1
@@ -318,6 +316,7 @@ Partial Class Inventarios_EntregaAlmacen
DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString) DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True
CreaDtDetalle() CreaDtDetalle()
CreaDtDetalleLote() CreaDtDetalleLote()
@@ -325,11 +324,11 @@ Partial Class Inventarios_EntregaAlmacen
LimpiaCampos() LimpiaCampos()
End Sub End Sub
#End Region #End Region
#Region " CARGA PARAMETROS - EXCLUSIVO USO AD " #Region " CARGA PARAMETROS - EXCLUSIVO USO AD "
Private Sub CargaParametrosAD() Private Sub CargaParametrosAD()
@@ -347,9 +346,9 @@ Partial Class Inventarios_EntregaAlmacen
BtnGuardar.Visible = False BtnGuardar.Visible = False
End If End If
End Sub End Sub
#End Region #End Region
#Region " CARGA PENDIENTES POR SURTIR " #Region " CARGA PENDIENTES POR SURTIR "
Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaFolios() CargaFolios()
@@ -467,11 +466,11 @@ Partial Class Inventarios_EntregaAlmacen
End Select End Select
UpPendientes.Update() UpPendientes.Update()
End If End If
End Sub End Sub
#End Region #End Region
#Region " CARGA VENTA POR SURTIR " #Region " CARGA VENTA POR SURTIR "
Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs) Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
@@ -917,14 +916,14 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
objInv.Dispose() objInv.Dispose()
GvDocs.DataBind() GvDocs.DataBind()
End Sub End Sub
#End Region #End Region
#Region " AGREGAR " #Region " AGREGAR "
Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
@@ -951,10 +950,10 @@ Partial Class Inventarios_EntregaAlmacen
UpLoteBatch.Update() UpLoteBatch.Update()
End If End If
End Sub End Sub
#Region " AGREGA POR SERIE/LOTE " #Region " AGREGA POR SERIE/LOTE "
Private Sub CreaDtDetalle() Private Sub CreaDtDetalle()
If DtDatosDetalle Is Nothing Then If DtDatosDetalle Is Nothing Then
DtDatosDetalle = New DataTable DtDatosDetalle = New DataTable
@@ -1159,11 +1158,11 @@ Partial Class Inventarios_EntregaAlmacen
DtDatosDetalle.AcceptChanges() DtDatosDetalle.AcceptChanges()
CargaSerie() CargaSerie()
End Sub End Sub
#End Region #End Region
#Region " AGREGA CON LOTE BATCH " #Region " AGREGA CON LOTE BATCH "
Private Sub CreaDtDetalleLote() Private Sub CreaDtDetalleLote()
If DtDatosDetalleLote Is Nothing Then If DtDatosDetalleLote Is Nothing Then
DtDatosDetalleLote = New DataTable DtDatosDetalleLote = New DataTable
@@ -1351,9 +1350,9 @@ Partial Class Inventarios_EntregaAlmacen
End Try End Try
DtDatosDetalleLote.AcceptChanges() DtDatosDetalleLote.AcceptChanges()
CargaLote() CargaLote()
End Sub End Sub
#End Region #End Region
#Region " AGREGA CON TXT | CODIGO - SERIE " #Region " AGREGA CON TXT | CODIGO - SERIE "
Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs) Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
@@ -1487,12 +1486,12 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
TxtCantidadEspecialDiv.Text = "1" TxtCantidadEspecialDiv.Text = "1"
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
@@ -2422,12 +2421,19 @@ Partial Class Inventarios_EntregaAlmacen
Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero() Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = TxtObservacionesPaqInterna.Text Dim Observaciones As String = TxtObservacionesPaqInterna.Text
Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
If CvePaqueteriaGuia > 0 Then If CvePaqueteriaGuia > 0 Then
If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
''manda correo
MandaCorreoEntrega(CveVentaSurtir)
Else
ErrorMovInv = True
End If
End If End If
If ErrorMovInv Then If ErrorMovInv Then
Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError) Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
@@ -2754,6 +2760,53 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub MandaCorreoEntrega(tCveVenta As Integer)
Dim Correo As New ClsSisMail()
Dim SerieFolio As String = ""
Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
Dim Cuerpo As New StringBuilder()
Dim Destinatario As String = ""
Dim MensajeEnviado = False
Dim tCvecliente As Integer
Dim ObjVentas As New ClsVentas()
If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
tCvecliente = dr("CveCliente").ToString.ToEntero
Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
End If
ObjVentas.Dispose()
' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail)
'If (File.Exists(RutaArchivoAdjunto))Then
' {
' ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
' ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
' ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
' ListaAdjuntos.Add(ArchivoAdjunto);
' }
MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
End Sub
Private Sub Limpia() Private Sub Limpia()
'DATOS DE LA VENTA 'DATOS DE LA VENTA
@@ -3050,7 +3103,7 @@ Partial Class Inventarios_EntregaAlmacen
If fi.Exists() Then If fi.Exists() Then
linkDescarga = $"/Empresas/{UsuarioActual.CveEmpresa}/Documentacion/ventas/{fi.Name}" linkDescarga = $"/Empresas/{UsuarioActual.CveEmpresa}/Documentacion/ventas/{fi.Name}"
ImgDownLoad.Visible = True ImgDownLoad.Visible = True
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' ><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga) ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga)
End If End If

17
Inventarios/EntregasPorRealizar.aspx
View File

@@ -15,11 +15,23 @@
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
<%--Paqueterías Guías--%>Entrega Interna Entregas por Realizar
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAccionesComplementos">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click" Style="color: #686868;" Text="<i class='fa fa-pdf' style='color:#686868;'></i> Imprimir"/>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkImprimir"/>
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -70,9 +82,10 @@
&nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" /> &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%"> <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

25
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -6,9 +6,22 @@ using System.Web.UI;
using System.Web.UI.WebControls; using System.Web.UI.WebControls;
using System.Data; using System.Data;
using Extensiones; using Extensiones;
using Microsoft.Reporting.WebForms;
public partial class Inventarios_EntregasPorRealizar : ClsPaginas public partial class Inventarios_EntregasPorRealizar : ClsPaginas
{ {
private DataTable DtPaqueteriasGuias
{
get
{
return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"];
}
set
{
ViewState["DtPaqueteriasGuias"] = value;
}
}
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
{ {
if (!IsPostBack) if (!IsPostBack)
@@ -65,6 +78,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa))
{ {
GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
DtPaqueteriasGuias = ObjGeneral.DtResultados;
GvPaqueteriasGuias.DataBind(); GvPaqueteriasGuias.DataBind();
} }
ObjGeneral.Dispose(); ObjGeneral.Dispose();
@@ -76,4 +90,15 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
DdlUsuario.DataBind(); DdlUsuario.DataBind();
DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
} }
protected void LnkImprimir_Click(object sender, EventArgs e)
{
List<ReportParameter> RepParams = new List<ReportParameter>();
string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
RepParams.Add(new ReportParameter("AsignadoA", Usuario));
RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
}
} }

14
Inventarios/PaquetesArmadoDesarmado.aspx.vb
View File

@@ -713,8 +713,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
e.Row.FCButton("BtnSerieLote").Visible = True e.Row.FCButton("BtnSerie").Visible = True
e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec") e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec")
'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count 'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString 'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
@@ -727,7 +727,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
GvDatosArmado.Columns(4).Visible = True GvDatosArmado.Columns(4).Visible = True
Else Else
e.Row.FCButton("BtnSerieLote").Visible = False e.Row.FCButton("BtnSerie").Visible = False
End If End If
''FUNCIONALIDAD PISTOLA DE CODIGOS ''FUNCIONALIDAD PISTOLA DE CODIGOS
@@ -744,10 +744,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
e.Row.FCButton("BtnSerieLote").Visible = True e.Row.FCButton("BtnSerie").Visible = True
e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
Else Else
e.Row.FCButton("BtnSerieLote").Visible = False e.Row.FCButton("BtnSerie").Visible = False
End If End If
@@ -770,7 +770,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String)) DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String))
End If End If
End Sub End Sub
Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs) Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)

5
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen
CveImportacionSurtir = pCveImportacion CveImportacionSurtir = pCveImportacion
CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero
CveImportacionCompra = DdlFactura.SelectedValue.ToEntero CveImportacionCompra = DdlFactura.SelectedValue.ToEntero
LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString
HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString
If UsuarioActual.TienePermisoProceso(201) Then If UsuarioActual.TienePermisoProceso(201) Then
HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}" HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}"
@@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
Dim UsaComplementariaCostoIndirecto As Boolean = False Dim UsaComplementariaCostoIndirecto As Boolean = False
Dim ConceptoPrePoliza As String = LbProveedor.Text
If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
'SE REGISTRAN LAS PREPOLIZAS 'SE REGISTRAN LAS PREPOLIZAS
If Not ErrorMovInv Then If Not ErrorMovInv Then
CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim DtTempCompras As DataTable = Nothing Dim DtTempCompras As DataTable = Nothing
PorcentajeCompraImportacion = 1 PorcentajeCompraImportacion = 1
If CveFleteSurtir > 0 Then If CveFleteSurtir > 0 Then

60
Inventarios/RepMovimientosSalida.aspx
View File

@@ -63,21 +63,68 @@
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
<div runat="server" id="Div1" class="col-md-1">
<asp:DropDownList ID="DdlGrupo" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Detalle" Value="1"></asp:ListItem>
<asp:ListItem Text="Cliente" Value="2"></asp:ListItem>
<asp:ListItem Text="Cliente sin desglosar mostrador" Value="3"></asp:ListItem>
<asp:ListItem Text="Centro Costo" Value="4"></asp:ListItem>
<asp:ListItem Text="Clasificaciones" Value="5"></asp:ListItem>
<asp:ListItem Text="Centro Costo-Clasificaciones" Value="6"></asp:ListItem>
<asp:ListItem Text="Clasificaciones-Centro Costo" Value="7"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body" style="display: none">
<div class="row">
<label class="col-md-1 ">Cliente:</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
</ADS:Dropdownlost>
</div>
<label class="col-md-1 truncate">Clasificación:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-12" style="vertical-align: middle;" align="left">
<div style="z-index: 5; position: relative;">
<div id="DivVirtualAdvertencia" clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
<button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
<strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
<asp:Literal Text="Los importes de venta, hacen referencia a los productos que tienen costo" runat="server"></asp:Literal>
</div>
</div>
</div></div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right"> <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<table class="table Widthall "> <table class="table Widthall " id="TbDetalle" runat="server">
<tr> <tr>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 55%; border-right: 3px solid white;">Ventas</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 55%; border-right: 3px solid white;">Ventas</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Movimientos</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Movimientos</td>
@@ -94,6 +141,13 @@
<asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" /> <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<asp:GridView ID="GvGrupo" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" EmptyDataText="No se han encontrado datos con los filtros seleccionados" OnRowDataBound="GvGrupo_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="99%" data-sort="true" AutoGenerateColumns="False">
<Columns>
<asp:BoundField DataField="Grupo" HeaderText="Grupo" ItemStyle-Width="700px" />
<asp:BoundField DataField="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataFormatString="{0:N2}" />
<asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataFormatString="{0:N2}" />
</Columns>
</asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

65
Inventarios/RepMovimientosSalida.aspx.cs
View File

@@ -16,18 +16,50 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
if (!IsPostBack) if (!IsPostBack)
{ {
InicializaValores(); InicializaValores();
}
}
private void InicializaValores()
{
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind();
//Cargo Clasificaciones //Cargo Clasificaciones
DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa); DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
DdlClasificacion.DataBind(); DdlClasificacion.DataBind();
DdlClientes.setEsWebService(true);
}
private void Consulta() private void Consulta()
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString(); {
int tCveCliente = -1; int tCveCliente = -1;
} int tCveGrupo = -1;
if (DdlClientes.SelectedValue.ToEntero() > 0) tCveCliente = DdlClientes.SelectedValue.ToEntero();
if (DdlGrupo.SelectedValue.ToEntero() > 0) tCveGrupo = DdlGrupo.SelectedValue.ToEntero();
ClsInventarios ObjInv = new ClsInventarios(); ClsInventarios ObjInv = new ClsInventarios();
if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
{ {
if (tCveGrupo == 1)
GvDatos.DataSource = ObjInv.DtResultados; GvDatos.DataSource = ObjInv.DtResultados;
else
GvGrupo.DataSource = ObjInv.DtResultados;
}
ObjInv.Dispose();
GvDatos.DataBind();
GvGrupo.DataBind();
UpDatos.Update();
if (DdlGrupo.SelectedValue == "1")
{
TbDetalle.Visible = true;
GvDatos.Visible = true;
GvGrupo.Visible = false;
}
else else
{ {
TbDetalle.Visible = false; TbDetalle.Visible = false;
@@ -48,6 +80,25 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
{ {
if (e.Row.RowIndex == 0) if (e.Row.RowIndex == 0)
{ {
e.Row.Cells[0].Text = "Total";
e.Row.CssClass = "Totales";
}
}
}
protected void GvGrupo_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.RowIndex == 0)
{
e.Row.Cells[0].Text = "Total";
e.Row.CssClass = "Totales";
}
else
{
if (e.Row.DBCampo("Grupo2") == "" && e.Row.DBCampo("Grupo1") != "")
{ {
e.Row.CssClass = "SubTotales"; e.Row.CssClass = "SubTotales";
} }
@@ -55,6 +106,14 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
} }
} }
public override void VerifyRenderingInServerForm(Control control) public override void VerifyRenderingInServerForm(Control control)
{
//base.VerifyRenderingInServerForm(control);
}
protected void LnkExcel_Click(object sender, EventArgs e)
{
if (DdlGrupo.SelectedValue == "1")
{
GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual); GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual);
} }

2
Inventarios/ResguardoMaterial.aspx
View File

@@ -208,7 +208,7 @@
<th width="40%">Clasificación<br /> <th width="40%">Clasificación<br />
Producto </th> Producto </th>
<th width="10%">U.M.</th> <th width="10%">U.M.</th>
<th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie - Lote</th> <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie</th>
<th style="width: 10%;">Observaciones</th> <th style="width: 10%;">Observaciones</th>
<th width="10%"></th> <th width="10%"></th>
</tr> </tr>

51
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -84,22 +84,6 @@ Partial Class Inventarios_ResguardoMaterial
End Property End Property
Private Property DtSeccionAlmacen As DataTable
Get
Return CType(ViewState("DtSeccionAlmacen"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtSeccionAlmacen") = value
End Set
End Property
Private Property IndexSeccionAlmacen As Integer
Get
Return CType(ViewState("IndexSeccionAlmacen"), Integer)
End Get
Set(value As Integer)
ViewState("IndexSeccionAlmacen") = value
End Set
End Property
Private Property CantidadTotal As Decimal Private Property CantidadTotal As Decimal
Get Get
Return CType(ViewState("CantidadTotal"), Decimal) Return CType(ViewState("CantidadTotal"), Decimal)
@@ -174,7 +158,6 @@ Partial Class Inventarios_ResguardoMaterial
GvM.DataBind() GvM.DataBind()
CantidadTotal = 0 CantidadTotal = 0
IndexSeccionAlmacen = 0
CvePS = 0 CvePS = 0
TipoSeccionAlmacen = 0 TipoSeccionAlmacen = 0
@@ -379,7 +362,7 @@ Partial Class Inventarios_ResguardoMaterial
#End Region #End Region
#Region " EISTENCIAS " #Region " EXISTENCIAS "
Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1") As Double Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1") As Double
Dim Inv As New ClsInventarios Dim Inv As New ClsInventarios
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie) Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie)
@@ -481,10 +464,10 @@ Partial Class Inventarios_ResguardoMaterial
Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then 'If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
e.Row.FCLinkButton("lnkRemove").Visible = False ' e.Row.FCLinkButton("lnkRemove").Visible = False
e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen" ' e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
End If 'End If
End If End If
End Sub End Sub
#End Region #End Region
@@ -502,7 +485,6 @@ Partial Class Inventarios_ResguardoMaterial
DdlAlmacen.SelectedValueExist("-1") DdlAlmacen.SelectedValueExist("-1")
DdlAlmacenDestino.SelectedValueExist("-1") DdlAlmacenDestino.SelectedValueExist("-1")
DtSeccionAlmacen.Rows.Clear()
TxtObservaciones.Text = "" TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString TxtFecha.Text = Now.ToShortDateString
@@ -595,8 +577,6 @@ Partial Class Inventarios_ResguardoMaterial
FechaLiberacion = TxtFechaLiberacion.Text FechaLiberacion = TxtFechaLiberacion.Text
BtnGuardarLiberacion.Visible = True BtnGuardarLiberacion.Visible = True
DtSeccionAlmacen.Rows.Clear()
UpGeneralesLibreacion.Update() UpGeneralesLibreacion.Update()
Else Else
Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -633,8 +613,6 @@ Partial Class Inventarios_ResguardoMaterial
LbFechaLiberacion.Text = "" LbFechaLiberacion.Text = ""
FechaLiberacion = "" FechaLiberacion = ""
BtnGuardarLiberacion.Visible = False BtnGuardarLiberacion.Visible = False
DtSeccionAlmacen.Rows.Clear()
DdlAlmacenDestinoLiberacion.SelectedValue = "-1" DdlAlmacenDestinoLiberacion.SelectedValue = "-1"
TxtObservacionesLiberacion.Text = "" TxtObservacionesLiberacion.Text = ""
@@ -685,14 +663,6 @@ Partial Class Inventarios_ResguardoMaterial
Alert(TextoExistencia.ToString, TipoMensaje.MsgError) Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
End If End If
Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
Guardar(23) Guardar(23)
End Sub End Sub
@@ -724,13 +694,6 @@ Partial Class Inventarios_ResguardoMaterial
Exit Sub Exit Sub
End If End If
If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
Guardar(24) Guardar(24)
@@ -824,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Gvr As GridViewRow In GvMLiberacion.Rows For Each Gvr As GridViewRow In GvMLiberacion.Rows
If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
TieneError = True TieneError = True
Exit For Exit For
@@ -846,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Cont = 0 Cont = 0
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de entrada" MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

9
Metronic/assets/admin/layout/css/custom.css
View File

@@ -2656,7 +2656,14 @@ select.select2-offscreen, select.select2-offscreen:focus {
content: "Arrastre el archivo"; content: "Arrastre el archivo";
color: #808080; color: #808080;
font-size: 30px; font-size: 30px;
margin-top: 80px; margin-top: 15px;
}
.addropzone.dz-clickable:after {
position: absolute;
content: "o presione doble click";
color: #808080;
font-size: 30px;
margin-top: 45px;
} }
.mypaste { .mypaste {

100
Nomina/Nomina2.aspx
View File

@@ -70,26 +70,29 @@
<asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server"><i class="fa fa-upload" aria-hidden="true"></i>Cargar Nomina</asp:HyperLink> <asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar nómina</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server"><i class="fa fa-columns" aria-hidden="true"></i>Tablas</asp:LinkButton> <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de Asistencia</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton> <asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de raya</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga Asistencia</asp:LinkButton> <asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server"><i class="fa fa-upload" aria-hidden="true"></i>Cargar masiva de conceptos</asp:HyperLink>
</li> </li>
<li> <li>
<asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Asistencia</asp:HyperLink> <asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server"><i class="fa fa-columns" aria-hidden="true"></i>Tablas de cálculo</asp:LinkButton>
</li>
<li>
<asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Ir a asistencia</asp:HyperLink>
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkListaRaya" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
<li>
<asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de Raya</asp:LinkButton>
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -209,7 +212,7 @@
</div> </div>
</div> </div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom "> <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound" <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto,NomAutorizado" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None"
data-rows="1"> data-rows="1">
<Columns> <Columns>
@@ -402,10 +405,12 @@
<div class="row"> <div class="row">
<div class="col-md-2 bold">No. Trabajador</div> <div class="col-md-2 bold">No. Trabajador</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label></div> <asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Días Trabajados</div> <div class="col-md-2 bold">Días Trabajados</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblDiasLaborados" runat="server"></asp:Label></div> <asp:Label ID="LblDiasLaborados" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Afi IMSS </div> <div class="col-md-2 bold">Afi IMSS </div>
@@ -414,39 +419,48 @@
</div> </div>
<div class="col-md-2 bold">Faltas</div> <div class="col-md-2 bold">Faltas</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblDiasFaltados" runat="server"></asp:Label></div> <asp:Label ID="LblDiasFaltados" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">R.F.C.</div> <div class="col-md-2 bold">R.F.C.</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblRFC" runat="server"></asp:Label></div> <asp:Label ID="LblRFC" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Retardos</div> <div class="col-md-2 bold">Retardos</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblDiasRetardos" runat="server"></asp:Label></div> <asp:Label ID="LblDiasRetardos" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Curp</div> <div class="col-md-2 bold">Curp</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblCURP" runat="server"></asp:Label></div> <asp:Label ID="LblCURP" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Días Vacaciones</div> <div class="col-md-2 bold">Días Vacaciones</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label></div> <asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Tipo de Pago</div> <div class="col-md-2 bold">Tipo de Pago</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label></div> <asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Días Incapacidad</div> <div class="col-md-2 bold">Días Incapacidad</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label></div> <asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Fecha de Pago</div> <div class="col-md-2 bold">Fecha de Pago</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label></div> <asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Periodo del</div> <div class="col-md-2 bold">Periodo del</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblFecha" runat="server"></asp:Label></div> <asp:Label ID="LblFecha" runat="server"></asp:Label>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -951,6 +965,20 @@
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-download font-green"></i>
<span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body rowpadding text-center">
<asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
</div>
</div>
<%-- -recuerda Solo editar de las tercer fila en adelante.<br /> <%-- -recuerda Solo editar de las tercer fila en adelante.<br />
-No se debe editar el nombre de la hoja 'Nomina'.<br /> -No se debe editar el nombre de la hoja 'Nomina'.<br />
-la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br /> -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
@@ -958,24 +986,38 @@
-si no desea insertar un concepto puede borrar la columna.<br /> -si no desea insertar un concepto puede borrar la columna.<br />
-no se debe borrar la columna codigo.<br />--%> -no se debe borrar la columna codigo.<br />--%>
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox> <div class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-upload font-green"></i>
<span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body rowpadding ">
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
</div>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkFormatoEmpleados" OnClick="LnkFormatoEmpleados_Click" Visible="false" CssClass="btn btn-succes" runat="server">Formato</asp:LinkButton> <asp:LinkButton ID="LnkFormatoEmpleados" OnClick="LnkFormatoEmpleados_Click" Visible="false" CssClass="btn btn-succes" runat="server">Formato</asp:LinkButton>
<asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server">Formato</asp:LinkButton> <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
<asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">cargar</asp:LinkButton>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="LnkFormatoEmpleados" /> <asp:PostBackTrigger ControlID="LnkFormatoEmpleados" />
<asp:PostBackTrigger ControlID="LnkFormato" />
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkFormato" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
@@ -990,14 +1032,14 @@
<h4 class="modal-title" runat="server" style="text-align: left">Cargar asistencia del periodo</h4> <h4 class="modal-title" runat="server" style="text-align: left">Cargar asistencia del periodo</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input" > <div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList> <asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlEjerciciosCM">Ejercicio:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlEjerciciosCM">Ejercicio:</asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;"> <asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo:</asp:Label>
</div> </div>

18
Nomina/Nomina2.aspx.cs
View File

@@ -625,6 +625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int CvePeriodo = e.Row.DataKey("CvePeriodo").ToEntero(); int CvePeriodo = e.Row.DataKey("CvePeriodo").ToEntero();
int CveNomina = e.Row.DataKey("CveNomina").ToEntero(); int CveNomina = e.Row.DataKey("CveNomina").ToEntero();
string SeTimbro = e.Row.DataKey("SeTimbro").ToString(); string SeTimbro = e.Row.DataKey("SeTimbro").ToString();
string NomAutorizado = e.Row.DataKey("NomAutorizado").ToString();
string Nombre = e.Row.DataKey("Nombre").ToString(); string Nombre = e.Row.DataKey("Nombre").ToString();
string Turno = e.Row.DataKey("Turno").ToString(); string Turno = e.Row.DataKey("Turno").ToString();
string SubProyecto = e.Row.DataKey("SubProyecto").ToString(); string SubProyecto = e.Row.DataKey("SubProyecto").ToString();
@@ -634,15 +635,24 @@ public partial class Nomina_Nomina2 : ClsPaginas
LtlNombre.Text = String.Format("<a class=\"Texto\" href=\"/RH/Personal.aspx?CvePersonal={0}\">{1}</a>", cvePersonal, Nombre); LtlNombre.Text = String.Format("<a class=\"Texto\" href=\"/RH/Personal.aspx?CvePersonal={0}\">{1}</a>", cvePersonal, Nombre);
if (CveNomina > 0) if (CveNomina > 0)
{ {
if (SeTimbro == "False") if (NomAutorizado == "False")
{ {
LnkTimbrar.Visible = true;
e.Row.CssClass = "info";
} }
else else
{ {
e.Row.CssClass = "success"; if (SeTimbro == "False")
{
LnkTimbrar.Visible = true;
e.Row.CssClass = "info";
}
else
{
e.Row.CssClass = "success";
}
} }
} }

8
OC/RepSolicitudesAnticipo.aspx
View File

@@ -16,6 +16,9 @@
<li> <li>
<asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exporta Excel</asp:LinkButton> <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exporta Excel</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkImpresionMasiva" OnClick="LnkImpresionMasiva_Click" runat="server"> <i class="fa fa-download" style="font-weight:bold;"></i> Descargar PDFs</asp:LinkButton>
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content> </asp:Content>
@@ -34,7 +37,8 @@
<label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label> <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label>
<div class="col-md-2" runat="server"> <div class="col-md-2" runat="server">
<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList> <%--<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>--%>
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
</div> </div>
<label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label> <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label>
@@ -92,7 +96,7 @@
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSolicitudes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSolicitudes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
<asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre" <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre"
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
EmptyDataText="No se encontraron registros"> EmptyDataText="No se encontraron registros">
<Columns> <Columns>

58
OC/RepSolicitudesAnticipo.aspx.cs
View File

@@ -9,7 +9,11 @@ using System.Web.UI.WebControls;
using Extensiones; using Extensiones;
using Microsoft.Reporting.WebForms; using Microsoft.Reporting.WebForms;
using static Extensiones.ModExtensiones; using static Extensiones.ModExtensiones;
using iTextSharp;
using iTextSharp.text;
using iTextSharp.text.pdf;
using System.IO;
using Ionic.Zip;
public partial class OC_RepSolicitudesAnticipo : ClsPaginas public partial class OC_RepSolicitudesAnticipo : ClsPaginas
{ {
#region "Propiedades" #region "Propiedades"
@@ -66,6 +70,8 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void InicializaDatos() protected void InicializaDatos()
{ {
txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
CveProveedor = -1; CveProveedor = -1;
CargaProveedor(); CargaProveedor();
CargaDatos(); CargaDatos();
@@ -73,17 +79,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void CargaProveedor() protected void CargaProveedor()
{ {
DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); DdlProveedores.setEsWebService(true);
DdlProveedor.DataBind(); DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); DdlProveedores.SelectedText = "Seleccione";
DdlProveedor.SelectedValue = "-1"; DdlProveedores.SelectedValue = "-1";
} }
protected void CargaDatos() protected void CargaDatos()
{ {
ClsOC ObjOC = new ClsOC(); ClsOC ObjOC = new ClsOC();
CveProveedor = DdlProveedor.SelectedValue.ToEntero(); CveProveedor = DdlProveedores.SelectedValue.ToEntero();
FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha); FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha);
FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now); FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now);
@@ -124,6 +130,10 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
{ {
GenerarPDF("PDF"); GenerarPDF("PDF");
} }
protected void LnkImpresionMasiva_Click(object sender,EventArgs e)
{
GenerarImpresionMasiva();
}
protected void GenerarPDF(String Opcion) protected void GenerarPDF(String Opcion)
{ {
@@ -132,7 +142,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
String FechaF; String FechaF;
if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; } if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
String Proveedor; String Proveedor;
if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; } if (DdlProveedores.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedores.ddl.SelectedItem.Text}"; } else { Proveedor = ""; }
String Estatus; String Estatus;
if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; } if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; }
@@ -161,4 +171,38 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia); Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia);
} }
} }
private void GenerarImpresionMasiva()
{
byte[] all;
using (MemoryStream ms = new MemoryStream())
{
using (Document d = new Document())
{
using (PdfCopy copy = new PdfCopy(d,ms))
{
d.Open();
foreach (GridViewRow Gvr in GvSolicitudes.Rows)
{
int CveOC = Gvr.DataKey("CveOrdenCompra").ToEntero();
byte[] reporteByte = NewGeneraBytesOC(CveOC);
PdfReader reader = new PdfReader(reporteByte);
int n = reader.NumberOfPages;
int page = 0;
while (page < n)
{
page++;
copy.AddPage(copy.GetImportedPage(reader, page));
}
}
}
}
all = ms.ToArray();
}
ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
}
} }

4
OI/ConvocatoriaDetalle.aspx.cs
View File

@@ -519,7 +519,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
CveEventoMinuta = CveEvento; CveEventoMinuta = CveEvento;
LnkOpenModalAsistencia.Visible = true; LnkOpenModalAsistencia.Visible = true;
UpAcciones.Update(); UpAcciones.Update();
this.Alert(string.Format("Se ha iniciado la minuta<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); this.Alert(string.Format("Se ha iniciado la minuta, si desea ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">Click Aquí</a>.", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0);
LnkOpenModalAsistencia_Click(null, null); LnkOpenModalAsistencia_Click(null, null);
} }
} }
@@ -561,7 +561,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
{ {
if (CveEventoMinuta > 0) if (CveEventoMinuta > 0)
{ {
Alert(string.Format("se ingresó la asistencia correctamente.<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEventoMinuta)); Alert(string.Format("Se ingresó la asistencia correctamente, si desea ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">Click Aquí</a>.", CveEventoMinuta));
} }
else else
{ {

22
OI/MinutaDetalle.aspx
View File

@@ -115,7 +115,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control TxtAsunto" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control TxtAsunto" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtAsunto"></asp:Label> <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtAsunto"></asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control TxtDescripcion" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox> <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control TxtDescripcion" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -125,7 +125,7 @@
<asp:Panel ID="pnlmiembrosvista" Visible="false" runat="server"> <asp:Panel ID="pnlmiembrosvista" Visible="false" runat="server">
<div class="pnlCorreo" style="margin-bottom: 5px;"> <div class="pnlCorreo" style="margin-bottom: 5px;">
<div class="headerCorreo "> <div class="headerCorreo ">
<h3 class="panel-title ">Moderador:</h3> <h3 class="panel-title ">Moderador</h3>
</div> </div>
<div class="bodycorreos "> <div class="bodycorreos ">
<asp:Literal ID="LtlDeUser" runat="server"></asp:Literal> <asp:Literal ID="LtlDeUser" runat="server"></asp:Literal>
@@ -133,7 +133,7 @@
</div> </div>
<div class="pnlCorreo" style="margin-bottom: 5px;"> <div class="pnlCorreo" style="margin-bottom: 5px;">
<div class="headerCorreo "> <div class="headerCorreo ">
<h3 class="panel-title ">Participantes:</h3> <h3 class="panel-title ">Participantes</h3>
</div> </div>
<div class="bodycorreos "> <div class="bodycorreos ">
<asp:Literal ID="LtlCCPara" runat="server"></asp:Literal> <asp:Literal ID="LtlCCPara" runat="server"></asp:Literal>
@@ -149,8 +149,8 @@
</asp:Panel> </asp:Panel>
<div class="text-center"> <div class="text-center">
<asp:LinkButton ID="LnkGuardar" runat="server" OnClick="LnkGuardar_Click" CssClass="btn btn-primary">Guardar</asp:LinkButton> <asp:LinkButton ID="LnkGuardar" runat="server" OnClick="LnkGuardar_Click" CssClass="btn btn-primary">Guardar</asp:LinkButton>
<asp:LinkButton ID="LnkEnviarMinuta" Visible="false" runat="server" OnClick="LnkEnviarMinuta_Click" CssClass="btn btn-primary">Enviar Minuta</asp:LinkButton> <asp:LinkButton ID="LnkEnviarMinuta" Visible="false" runat="server" OnClick="LnkEnviarMinuta_Click" CssClass="btn btn-primary">Enviar minuta</asp:LinkButton>
<asp:LinkButton ID="LnkTerminar_EnviarMinuta" Visible="false" runat="server" OnClick="LnkTerminarMinuta_Click" CssClass="btn btn-primary LnkTerminarMinuta">Terminar y Enviar Minuta</asp:LinkButton> <asp:LinkButton ID="LnkTerminar_EnviarMinuta" Visible="false" runat="server" OnClick="LnkTerminarMinuta_Click" CssClass="btn btn-primary LnkTerminarMinuta">Terminar y enviar minuta</asp:LinkButton>
</div> </div>
</div> </div>
@@ -284,7 +284,7 @@
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button> <asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>
<asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" CssClass="btn btn-default" runat="server">Agregar</asp:LinkButton> <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton>
<%--<a class="btn btn-default">Agregar</a>--%> <%--<a class="btn btn-default">Agregar</a>--%>
</div> </div>
</div> </div>
@@ -355,7 +355,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTareaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtTareaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTareaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTareaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtTareaAsunto"></asp:Label> <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtTareaAsunto"></asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTareaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox> <asp:TextBox ID="TxtTareaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -393,7 +393,7 @@
<asp:ListItem Text="Alta" Value="3" class="itemalta"></asp:ListItem> <asp:ListItem Text="Alta" Value="3" class="itemalta"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlTareaPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlTareaPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
<asp:Label runat="server" AssociatedControlID="DdlTareaPrioridad">Prioridad:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlTareaPrioridad">Prioridad</asp:Label>
<ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
@@ -402,7 +402,7 @@
<asp:DropDownList ID="DdlTareaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%"> <asp:DropDownList ID="DdlTareaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlTareaPara">Para:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlTareaPara">Para</asp:Label>
</div> </div>
</div> </div>
</div> </div>
@@ -529,7 +529,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAgendaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtAgendaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="rfvAgendaAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAgendaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgenda"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="rfvAgendaAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAgendaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgenda"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtAgendaAsunto"></asp:Label> <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtAgendaAsunto"></asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtAgendaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox> <asp:TextBox ID="TxtAgendaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -593,7 +593,7 @@
<asp:DropDownList ID="DdlAgendaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%"> <asp:DropDownList ID="DdlAgendaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlAgendaPara">Para:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlAgendaPara">Para</asp:Label>
</div> </div>
</div> </div>
</div> </div>

6
OI/MinutaDetalle.aspx.cs
View File

@@ -752,7 +752,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
objOI.IniciaTransacSQL(); objOI.IniciaTransacSQL();
tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino Minuta", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino minuta.", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (tCveSeguimiento > 0) if (tCveSeguimiento > 0)
{ {
@@ -774,7 +774,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
{ {
script = string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEventoPadre={0}\");", RCveEvento); script = string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEventoPadre={0}\");", RCveEvento);
} }
Alert("La minuta se termino con exito.", ModExtensiones.TipoMensaje.MsgInformacion, script); Alert("La minuta ha finalizado.", ModExtensiones.TipoMensaje.MsgInformacion, script);
objOI.Commit(); objOI.Commit();
} }
else else
@@ -800,7 +800,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
protected void LnkEnviarMinuta_Click(object sender, EventArgs e) protected void LnkEnviarMinuta_Click(object sender, EventArgs e)
{ {
EnviarMinuta(); EnviarMinuta();
Alert("La minuta se envió con exito.", ModExtensiones.TipoMensaje.MsgInformacion); Alert("La minuta se envió por correo electronico.", ModExtensiones.TipoMensaje.MsgInformacion);
} }
#region "enviarminuta" #region "enviarminuta"

6
OI/RepReuniones.aspx
View File

@@ -20,10 +20,10 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li> <li>
<asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Convocatoria</asp:HyperLink> <asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva convocatoria</asp:HyperLink>
</li> </li>
<li> <li>
<asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Minuta</asp:HyperLink> <asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva minuta</asp:HyperLink>
</li> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -211,7 +211,7 @@
<%--<asp:Literal ID="LtlParticipantes" runat="server" Text='<%# Eval("Participantes")%>'></asp:Literal>--%> <%--<asp:Literal ID="LtlParticipantes" runat="server" Text='<%# Eval("Participantes")%>'></asp:Literal>--%>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Hora termino" DataField="FechaFin" DataFormatString="{0:HH:mm}" /> <asp:BoundField HeaderText="Hora terminó" DataField="FechaFin" DataFormatString="{0:HH:mm}" />
</Columns> </Columns>
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />

3
OI/RepTareas.aspx.vb
View File

@@ -109,6 +109,7 @@ Partial Class OI_RepTareas
If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario)) DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario))
DTOIEventosTareas = DTOIEventosTareas.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString() ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString()
'BURBUJITAS - BADGE 'BURBUJITAS - BADGE
If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
@@ -176,6 +177,7 @@ Partial Class OI_RepTareas
If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then
DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario)) DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
DTOIEventosTareasCCP = DTOIEventosTareasCCP.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString() ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString()
'BURBUJITAS - BADGE 'BURBUJITAS - BADGE
If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
@@ -243,6 +245,7 @@ Partial Class OI_RepTareas
If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario)) DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
DTOIEventosTareasAsigne = DTOIEventosTareasAsigne.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString() ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString()
'BURBUJITAS - BADGE 'BURBUJITAS - BADGE
If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then

33
OI/TareaDetalle.aspx
View File

@@ -124,6 +124,11 @@
height: 100%; height: 100%;
cursor: not-allowed; cursor: not-allowed;
} }
.porcentajelabel{
color: #ed5565;
font-size: 64px;
font-weight:bold;
}
</style> </style>
<link href="/Metronic/assets/global/plugins/ion.rangeslider/css/ion.rangeSlider.css" rel="stylesheet" type="text/css" /> <link href="/Metronic/assets/global/plugins/ion.rangeslider/css/ion.rangeSlider.css" rel="stylesheet" type="text/css" />
@@ -361,7 +366,10 @@
<asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label>
</div> </div>
<asp:Label ID="lblEstatus" Style="font-size: 25px" runat="server" Text="Label"></asp:Label> <asp:Label ID="lblEstatus" Style="font-size: 25px;position:absolute;" runat="server" Text="Label"></asp:Label>
<div class="text-right porcentajelabel">
<asp:Label ID="LblPorcentaje" CssClass="LblPorcentaje" runat="server" Text="0"></asp:Label>%
</div>
<div class="DivAvance"> <div class="DivAvance">
<asp:Label runat="server" CssClass="labelitem" AssociatedControlID="TxtAvance">Avance:</asp:Label> <asp:Label runat="server" CssClass="labelitem" AssociatedControlID="TxtAvance">Avance:</asp:Label>
<asp:TextBox ID="TxtAvance" runat="server" CssClass="form-control TxtAvance" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtAvance" runat="server" CssClass="form-control TxtAvance" CausesValidation="true"></asp:TextBox>
@@ -371,7 +379,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFechaIng" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtFechaIng" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:Label runat="server" Text="Fecha Registró" AssociatedControlID="TxtFechaIng"></asp:Label> <asp:Label runat="server" Text="Fecha de registro" AssociatedControlID="TxtFechaIng"></asp:Label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtUsuarioreg" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtUsuarioreg" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
@@ -744,15 +752,20 @@
<asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4> <asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input"> <div >
<asp:DropDownList ID="DdlViculos" Visible="true" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged" runat="server" CssClass="form-control select2me input-sm" Width="100%"> <asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label>
<asp:ListItem Value="0" Text="Seleccione" Selected="True"></asp:ListItem> <asp:RadioButtonList ID="DdlViculos" RepeatDirection="Horizontal" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged">
<%--<asp:ListItem Value="1" Text="Activo Fijo"></asp:ListItem>--%>
<asp:ListItem Value="2" Selected="true" Text=" &nbsp;Cliente"></asp:ListItem>
<asp:ListItem Value="3" Text=" &nbsp;Personal"></asp:ListItem>
<asp:ListItem Value="4" Text=" &nbsp;Proveedor"></asp:ListItem>
</asp:RadioButtonList>
<%--<asp:DropDownList ID="DdlViculos" Visible="true" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged" runat="server" CssClass="form-control select2me input-sm" Width="100%">
<asp:ListItem Value="0" Text="Seleccione" Selected="True"></asp:ListItem>
<asp:ListItem Value="2" Text="Cliente"></asp:ListItem> <asp:ListItem Value="2" Text="Cliente"></asp:ListItem>
<asp:ListItem Value="3" Text="Personal"></asp:ListItem> <asp:ListItem Value="3" Text="Personal"></asp:ListItem>
<asp:ListItem Value="4" Text="Proveedor"></asp:ListItem> <asp:ListItem Value="4" Text="Proveedor"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>--%>
<asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label>
</div> </div>
<asp:Panel ID="PnlActivoFijo" Visible="false" runat="server"> <asp:Panel ID="PnlActivoFijo" Visible="false" runat="server">
@@ -830,7 +843,7 @@
</asp:GridView>--%> </asp:GridView>--%>
</asp:Panel> </asp:Panel>
<asp:Panel ID="PnlCliente" CssClass="form-group form-md-line-input" Visible="false" runat="server"> <asp:Panel ID="PnlCliente" CssClass="form-group form-md-line-input" Visible="true" runat="server">
<ADS:Dropdownlost ID="DdlCliente" UsaWebService="true" runat="server" CssStyle="width: 100%;" DataTextField="NombreComercial" DataValueField="CveCliente" CssClass="form-control"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlCliente" UsaWebService="true" runat="server" CssStyle="width: 100%;" DataTextField="NombreComercial" DataValueField="CveCliente" CssClass="form-control"></ADS:Dropdownlost>
<asp:Label runat="server" AssociatedControlID="DdlCliente">Cliente:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlCliente">Cliente:</asp:Label>
<%-- <asp:GridView ID="GvClientes" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Clientes registrados" <%-- <asp:GridView ID="GvClientes" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Clientes registrados"
@@ -1141,7 +1154,7 @@
step: .01, step: .01,
//[disable] //[disable]
onChange: (function () { onChange: (function () {
setTimeout(function () { if ($(".TxtAvance").val() != Valorxyz) { avancecambio = 1 } }, 50); setTimeout(function () { let avance = $(".TxtAvance").val(); if ( avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance)} }, 50);
}) })
}); });
} }

18
OI/TareaDetalle.aspx.cs
View File

@@ -441,7 +441,8 @@ public partial class OI_TareaDetalle : ClsPaginas
BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar"; BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar";
CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero();
CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero();
TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]); TxtAvance.Text = string.Format("{0:##0.##}", drow["Avance"]);
LblPorcentaje.Text = string.Format("{0:##0.##}", drow["Avance"]);
TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]); TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]);
TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy HH}:{0:mm}", drow["FechaIng"]); TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy HH}:{0:mm}", drow["FechaIng"]);
//OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara],
@@ -473,31 +474,31 @@ public partial class OI_TareaDetalle : ClsPaginas
if (CveCliente > 0) if (CveCliente > 0)
{ {
titulo = "Cliente: "; titulo = "Cliente ";
link = string.Format("<a href=\"/Ventas/Clientes.aspx?CveCliente={1}\" class=\"linkCorreo\">{0}</a>", drow["Cliente"], CveCliente); link = string.Format("<a href=\"/Ventas/Clientes.aspx?CveCliente={1}\" class=\"linkCorreo\">{0}</a>", drow["Cliente"], CveCliente);
} }
else if (CveVenta > 0) else if (CveVenta > 0)
{ {
titulo = "Venta: "; titulo = "Venta ";
link = string.Format("<a href=\"/Ventas/Ventas.aspx?CveVenta={1}\" class=\"linkCorreo\">{0} </a>", drow["Venta"], CveVenta); link = string.Format("<a href=\"/Ventas/Ventas.aspx?CveVenta={1}\" class=\"linkCorreo\">{0} </a>", drow["Venta"], CveVenta);
} }
else if (CveProveedor > 0) else if (CveProveedor > 0)
{ {
titulo = "proveedor: "; titulo = "Proveedor ";
link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Proveedor"], CveProveedor); link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Proveedor"], CveProveedor);
} }
else if (CveCompra > 0) else if (CveCompra > 0)
{ {
titulo = "Compra: "; titulo = "Compra ";
link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra); link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
} }
else if (CvePersonal > 0) else if (CvePersonal > 0)
{ {
titulo = "Personal: "; titulo = "Personal ";
link = string.Format("<a href=\"/RH/Personal.aspx?CvePersonal={1}\" class=\"linkCorreo\">{0} </a>", drow["NombreCompleto"], CvePersonal); link = string.Format("<a href=\"/RH/Personal.aspx?CvePersonal={1}\" class=\"linkCorreo\">{0} </a>", drow["NombreCompleto"], CvePersonal);
} }
else if (CveActivoFijo > 0) else if (CveActivoFijo > 0)
@@ -1269,7 +1270,8 @@ public partial class OI_TareaDetalle : ClsPaginas
{ {
if (objoi.DtResultados.Rows.Count > 0) if (objoi.DtResultados.Rows.Count > 0)
{ {
LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString();
LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal());
} }
cargaActividades(objoi); cargaActividades(objoi);
@@ -1300,7 +1302,7 @@ public partial class OI_TareaDetalle : ClsPaginas
this.Alert("Avance Actualizadó", ModExtensiones.TipoMensaje.ToastInformacion); this.Alert("Avance Actualizadó", ModExtensiones.TipoMensaje.ToastInformacion);
} }
UpTitulo.Update(); //UpTitulo.Update();
} }
protected void LnkAddTtemaB_Click(object sender, EventArgs e) protected void LnkAddTtemaB_Click(object sender, EventArgs e)

21
OI/UnoaUno.aspx
View File

@@ -153,7 +153,7 @@
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle magindate"> <div class="portlet-title portlet-filterT smalltitle magindate">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" /> <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardaruuCaptura" />
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<ul class="list-inline text-size-12"> <ul class="list-inline text-size-12">
@@ -166,8 +166,8 @@
</span> </span>
<ajax:MaskedEditExtender ID="MEETxtCFecha" runat="server" TargetControlID="TxtCFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEETxtCFecha" runat="server" TargetControlID="TxtCFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEETxtCFecha" TargetControlID="TxtCFecha" PopupButtonID="LnkFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CEETxtCFecha" TargetControlID="TxtCFecha" PopupButtonID="LnkFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardaruuCaptura"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator> <asp:CompareValidator ID="CVTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardaruuCaptura"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VcoTxtCFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -187,7 +187,7 @@
<br /> <br />
<asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox> <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar." ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar." ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -288,17 +288,17 @@
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="PnlCuestionario" runat="server" DefaultButton="LnkGuardarCuestionario"> <asp:Panel ID="PnlCuestionario" runat="server" DefaultButton="LnkGuardarCuestionario">
<div class="portlet light smmallpadding bordered"> <div class="portlet light smmallpadding bordered">
<div class="portlet-title"> <div class="portlet-title" style="margin-bottom: 3px;">
<div class="caption font-green"> <div class="caption font-green">
<i class="fa fa-list font-green"></i> <i class="fa fa-list font-green"></i>
<span class="caption-subject bold uppercase">Cuestionario</span> <span class="caption-subject bold uppercase">Cuestionario</span>
<div class="msgAyuda" style="white-space: nowrap;">Selecciona un cuestionario existente, o bien, genera uno nuevo</div>
</div> </div>
<div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div> <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
<div class="actions"> <div class="actions">
<div class="btn-group"></div> <div class="btn-group"></div>
</div> </div>
</div> </div>
<div class="msgAyuda" style="white-space: nowrap;">Selecciona un cuestionario existente, o bien, genera uno nuevo</div>
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<asp:DropDownList ID="DdlCuestionario" CssClass="form-control input-sm select2me " runat="server" DataTextField="Cuestionario" DataValueField="CveUnoaUnoCuestionario" Style="width: 100%" OnSelectedIndexChanged="DdlCuestionario_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlCuestionario" CssClass="form-control input-sm select2me " runat="server" DataTextField="Cuestionario" DataValueField="CveUnoaUnoCuestionario" Style="width: 100%" OnSelectedIndexChanged="DdlCuestionario_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
<%--<asp:DropDownList ID="DdlCuestionario" CssClass="form-control select2me" runat="server"></asp:DropDownList>--%> <%--<asp:DropDownList ID="DdlCuestionario" CssClass="form-control select2me" runat="server"></asp:DropDownList>--%>
@@ -308,7 +308,7 @@
<asp:TextBox ID="TxtCuestionario" CssClass="form-control TxtCuestionario" runat="server"></asp:TextBox> <asp:TextBox ID="TxtCuestionario" CssClass="form-control TxtCuestionario" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtCuestionario">Cuestionario:</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtCuestionario">Cuestionario:</asp:Label>
<asp:RequiredFieldValidator ID="RfvCuestionario" runat="server" ControlToValidate="TxtCuestionario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuestionario''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCuestionario"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvCuestionario" runat="server" ControlToValidate="TxtCuestionario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuestionario''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCuestionario"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoCuestionario" runat="server" HighlightCssClass="vco" TargetControlID="RfvCuestionario"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoCuestionario" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvCuestionario"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="form-group form-md-line-input" style="display: none;"> <div class="form-group form-md-line-input" style="display: none;">
@@ -454,7 +454,7 @@
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row"> <asp:Panel runat="server" DefaultButton="LnkFechaSeguir" CssClass="row">
<div class="col-md-4 text-left"> <div class="col-md-4 text-left">
<asp:LinkButton ID="lnkAtras" OnClick="lnkAtras_Click" CssClass="btn btn-default" runat="server">< Anterior</asp:LinkButton> <asp:LinkButton ID="lnkAtras" OnClick="lnkAtras_Click" CssClass="btn btn-default" runat="server">< Anterior</asp:LinkButton>
@@ -481,7 +481,7 @@
<asp:LinkButton ID="LnkAdelante" OnClick="LnkAdelante_Click" CssClass="btn btn-default" runat="server">Siguiente ></asp:LinkButton> <asp:LinkButton ID="LnkAdelante" OnClick="LnkAdelante_Click" CssClass="btn btn-default" runat="server">Siguiente ></asp:LinkButton>
</div> </div>
</div> </asp:Panel>
<div class="" data-always-visible="1" data-rail-visible="0"> <div class="" data-always-visible="1" data-rail-visible="0">
<asp:GridView ID="gvPregResSiguiendoA" runat="server" GridLines="None" CssClass="Widthall" AutoGenerateColumns="False" ShowHeader="false"> <asp:GridView ID="gvPregResSiguiendoA" runat="server" GridLines="None" CssClass="Widthall" AutoGenerateColumns="False" ShowHeader="false">
<Columns> <Columns>
@@ -489,7 +489,8 @@
<ItemTemplate> <ItemTemplate>
<div style="padding-bottom: 15px;"> <div style="padding-bottom: 15px;">
<asp:Label CssClass="lnkUserBlack" runat="server" Text='<%# Eval("Pregunta")%>'> </asp:Label><br /> <asp:Label CssClass="lnkUserBlack" runat="server" Text='<%# Eval("Pregunta")%>'> </asp:Label><br />
<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Respuesta")%>'> </asp:Label> <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Enabled="false" Rows="3" runat="server"></asp:TextBox>
<%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Respuesta")%>'> </asp:Label>--%>
<%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Fecha","ultima Actualización: {0:dd/MM/yyyy}")%>'> </asp:Label>--%> <%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Fecha","ultima Actualización: {0:dd/MM/yyyy}")%>'> </asp:Label>--%>
</div> </div>
</ItemTemplate> </ItemTemplate>

4
Ventas/Clientes.aspx
View File

@@ -605,12 +605,12 @@
<label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label> <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false" >
<asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/> <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/>
<label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label> <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/> <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/>
<label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label> <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
</div> </div>

7
Ventas/Clientes.aspx.vb
View File

@@ -1667,7 +1667,7 @@ Partial Class Clientes
End If End If
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
Else Else
Existe = False Existe = False
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
@@ -5622,6 +5622,11 @@ Partial Class Clientes
CobranzaTelefono = "" CobranzaTelefono = ""
CodigoCliente = "" CodigoCliente = ""
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
divCorreoEntregaCompras.Visible = True
divCorreoEntregaAlmacen.Visible = True
End If
End Sub End Sub
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click

2
Ventas/RepIngresos.aspx.vb
View File

@@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
TCEspecifico = -1 TCEspecifico = -1
TipoCambio = 2 TipoCambio = 1
CveSubProyecto = -1 CveSubProyecto = -1
TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year) TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year)
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)

8
Ventas/Ventas.aspx
View File

@@ -3259,7 +3259,7 @@
<tr align="left"> <tr align="left">
<td> <td>
<asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td> <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td>
</tr> </tr>
<tr id="TrOC" runat="server"> <tr id="TrOC" runat="server">
<td>Orden de Compra: &nbsp; <td>Orden de Compra: &nbsp;
<asp:TextBox ID="TxtOrdenCompra" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtOrdenCompra" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
@@ -3287,10 +3287,10 @@
<td>Kilometraje&nbsp; <td>Kilometraje&nbsp;
<asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td> <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
</tr> </tr>
<tr align="left"> <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
<td id="Td1" runat="server">Correo Notificaciones:&nbsp;</td> <td id="Td1" runat="server">Correo Notificacion:&nbsp;</td>
</tr> </tr>
<tr align="left"> <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
<td> <td>
<asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td> <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
</tr> </tr>

8
Ventas/Ventas.aspx.vb
View File

@@ -1854,8 +1854,10 @@ Partial Class Ventas
thPredial2.Visible = True thPredial2.Visible = True
End If End If
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA
TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();") TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();")
trCorreoNotif1.Visible = True
trCorreoNotif2.Visible = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then
@@ -3936,6 +3938,8 @@ Partial Class Ventas
TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2) TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2)
TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2)
TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString()
If TxtRetIVA.Text.ToDecimal() > 0 Then If TxtRetIVA.Text.ToDecimal() > 0 Then
TrRetIVA.Style.Add("display", "") TrRetIVA.Style.Add("display", "")
UsuarioActual.Empresa.MostrarRetIVA = True UsuarioActual.Empresa.MostrarRetIVA = True
@@ -13775,7 +13779,7 @@ Partial Class Ventas
End If End If
Dim PorcentajePrecio As Double = 0 Dim PorcentajePrecio As Double = 0
If PrecioSugerido = 0 Then If PrecioSugerido = 0 AndAlso CveCliente > 0 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
If CvePrecioListaPS > 0 Then If CvePrecioListaPS > 0 Then
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios

4
asmx/WSSIGApp.asmx
View File

@@ -2049,7 +2049,7 @@ Public Class WSSIGApp
Return TmpDT Return TmpDT
End Function End Function
Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer, Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer,
Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow
@@ -2083,7 +2083,7 @@ Public Class WSSIGApp
Row("Proyecto") = DrSubProyecto("Proyecto").ToString() Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
Row("CveSubProyecto") = CveSubProyecto Row("CveSubProyecto") = CveSubProyecto
Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString() Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
Row("SerieLote") = SerieLote Row("Serie") = Serie
Row("TiempoEntrega") = TiempoEntrega Row("TiempoEntrega") = TiempoEntrega
Row("Orden") = TmpDT.Rows.Count + 1 Row("Orden") = TmpDT.Rows.Count + 1
Row("Cantidad") = PS.Cantidad Row("Cantidad") = PS.Cantidad