From 2535217c2b5cff8587d5fa58d94e253407967052 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Nov 2019 10:15:16 -0700 Subject: [PATCH 1/4] --- App_Code/Modelos.vb | 28 +- App_Code/modExtensiones.vb | 29 +- Ashx/SIGFacturacion.ashx | 2 +- Contratos/FacturacionMasiva.aspx.vb | 2 +- LogMail.txt | 2 +- LogTimbrado.txt | 6 + OC/RepCotizacionesDetalle.aspx | 739 ++++++++++++++-------------- OC/RepCotizacionesDetalle.aspx.vb | 174 ++++--- Ventas/Clientes.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- asmx/WSApp.asmx | 2 +- asmx/WSSIGApp.asmx | 2 +- 12 files changed, 522 insertions(+), 468 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 2295f8946..c71136040 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5041,7 +5041,21 @@ Namespace Modelos Public Property Inv_CveEstatusEntrega As Integer Public Property Inv_EstatusEntrega As String Public Property Inv_ValorInventario As Decimal - Public Property Fecha As DateTime + Public Property Fecha As DateTime + + Public ReadOnly Property FechaCP As DateTime + Get + If Me.SubProyecto IsNot Nothing Then + If Now.EsHorarioVerano Then + Return DateTime.UtcNow.AddHours(Me.SubProyecto.UTCOffsetVerano) + Else + Return DateTime.UtcNow.AddHours(Me.SubProyecto.UTCOffsetInvierno) + End If + Else + Return Fecha + End If + End Get + End Property Public Property FechaVencimiento As DateTime Public Property EstatusFactura As String Public Property SeTimbro As String @@ -8486,6 +8500,8 @@ Namespace Modelos FormatoFactura = "" SubProyecto = "" Correo = "" + UTCOffsetVerano = -7 + UTCOffsetInvierno = -7 End Sub Public Sub New() MyBase.New() @@ -8502,9 +8518,11 @@ Namespace Modelos Estado = Row("Estado").ToString Pais = Row("Pais").ToString CP = Row("CP").ToString - SubProyecto = Row("SubProyecto").ToString + SubProyecto = Row("SubProyecto").ToString + UTCOffsetVerano = Row("UTCOffsetVerano").ToString.ToEntero() + UTCOffsetInvierno = Row("UTCOffsetInvierno").ToString.ToEntero() End If - 'SetValues(Row) + End Sub Public ReadOnly Property LugarExp As String @@ -8531,7 +8549,9 @@ Namespace Modelos Public Property SubProyecto As String Public Property Correo As String Public Property Telefono As String - Public Property ImprimeNombre As String + Public Property ImprimeNombre As String + Public Property UTCOffsetVerano As Integer + Public Property UTCOffsetInvierno As Integer End Class diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 2c12cc557..11b2f7c26 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -434,7 +434,7 @@ Namespace Extensiones Return retorno End Function - Public Function FilesMove(oldName As String, newName As String, newDirectorio As String) As Boolean + Public Function FilesMove(oldName As String, newName As String, newDirectorio As String, Optional Sobreescribir As Boolean = False) As Boolean Dim retorno As Boolean = True Dim directorioOld As New StringBuilder Dim directorioNew As New StringBuilder @@ -451,7 +451,7 @@ Namespace Extensiones directorioNew.Append(newName) Try - My.Computer.FileSystem.MoveFile(directorioOld.ToString, directorioNew.ToString) + My.Computer.FileSystem.MoveFile(directorioOld.ToString, directorioNew.ToString, Sobreescribir) Catch ex As Exception Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia) retorno = False @@ -3100,6 +3100,31 @@ Namespace Extensiones Dim origin As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, 0) Return origin.AddSeconds(timestamp) End Function + + Public Function GetLastWeekdayOfMonth(ByVal fecha As DateTime, day As DayOfWeek) As DateTime + Dim lastDayOfMonth As DateTime = New DateTime(fecha.Year, fecha.Month, 1).AddMonths(1).AddDays(-1) + Dim wantedDay As Integer = CInt(day) + Dim lastDay As Integer = CInt(lastDayOfMonth.DayOfWeek) + Return lastDayOfMonth.AddDays(If(lastDay >= wantedDay, wantedDay - lastDay, wantedDay - lastDay - 7)) + End Function + + Public Function GetFirstWeekdayOfMonth(ByVal fecha As DateTime, day As DayOfWeek) As DateTime + Dim result As DateTime = New DateTime(fecha.Year, fecha.Month, 1) + + While result.DayOfWeek <> day + result = result.AddDays(1) + End While + + Return result + End Function + + Public Function EsHorarioVerano(ByVal fecha As DateTime) As Boolean + Dim Year As Integer = fecha.Year + Dim FechaI As DateTime = New DateTime(Year, 4, 1, 0, 0, 0).GetFirstWeekdayOfMonth(DayOfWeek.Sunday) 'PRIMER DOMINGO DE ABRIL + Dim FechaF As DateTime = New DateTime(Year, 10, 1, 23, 59, 59).GetLastWeekdayOfMonth(DayOfWeek.Sunday) 'ULTIMO DOMINGO DE OCTUBRE + + Return fecha >= FechaI AndAlso fecha <= FechaF + End Function End Module #End Region diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 1246aac36..43af054f9 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -416,7 +416,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index d6d18aef3..7155797ae 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -668,7 +668,7 @@ Partial Class Contratos_FacturacionMasiva Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT diff --git a/LogMail.txt b/LogMail.txt index 9e13f1f3c..1040cc9c6 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,4 @@ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2 - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario. en System.Net.Mail.SmtpClient.Send(MailMessage message) - en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0 10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0 11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:02 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Permiso para Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:03 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 20/09/2019:05:15 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29109' - CCP: '' - Adjuntos: 1 20/09/2019:05:36 p. m. No se especifico a remitente - Entrega de Factura HMO - 29110 20/09/2019:05:45 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29111' - CCP: '' - Adjuntos: 1 20/09/2019:05:47 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29112' - CCP: '' - Adjuntos: 1 23/09/2019:10:55 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Solicitud de anticipo de Orden de Compra' - CCP: '' - Adjuntos: 0 23/09/2019:11:05 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 23/09/2019:11:34 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 25/09/2019:05:06 p. m. No se especifico a remitente - SIG - La Orden Compra #4860 cambió de estatus. 04/10/2019:12:09 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 83 17/10/2019:12:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1488 cambió de estatus.' - CCP: '' - Adjuntos: 0 17/10/2019:12:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1488 cambió de estatus.' - CCP: 'japmx95@gmail.com;;' - Adjuntos: 0 17/10/2019:12:10 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 17/10/2019:12:39 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 17/10/2019:07:07 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1489 cambió de estatus.' - CCP: '' - Adjuntos: 0 17/10/2019:07:07 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1489 cambió de estatus.' - CCP: 'japmx95@gmail.com;;' - Adjuntos: 0 17/10/2019:07:07 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 17/10/2019:07:11 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 17/10/2019:07:14 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Recepción de Material de OC ' - CCP: '' - Adjuntos: 0 21/10/2019:10:50 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 90 21/10/2019:10:53 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 91 21/10/2019:10:53 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 92 21/10/2019:10:59 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 93 21/10/2019:11:03 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 94 21/10/2019:07:01 p. m. No se especifico a remitente - SIG. Requisición #30796 Bitacora 21/10/2019:07:02 p. m. No se especifico a remitente - SIG. Requisición #30796 Bitacora 21/10/2019:07:18 p. m. No se especifico a remitente - SIG. Requisición #31573 Bitacora 21/10/2019:07:35 p. m. No se especifico a remitente - SIG - La Requisicion #31706 cambió de estatus. 21/10/2019:07:35 p. m. No se especifico a remitente - SIG - La Requisicion #31706 cambió de estatus. 21/10/2019:07:36 p. m. No se especifico a remitente - SIG - La Requisición #31706 cambió de estatus. 21/10/2019:07:36 p. m. No se especifico a remitente - SIG. Requisición #31706 Modificada 21/10/2019:07:37 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 21/10/2019:07:37 p. m. No se especifico a remitente - SIG - La Requisición #31706 se le ha asignado 21/10/2019:07:41 p. m. No se especifico a remitente - SIG - La Requisicion #31707 cambió de estatus. 21/10/2019:07:41 p. m. No se especifico a remitente - SIG - La Requisicion #31707 cambió de estatus. 21/10/2019:07:42 p. m. No se especifico a remitente - SIG. Requisición #31707 Bitacora 22/10/2019:09:25 a. m. No se especifico a remitente - SIG. Requisición #31697 Bitacora 22/10/2019:04:50 p. m. No se especifico a remitente - SIG - La Requisicion #31708 cambió de estatus. 22/10/2019:04:50 p. m. No se especifico a remitente - SIG - La Requisicion #31708 cambió de estatus. 22/10/2019:05:03 p. m. No se especifico a remitente - SIG. Requisición #31708 Modificada 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'arnoldopc@hotmail.com' - Asunto:'SIG - La Requisición #31816 cambió de estatus.' - CCP: '' - Adjuntos: 0 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'arnoldopc@hotmail.com' - Asunto:'SIG. Requisición #31816 Modificada' - CCP: '' - Adjuntos: 0 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'rene.molina@adsistemas.mx;' - Asunto:'SIG - Se Genero una Orden de Compra' - CCP: '' - Adjuntos: 1 29/10/2019:12:51 p. m. No se especifico a remitente - SIG - La Orden Compra #30034 cambió de estatus. 30/10/2019:10:09 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 30/10/2019:10:10 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Recepción de Material de OC ' - CCP: '' - Adjuntos: 0 04/11/2019:11:03 a. m. From:'signotificaciones@adssistemas.mx' - Para:'janeth_borchardt@hotmail.com;janethborchardt94@gmail.com' - Asunto:'Desactivación de cliente ACUACULTURA BIOTECNOLOGICA SA DE CV' - CCP: '' - Adjuntos: 0 04/11/2019:11:09 a. m. From:'signotificaciones@adssistemas.mx' - Para:'janeth_borchardt@hotmail.com;janeth_borchardt94@hotmail.com' - Asunto:'Activación de cliente ACUACULTURA BIOTECNOLOGICA SA DE CV' - CCP: '' - Adjuntos: 0 \ No newline at end of file + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0 10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0 11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:02 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Permiso para Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:03 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 20/09/2019:05:15 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29109' - CCP: '' - Adjuntos: 1 20/09/2019:05:36 p. m. No se especifico a remitente - Entrega de Factura HMO - 29110 20/09/2019:05:45 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29111' - CCP: '' - Adjuntos: 1 20/09/2019:05:47 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29112' - CCP: '' - Adjuntos: 1 23/09/2019:10:55 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Solicitud de anticipo de Orden de Compra' - CCP: '' - Adjuntos: 0 23/09/2019:11:05 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 23/09/2019:11:34 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 25/09/2019:05:06 p. m. No se especifico a remitente - SIG - La Orden Compra #4860 cambió de estatus. 04/10/2019:12:09 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 83 17/10/2019:12:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1488 cambió de estatus.' - CCP: '' - Adjuntos: 0 17/10/2019:12:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1488 cambió de estatus.' - CCP: 'japmx95@gmail.com;;' - Adjuntos: 0 17/10/2019:12:10 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 17/10/2019:12:39 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 17/10/2019:07:07 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1489 cambió de estatus.' - CCP: '' - Adjuntos: 0 17/10/2019:07:07 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - La Orden Compra #1489 cambió de estatus.' - CCP: 'japmx95@gmail.com;;' - Adjuntos: 0 17/10/2019:07:07 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 17/10/2019:07:11 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 17/10/2019:07:14 p. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Recepción de Material de OC ' - CCP: '' - Adjuntos: 0 21/10/2019:10:50 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 90 21/10/2019:10:53 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 91 21/10/2019:10:53 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 92 21/10/2019:10:59 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 93 21/10/2019:11:03 a. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 94 21/10/2019:07:01 p. m. No se especifico a remitente - SIG. Requisición #30796 Bitacora 21/10/2019:07:02 p. m. No se especifico a remitente - SIG. Requisición #30796 Bitacora 21/10/2019:07:18 p. m. No se especifico a remitente - SIG. Requisición #31573 Bitacora 21/10/2019:07:35 p. m. No se especifico a remitente - SIG - La Requisicion #31706 cambió de estatus. 21/10/2019:07:35 p. m. No se especifico a remitente - SIG - La Requisicion #31706 cambió de estatus. 21/10/2019:07:36 p. m. No se especifico a remitente - SIG - La Requisición #31706 cambió de estatus. 21/10/2019:07:36 p. m. No se especifico a remitente - SIG. Requisición #31706 Modificada 21/10/2019:07:37 p. m. No se especifico a remitente - SIG - Se Genero una Orden de Compra 21/10/2019:07:37 p. m. No se especifico a remitente - SIG - La Requisición #31706 se le ha asignado 21/10/2019:07:41 p. m. No se especifico a remitente - SIG - La Requisicion #31707 cambió de estatus. 21/10/2019:07:41 p. m. No se especifico a remitente - SIG - La Requisicion #31707 cambió de estatus. 21/10/2019:07:42 p. m. No se especifico a remitente - SIG. Requisición #31707 Bitacora 22/10/2019:09:25 a. m. No se especifico a remitente - SIG. Requisición #31697 Bitacora 22/10/2019:04:50 p. m. No se especifico a remitente - SIG - La Requisicion #31708 cambió de estatus. 22/10/2019:04:50 p. m. No se especifico a remitente - SIG - La Requisicion #31708 cambió de estatus. 22/10/2019:05:03 p. m. No se especifico a remitente - SIG. Requisición #31708 Modificada 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'arnoldopc@hotmail.com' - Asunto:'SIG - La Requisición #31816 cambió de estatus.' - CCP: '' - Adjuntos: 0 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'arnoldopc@hotmail.com' - Asunto:'SIG. Requisición #31816 Modificada' - CCP: '' - Adjuntos: 0 24/10/2019:01:46 p. m. From:'signotificaciones@adssistemas.mx' - Para:'rene.molina@adsistemas.mx;' - Asunto:'SIG - Se Genero una Orden de Compra' - CCP: '' - Adjuntos: 1 29/10/2019:12:51 p. m. No se especifico a remitente - SIG - La Orden Compra #30034 cambió de estatus. 30/10/2019:10:09 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 30/10/2019:10:10 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com;' - Asunto:'Recepción de Material de OC ' - CCP: '' - Adjuntos: 0 04/11/2019:11:03 a. m. From:'signotificaciones@adssistemas.mx' - Para:'janeth_borchardt@hotmail.com;janethborchardt94@gmail.com' - Asunto:'Desactivación de cliente ACUACULTURA BIOTECNOLOGICA SA DE CV' - CCP: '' - Adjuntos: 0 04/11/2019:11:09 a. m. From:'signotificaciones@adssistemas.mx' - Para:'janeth_borchardt@hotmail.com;janeth_borchardt94@hotmail.com' - Asunto:'Activación de cliente ACUACULTURA BIOTECNOLOGICA SA DE CV' - CCP: '' - Adjuntos: 0 06/11/2019:11:44 a. m. No se especifico a remitente - Entrega de Factura MATRIZ HM-1504 06/11/2019:11:53 a. m. No se especifico a remitente - Entrega de Factura MATRIZ HM-1505 06/11/2019:11:57 a. m. No se especifico a remitente - Entrega de Factura MATRIZ HM-1506 06/11/2019:06:05 p. m. No se especifico a remitente - SIG. Requisición #31835 Bitacora \ No newline at end of file diff --git a/LogTimbrado.txt b/LogTimbrado.txt index 4d2db01dc..4a1f04964 100644 --- a/LogTimbrado.txt +++ b/LogTimbrado.txt @@ -16,3 +16,9 @@ .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199 ..01/10/2019:12:27 a. m. .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885 ..01/10/2019:12:27 a. m. + + .. PAC: 2 - Verificado : (332) 332 Armado: (228) 560 Guardado: (284) 844 Timbrado: (2434) 3278 Actualizado: (367) 3645 ..06/11/2019:11:44 a. m. + + .. PAC: 2 - Verificado : (207) 207 Armado: (233) 440 Guardado: (200) 640 Timbrado: (1745) 2385 Actualizado: (175) 2560 ..06/11/2019:11:53 a. m. + + .. PAC: 2 - Verificado : (197) 197 Armado: (220) 417 Guardado: (233) 650 Timbrado: (1795) 2445 Actualizado: (172) 2617 ..06/11/2019:11:57 a. m. diff --git a/OC/RepCotizacionesDetalle.aspx b/OC/RepCotizacionesDetalle.aspx index a5960e571..eeecd680b 100644 --- a/OC/RepCotizacionesDetalle.aspx +++ b/OC/RepCotizacionesDetalle.aspx @@ -1,374 +1,351 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCotizacionesDetalle.aspx.vb" Inherits="PopOCCotizacionesDetalle" %> - -<%--<%@ MasterType VirtualPath="~/Site.master" %>--%> - - - - - - - - - - - - - - - - - - - - - -
Carga de Cotizaciones
- -
- -
- -
-
- - <%--PROVEEDORES--%> -
-
- -
-
- Proveedores -
-
-
-
- -
-
- -
- - - - - - - - - -
- -
- - -
-
- - -
- - - - - -
-
- - - -
- - -
-
- - <%--ARCHIVO--%> -
- Archivo: - [HplArchivo] -   -
- - Seleccionar Archivo - -
- -
- -
-
- - <%--DATOS DE COTIZACION--%> -
- -
- -
-
- Datos contización -
-
-
-
- -
-
- -
- - - - - - - - - - - - - - - - - - - -
- -
- - - - -
- -
- -
- - - - - - - - - - -
-
- -
- -
-
- -
- -
-
-
-
-
- -
- -
- -
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%----%> - - -
-
- -
- -
-
- - -
-
- - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCotizacionesDetalle.aspx.vb" Inherits="PopOCCotizacionesDetalle" %> + +<%--<%@ MasterType VirtualPath="~/Site.master" %>--%> + + + + + + + + + + + + + + + + +
Carga de Cotizaciones
+
+
+
+ + +
+ +
+
+ Proveedores +
+
+
+
+ +
+
+ +
+ + + + + + + + + +
+ +
+ + +
+
+ + +
+ + + + + +
+
+
+
+
+
+
+ Archivo +
+
+
+ +
+ +
+
+
+ +
+
+ + + + + +
+
+
+
+
+ Datos contización +
+
+
+
+ +
+
+
+ + + + + + + + + + + + + + + + + +
+ +
+ + + + +
+ +
+ +
+ + + + + + + + + + +
+
+ +
+ +
+
+ +
+ +
+
+
+
+
+
+ + +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%----%> + + +
+
+
+
+
+ + +
+
+ + + + - + + diff --git a/OC/RepCotizacionesDetalle.aspx.vb b/OC/RepCotizacionesDetalle.aspx.vb index ba8f2d67d..e2829799f 100644 --- a/OC/RepCotizacionesDetalle.aspx.vb +++ b/OC/RepCotizacionesDetalle.aspx.vb @@ -2,13 +2,14 @@ Option Explicit On Imports System.Data +Imports System.Net Imports Extensiones Partial Class PopOCCotizacionesDetalle - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "Propiedades" - + Friend Property EsNuevo As Boolean Get EsNuevo = DirectCast(ViewState("EsNuevo"), Boolean) @@ -43,11 +44,20 @@ Partial Class PopOCCotizacionesDetalle Set(ByVal value As DataTable) ViewState("DtDetalle") = value End Set - End Property - + End Property + Private Property Adjunto As String + Get + Adjunto = ViewState("Adjunto").ToString + End Get + Set(value As String) + ViewState("Adjunto") = value + End Set + End Property + + #End Region - - + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -76,9 +86,9 @@ Partial Class PopOCCotizacionesDetalle BtnEliminar.Visible = True End If End If - End Sub - - + End Sub + + #Region " INICIALIZA VALORES - CARGA COMBOS " Protected Sub CargaProveedoresClasificaciones() CboClasificacionProveedor.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa) @@ -97,11 +107,11 @@ Partial Class PopOCCotizacionesDetalle Protected Sub CargaMonedas() ddlMoneda.DataSource = GlobalDTMonedas() ddlMoneda.DataBind() - End Sub - + End Sub + #End Region - - + + #Region "C A R G A D A T O S " Private Sub CargaOCDetalle(pCveOrden As Integer) Dim objOC As New ClsOC @@ -129,11 +139,10 @@ Partial Class PopOCCotizacionesDetalle TxtFecha.Text = objCotizacion.Fecha.ToShortDateString ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString - + Adjunto = objCotizacion.Adjunto If objCotizacion.Adjunto <> "" Then - HplArchivo.NavigateUrl = String.Format("/Empresas/{0}/Cotizaciones/{1}", UsuarioActual.CveEmpresa, objCotizacion.Adjunto) - HplArchivo.Text = String.Format("Descargar", IO.Path.GetExtension(objCotizacion.Adjunto).Replace("."c, "")) 'ImageUrl = String.Format("/Imagenes/{0}.png", IO.Path.GetExtension(Cot.NombreArchivo).Replace("."c, "")) - HplArchivo.Visible = True + 'HplArchivo.NavigateUrl = String.Format("/Empresas/{0}/Cotizaciones/{1}", UsuarioActual.CveEmpresa, objCotizacion.Adjunto) + LnkArchivo.Visible = True End If If objCotizacion.GetCotizacionesDetalle(pCveCotizacion) Then @@ -155,7 +164,7 @@ Partial Class PopOCCotizacionesDetalle TxtDiasCredito.Enabled = False TxtFecha.Enabled = False TxtFolio.Enabled = False - FUArchivo.Enabled = False + 'FUArchivo.Enabled = False If UsuarioActual.TienePermisoProceso(146) Then GvDC.Enabled = True @@ -164,61 +173,71 @@ Partial Class PopOCCotizacionesDetalle End If BtnGuardar.Enabled = False - End Sub + End Sub #End Region - - + + #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim objCotizacion As New ClsOC objCotizacion.IniciaTransacSQL() - Dim TieneError = False - - + Dim TieneError = False + + Dim FileExtension As String = "" + Dim Filesgral As List(Of Archivo) = TxtArchivo.getfiles().Archivos + Dim Filename As String = "" + For Each fileItem As Archivo In Filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)) '.Replace(".", "") + Filename = fileItem.filename + Next + Try If EsNuevo Then - If objCotizacion.AddCotizacion(CveOrdenCompra, CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then - If FUArchivo.HasFile Then - 'verificar que exista el directorio - If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then - System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) - End If - FUArchivo.SaveAs(String.Format("{0}/Empresas/{1}/Cotizaciones/{2}{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, objCotizacion.CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName))) + If objCotizacion.AddCotizacion(CveOrdenCompra, CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, + TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then + + 'verificar que exista el directorio + If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then + System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) + End If + + If Filename <> "" Then + Filename.FilesMove(objCotizacion.CveCotizacion.ToString(), String.Format("Empresas\{0}\Cotizaciones", UsuarioActual.CveEmpresa)) End If + For Each dr As GridViewRow In GvDC.Rows - TieneError = Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, dr.DataKey("CvePS").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.DataKey("Cantidad").ToDouble, dr.DataKey("CveUnidadMedida").ToEntero, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString, dr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero) + TieneError = Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, dr.DataKey("CvePS").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.DataKey("Cantidad").ToDouble, + dr.DataKey("CveUnidadMedida").ToEntero, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, + If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", + dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString, dr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero) If TieneError = True Then Exit For Next End If Else - Dim NombreArchivo As String = "" - - If objCotizacion.UpdateCotizacion(CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then - - If FUArchivo.HasFile Then - 'verificar que exista el directorio - If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then - System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) - End If - FUArchivo.SaveAs(String.Format("{0}/Empresas/{1}/Cotizaciones/{2}{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName))) - NombreArchivo = CveCotizacion & IO.Path.GetExtension(FUArchivo.FileName) + If objCotizacion.UpdateCotizacion(CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then + + 'verificar que exista el directorio + If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then + System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) + End If + + If Filename <> "" Then + Filename.FilesMove(CveCotizacion.ToString(), String.Format("Empresas\{0}\Cotizaciones", UsuarioActual.CveEmpresa)) End If For Each dr As GridViewRow In GvDC.Rows If dr.DataKey("CveCotizacionDetalle").ToEntero > 0 Then TieneError = Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, dr.FCTextBox("txtFechaEntrega").Text, dr.FCTextBox("txtObservacion").Text.ToString) Else - Dim strTemp = dr.DataKey("CveOrdenCompraDetalle").ToString If dr.FCTextBox("txtCantidadSurtir").Text.ToString.ToDouble > 0 Then If dr.FCTextBox("TxtPU").Text.ToDouble > 0 Then TieneError = Not objCotizacion.AddCotizacionDetalle(CveCotizacion, dr.DataKey("CvePS").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.DataKey("Cantidad").ToDouble, dr.DataKey("CveUnidadMedida").ToEntero, dr.FCTextBox("txtCantidadSurtir").Text.ToString.ToDouble, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString, dr.DataKey("CveOrdenCompraDetalle").ToEntero) End If - End If If TieneError = True Then Exit For Next @@ -229,38 +248,25 @@ Partial Class PopOCCotizacionesDetalle End If Catch ex As Exception TieneError = True - objCotizacion.RollBack() OnError("Se presento un error al guardar la cotización", ex) - End Try - - If Not TieneError Then - objCotizacion.Commit() Alert(If(EsNuevo, "Cotización Guardada.", "Cotización Actualizada."), TipoMensaje.MsgInformacion) - Else - Try - objCotizacion.RollBack() - Catch ex As Exception - OnError("Error al intetar hace RollBack", ex) - End Try - - - - + Else + objCotizacion.RollBack() End If objCotizacion.Dispose() RegistraScript("Ir();") - End Sub + End Sub #End Region - - - - + + + + #Region " ELIMINAR " Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim objCotizacion As New ClsOC @@ -274,10 +280,10 @@ Partial Class PopOCCotizacionesDetalle objCotizacion.Dispose() RegistraScript("Ir();") - End Sub + End Sub #End Region - - + + #Region " G V D " Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDC.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -365,10 +371,30 @@ Partial Class PopOCCotizacionesDetalle 'e.Row.Attributes.Add("data-validadores", ValidadoresId) - Dim asdasdasd As String = "" - End If - End Sub + Dim asdasdasd As String = "" + End If + End Sub #End Region - - + + + Protected Sub LnkArchivo_Click(sender As Object, e As EventArgs) + If Not String.IsNullOrEmpty(Adjunto) Then + Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, "Cotizaciones\" & Adjunto) + Dim Archivo As New System.IO.FileInfo(filePath) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + System.IO.Path.GetFileName(filePath)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(filePath) + HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + + Archivo = Nothing + End If + End If + + End Sub End Class diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 88835c8aa..0434a039d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9409,7 +9409,7 @@ Partial Class Clientes Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7b9a65473..56c155112 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8338,7 +8338,7 @@ Partial Class Ventas Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 685e55e7f..0c92d6bd9 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -803,7 +803,7 @@ Public Class WSApp Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index a9f62a494..febee922a 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -2142,7 +2142,7 @@ Public Class WSSIGApp Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT From fb772cb31e2cd4c980a03b72b8018c20b1072d20 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 8 Nov 2019 09:30:50 -0700 Subject: [PATCH 2/4] Metodo para informacion de eventos en el servicio web --- App_Code/ClsTSoft.vb | 19 +++ App_Code/WsTSoft.vb | 245 --------------------------- Sistemas/PopUpAddUsuario.aspx | 17 +- asmx/WsTSoft.asmx | 303 +++++++++++++++++++++++++++++++++- 4 files changed, 336 insertions(+), 248 deletions(-) delete mode 100644 App_Code/WsTSoft.vb diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb index a32fc01e2..dabf2e49f 100644 --- a/App_Code/ClsTSoft.vb +++ b/App_Code/ClsTSoft.vb @@ -129,6 +129,25 @@ Public Class ClsTSoft OnError("Ocurrió un Error al obtener la información para PENSKE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try + Return Retorno + End Function + Public Function GetInfoEventosPenske(FechaI As DateTime, FechaF As DateTime) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_GPS_GetInfoEventosPenske") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaI + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un Error al obtener la información para PENSKE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno End Function diff --git a/App_Code/WsTSoft.vb b/App_Code/WsTSoft.vb deleted file mode 100644 index f35547537..000000000 --- a/App_Code/WsTSoft.vb +++ /dev/null @@ -1,245 +0,0 @@ -Imports System.Web -Imports System.Web.Services -Imports System.Web.Services.Protocols -Imports System.Collections.Generic -Imports System.Linq -Imports Extensiones -Imports Newtonsoft.Json - -' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. -' _ - - - -Public Class WsTSoft - Inherits System.Web.Services.WebService - - - Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String - Dim retorno As String = "" - Dim objTsoft As New ClsTSoft - objTsoft.IniciaTransacSQL() - Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha) - Dim objRem As New addRemisionObj - If Continuar Then - objTsoft.Commit() - objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero() - objRem.CurrentError = "" - Else - objTsoft.RollBack() - objRem.CveRemision = 0 - objRem.CurrentError = objTsoft.MyCurrentError - End If - objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - Return retorno.ToString - End Function - - - Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String - Dim retorno As String = "" - Dim objTsoft As New ClsTSoft - Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus) - Dim objRem As New upEstatusRemisionObj - If Continuar Then - objRem.SeActualizo = 1 - objRem.CurrentError = "" - Else - objRem.SeActualizo = 0 - objRem.CurrentError = objTsoft.MyCurrentError - End If - objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - Return retorno.ToString - End Function - - Public Function GetUltimaPosicion(DevID As String) As String - Dim retorno As String = "" - Dim ObjGPS As New ClsGPS - Dim Continuar As Boolean = ObjGPS.UltimaPosicionEquipoGetWS(DevID) - Dim ObjPos As New LatLng - If Continuar Then - ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString - ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString - Else - ObjPos.CurrentError = "No se pudo obtener la posición." - End If - ObjGPS.Dispose() - retorno = JsonConvert.SerializeObject(ObjPos) - Return retorno.ToString - End Function - - Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String - Dim retorno As String = "" - Dim objTsoft As New ClsTSoft - Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, 6) - Dim objRem As New upEstatusRemisionObj - If Continuar Then - objRem.SeActualizo = 1 - objRem.CurrentError = "" - Else - objRem.SeActualizo = 0 - objRem.CurrentError = objTsoft.MyCurrentError - End If - objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - Return retorno.ToString - End Function - - Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String - Dim retorno As String = "" - Dim objTsoft As New ClsTSoft - Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico) - Dim objRem As New GetRemisionHistorialesObj - If Continuar Then - objRem.Historial = objTsoft.DtResultados.DataTableToObject(Of GetRemisionHistorialsObj) - objRem.CurrentError = "" - Else - objRem.Historial = New List(Of GetRemisionHistorialsObj) - objRem.CurrentError = objTsoft.MyCurrentError - End If - objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - Return retorno.ToString - End Function - - Public Function TieneRemisionesActivas(NoEconomico As String) As String - Dim retorno As String = "" - Dim Continuar As Boolean = False - - Dim ObjTSoft As New ClsTSoft - Continuar = ObjTSoft.TieneRemisionesActivas(NoEconomico) - - Dim objRem As New MTieneRemisiones With - { - .TieneRemisiones = Continuar, - .CurrentError = ObjTSoft.MyCurrentError - } - ObjTSoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - Return retorno - End Function - - Public Class addRemisionObj - Public CveRemision As Integer - Public CurrentError As String - End Class - - Public Class upEstatusRemisionObj - Public SeActualizo As Integer - Public CurrentError As String - End Class - - Public Class MTieneRemisiones - Public TieneRemisiones As Boolean - Public CurrentError As String - End Class - - Public Class LatLng - Public Lat As String - Public Lng As String - Public CurrentError As String - End Class - - Public Class GetRemisionHistorialsObj - Public Property Fecha As DateTime - Public Property FolioRemision As String - Public Property NoEconomico As String - Public Property Lat As String - Public Property Lon As String - Public Property Distancia As String - Public Property TrackingNumber As String - Public Property CveEstatus As Integer - End Class - - Public Class GetRemisionHistorialesObj - Public Historial As List(Of GetRemisionHistorialsObj) - Public CurrentError As String - End Class - - - Public Class ObjRemisiones - - Public Property cveRemisiones() As Integer - Get - Return m_cveRemisiones - End Get - Set - m_cveRemisiones = Value - End Set - End Property - Private m_cveRemisiones As Integer - Public Property folioRemision() As String - Get - Return m_folioRemision - End Get - Set - m_folioRemision = Value - End Set - End Property - Private m_folioRemision As String - Public Property cveDispositivo() As Integer - Get - Return m_cveDispositivo - End Get - Set - m_cveDispositivo = Value - End Set - End Property - Private m_cveDispositivo As Integer - Public Property iMEI() As String - Get - Return m_iMEI - End Get - Set - m_iMEI = Value - End Set - End Property - Private m_iMEI As String - Public Property cveEstatus() As Integer - Get - Return m_cveEstatus - End Get - Set - m_cveEstatus = Value - End Set - End Property - Private m_cveEstatus As Integer - Public Property geoInicio() As String - Get - Return m_geoInicio - End Get - Set - m_geoInicio = Value - End Set - End Property - Private m_geoInicio As String - Public Property geoFin() As String - Get - Return m_geoFin - End Get - Set - m_geoFin = Value - End Set - End Property - Private m_geoFin As String - Public Property lat() As String - Get - Return m_lat - End Get - Set - m_lat = Value - End Set - End Property - Private m_lat As String - Public Property lon() As String - Get - Return m_lon - End Get - Set - m_lon = Value - End Set - End Property - Private m_lon As String - End Class -End Class \ No newline at end of file diff --git a/Sistemas/PopUpAddUsuario.aspx b/Sistemas/PopUpAddUsuario.aspx index 9d685feb4..631fef59b 100644 --- a/Sistemas/PopUpAddUsuario.aspx +++ b/Sistemas/PopUpAddUsuario.aspx @@ -495,7 +495,7 @@ if (this.checked) { total = total + 1; } - if (total == 5) { + if (total == 7) { alert("Ya tiene el maximo numero de comandos favoritos para asignar."); this.checked = false; return false; @@ -513,9 +513,22 @@ } for (let i = thantes; i < thclick; i++) { let th = $(''); - let input = $('') + let input = $('') th.append(input); + var total = 0; input.click(function () { + var total = 0; + $(".ChecaFavoritos > input").each(function () { + + if (this.checked) { + total = total + 1; + } + if (total == 7) { + alert("Ya tiene el maximo numero de comandos favoritos para asignar."); + this.checked = false; + return false; + } + }); $('#' + gv + ' tr td:nth-child(' + i + ') input[type="checkbox"]:not([disabled="disabled"])').prop("checked", input.is(":checked")) }); tr.append(th); diff --git a/asmx/WsTSoft.asmx b/asmx/WsTSoft.asmx index 2ef85eaa7..94e8b0ab4 100644 --- a/asmx/WsTSoft.asmx +++ b/asmx/WsTSoft.asmx @@ -1 +1,302 @@ -<%@ WebService Language="VB" CodeBehind="~/App_Code/WsTSoft.vb" Class="WsTSoft" %> +<%@ WebService Language="VB" Class="WsTSoft" %> +Imports System.Web +Imports System.Net.Http +Imports System.Web.Services +Imports System.Data +Imports System.Web.Services.Protocols +Imports System.Collections.Generic +Imports System.Linq +Imports Extensiones +Imports Newtonsoft.Json +Imports Newtonsoft.Json.Linq + +' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line. +' _ + + + +Public Class WsTSoft + Inherits System.Web.Services.WebService + + + Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String + Dim retorno As String = "" + Dim objTsoft As New ClsTSoft + objTsoft.IniciaTransacSQL() + Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha) + Dim objRem As New addRemisionObj + If Continuar Then + objTsoft.Commit() + objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero() + objRem.CurrentError = "" + Else + objTsoft.RollBack() + objRem.CveRemision = 0 + objRem.CurrentError = objTsoft.MyCurrentError + End If + objTsoft.Dispose() + retorno = JsonConvert.SerializeObject(objRem) + Return retorno.ToString + End Function + + + Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String + Dim retorno As String = "" + Dim objTsoft As New ClsTSoft + Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus) + Dim objRem As New upEstatusRemisionObj + If Continuar Then + objRem.SeActualizo = 1 + objRem.CurrentError = "" + Else + objRem.SeActualizo = 0 + objRem.CurrentError = objTsoft.MyCurrentError + End If + objTsoft.Dispose() + retorno = JsonConvert.SerializeObject(objRem) + Return retorno.ToString + End Function + + Public Function GetUltimaPosicion(DevID As String) As String + Dim retorno As String = "" + Dim ObjGPS As New ClsGPS + Dim Continuar As Boolean = ObjGPS.UltimaPosicionEquipoGetWS(DevID) + Dim ObjPos As New LatLng + If Continuar Then + ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString + ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString + Else + ObjPos.CurrentError = "No se pudo obtener la posición." + End If + ObjGPS.Dispose() + retorno = JsonConvert.SerializeObject(ObjPos) + Return retorno.ToString + End Function + + Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String + Dim retorno As String = "" + Dim objTsoft As New ClsTSoft + Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, 6) + Dim objRem As New upEstatusRemisionObj + If Continuar Then + objRem.SeActualizo = 1 + objRem.CurrentError = "" + Else + objRem.SeActualizo = 0 + objRem.CurrentError = objTsoft.MyCurrentError + End If + objTsoft.Dispose() + retorno = JsonConvert.SerializeObject(objRem) + Return retorno.ToString + End Function + + Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String + Dim retorno As String = "" + Dim objTsoft As New ClsTSoft + Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico) + Dim objRem As New GetRemisionHistorialesObj + If Continuar Then + objRem.Historial = objTsoft.DtResultados.DataTableToObject(Of GetRemisionHistorialsObj) + objRem.CurrentError = "" + Else + objRem.Historial = New List(Of GetRemisionHistorialsObj) + objRem.CurrentError = objTsoft.MyCurrentError + End If + objTsoft.Dispose() + retorno = JsonConvert.SerializeObject(objRem) + Return retorno.ToString + End Function + + Public Function GetInfoEventos(FechaInicio As String, FechaFin As String) As String + Dim retorno As String = "[]" + + Dim objTsoft As New ClsTSoft + If objTsoft.GetInfoEventosPenske(FechaInicio.ToDateTime(), FechaFin.ToDateTime()) Then + If objTsoft.DtResultados.Rows.Count > 0 Then + 'CONSULTA DIRECCIONES + Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados) + For Each Dir As JObject In Direcciones + objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() + Next + + retorno = objTsoft.DtResultados.DataTableToJSONIPP() + Else + retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "No se encontraron resultados"}) + End If + Else + retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "Ocurrío un error al consultar los datos"}) + End If + objTsoft.Dispose() + + Return retorno.ToString + End Function + + Public Function TieneRemisionesActivas(NoEconomico As String) As String + Dim retorno As String = "" + Dim Continuar As Boolean = False + + Dim ObjTSoft As New ClsTSoft + Continuar = ObjTSoft.TieneRemisionesActivas(NoEconomico) + + Dim objRem As New MTieneRemisiones With + { + .TieneRemisiones = Continuar, + .CurrentError = ObjTSoft.MyCurrentError + } + ObjTSoft.Dispose() + retorno = JsonConvert.SerializeObject(objRem) + Return retorno + End Function + + + Public Function ConsultarDirecciones(Dt As DataTable) As JArray + Dim retorno As JArray = Nothing + Dim posicionesArray = New JArray(From Row As DataRow In Dt + Let index = Dt.Rows().IndexOf(Row) + Select New JObject( + New JProperty("indice", index), + New JProperty("cveTrama", -1), + New JProperty("lat", Row("Latitud").ToString.ToDouble), + New JProperty("lon", Row("Longitud").ToString.ToDouble) + )) + + Dim Base64array = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(posicionesArray.ToString())) + + Using wc As New HttpClient() + Try + Dim Url = New Uri($"{ClsPaginas.UrlDirecciones}nominatim/reverseMultiple.php") + Dim FormStuff = String.Format("formato=json&posiciones={0}", Base64array) + Dim content = New StringContent(FormStuff, Encoding.UTF8, "application/x-www-form-urlencoded") + Dim response = wc.PostAsync(Url, content).Result + Dim result = response.Content.ReadAsStringAsync().Result + retorno = JArray.Parse(result) + Catch ex As Exception + OnError("Ocurrió un error al obtener las direcciones", ex) + End Try + End Using + Return retorno + End Function + + Public Class addRemisionObj + Public CveRemision As Integer + Public CurrentError As String + End Class + + Public Class upEstatusRemisionObj + Public SeActualizo As Integer + Public CurrentError As String + End Class + + Public Class MTieneRemisiones + Public TieneRemisiones As Boolean + Public CurrentError As String + End Class + + Public Class LatLng + Public Lat As String + Public Lng As String + Public CurrentError As String + End Class + + Public Class GetRemisionHistorialsObj + Public Property Fecha As DateTime + Public Property FolioRemision As String + Public Property NoEconomico As String + Public Property Lat As String + Public Property Lon As String + Public Property Distancia As String + Public Property TrackingNumber As String + Public Property CveEstatus As Integer + End Class + + Public Class GetRemisionHistorialesObj + Public Historial As List(Of GetRemisionHistorialsObj) + Public CurrentError As String + End Class + + + Public Class ObjRemisiones + + Public Property cveRemisiones() As Integer + Get + Return m_cveRemisiones + End Get + Set + m_cveRemisiones = Value + End Set + End Property + Private m_cveRemisiones As Integer + Public Property folioRemision() As String + Get + Return m_folioRemision + End Get + Set + m_folioRemision = Value + End Set + End Property + Private m_folioRemision As String + Public Property cveDispositivo() As Integer + Get + Return m_cveDispositivo + End Get + Set + m_cveDispositivo = Value + End Set + End Property + Private m_cveDispositivo As Integer + Public Property iMEI() As String + Get + Return m_iMEI + End Get + Set + m_iMEI = Value + End Set + End Property + Private m_iMEI As String + Public Property cveEstatus() As Integer + Get + Return m_cveEstatus + End Get + Set + m_cveEstatus = Value + End Set + End Property + Private m_cveEstatus As Integer + Public Property geoInicio() As String + Get + Return m_geoInicio + End Get + Set + m_geoInicio = Value + End Set + End Property + Private m_geoInicio As String + Public Property geoFin() As String + Get + Return m_geoFin + End Get + Set + m_geoFin = Value + End Set + End Property + Private m_geoFin As String + Public Property lat() As String + Get + Return m_lat + End Get + Set + m_lat = Value + End Set + End Property + Private m_lat As String + Public Property lon() As String + Get + Return m_lon + End Get + Set + m_lon = Value + End Set + End Property + Private m_lon As String + End Class +End Class From 9736cb5432ba98fb6e88459c50e34bdde636d4b1 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 8 Nov 2019 16:13:15 -0700 Subject: [PATCH 3/4] Generar complemento se quito restriccion a solo usuario de soporte --- Bancos/IE.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 1eeb43303..d7c608479 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4882,7 +4882,7 @@ Partial Class Bancos_IE GvComplementoPagos.DataSource = ObjBancos.DtResultados - If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 And CveEstatusIE <> 2 Then + If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then DVGenerarComplementoModal.Visible = True End If Else From 764c8094ab527bd48fa775e03534a5dd2b56a650 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 9 Nov 2019 01:08:31 -0700 Subject: [PATCH 4/4] Filtros en reportes de almacen --- App_Code/ClsInventarios.vb | 12 +- Inventarios/RepAlmacen.aspx.vb | 2 +- Inventarios/RepAlmacenPeriodo.aspx | 441 +++++++++++++------------- Inventarios/RepAlmacenPeriodo.aspx.vb | 16 +- 4 files changed, 253 insertions(+), 218 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index aac53b30f..318db8883 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -301,7 +301,8 @@ Public Class ClsInventarios Return Retorno End Function Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, - Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean + Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, + Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesRepGet") @@ -314,7 +315,8 @@ Public Class ClsInventarios .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try SqlAdapter.Fill(Data) @@ -325,7 +327,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer) As Boolean + Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer, + Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesPeriodoRepGet") @@ -336,6 +339,9 @@ Public Class ClsInventarios .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@VerEn", SqlDbType.Int).Value = VerEn + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 6fd8c20ba..ecb2ad585 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -61,7 +61,7 @@ Partial Class Inventarios_RepAlmacen Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, - Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto) Then + Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados End If diff --git a/Inventarios/RepAlmacenPeriodo.aspx b/Inventarios/RepAlmacenPeriodo.aspx index e0982d3c4..641741538 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx +++ b/Inventarios/RepAlmacenPeriodo.aspx @@ -1,233 +1,250 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenPeriodo.aspx.vb" Inherits="Inventarios_RepAlmacenPeriodo" %> - - - - - - - - Reporte de Almacen Periodo - - -
  • - Ver En -
    • - - -
  • - Ver Grafica -
    • -     -     -
  • - Genera PDF -
    • -
  • - Genera Excel -
    • -     - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Fecha Corte:
    -
    -
    - - - - -
    - - -
    -
    Tipo Almacen:
    -
    - -
    -
    Modalidad:
    -
    - - - - - -
    - -
    -
    -
    -
    -     -     - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - - - - - - - -     -     - - - - - - -     - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenPeriodo.aspx.vb" Inherits="Inventarios_RepAlmacenPeriodo" %> + + + + + + + + Reporte de Almacen Periodo + + +
  • + Ver En +
    • + + +
  • + Ver Grafica +
    • +     +     +
  • + Genera PDF +
    • +
  • + Genera Excel +
    • +     + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Fecha Corte:
    +
    +
    + + + + +
    + + +
    +
    Tipo Almacen:
    +
    + +
    +
    Modalidad:
    +
    + + + + + +
    +
    + +
    +
    Almacen:
    +
    + +
    +
    +
    +
    + +
    +     +     + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + +     +     + + + + + + +     + + + + + + - - - + + +     + diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb index c8ae610f4..f4c8efd47 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx.vb +++ b/Inventarios/RepAlmacenPeriodo.aspx.vb @@ -39,18 +39,30 @@ Partial Class Inventarios_RepAlmacenPeriodo DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1) DdlTipoAlmacen.DataBind() DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataBind() + DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1) + DdlSucursal.DataBind() + DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub Private Sub CargaDatos() Dim objInv As New ClsInventarios Dim FechaCorte As Date - FechaCorte = If(IsDate(TxtFechaCorte.Text.Trim()), TxtFechaCorte.Text.ToDate, MaxFecha) + FechaCorte = If(IsDate(TxtFechaCorte.Text.Trim()), TxtFechaCorte.Text.ToDate, MaxFecha) Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM) + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) + Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() If RblTotal.Checked Then Ver = 1 If RblExistencia.Checked Then Ver = 2 - If objInv.GetRepAlmacenesPeriodo(FechaCorte, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, Ver) Then + If objInv.GetRepAlmacenesPeriodo(FechaCorte, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, Ver, + Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados End If