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

-

Browse Source
This commit is contained in:
rrene
2025-03-24 05:50:11 -07:00
parent 6a423580fd 0644eb916d
commit dcc6f22a0e
39 changed files with 1625 additions and 1111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -325,7 +325,7 @@ Public Class ClsInventarios
End Function
Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer,
Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1,
Optional CveUsuarioConsulta As Integer = -1) As Boolean
Optional CveUsuarioConsulta As Integer = -1, Optional Gpo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenesRepGet")
@@ -340,6 +340,7 @@ Public Class ClsInventarios
.Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
.Add("@Gpo", SqlDbType.Int).Value = Gpo
End With
Try
SqlAdapter.Fill(Data)

109
App_Code/ClsPaginas.vb
View File

@@ -9717,12 +9717,12 @@ Public Class ClsPaginas
'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1)
If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
Else
'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
End If
End If
If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A D E C R E D I T O
@@ -9832,6 +9832,7 @@ Public Class ClsPaginas
Public Property CveMonedaPago As Integer = 1
Public Property TCPago As Decimal = 1
Public Property CveVentaAmortizacion As Integer = 0
Public Property CveVentaNC As Integer = -1
Public Property OtroGastoIngreso As Decimal = 0
'Public Property CveConceptoPago As Integer = -1 'no definido de inicio
Public Property CveCreditoDetalle As Integer = -1
@@ -11399,5 +11400,109 @@ Public Class ClsPaginas
End If
End Sub
Public Shared Function PlantillaMailVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario) As MCuerpoFacturaMail
Dim Retorno As New MCuerpoFacturaMail()
Try
Dim Asunto As String = String.Empty
Dim Cuerpo As String = String.Empty
Dim TipoComprobante As String = ""
Dim TipoDocto = ObjFactura.TipoDocto
If TipoDocto = "Ing" Then TipoComprobante = "Factura"
If TipoDocto = "Egs" Then TipoComprobante = "Nota de Crédito"
If TipoDocto = "Dev" Then TipoComprobante = "Nota de Devolución"
If TipoDocto = "Rem" Then TipoComprobante = "Remisión"
If TipoDocto = "Cot" Then TipoComprobante = "Cotización"
If TipoDocto = "Ant" Then TipoComprobante = "Anticipo"
If TipoDocto = "Cot" Then
If UsuarioActual.Empresa.PlantillaMailVentaCotizacion.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.PlantillaMailVentaCotizacion
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
Cuerpo = Cuerpo.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""AtencionA""}", ObjFactura.AtencionA)
Cuerpo = Cuerpo.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Asunto = Asunto.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
Asunto = Asunto.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
Asunto = Asunto.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""AtencionA""}", ObjFactura.AtencionA)
Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
Asunto = Asunto.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
End If
Else
If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
Cuerpo = Cuerpo.Replace("{""AtencionA""}", ObjFactura.AtencionA)
Cuerpo = Cuerpo.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Asunto = Asunto.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
Asunto = Asunto.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
Asunto = Asunto.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
Asunto = Asunto.Replace("{""AtencionA""}", ObjFactura.AtencionA)
Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
Asunto = Asunto.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
End If
End If
Dim DisplayName As String = ""
If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
Retorno.DisplayName = DisplayName
Retorno.Cuerpo = Cuerpo
Retorno.Asunto = Asunto
Catch ex As Exception
End Try
Return Retorno
End Function
Public Class MCuerpoFacturaMail
Public Sub New()
Asunto = ""
Cuerpo = ""
DisplayName = ""
Archivos = New List(Of ClsSisMail.ArchivoMail)
End Sub
Public Property Asunto As String
Public Property Cuerpo As String
Public Property DisplayName As String
Public Property Archivos As List(Of ClsSisMail.ArchivoMail)
End Class
End Class

6
App_Code/ClsVentas.vb
View File

@@ -1744,7 +1744,7 @@ Public Class ClsVentas
CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasGetRep")
@@ -1777,6 +1777,7 @@ Public Class ClsVentas
.Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
.Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
.Add("@EsFilial", SqlDbType.Int).Value = EsFilial
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With
Try
@@ -1923,7 +1924,7 @@ Public Class ClsVentas
CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasGetRepDetalle")
@@ -1961,6 +1962,7 @@ Public Class ClsVentas
.Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
.Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
.Add("@EsFilial", SqlDbType.Int).Value = EsFilial
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With
Try

1
App_Code/Modelos.vb
View File

@@ -3551,6 +3551,7 @@ Namespace Modelos
PagoAnt.CveMonedaPago = CveMonedaAnticipo
PagoAnt.TipoPago = "A"
PagoAnt.Fecha = ObjFactura.Fecha
PagoAnt.CveVentaNC = ObjFactura.CveVenta
PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero()
PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal()
PagoAnt.AplicaTraslado = False

211
Ashx/E194.ashx
View File

