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/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index be991e0fc..319c6a699 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1770,6 +1770,11 @@ Public Class ClsProductosServicios SqlAdapter.Fill(Data) Retorno = True Catch Ex1 As SqlException + + If Ex1.Message.Contains("Producto princial no encontrado:") Or Ex1.Message.Contains("Producto unificado no encontrado:") Then + Alert(Ex1.Message, TipoMensaje.MsgAdvertencia) + End If + OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index f72a279b9..ab0e74c3a 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -10371,6 +10371,8 @@ Namespace Modelos Telefono = "" UTCOffsetVerano = -7 UTCOffsetInvierno = -7 + Acum_PortalUsuario = "" + Acum_PortalContrasena = "" End Sub Public Sub New() MyBase.New() @@ -10409,6 +10411,8 @@ Namespace Modelos Public Property ImprimeNombre As String Public Property UTCOffsetVerano As Integer Public Property UTCOffsetInvierno As Integer + Public Property Acum_PortalUsuario As String + Public Property Acum_PortalContrasena As String End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0770c8976..a53bd63c7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6584,7 +6584,7 @@ Partial Class Compras_Compras If RegistraConcepto225 Then - importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal + importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'no es necesario, ya se está interpretandoe l usado como producto @@ -6978,7 +6978,7 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True : Exit For End If End If @@ -6987,7 +6987,7 @@ Partial Class Compras_Compras .ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero, - .OtroGastoIngreso = OtrosGastosIngresos + .OtroGastoIngreso = -OtrosGastosIngresos 'Se manda en negativo para no afectar en prepoliza, en funcion AplicaPrePolizaPagoCompra se mete en positivo por default } AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If 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 @@
    +
    +
    + + + + + + +
    +
    + + + + + + +
    +
    - - - - -