diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 2422f98ee..2fa90b6e1 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1676,7 +1676,8 @@ Public Class ClsClientes End Function Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, - NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean + NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", + Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1703,6 +1704,8 @@ Public Class ClsClientes .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI End With diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 690d09452..8aec07c6d 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4274,7 +4274,12 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + If UsuarioActual.CveEmpresa.Contiene(172, 173) Then + ImprimirPDFStimulsoft(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + Else + ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + End If + End If diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index 118bd0604..643599192 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -1,777 +1,797 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxP.aspx.vb" Inherits="Compras_RepCxP" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - -
  • - PDF -
    • -
  • - Excel +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxP.aspx.vb" Inherits="Compras_RepCxP" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + +
  • + PDF +
    • +
  • + Excel <%----%> -
    • - -
  • - Ver Dlls en pesos -
    • -
  • - Personalizar Rango de Columnas -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - Cuentas Por Pagar - - - - - - -
    -
    -
    - - -
    -
    -
    -
    Proveedor:
    -
    - -
    -
    Clasificación:
    -
    - - - -
    -
    Fecha Inicio:
    -
    -
    - <%--width: 120px !important;--%> - - - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - <%--width: 120px !important;--%> - - - - - - - - - - -
    -
    -
    Grupo:
    - -
    - - - - - - - - - - - - - -
    -
    -
    - -
    - +
    +     +     + + + + + + + + + + + Saldo - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Total - - - - - - - - + + + + + + + + + Ventas - - - - - - - + + + + + + + + Saldo - - - - - - - + + + + + + + + Resta - - - - - - - + + + + + + + + % Recup. - - - - - - - + + + + + + + + % X Recup. - - - - - - - - - - - - - - - - -
    :
    -
    - - - + +
    + + + +
    + + +
    + + +
    Comprobación:
    @@ -230,14 +237,7 @@
    -
    Aplica NC:
    -
    - - - - - -
    +
    @@ -246,7 +246,14 @@
    - +
    Aplica NC:
    +
    + + + + + +
    diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 7538bb0e3..e5e5ed763 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -267,12 +267,16 @@ Partial Class RepCxPDetalle DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro) - Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() + Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero + + 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0")) + 'DdlSubProyecto.SelectedValueExist(CveSucursal) + + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro) DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0")) - DdlSubProyecto.SelectedValueExist(CveSucursal) - CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro) + 'CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro) Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero RblTipoCambio.SelectedValue = TipoMoneda.ToString @@ -344,6 +348,14 @@ Partial Class RepCxPDetalle Next + End Sub + + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveEstatus:=1) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + + UPFiltros.Update() End Sub Private Function CargaCuentasContables(DT As DataTable) As DataTable diff --git a/Empresas/140/Formatos/Salidas.rdlc b/Empresas/140/Formatos/Salidas.rdlc index f9f790b59..22fc05b6c 100644 --- a/Empresas/140/Formatos/Salidas.rdlc +++ b/Empresas/140/Formatos/Salidas.rdlc @@ -768,7 +768,7 @@ 0.22328cm 13.63291cm 0.89103cm - 4.09693cm + 3.51794cm 5 -     - - - -
  • - PDF -
    • -
  • - Excel -
    • -
  • - Excel -
    • -
  • - Excel Personalizado -
    • -
  • - Personalizar Columnas -
    • -
  • - Descarga PDFs -
    • -
  • - Descargar XML -
    • -
  • - Ver Grafica -
    • -     - - - - - - - - -     -     - - +<%@ Page Title="Reporte de Ventas - Detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentaDetalle.aspx.vb" Inherits="RepVentaDetalle" EnableEventValidation="false" %> + + + + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +
  • + Excel +
    • +
  • + Excel Personalizado +
    • +
  • + Personalizar Columnas +
    • +
  • + Descarga PDFs +
    • +
  • + Descargar XML +
    • +
  • + Ver Grafica +
    • +     + + + + + + + + +     +     + + <%--
    @@ -94,35 +94,35 @@
    -     --%> -     - - Reporte de Ventas - Detalle - - - - - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - - - - - - + --%> + + + Reporte de Ventas - Detalle + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + + + + + + + + <%-- @@ -132,46 +132,48 @@ - --%> -
    - -
    + --%> +
    + +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    - -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    + +
    + <%-- @@ -190,123 +192,122 @@ - --%> - -
    -
    -
    -
    - +
    + + +
    + + + +
    + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    + + + + + + + + + + +
    +
    +
    - -
    - + +
    + + + +
    + +
    + +
    + + +
    + + + + + +
    + + +
    + + + + + +
    + +
    +
    + +
    +
    @@ -314,489 +315,490 @@
    - Servicio Domicilio: -
    - - Todos - Si - No + Servicio Domicilio: +
    + + Todos + Si + No
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 494f0fa60..1814ef1ff 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -140,7 +140,7 @@ Partial Class RepVentaDetalle 'Dim CveSubProyecto As Integer Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString - CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString + CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString @@ -406,7 +406,8 @@ Partial Class RepVentaDetalle 'Carga Clasificacion Cliente DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa) DdlClienteClasificacion.DataBind() - DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) + DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) + DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2")) DdlTipoRelacion.DataSource = GlobalDTVtaTiposRelacion diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index 73b10d77b..78134bf6e 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -328,7 +328,7 @@ Servicio Domicilio: -
    +
    Todos Si diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index df2c98fa7..21fc6d4cb 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -156,7 +156,8 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13")) DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14")) DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20")) - DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21")) + DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21")) + DdlGrupo.Items.Insert(13, New ListItem("Giro", "22")) DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index bd1dddfbe..1ac9a835a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7616,53 +7616,32 @@
    - - -
    - - - - - -
    -
    - - - +
    +
    +
    + + + +
    +
    + +
    +
    -
    - -
    -
    - -
    -
    - - +
    - Física Moral -
    -
    - - - <%--
    - - - -
    --%> -
    @@ -7701,12 +7680,30 @@
    -
    -
    +
    +
    +
    + + + +
    +
    + + + +
    +
    +
    +
    + + + + +
    @@ -7714,18 +7711,6 @@
    -
    -
    - - - -
    -
    - - - -
    -
    @@ -7747,26 +7732,16 @@
    -
    -
    - - - - -
    -
    -
    -
    - +
    - + @@ -7774,12 +7749,25 @@
    +
    +
    + + + + + + +
    +
    + + + + + + +
    +
    - - - - -