@@ -36,7 +36,17 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
pFechaF = context.Request("FechaF")
End If
Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar.ToString, pFechaI, pFechaF)
Retorno = IniciaFacturacionMasiva(context, CveEmpresaFacturar.ToString, pFechaI, pFechaF)
End If
If Metodo = "EnviarMailDemo" Then
Dim pFechaI As String = ""
Dim pFechaF As String = ""
If context.Request("CveVenta") IsNot Nothing Then
Dim CveVenta = context.Request("CveVenta").ToString().ToEntero()
Retorno = EnviarMailDemo(context, CveEmpresaFacturar.ToString, CveVenta)
End If
End If
Catch ex As Exception
@@ -52,7 +62,20 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
End Sub
Private Function IniciaFacturacionMasiva(pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
Private Function EnviarMailDemo(ByVal context As HttpContext, pCveEmpresa As String, CveVenta As Integer) As Boolean
Dim Retorno As Boolean = True
Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
If CveEmpresa > 0 Then
GuardaLogFacturacion($"EnviarMail - CveE:{CveEmpresa}")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa, context)
EnviarCorreo(CveVenta, Usuario)
End If
Return Retorno
End Function
Private Function IniciaFacturacionMasiva(ByVal context As HttpContext, pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
Dim Retorno As Boolean = True
Dim JsonRetorno As New JObject()
Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
@@ -60,9 +83,8 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
GuardaLogFacturacion("- Inicio de facturación ")
If CveEmpresa > 0 Then
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
Dim Usuario = ValidaUsuarioSistema(CveEmpresa, context)
Dim FechaI, FechaF As DateTime
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
GuardaLogFacturacion("1.200")
@@ -156,7 +178,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
If Resp.CveVenta > 0 AndAlso Not Resp.TieneError Then
If Resp.SeTimbro OrElse Not Produccion Then
EnviarCorreo(ObjFactura, UsuarioActual)
EnviarCorreo(Resp.CveVenta, UsuarioActual)
End If
End If
@@ -223,7 +245,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
End Function
#Region "V A L I D A - D A T O S"
Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, ByVal context As HttpContext) As Usuario
Dim UsuarioActual As Usuario = Nothing
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
@@ -232,8 +254,13 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
If UsuarioActual IsNot Nothing AndAlso context.Session("UsuarioSIG") Is Nothing Then
context.Session("UsuarioSIG") = UsuarioActual
End If
End If
ObjUsuarios.Dispose()
Return UsuarioActual
End Function
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -758,8 +785,9 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
End Function
#End Region
#Region "E N V I O - C O R R E O"
Private Sub EnviarCorreo(Objfactura As Modelos.Factura, UsuarioActual As Usuario)
Private Sub EnviarCorreo(CveVenta As Integer, UsuarioActual As Usuario)
Try
Dim ObjFactura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, CargaDatosCliente:=True)
Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Objfactura, UsuarioActual))
Hilo.Start()
Catch ex As Exception
@@ -790,115 +818,94 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
End Function
Private Sub EnviarCorreoFactura(ObjFactura As Modelos.Factura, UsuarioActual As Usuario)
Dim ObjMail As New ClsSisMail()
Dim ObjVentas As New ClsVentas
Dim ObjCliente As New ClsClientes
Dim Mail As String = ""
Dim MailCC As String = ""
If ObjFactura.CveVenta > 0 Then
Dim ObjMail As New ClsSisMail()
Dim ObjVentas As New ClsVentas
Dim ObjCliente As New ClsClientes
Dim Mail As String = ""
Dim MailCC As String = ""
Dim ArchivoXML As String = ""
Dim ArchivoPDF As String = ""
Dim ArchivoPDFBytes As Byte() = Nothing
Dim ExistePDF As Boolean = False
Try
ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
If Not File.Exists(ArchivoPDF) Then
ArchivoPDFBytes = DescargarFactura(ObjFactura.CveVenta, ObjFactura.CveEmpresa)
Else
ExistePDF = True
End If
If ObjFactura.CveClienteSucursal > 0 Then
If ObjCliente.GetSucursales(ObjFactura.CveCliente, ObjFactura.CveClienteSucursal) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
Dim Correo As String = ObjCliente.DtResultados.Rows(0)("Correo").ToString
If Correo.Trim.Length > 0 Then
Mail = Correo
End If
MailCC = ObjCliente.NotificarA
End If
End If
Else
If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
Mail = If(ObjFactura.TipoDocto = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
End If
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al obtener el correo", ex)
Finally
ObjCliente.Dispose()
End Try
If Not String.IsNullOrEmpty(Mail) Then
Dim ArchivoXML As String = ""
Dim ArchivoPDF As String = ""
Dim ArchivoPDFBytes As Byte() = Nothing
Dim ExistePDF As Boolean = False
Try
Dim Asunto As String = String.Empty
Dim Cuerpo As String = String.Empty
Dim ResultadoMail As Integer = 0
ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
Dim TipoComprobante As String = ""
If ObjFactura.TipoDocto = "Ing" Then TipoComprobante = "Factura"
If ObjFactura.TipoDocto = "Egs" Then TipoComprobante = "Nota de Crédito"
If ObjFactura.TipoDocto = "Dev" Then TipoComprobante = "Nota de Devolución"
If ObjFactura.TipoDocto = "Rem" Then TipoComprobante = "Remisión"
If ObjFactura.TipoDocto = "Cot" Then TipoComprobante = "Cotización"
If ObjFactura.TipoDocto = "Ant" Then TipoComprobante = "Anticipo"
If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.ToString)
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
End If
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoXML})
If ExistePDF Then
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoPDF})
If Not File.Exists(ArchivoPDF) Then
ArchivoPDFBytes = DescargarFactura(ObjFactura.CveVenta, ObjFactura.CveEmpresa)
Else
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = ArchivoPDFBytes, .NombreArchivo = String.Format("{0}.pdf", ObjFactura.SerieFolio)})
ExistePDF = True
End If
Dim DisplayName As String = ""
If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
If ObjMail.SendMail(UsuarioActual.Empresa, Mail, Asunto, Cuerpo, If(String.IsNullOrEmpty(MailCC), "", MailCC), LSRutasMail, Displayname:=DisplayName) Then
ResultadoMail = 1
If ObjFactura.CveClienteSucursal > 0 Then
If ObjCliente.GetSucursales(ObjFactura.CveCliente, ObjFactura.CveClienteSucursal) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
Dim Correo As String = ObjCliente.DtResultados.Rows(0)("Correo").ToString
If Correo.Trim.Length > 0 Then
Mail = Correo
End If
MailCC = ObjCliente.NotificarA
End If
End If
Else
GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
ResultadoMail = 3
If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
Mail = If(ObjFactura.TipoDocto = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
End If
End If
End If
ObjVentas.UpdateVentaMail(ResultadoMail, ObjFactura.CveVenta)
'Mail = "japmx95@gmail.com"
Catch ex As Exception
OnError("Ocurrió error al mandar el Mail", ex)
GuardaLogFacturacion(ex.ToString())
ObjVentas.UpdateVentaMail(3, ObjFactura.CveVenta)
OnError("Ocurrió un error al obtener el correo", ex)
Finally
ObjVentas.Dispose()
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
End If
ObjCliente.Dispose()
End Try
If Not String.IsNullOrEmpty(Mail) Then
Try
Dim ObjCuerpoMail = ClsPaginas.PlantillaMailVenta(ObjFactura, UsuarioActual)
Dim Asunto As String = ObjCuerpoMail.Asunto
Dim Cuerpo As String = ObjCuerpoMail.Cuerpo
Dim ResultadoMail As Integer = 0
Dim LSRutasMail = ObjCuerpoMail.Archivos
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoXML})
If ExistePDF Then
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoPDF})
Else
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = ArchivoPDFBytes, .NombreArchivo = String.Format("{0}.pdf", ObjFactura.SerieFolio)})
End If
Dim DisplayName As String = ObjCuerpoMail.DisplayName
If ObjMail.SendMail(UsuarioActual.Empresa, Mail, Asunto, Cuerpo, If(String.IsNullOrEmpty(MailCC), "", MailCC), LSRutasMail, Displayname:=DisplayName) Then
ResultadoMail = 1
Else
GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
ResultadoMail = 3
End If
ObjVentas.UpdateVentaMail(ResultadoMail, ObjFactura.CveVenta)
Catch ex As Exception
OnError("Ocurrió error al mandar el Mail", ex)
GuardaLogFacturacion(ex.ToString())
ObjVentas.UpdateVentaMail(3, ObjFactura.CveVenta)
Finally
ObjVentas.Dispose()
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
End If
End Try
End If
End If
End Sub
#End Region

