Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
caudillochon
@@ -11400,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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
211
Ashx/E194.ashx
211
Ashx/E194.ashx
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -2893,7 +2893,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 = ""
|
||||
@@ -3098,7 +3098,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
|
||||
@@ -3117,7 +3117,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
|
||||
@@ -3926,7 +3926,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)
|
||||
@@ -3978,6 +3978,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))
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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 < 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 < 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 < 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 < 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>
|
||||
|
||||
@@ -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,31 +99,29 @@
|
||||
<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>
|
||||
|
||||
@@ -1662,6 +1662,7 @@ Partial Class Ventas_ClientesAbonar
|
||||
DtVentasNC.AcceptChanges()
|
||||
|
||||
ObjFacturaDevolucion.DtVentasNC = DtVentasNC
|
||||
ObjFacturaDevolucion.CveTipoVenta = 8 'PRONTO PAGO
|
||||
|
||||
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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">
|
||||
@@ -337,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">
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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>"
|
||||
|
||||
@@ -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=" Kilometraje" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;"><asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text=" Cobranza" /></td>
|
||||
<td style="text-align: left;"></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text=" Cobranza" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkTipoVenta" runat="server" Text=" Tipo Venta" />
|
||||
</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text=" Descripción Venta" /></td>
|
||||
</tr>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -12424,6 +12424,9 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ObjFacturaBonificacion.CveTipoVenta = 7 'BONIFICACION
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -14638,6 +14641,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,
|
||||
@@ -37901,6 +37929,7 @@ Partial Class Ventas
|
||||
ObjFacturaProntoPago.DtVentasNC = DtVentasNC
|
||||
|
||||
ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
|
||||
ObjFacturaProntoPago.CveTipoVenta = 8 'PRONTO PAGO
|
||||
|
||||
Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user