22
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar
CompraActual.UsuarioActual = UsuarioActual
CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
'Importe de pago
Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
'Tipos de cambio
@@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar
If descuentoParts.Length = 0 Then
Descuento = 0
Else
For i As Integer = 0 To descuentoParts.Length - 1
Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
If descuentoPart > 0 Then
Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
Else
Continue For
End If
Next
Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal
'For i As Integer = 0 To descuentoParts.Length - 1
' Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
' If descuentoPart > 0 Then
' Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
' Else
' Continue For
' End If
'Next
End If
@@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar
FolioRNC = serieFolioArray(0)
End If
Descuento = Descuento.RoundSQL(2)
'Descuento = Descuento.RoundSQL(2)
If PorcentajeIVA > 0 Then
Descuento = ((Descuento) / (1 + PorcentajeIVA))

11
Compras/Compras.aspx.vb
View File

@@ -5571,6 +5571,17 @@ Partial Class Compras_Compras
CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
End If
If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
If Not CvePersonal > 0 Then
Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
ErrorDetalles = True
End If
End If
Cont = Cont + 1
'Si es AF-INSUMO se guarda CveAF en CompraDetalle

20
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2891,7 +2891,7 @@ Partial Class PopUpVerFactura
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
Dim Ruta As String = ""
Dim Supervisor As String = ""
@@ -3096,7 +3096,7 @@ Partial Class PopUpVerFactura
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola)
Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3115,7 +3115,7 @@ Partial Class PopUpVerFactura
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1")
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "")
Select Case CveConcepto
@@ -3924,7 +3924,7 @@ Partial Class PopUpVerFactura
Observaciones = ObservacionesSolicitud
End If
If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
If UsuarioActual.CveEmpresa.Contiene(119, 186, 201) Then
If CalleOrigen.Length > 0 Then
SBDireccionO.AppendFormat("{0}", CalleOrigen)
If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
@@ -3976,6 +3976,18 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
ElseIf UsuarioActual.CveEmpresa = 201 Then
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", ""))
params.Add(New ReportParameter("DireccionCliente", DireccionCliente))
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
NombreArchivo = String.Format("Saldia del sistema - {0}", Folio)
Else
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))

69
Contabilidad/RepGastosCC.aspx
View File

@@ -81,9 +81,55 @@
outline: 0;
}
.grid-column250 {
width: 250px; /* Define el ancho en píxeles */
}
/*Begin ScrollADS V2*/
.divContainerads {
width: 100%;
max-height: calc(100vh - 260px);
overflow-y: auto;
}
table.adssigscroll {
min-width: 100%;
background-color: #fff;
}
table.adssigscroll tbody, table.adssigscroll thead {
background-color: #fff;
}
table.adssigscroll tr {
background-color: inherit;
}
table.adssigscroll tr.stickyRow {
position: sticky;
top: 0; /* Se mantiene pegado en la parte superior */
background-color: inherit; /* Para que no se superponga con otros elementos */
z-index: 4; /* Asegura que esté sobre otros elementos */
}
.tr_order tr > th::after {
content: "\f0dc";
font:normal normal normal 14px / 1 FontAwesome;
display: inline-block;
margin-left: 5px;
color: #32A1CF;
}
.tr_order tr > th.asce::after {
content: "\f0de";
}
.tr_order tr > th.desc::after {
content: "\f0dd";
}
/*END ScrollADS V2*/
table.GvDatos{
}
table.GvDatos tr td:nth-child(1){
min-width:300px;
/*white-space:nowrap;*/
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -174,15 +220,14 @@
</div>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText=""
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-cols="1" data-sort="true" GridLines="None">
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</div>
</div>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText=""
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" GridLines="None">
<HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>

42
Empresas/189/Formatos/Factura.mrt
View File

@@ -192,7 +192,7 @@
<Image1 Ref="9" type="Image" isKey="true">
<AspectRatio>True</AspectRatio>
<Brush>Transparent</Brush>
<ClientRectangle>0.2,-0,6,2.4</ClientRectangle>
<ClientRectangle>0.2,0,6,2.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<IconColor>68, 114, 196</IconColor>
@@ -1155,7 +1155,6 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
<Name>Text6</Name>
<Page isRef="7" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
@@ -1285,7 +1284,6 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
<Name>DataBand8</Name>
<Page isRef="7" />
<Parent isRef="50" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
</Components>
@@ -1312,18 +1310,31 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Textbox26 Ref="61" type="Text" isKey="true">
<Text7 Ref="61" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.6,1.28,5.29,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text7</Name>
<Page isRef="7" />
<Parent isRef="42" />
<TextBrush>Black</TextBrush>
</Text7>
<Textbox26 Ref="62" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>5.4,1.88,10.25,1.68</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Regular,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<Margins>2,2,2,2</Margins>
<Name>Textbox26</Name>
<Page isRef="7" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>TERMINOS Y CONDICIONES PARA SOLICITAR DEVOLUCION DE MATERIAL
1.- SE TIENE UN PLAZO DE 30 DIAS A PARTIR DE FECHA FACTURA PARA SOLICITAR DEVOLUCION
2.- PRESENTAR FACTURA DE LA COMPRA
@@ -1335,23 +1346,10 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Textbox26>
<Text7 Ref="62" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.6,1.28,5.29,0.14</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Arial,10,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins>
<Name>Text7</Name>
<Page isRef="7" />
<Parent isRef="42" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text7>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<KeepFooterTogether>False</KeepFooterTogether>
<Name>FooterBand1</Name>
<Page isRef="7" />
<Parent isRef="7" />
@@ -6364,10 +6362,10 @@ FUERO DE MI DOMICILIO. LA CANTIDAD DE $ {Total} SON: {(ImporteLetra)}.</Text>
<value>Stimulsoft.Report.Dll</value>
</ReferencedAssemblies>
<ReportAlias>Factura</ReportAlias>
<ReportChanged>12/30/2024 5:44:19 PM</ReportChanged>
<ReportChanged>3/21/2025 12:49:26 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>Factura.mrt</ReportFile>
<ReportGuid>33bb66bee0224df694ddbbead45940b8</ReportGuid>
<ReportFile>C:\inetpub\wwwSIG\Empresas\189\Formatos\Factura.mrt</ReportFile>
<ReportGuid>e53f4619d7e549e6a19a6047fc704c17</ReportGuid>
<ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

81
Empresas/189/Formatos/SaldoAntNCDev.rdlc
View File

@@ -21,6 +21,10 @@
<DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieFolioEstatus">
<DataField>SerieFolioEstatus</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaAplicado">
<DataField>FechaAplicado</DataField>
<rd:TypeName>System.String</rd:TypeName>
@@ -29,6 +33,10 @@
<DataField>Importe</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="TotalNC">
<DataField>TotalNC</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
@@ -63,14 +71,13 @@
<TextRun>
<Value>Folio</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
@@ -80,10 +87,19 @@
<Color>#e36c09</Color>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>LightGrey</Color>
</TopBorder>
<BottomBorder>
<Color>LightGrey</Color>
</BottomBorder>
<LeftBorder>
<Color>LightGrey</Color>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<BackgroundColor>#e36c09</BackgroundColor>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingTop>1pt</PaddingTop>
</Style>
</Textbox>
@@ -98,10 +114,10 @@
<Width>3.42604cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.37313cm</Width>
<Width>2.43119cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.00271cm</Width>
<Width>3.94465cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -135,7 +151,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
<PaddingTop>0.5pt</PaddingTop>
</Style>
</Textbox>
@@ -167,7 +183,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
<PaddingTop>0.5pt</PaddingTop>
</Style>
</Textbox>
@@ -175,14 +191,14 @@
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Importe">
<Textbox Name="TotalNC">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Importe.Value</Value>
<Value>=Fields!TotalNC.Value</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
@@ -195,12 +211,12 @@
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Importe</rd:DefaultName>
<rd:DefaultName>TotalNC</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
<PaddingTop>0.5pt</PaddingTop>
</Style>
</Textbox>
@@ -225,24 +241,23 @@
<TextRun>
<Value>Fecha</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Style>
<Border>
<Color>#e36c09</Color>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingTop>1pt</PaddingTop>
</Style>
</Textbox>
@@ -262,24 +277,23 @@
<TextRun>
<Value>Moneda</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Style>
<Border>
<Color>#e36c09</Color>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingTop>1pt</PaddingTop>
</Style>
</Textbox>
@@ -299,24 +313,23 @@
<TextRun>
<Value>Importe</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox23</rd:DefaultName>
<Style>
<Border>
<Color>#e36c09</Color>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingTop>1pt</PaddingTop>
</Style>
</Textbox>
@@ -330,16 +343,16 @@
<TablixMember>
<Group Name="GPO" />
<TablixHeader>
<Size>2.39924cm</Size>
<Size>6.69369cm</Size>
<CellContents>
<Textbox Name="SerieFolio">
<Textbox Name="SerieFolioEstatus">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!SerieFolio.Value</Value>
<Value>=Fields!SerieFolioEstatus.Value</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
@@ -351,12 +364,12 @@
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>SerieFolio</rd:DefaultName>
<rd:DefaultName>SerieFolioEstatus</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
<PaddingTop>0.5pt</PaddingTop>
</Style>
</Textbox>
@@ -369,9 +382,9 @@
<FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName>
<Top>0.12375cm</Top>
<Left>0.06614cm</Left>
<Left>0.25664cm</Left>
<Height>0.8825cm</Height>
<Width>12.20112cm</Width>
<Width>16.49557cm</Width>
<Style>
<Border>
<Style>None</Style>

1469
Empresas/Grales/Formatos/RepAlmacen.rdlc
View File

File diff suppressed because it is too large Load Diff

124
Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
View File

@@ -21,6 +21,10 @@
<DataField>Cantidad</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="CantidadOriginal">
<DataField>CantidadOriginal</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
@@ -93,32 +97,35 @@
<TablixColumn>
<Width>1.69333cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.29923cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.16467cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.51446cm</Width>
<Width>1.17434cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.37414cm</Width>
</TablixColumn>
<TablixColumn>
<Width>5.82471cm</Width>
<Width>6.19513cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.53921cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.57859cm</Width>
<Width>1.86963cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.32298cm</Width>
<Width>2.02533cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.21787cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.36613cm</Width>
<Width>2.44551cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -237,6 +244,62 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox23">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>C.Orig.</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox23</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox3">
@@ -582,7 +645,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Alm. Origen</Value>
<Value>Alm.Origen</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -638,7 +701,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Alm. Destino</Value>
<Value>Alm.Destino</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -817,6 +880,43 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="CantidadOriginal">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CantidadOriginal.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
<Format>#,0.00</Format>
<Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>CantidadOriginal</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cantidad">
@@ -1004,6 +1104,7 @@
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
<Format>#,0.00</Format>
<Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
</Style>
</TextRun>
@@ -1152,6 +1253,7 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -1171,7 +1273,7 @@
<DataSetName>DataSet1</DataSetName>
<Top>0.17639cm</Top>
<Height>1.0148cm</Height>
<Width>24.56252cm</Width>
<Width>25.96481cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1182,7 +1284,7 @@
<Height>0.67394in</Height>
<Style />
</Body>
<Width>9.67028in</Width>
<Width>10.22237in</Width>
<Page>
<PageHeader>
<Height>3.48078cm</Height>
@@ -1318,7 +1420,7 @@
<Line Name="Line1">
<Top>3.30439cm</Top>
<Height>0cm</Height>
<Width>24.56252cm</Width>
<Width>25.96481cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1477,7 +1579,7 @@
<Line Name="Line2">
<Top>0.15875cm</Top>
<Height>0cm</Height>
<Width>24.56252cm</Width>
<Width>25.96481cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>

2
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -348,7 +348,7 @@ table.adssigscroll {
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:UpdatePanel ID="UpDatos" runat="server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="divContainerads">

11
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -161,6 +161,9 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub
Private Sub CargarKardex(CvePS As Integer)
'GvDatos.Columns.Clear()
'GvDatos.AutoGenerateColumns = True
Dim dt As New DataTable
Dim ObjMovimientos As New ClsInventarios
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
@@ -202,13 +205,16 @@ Partial Class Inventarios_KardexAlmacenHorizontal
GvDatos.DataSource = dt
Else
Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
GvDatos.Columns.Clear()
dt = Nothing
GvDatos.DataSource = dt
GvDatos.DataBind()
UpDatos.Update()
Exit Sub
End If
Else
ObjMovimientos.Dispose()
Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
UpDatos.Update()
Exit Sub
End If
GvDatos.DataBind()
@@ -232,6 +238,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
Next
UpDatos.Update()
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound

60
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -19,7 +19,7 @@
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
@@ -59,7 +59,7 @@
<br />
<div class="row">
<div class="col-md-5">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UPDatosAlmacen" UpdateMode="Conditional">
<ContentTemplate>
@@ -68,7 +68,7 @@
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">RECEPCIÓN DE TRASPASO</span>
<span class="caption-subject bold uppercase">Devolución de Préstamo</span>
</div>
<div class="actions">
<div class="btn-group">
@@ -80,10 +80,10 @@
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<label class="col-md-3">Fecha:</label>
<div class="col-md-9">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
<div class="row" style="padding:0px">
<label class="col-md-1">Fecha:</label>
<div class="col-md-4" >
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-left:-10px">
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpRecibir" Width="100px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton runat="server" ID="ImgFechaEntrega" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
@@ -99,35 +99,33 @@
<ajax:ValidatorCalloutExtender ID="VCOFechaEntrega3" runat="server" HighlightCssClass="vco" TargetControlID="RVFechaEntrega" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="row">
<asp:HiddenField ID="HdnCveProveedor" runat="server" />
<label class="col-md-3">Almacén:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row">
<label class="col-md-3">Recibió:</label>
<div class="col-md-9">
<asp:HiddenField ID="HdnCveProveedor" runat="server" />
<label class="col-md-2">Almacén:</label>
<div class="col-md-4">
<asp:DropDownList ID="DdlAlmacenOrigen" Width="100%" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row" style="padding:0px">
<label class="col-md-1">Recibió:</label>
<div class="col-md-4">
<asp:TextBox runat="server" ID="TxtRecibio" />
</div>
</div>
<div class="row">
<label class="col-md-3">Observaciones:</label>
<div class="col-md-9">
<asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="300px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row">
<label class="col-md-2">Observaciones:</label>
<div class="col-md-4">
<asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row" style="padding:0px">
<div style="text-align: center;" class="col-sm-12">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" Visible="false" />
</ContentTemplate>
</asp:UpdatePanel>
</div>

9
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -22,12 +22,17 @@ Partial Class Inventarios_PrestamosdeProveedor
End Property
Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If Not Page.IsPostBack Then
CargaCombos()
CveMovimiento = 0
CveProveedor = 0
CargaDatos()
If UsuarioActual.TienePermisoProceso(409) Then
BtnRecibir.Visible = True
End If
End If
End Sub

27
Inventarios/RepAlmacen.aspx
View File

@@ -140,7 +140,7 @@
</asp:DropDownList>
</div>
<div class="col-md-1 truncate v-center" style="text-align: right!important">Tipo Almacen:</div>
<div class="col-md-2 v-center">
<div class="col-md-1 v-center">
<asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
@@ -149,8 +149,26 @@
<asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
<asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
<asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
</asp:DropDownList>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">
<asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
<asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -159,11 +177,12 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None"
DataKeyNames="Gpo,CveAlmacen,CveClasificacion,FechaInicio,FechaFin" >
<Columns>
<asp:TemplateField HeaderText="Almacén">
<ItemTemplate>
<asp:HyperLink ID="HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>
<%--<asp:HyperLink ID="HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>--%>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Almacén">

44
Inventarios/RepAlmacen.aspx.vb
View File

@@ -44,8 +44,11 @@ Partial Class Inventarios_RepAlmacen
End Sub
Private Sub CargaDatos()
Dim objInv As New ClsInventarios
Dim objInv As New ClsInventarios
GVAlmacen.Columns(1).Visible = If(DdlGrupo.SelectedValue.ToEntero = 1, True, False)
GVAlmacen.Columns(1).HeaderText = If(DdlGrupo.SelectedValue.ToEntero = 1, "Almacen", "Clasificación")
Dim FechaI, FechaF As String
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
@@ -54,7 +57,7 @@ Partial Class Inventarios_RepAlmacen
Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()
If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero,
Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, Gpo:=DdlGrupo.SelectedValue.ToEntero) Then
GVAlmacen.DataSource = objInv.DtResultados
TmpDT = objInv.DtResultados
End If
@@ -98,17 +101,40 @@ Partial Class Inventarios_RepAlmacen
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
Dim Archivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepAlmacen.rdlc", "RepAlmacenClasificacion.rdlc")
ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", TmpDT, params, "ReporteAlmacen", Formato)
End Sub
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
GenerarPDF()
End Sub
Private Sub GVAlmacen_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAlmacen.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.FCLabel("LtlAlmacen").Text = "" Then
Private Sub GVAlmacen_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAlmacen.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'If e.Row.FCLabel("LtlAlmacen").Text = "" Then
' e.Row.CssClass = "Totales"
'End If
If e.Row.DataKey("Gpo") = "Total" Then
e.Row.CssClass = "Totales"
End If
End If
Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
'If DdlGrupo.SelectedValue.ToEntero = 1 Then
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
'Else
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
'End If
End If
End Sub
#End Region
@@ -169,4 +195,6 @@ Partial Class Inventarios_RepAlmacen
#End Region
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
End Class

47
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -74,31 +74,42 @@ Partial Class Inventarios_ReporteEntradasSalidas
FechaFinal = "-1"
CargaCombos()
GvM.DataBind(True)
If Not IsNothing(Request("CveAlmacen")) Then
DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
TxtFechaI.Text = "01/01/2000"
If Not IsNothing(Request("FechaCorte")) Then
TxtFechaF.Text = Request("FechaCorte")
End If
If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
TxtFechaI.Text = Request("FechaInicio")
End If
If Not IsNothing(Request("Tipo")) Then
DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
End If
btConsultar_Click(Nothing, Nothing)
End If
CargaRequest()
CargaPermisos()
CargaGvBitacora()
' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
End If
End Sub
Private Sub CargaRequest()
Dim CveAlmacen As Integer = If(Not IsNothing(Request("CveAlmacen")) AndAlso Request("CveAlmacen").ToEntero > 0, Request("CveAlmacen").ToEntero, -1)
Dim CveClasificacion As Integer = If(Not IsNothing(Request("CveClasificacion")) AndAlso Request("CveClasificacion").ToEntero > 0, Request("CveClasificacion").ToEntero, -1)
If CveAlmacen > 0 Or CveClasificacion > 0 Then ' CveClasificacion
DdlAlmacen.SelectedValuesIfExist(CveAlmacen.ToString)
DdlClasificacion.SelectedValueExist(CveClasificacion)
TxtFechaI.Text = "01/01/2000"
If Not IsNothing(Request("FechaCorte")) Then
TxtFechaF.Text = Request("FechaCorte")
End If
If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
TxtFechaI.Text = Request("FechaInicio")
End If
If Not IsNothing(Request("Tipo")) Then
DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
End If
CargaDatos()
End If
End Sub
Private Sub CargaPermisos()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)

33
Nomina/Nomina.aspx
View File

@@ -206,6 +206,15 @@
.form-group.form-md-line-input .form-control.input-sm ~ label {
padding-bottom: 20px;
}
.allspacevhwh{
width:100vw !important;
height:100vh !important;
padding-right: calc((100% - 900px) / 2);
padding-left: calc((100% - 910px) / 2);
}
.allspacevhwh >.modal-content{
width:900px !important
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -830,8 +839,12 @@
<asp:Button ID="BtnImprimirsobrerecibo" OnClick="BtnImprimirsobrerecibo_Click" UseSubmitBehavior="false" runat="server" Text="Imprimir" CssClass="btn btn-primary hidden" />
<div id="ModalConceptos" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UpModalConceptos" UpdateMode="Conditional">
<asp:UpdatePanel class="modal-dialog modal-lg " runat="server" ID="UpModalConceptos" UpdateMode="Conditional">
<ContentTemplate>
<asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
<asp:Button ID="BtnSobreRecibo" CssClass="BtnSobreRecibo hidden" OnClick="LnkSobreRecibo_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">Sobre Recibo</h4>
@@ -2185,13 +2198,6 @@
</div>
</div>
</ContentTemplate>
<Triggers>
<%--<asp:PostBackTrigger ControlID="BtnImprimirsobrerecibo" />--%>
</Triggers>
</asp:UpdatePanel>
</div>
<div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
<ContentTemplate>
@@ -2362,6 +2368,14 @@
</asp:UpdatePanel>
</div>
</ContentTemplate>
<Triggers>
<%--<asp:PostBackTrigger ControlID="BtnImprimirsobrerecibo" />--%>
</Triggers>
</asp:UpdatePanel>
</div>
<div id="ModalUpConcepto" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog " runat="server" ID="UPpanelModalUpConcepto" UpdateMode="Conditional">
@@ -5263,13 +5277,10 @@
</Triggers>
</asp:UpdatePanel>
</div>
<asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
<asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnSobreRecibo" CssClass="BtnSobreRecibo hidden" OnClick="LnkSobreRecibo_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
<asp:Button ID="BtnGenerateXml" CssClass="BtnGenerateXml hidden" OnClick="BtnGenerateXml_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
<span class="ltlxml">
<asp:Literal ID="LtlXml" runat="server"></asp:Literal></span>

4
Nomina/Nomina.aspx.cs
View File

@@ -2950,7 +2950,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
pnlAddupMovto.Visible = false;
CargaMovtoPermanente();
CargaPersonalIncapacidad();
RegistraScript("$('#ModalConceptos').modal();");
RegistraScript("$('#C_UpModalConceptos.allspacevhwh').removeClass('allspacevhwh');$('#ModalConceptos').modal();");
}
#region Asistencias
@@ -7692,7 +7692,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
GVMovtoPermanenteSaldos.DataBind();
UpMovtosPermanentesModal.Update();
RegistraScript("$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
RegistraScript("$('#C_UpModalConceptos:not(.allspacevhwh)').addClass('allspacevhwh');$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
}

6
Nomina/RepMovtosPermanentes.aspx
View File

@@ -192,6 +192,11 @@
<asp:Label ID="lblmontoLimite" runat="server" Text='<%# Eval("MontoLimite","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="">
<ItemTemplate>
<asp:Label ID="lblAcumulado" runat="server" Text='<%# Eval("Acumulado","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="">
<ItemTemplate>
<asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
@@ -230,6 +235,7 @@
<th>Movimientos</th>
<th>Activos</th>
<th>Inactivos</th>
<th>Acumulado</th>
<th>Saldo</th>
<th></th>
</tr>

6
RH/CalculoSBC.aspx
View File

@@ -10,7 +10,9 @@
.GVCalculosSBC tr th:nth-child(n+13):not(:nth-child(n+16)) {
background-color: #88d6cd !important;
}
}.GVDetalleParteVariable tr > td:nth-child(n+2) {
text-align: right;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -472,7 +474,7 @@
<ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
<ContentTemplate>
<asp:GridView ID="GVDetalleParteVariable" HeaderStyle-CssClass="ADtr" runat="server" GridLines="None" OnRowDataBound="GVDetalleParteVariable_RowDataBound"
CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor"></asp:GridView>
CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor GVDetalleParteVariable"></asp:GridView>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>

2
RH/Personal.aspx.vb
View File

@@ -7055,7 +7055,7 @@ Partial Class RH_Personal
If objRH.DtResultados.Rows.Count > 0 Then
Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
TxtFIDiasVacaciones.Text = If(diasvaca > 11, diasvaca, 12).ToString()
Else
TxtFIDiasVacaciones.Text = "12"
End If

1
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1662,6 +1662,7 @@ Partial Class Ventas_ClientesAbonar
DtVentasNC.AcceptChanges()
ObjFacturaDevolucion.DtVentasNC = DtVentasNC
ObjFacturaDevolucion.CveTipoVenta = 8 'PRONTO PAGO
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)

26
Ventas/ProductosServicios.aspx.vb
View File

@@ -1470,7 +1470,7 @@ Partial Class ProductosyServicios
Exit Sub
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked Then
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked AndAlso DivListaPrecios.Visible Then
Dim tcontador As Integer = 0
For Each GvRow As GridViewRow In GvPLMultiple.Rows
Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
@@ -3012,13 +3012,12 @@ Partial Class ProductosyServicios
If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra
Dim objPS As New ClsProductosServicios
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
GvPLMultiple.DataSource = objPS.DtResultados
GvPLMultiple.DataSource = objPS.DtResultados.Copy()
End If
objPS.Dispose()
DivListaPrecios.Visible = True
GvPLMultiple.DataBind()
DivListaPrecios.Visible = True
End If
End Sub
Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -3035,16 +3034,19 @@ Partial Class ProductosyServicios
Dim TieneError As Boolean = False
Try
For Each GvRow As GridViewRow In GvPLMultiple.Rows
Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
If DivListaPrecios.Visible Then
For Each GvRow As GridViewRow In GvPLMultiple.Rows
Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
If TieneError Then
Exit For
End If
Next
End If
If TieneError Then
Exit For
End If
Next
Catch ex As Exception
OnError("Ocurrió un error al actualizar precios", ex)
TieneError = True

3
Ventas/RepPedidosSTF.aspx
View File

@@ -236,7 +236,8 @@
<ContentTemplate>
<div style="min-height: 250px; overflow-x: scroll">
<asp:GridView ID="GvE" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio" data-sort="true" GridLines="None" Width="99%">
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio,CveVenta,SerieFolio" data-sort="true" GridLines="None" Width="99%"
OnRowDataBound="GvE_RowDataBound">
<Columns>
<asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="30%" />
<asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-Width="10%" />

17
Ventas/RepPedidosSTF.aspx.vb
View File

@@ -150,6 +150,11 @@ Partial Class Ventas_RepPedidosSTF
If e.Row.DBCampo("TipoRenglon") = "1" Then e.Row.CssClass = "SubTotales"
If UsuarioActual.TienePermisoPagina(6) Then
e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
End If
End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
@@ -444,4 +449,16 @@ Partial Class Ventas_RepPedidosSTF
UpBodyHorariosPedidos.Update()
RegistraScript("$('#divHorariosPedidos').modal({ backdrop: 'static', keyboard: false});")
End Sub
Protected Sub GvE_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If UsuarioActual.TienePermisoPagina(6) Then
e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
End If
End If
End Sub
End Class

111
Ventas/RepRecuperacion.aspx
View File

@@ -52,6 +52,25 @@
width: 100%;
height: 500px;
}
.select2-container--default .select2-selection--multiple .select2-selection__choice {
/*max-width: 150px;*/ /* Ajusta a tu gusto */
max-width: calc(100% - 2em);
text-overflow: ellipsis;
overflow: hidden;
white-space: nowrap;
}
/*.select2-selection__choice__remove{*/
/* o absolute/fixed, según necesites */
/*position: absolute;
z-index: 9999;*/ /* un valor alto para estar sobre los demás */
/*}
.select2-search.select2-search--inline .select2-search__field .select2-selection__rendered .select2-container--default .select2-container--focus {
position: absolute;
z-index: 1;
}*/
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -253,7 +272,7 @@
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row" style="height: 32px;">
<div class="row" style="height: 32px; display:flex; align-items:center;">
<label class="col-md-1">Tipo: </label>
<div class="col-md-2">
<asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
@@ -262,42 +281,40 @@
<asp:ListItem Value="Ant" Text="Anticipos"></asp:ListItem>
</asp:ListBox>
</div>
<div class="col-md-1 truncate">
Fecha Inicio:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<div class="col-md-3" style="display:flex; align-items:center">
<div style="width: 240px; display: flex; align-items: center">
<label style="width:80px;">Fecha Inicio:</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">
Fecha Fin:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<div style="width: 210px; display: flex; align-items: center">
<label style="width:80px;">Fecha Fin:</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<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:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<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:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 ">Grupo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlGrupo" runat="server" CssClass="form-control input-small input-sm select2me" Width="100%">
@@ -315,7 +332,7 @@
<asp:ListItem Text="Usuario" Value="8"></asp:ListItem>
<asp:ListItem Text="Estatus Fact." Value="9"></asp:ListItem>
<asp:ListItem Text="% IVA" Value="10"></asp:ListItem>
<asp:ListItem Text="Forma de Pago" Value="15"></asp:ListItem>
<asp:ListItem Text="Tipo Transacción" Value="15"></asp:ListItem>
<asp:ListItem Text="Vendedor/Cliente" Value="16"></asp:ListItem>
<asp:ListItem Text="Sucursal Cobranza" Value="19"></asp:ListItem>
</asp:DropDownList>
@@ -339,7 +356,8 @@
</div>
<label class="col-md-1 truncate">Vendedor:</label>
<div class="col-md-2">
<asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
<%--<asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>--%>
<asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
</div>
<div class="row">
@@ -425,7 +443,7 @@
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">F. Registro IE inicio:</div>
<div class="col-md-1" style="padding-left: 0px">
<div class="col-md-2" style="padding-left: 0px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
<asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
@@ -440,7 +458,7 @@
<ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">F. Registro IE Fin:</div>
<div class="col-md-1">
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
<asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
@@ -471,7 +489,7 @@
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">F. Conciliado inicio:</div>
<div class="col-md-1" style="padding-left: 0px">
<div class="col-md-2" style="padding-left: 0px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
<asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
@@ -486,7 +504,7 @@
<ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">F. Conciliado Fin:</div>
<div class="col-md-1">
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
<asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
@@ -525,15 +543,18 @@
<asp:ListItem Text="Dolares" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">
Tipo Transacción:
</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoTransaccion" Width="100%" CssClass="form-control input-sm select2me" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion">
</asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-1 truncate">Lectura administrativa:</label>
<div class="col-md-2">
<asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
</div>
<label title="Es parte relacionada" data-toggle="tooltip" class="col-md-1 truncate" runat="server" id="Label4">Parte Relacionada:</label>
<div class="col-md-2" runat="server" id="DivFilial">
<asp:DropDownList ID="DdlFilial" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:DropDownList ID="DdlFilial" runat="server" Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Solo parte relacionadas" Value="1"></asp:ListItem>
<asp:ListItem Text="Sin parte relacionadas" Value="0"></asp:ListItem>

14
Ventas/RepRecuperacion.aspx.vb
View File

@@ -92,9 +92,15 @@ Partial Class Ventas_RepRecuperacion
End Sub
Private Sub CargaTipoTransaccion()
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
DdlTipoTransaccion.DataBind()
DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaCombos()
'Carga Clientes
CargaTipoTransaccion()
'Carga Clientes
If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
DdlClientes.setEsWebService(True)
DdlClientes.Attributes.Add("data-metodo", "getcliente")
@@ -192,7 +198,7 @@ Partial Class Ventas_RepRecuperacion
TCEspecifico = -1
End If
Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
Dim ModalidadContable As Boolean = True
Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
@@ -220,7 +226,7 @@ Partial Class Ventas_RepRecuperacion
DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero,
CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
GvDatos.DataSource = ObjMovtos.DtResultados
DtDatos = ObjMovtos.DtResultados
@@ -370,7 +376,7 @@ Partial Class Ventas_RepRecuperacion
Dim Liga As String = $"/Ventas/RepRecuperacionDetalle.aspx?GPO={DdlGrupo.SelectedValue}&AnioVenta={e.Row.DBCampo("AnioVenta")}&MesVenta={e.Row.DBCampo("MesVenta")}&AnioMesVenta={e.Row.DBCampo("AnioMesVenta")}&FechaVenta={e.Row.DBCampo("FechaVenta")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}"
Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={1}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
Liga = $"{Liga}&CveResponsable={e.Row.DBCampo("CveResponsable")}&CveBanco={e.Row.DBCampo("CveBanco")}&CveEstatusCliente={e.Row.DBCampo("CveEstatusCliente")}&CveCuenta={e.Row.DBCampo("CveCuenta")}&CveTipoTransaccion={e.Row.DBCampo("CveTipoTransaccion")}&FechaAplicadoI={FechaAplicadoI}&FechaAplicadoF={FechaAplicadoF}&FechaRegistroIEI={FechaRegistroIEI}&FechaRegistroIEF={FechaRegistroIEF}&CveSubProyectoCobranza={e.Row.DBCampo("CveSubProyectoCobranza")}&Grupo={e.Row.DBCampo("GPO")}"

4
Ventas/RepRecuperacionDetalle.aspx
View File

@@ -620,10 +620,6 @@
</div>
</div>
<div class="row">
<label class="col-md-1 truncate">Lectura administrativa:</label>
<div class="col-md-2">
<asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
</div>
<label title="Es parte relacionada" data-toggle="tooltip" class="col-md-1 truncate" runat="server" id="Label4">Parte Relacionada:</label>
<div class="col-md-2" runat="server" id="DivFilial">
<asp:DropDownList ID="DdlFilial" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">

10
Ventas/RepRecuperacionDetalle.aspx.vb
View File

@@ -92,7 +92,7 @@ Partial Class Ventas_RepRecuperacionDetalle
End If
End Sub
#Region "CARGAS"
#Region "CARGAS"
Private Sub CargaCombos()
Dim CveCliente, CveUsuario, CveProyecto, CveSubProyectoCobranza,
@@ -103,8 +103,8 @@ Partial Class Ventas_RepRecuperacionDetalle
Dim CveSucursal, CveSubProyecto, CveVendedor, CveSubProyectoEjecucion, CveEstatusFactura, CveCorte, IVA, CveCondicionesPago, CveTipoRelacion As String
Dim AnioVenta, MesVenta, AnioMesVenta, FechaVenta As String
Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
'Carga Clientes
'Carga Clientes
If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
DdlClientes.setEsWebService(True)
DdlClientes.Attributes.Add("data-metodo", "getcliente")
@@ -432,7 +432,7 @@ Partial Class Ventas_RepRecuperacionDetalle
End If
Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
Dim ModalidadContable As Boolean = True
Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
@@ -460,7 +460,7 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero,
CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveClienteSucursal:=DdlClienteSucursal.SelectedValue.ToEntero(), Tipo:=Me.Tipo, Grupo:=Me.Grupo, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
DtDatos = ObjMovtos.DtResultados.Copy()

5
Ventas/RepVentas.aspx
View File

@@ -368,6 +368,11 @@
<asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
</asp:DropDownList>
</div>
<label class="col-md-1" id="LblTipoVenta" runat="server" visible="false">Tipo Venta:</label>
<div class="col-md-2" id="DivTipoVenta" runat="server" visible="false">
<asp:DropDownList ID="DdlTipoVenta" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="TipoVenta" DataValueField="CveTipoVenta">
</asp:DropDownList>
</div>
</div>
</div>
</div>

18
Ventas/RepVentas.aspx.vb
View File

@@ -215,7 +215,15 @@ Partial Class Ventas_RepVentas
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
End Sub
Private Sub CargaCombos()
Private Sub CargaCombos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
LblTipoVenta.Visible = True
DivTipoVenta.Visible = True
DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs' ")
DdlTipoVenta.DataBind()
DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1"))
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
@@ -265,8 +273,8 @@ Partial Class Ventas_RepVentas
TxtFechaISabana.Text = NowADS().FirstDayOfMonth.ToShortDateString
TxtFechaFSabana.Text = NowADS().ToShortDateString
End Sub
End Sub
#End Region
@@ -310,7 +318,7 @@ Partial Class Ventas_RepVentas
If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero) Then
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then
GvDatos.DataSource = ObjVentas.DtResultados
DtVentas = ObjVentas.DtResultados
Else
@@ -531,7 +539,7 @@ Partial Class Ventas_RepVentas
'LIGA A DETALLE
Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}&CveTipoVenta={e.Row.DBCampo("CveTipoVenta")}"
e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

50
Ventas/RepVentasDetalle.aspx
View File

@@ -331,14 +331,20 @@
</asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblFacturaGlobal" class="col-md-1 truncate" Visible="false">Factura Global:</asp:Label>
<div class="col-md-2" runat="server" id="DivFacturaGlobal" Visible="false">
<asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
<asp:ListItem Value ="-1">Todos</asp:ListItem>
<asp:ListItem Value="1">Solo Globales</asp:ListItem>
<asp:ListItem Value="0">Sin Globales</asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-2" runat="server" id="DivFacturaGlobal" visible="false">
<asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%">
<asp:ListItem Value="-1">Todos</asp:ListItem>
<asp:ListItem Value="1">Solo Globales</asp:ListItem>
<asp:ListItem Value="0">Sin Globales</asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-1" id="LblTipoVenta" runat="server" visible="false">Tipo Venta:</label>
<div class="col-md-2" id="DivTipoVenta" runat="server" visible="false">
<asp:DropDownList ID="DdlTipoVenta" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="TipoVenta" DataValueField="CveTipoVenta">
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -346,7 +352,7 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<%-- 0--%>
@@ -607,23 +613,30 @@
<asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cobranza" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- 42--%>
<asp:TemplateField HeaderText="Cobranza" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- 43--%>
<asp:TemplateField HeaderText="Descargar XML" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlXML" runat="server"></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- 43--%>
<%-- 44--%>
<asp:TemplateField HeaderText="Descargar PDF" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- 45--%>
<asp:TemplateField HeaderText="Tipo Venta" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -814,8 +827,11 @@
<asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>
</tr>
<tr>
<td style="text-align: left;"><asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></td>
<td style="text-align: left;"></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkTipoVenta" runat="server" Text="&nbsp;Tipo Venta" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
</tr>

14
Ventas/RepVentasDetalle.aspx.vb
View File

@@ -186,6 +186,8 @@ Partial Class RepVentasDetalle
TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString.ToEntero, -1).ToString.ToEntero
CveTipoRelacion = If(Request("CveTipoRelacion") IsNot Nothing, Request("CveTipoRelacion").ToString, "-1").ToString
Dim CveTipoVenta = If(Request("CveTipoVenta") IsNot Nothing, Request("CveTipoVenta").ToString.ToEntero, -1).ToString.ToEntero
DdlTipoVenta.SelectedValueExist(CveTipoVenta)
DdlTipoCliente.SelectedValueExist(TipoCliente)
@@ -318,6 +320,15 @@ Partial Class RepVentasDetalle
End Sub
Private Sub CargaCombos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
LblTipoVenta.Visible = True
DivTipoVenta.Visible = True
DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs'")
DdlTipoVenta.DataBind()
DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1"))
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
CargaClientes()
@@ -457,7 +468,7 @@ Partial Class RepVentasDetalle
CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(),
ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero) Then
ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then
DtVentas = AddRows(ObjVentas.DtResultados)
ImgImprimir.Enabled = True
GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
@@ -1031,6 +1042,7 @@ Partial Class RepVentasDetalle
GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked
GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
GvDatos.Columns(45).Visible = ChkTipoVenta.Checked
Personalizo = 1
If Personalizo = 1 Then

5
Ventas/RepVentasPeriodo.aspx.vb
View File

@@ -87,7 +87,10 @@ Partial Class RepVentasPeriodo
DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
DdlGrupo.SelectedValueExist("7")
DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
DdlEstatus.SelectedValue = "-1"
DdlEstatus.SelectedValue = "-1"
Else
DdlTipoComprobante.SelectedValuesIfExistM("Ing")
DdlEstatus.SelectedValuesIfExistM("3")
End If

39
Ventas/Ventas.aspx.vb
View File

@@ -7962,10 +7962,14 @@ Partial Class Ventas
EsCotizacion = True
End If
If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
'NO MODIFIQUE EL TipoComprobante
If CveVenta <= 0 OrElse EsCreaApartirDe Then
If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
End If
DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
If EsCotizacion Then
DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización")
End If
@@ -12424,6 +12428,9 @@ Partial Class Ventas
End If
End If
ObjFacturaBonificacion.CveTipoVenta = 7 'BONIFICACION
End Sub
@@ -14637,6 +14644,31 @@ Partial Class Ventas
End If
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso factura.TipoDocto = "Egs" AndAlso Not factura.EsGarantia Then
CveTipoVentaGuardar = -1
If NCDescuento Then
If ListaNCDescuento IsNot Nothing AndAlso ListaNCDescuento.Count > 0 Then
'VERIFICA SI BONIFICACION
If ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 2)) Then
CveTipoVentaGuardar = 7 ' BONIFICACION
ElseIf ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 1)) Then
CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
End If
End If
Else
If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then
'VERIFICA SI BONIFICACION
If ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 2)) Then
CveTipoVentaGuardar = 7 ' BONIFICACION
ElseIf ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 1)) Then
CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
End If
End If
End If
End If
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -37895,6 +37927,7 @@ Partial Class Ventas
ObjFacturaProntoPago.DtVentasNC = DtVentasNC
ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
ObjFacturaProntoPago.CveTipoVenta = 8 'PRONTO PAGO
Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)