Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsPaginas.vb

@@ -4663,6 +4663,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepRemisionesNC.aspx".ToUpper(), 687)
             PaginaDict.Add("/Ventas/CatCobranzaEstatus.aspx".ToUpper(), 7003)
             PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004)
+            PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720)
+            PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721)
+            PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722)
 #End Region
 
 
@@ -5924,7 +5927,8 @@ Public Class ClsPaginas
         If Vta.SubProyecto.Colonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", Vta.SubProyecto.Colonia)
         If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP)
         If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
-        If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
+        If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
+        If Not String.IsNullOrEmpty(Vta.SubProyecto.Telefono) AndAlso UsuarioActual.CveEmpresa = 141 Then SBDomicilioSucursal.AppendFormat(", Tel: {0}", Vta.SubProyecto.Telefono)
 
         DomicilioSucursal = SBDomicilioSucursal.ToString
 

App_Code/ClsVentas.vb

@@ -4216,6 +4216,67 @@ Public Class ClsVentas
         Return retorno
         'compila
     End Function
+    Public Function GetRepVentasMensuales(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, Optional CveSubProyecto As Integer = -1, Optional CveClasificacion As Integer = -1,
+                                          Optional CveVendedor As Integer = -1, Optional CveMarca As Integer = -1, Optional Modalidad As Integer = 0) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasMensualesGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+    Public Function GetRepVentasMensualesDetalle(CveEmpresa As Integer, CveCliente As Integer, FechaInicio As Date, FechaFin As Date, Optional CveSubProyecto As Integer = -1,
+                                                  Optional CveVendedor As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasMensualesDetalleGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@MesAño", SqlDbType.DateTime).Value = MesAño
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad
+            .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

App_Code/EntityModel.vb

@@ -49,7 +49,11 @@ Namespace Modelos
                                     Case "Single"
                                         prop.SetValue(Me, CSng(row(prop.Name)))
                                     Case "String"
-                                        prop.SetValue(Me, CStr(row(prop.Name)))
+                                        If String.IsNullOrEmpty(row(prop.Name)) Then
+                                            prop.SetValue(Me, "")
+                                        Else
+                                            prop.SetValue(Me, CStr(row(prop.Name)))
+                                        End If
                                     Case "UInt32"
                                         prop.SetValue(Me, CUInt(row(prop.Name)))
                                     Case "UInt64"

App_Code/Modelos.vb

@@ -8729,6 +8729,7 @@ Namespace Modelos
             FormatoFactura = ""
             SubProyecto = ""
             Correo = ""
+            Telefono = ""
             UTCOffsetVerano = -7
             UTCOffsetInvierno = -7
         End Sub
@@ -8738,20 +8739,8 @@ Namespace Modelos
         Public Sub New(Row As System.Data.DataRow)
             SetDefaultValues()
             If Row IsNot Nothing Then
-                Calle = Row("Calle").ToString
+                Me.setValues(Row)
-                NoExt = Row("NoExt").ToString
-                NoInt = Row("NoInt").ToString
-                Colonia = Row("Colonia").ToString
-                Localidad = Row("Localidad").ToString
-                Municipio = Row("Municipio").ToString
-                Estado = Row("Estado").ToString
-                Pais = Row("Pais").ToString
-                CP = Row("CP").ToString
-                SubProyecto = Row("SubProyecto").ToString
-                UTCOffsetVerano = Row("UTCOffsetVerano").ToString.ToEntero()
-                UTCOffsetInvierno = Row("UTCOffsetInvierno").ToString.ToEntero()
             End If
-
         End Sub
 
         Public ReadOnly Property LugarExp As String

Ashx/SIGWeb.ashx

@@ -177,6 +177,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function GetClientes(ByVal context As HttpContext) As String
         Dim retorno As String = ""
         Dim DtRetorno As DataTable = Nothing
+        Dim ColumnaNombre As String = "NombreComercial"
+        'Abreviaturas. N. Nombre, NC. NombreComercial,...
+        If IfNull(context.Request("ColTexto"), "") = "N" Then
+            ColumnaNombre = "Nombre"
+        End If
 
         Dim usuario As Usuario = UsuarioActual(context)
         Dim CveEmpresa As String
@@ -209,7 +214,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
             DtRetorno.Columns("CveCliente").ColumnName = "id"
-            DtRetorno.Columns("NombreComercial").ColumnName = "text"
+            DtRetorno.Columns(ColumnaNombre).ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
             context.Response.Write(retorno)
         Else

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -326,7 +326,7 @@ Partial Class Bancos_CuentasBancariasDetalle
             End If
         Else
             If DTUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", DdlUsuarios.SelectedValue.ToString)).Rows.Count > 0 Then
-                Alert("El usuario ya se encuntra con Acceso a la cuenta", TipoMensaje.MsgAdvertencia)
+                Alert("El usuario ya esta registrado en este numero de cuenta", TipoMensaje.MsgAdvertencia)
             Else
                 Row = DTUsuarios.NewRow
                 Row("CveCuenta") = DTUsuarios.Rows.Count + 1

Compras/PopUpVerFactura.aspx.vb

@@ -887,6 +887,7 @@ Partial Class PopUpVerFactura
             Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
             Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
             Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
+            Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
             Vta.RefDocto = dtVentas(0)("Ref").ToString
             Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
             Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString

Empresas/141/Formatos/Factura.rdlc

@@ -1498,62 +1498,10 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>VERACRUZ Y CUERNAVACA 148 SAN</Value>
+                    <Value>=Parameters!DomicilioSucursal.Value</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
+                      <FontSize>9pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>BENITO HERMOSILLO HERMOSILLO</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Tel:662-210-0041 662-210-3600</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Correo:veracruz@econollantas.com</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>MAT Juan Martin Contreras Castellanos</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
                       <FontWeight>Normal</FontWeight>
                     </Style>
                   </TextRun>
@@ -1566,7 +1514,7 @@
                     <Value />
                     <Style>
                       <FontFamily>Calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
+                      <FontSize>8pt</FontSize>
                       <FontWeight>Normal</FontWeight>
                     </Style>
                   </TextRun>
@@ -2039,11 +1987,45 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value />
+                    <Value>=iif(Parameters!ClienteContactoMail.Value = "","","Teléfono: ")</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
-                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteTelefono.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=iif(Parameters!ClienteContactoMail.Value = "","","Correo: ")</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteContactoMail.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -2855,7 +2837,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>IVA (16%):</Value>
+                    <Value>IVA:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
                       <FontSize>9pt</FontSize>

Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc

@@ -337,7 +337,7 @@
                               <Value>=Fields!Fecha.Value</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
-                                <Format>d</Format>
+                                <Format>dd/MM/yyyy</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -373,7 +373,7 @@
                               <Value>=  IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value)</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
-                                <Format>d</Format>
+                                <Format>dd/MM/yyyy</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -498,7 +498,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
               </TablixCells>

OC/OC.aspx

@@ -587,11 +587,10 @@
                         <div class="portlet-body">
                             <div class="row">
                                 <div class="col-md-1" style="max-width: 60px;">
-                                    Cliente:
+                                    Cliente:                               
-                               
                                 </div>
                                 <div class="col-md-2">
-                                    <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="CodigoNombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"  UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
                                     <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>

OC/OC.aspx.vb

@@ -529,7 +529,19 @@ Partial Class OC
                                 If DrCot IsNot Nothing Then
                                     HLCotizacion.Text = String.Format("{0}-{1}", DrCot("Serie"), DrCot("Folio")) 'CveVendedor
                                     DdlVendedor.SelectedValueExist(DrCot("CveVendedor").ToString())
-                                    Ddlcliente.SelectedValueExist(DrCot("CveCliente").ToString())
+
+
+                                    Try
+                                        Ddlcliente.txtText.Value = DrCot("ClienteNombre").ToString()
+                                        Ddlcliente.txtValue.Value = DrCot("CveCliente").ToString()
+                                    Catch ex As Exception
+
+                                    End Try
+
+
+
+
+
                                 End If
                             End If
                         End If
@@ -732,6 +744,8 @@ Partial Class OC
                 BtnSolicitudAnticipo.Visible = False
             End If
 
+            Ddlcliente.ddlWS.Attributes.Add("data-coltexto", "N")
+
             'Nuevo Proceso que permite modificar detalles
             If Not UsuarioActual.TienePermisoProceso(131) Then
                 If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then
@@ -1207,10 +1221,15 @@ Partial Class OC
 
             ''DATOS DE VENTA
             If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
-                Ddlcliente.SelectedValueExist(objOC.CveCliente.ToString)
+
-                If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
+                Ddlcliente.txtValue.Value = objOC.CveCliente.ToString
-                    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
+                Ddlcliente.txtText.Value = objOC.NombreCliente
-                End If
+
+                'If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
+
+                '    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
+
+                'End If
 
                 DdlVendedor.SelectedValueExist(objOC.CveVendedor.ToString)
                 If DdlVendedor.SelectedValue <> objOC.CveVendedor.ToString Then
@@ -2121,7 +2140,7 @@ Partial Class OC
         Dim TieneError = False
 
         'Entrega Directa requiere Cliente y Vendedor
-        If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
+        If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
             Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
             Return True
         End If
@@ -2138,6 +2157,11 @@ Partial Class OC
             Return True
         End If
 
+        If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
 
 
         'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
@@ -2372,7 +2396,7 @@ Partial Class OC
                 If Not TieneError Then ' AGREGAR REQUISICION
                     If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                      LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
+                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                      RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
                                      IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
 
@@ -2406,7 +2430,7 @@ Partial Class OC
 
                 If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                  LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
                                  CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                  Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
@@ -2539,7 +2563,7 @@ Partial Class OC
             End If
 
             If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
-                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero,
+                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero,
                                     DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                     Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
                                     PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then
@@ -2939,6 +2963,13 @@ Partial Class OC
 
     End Sub
     Protected Function GeneraOrdenes(ByRef objOrdenCompra As ClsOC, Conta As ClsContPAQi, ByRef ObjInventarios As ClsInventarios) As Boolean
+
+
+        'If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+        '    Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+        '    Exit Function
+        'End If
+
         If TipoOS Then Return False
 
         Dim CveCotizacion As Integer = 0
@@ -2978,7 +3009,7 @@ Partial Class OC
                         RetISR = TxtRetISR.Text.ToDecimal
 
                         If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                         PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                          EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                          CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then
@@ -3045,7 +3076,7 @@ Partial Class OC
 
             Else
                 If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                  EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                                  Promocion:=Promocion) Then
@@ -3653,7 +3684,9 @@ Partial Class OC
             Alert("Ocurrió un error al cargar la información del producto para actualizar. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-        Dim IvaPS = DrPS("IVA").ToString.ToDouble
+        Dim IvaPS = DrPS("IVA").ToString.ToDecimal
+        IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDouble
+        IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
 
         If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then
             RetISR = DrPS("RetISR").ToString.ToDouble
@@ -3661,8 +3694,8 @@ Partial Class OC
             'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
             '    IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDouble
             'End If
-            IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDouble
+
-            IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
+            ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
         End If
 
 
@@ -4855,7 +4888,9 @@ Partial Class OC
             generarAnticipo.Visible = True
             Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)
             Ddlcliente.DataBind()
-            Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            'Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
             DdlVendedor.DataSource = GlobalDTVendedores(CveEmpresaActual)
             DdlVendedor.DataBind()
             DdlVendedor.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -5347,7 +5382,7 @@ Partial Class OC
         End If
     End Sub
 
-    Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Ddlcliente.selectedindexchange
 
         DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.SelectedValue}"))
 
@@ -5363,7 +5398,7 @@ Partial Class OC
     End Sub
     Private Sub CargaDireccionesEnvioCliente()
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.SelectedValue.ToEntero, -1) Then
+        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.txtValue.Value.ToEntero, -1) Then
             DdlDireccionEnvio.DataSource = ObjClientes.DtResultados
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 DdlDireccionEnvio.Visible = True
@@ -6563,7 +6598,7 @@ Partial Class OC
     End Sub
     Protected Sub ImgCambiaClienteVendedor_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaClienteVendedor.Click
         Dim OC As New ClsOC
-        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
+        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
             CargaHistorial()
             Alert("El cambio de cliente/vendedor se hizo correctamente", TipoMensaje.MsgInformacion)
         End If
@@ -7238,7 +7273,7 @@ Partial Class OC
             End If
         Next
         TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.SelectedValue = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue
 
         CargaSuperior()
         CargaDatosDetalles()
@@ -7282,7 +7317,7 @@ Partial Class OC
 
         DdlClienteSucursalEnvio.Items.Clear()
 
-        If ObjCliente.GetSucursales(Ddlcliente.SelectedValue.ToEntero) Then
+        If ObjCliente.GetSucursales(Ddlcliente.txtValue.Value.ToEntero) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
             End If
@@ -7312,7 +7347,7 @@ Partial Class OC
 
     Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
 
-        If Not Ddlcliente.SelectedValue.ToEntero > 0 Then
+        If Not Ddlcliente.txtValue.Value.ToEntero > 0 Then
             Alert("Tiene que tener un cliente seleccionado", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -7321,7 +7356,7 @@ Partial Class OC
         Dim TieneError = False
         Dim Estatus = If(ChkEstatus.Checked, 1, 0)
 
-        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.SelectedValue.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.txtValue.Value.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
 
         If CveDireccionEnvio < 0 Then
             TieneError = True

Scripts/custom.js

@@ -1084,6 +1084,7 @@ function setwebservice(idDdlWS, idhdValue, idhdText, btn) {
                         CveSubProyecto: (!(DdlWS.data('cvesubproyecto')) || DdlWS.data('cvesubproyecto') == '') ? ((!(DdlWS.parent().data('cvesubproyecto')) || DdlWS.parent().data('cvesubproyecto') == '') ? -1 : DdlWS.parent().data('cvesubproyecto')) : DdlWS.data('cvesubproyecto'),
                         metodo: (!(DdlWS.data('metodo')) || DdlWS.data('metodo') == 'getps') ? ((!(DdlWS.parent().data('metodo')) || DdlWS.parent().data('metodo') == 'getps') ? 'getps' : DdlWS.parent().data('metodo')) : DdlWS.data('metodo'),
                         Pagina: (!(DdlWS.data('pagina')) || DdlWS.data('pagina') == '') ? '-2' : DdlWS.data('pagina'),
+                        ColTexto: (!(DdlWS.data('coltexto')) || DdlWS.data('coltexto') == '') ? 'NC' : DdlWS.data('coltexto')
                         //Metodo: metodo
                     };
                 },

SiteGPS.master

@@ -847,22 +847,23 @@
                         CveBitacora: -1
                     }
                 }
-                var json = JSON.stringify(request);
-                $.ajax({
-                    data: json,
-                    url: '/Ashx/SIGGPS.ashx',
-                    type: 'post',
-                    beforeSend: function () {
-                        console.log("procesando.....");
-                    },
-                    success: function (response) {
-                        console.log("notificacion actualizada....");
-                        var datos = JSON.parse(response);
-                        UpdateNotificacionesCampana(datos);
-                    }
-                });
 
-                setTimeout(startTimer, 60000); // callback
+                //var json = JSON.stringify(request);
+                //$.ajax({
+                //    data: json,
+                //    url: '/Ashx/SIGGPS.ashx',
+                //    type: 'post',
+                //    beforeSend: function () {
+                //        console.log("procesando.....");
+                //    },
+                //    success: function (response) {
+                //        console.log("notificacion actualizada....");
+                //        var datos = JSON.parse(response);
+                //        UpdateNotificacionesCampana(datos);
+                //    }
+                //});
+
+                //setTimeout(startTimer, 60000); // callback
             }
 
             //

Ventas/MetasVendedores.aspx

@@ -0,0 +1,115 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="MetasVendedores.aspx.vb" Inherits="MetasVendedores" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-scrollable {
+            margin-top: 0px !important;
+            margin-bottom: 0px !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Metas de Vendedores
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkAgregar" runat="server"> Agregar Meta</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de baja</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlVendedores">Vendedor:</label>
+                            <asp:DropDownList ID="DdlVendedores" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            <i></i>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="MotivoTxt">Mes y Año:</label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                <asp:TextBox Style="width: 110px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlMarcas">Marca:</label>
+                            <asp:DropDownList ID="DdlMarcas" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            <i></i>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtMetaCantidad" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="TxtMetaCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad meta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                            <label for="MotivoTxt">Cantidad meta:</label>
+                            <i></i>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtMetaImporte" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtMetaImporte" runat="server" ControlToValidate="TxtMetaImporte" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe meta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                            <label for="MotivoTxt">Importe meta:</label>
+                            <i></i>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgregarMetaVendedor" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                        <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+</asp:Content>

Ventas/MetasVendedores.aspx.vb

@@ -0,0 +1,56 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class MetasVendedores
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaDatosModal()
+        End If
+    End Sub
+
+    Private Sub CargaDatosModal()
+        DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedores.DataBind()
+        DdlVendedores.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarcas.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarcas.DataBind()
+        DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub ResetDatosSeleccionadosModal()
+        DdlVendedores.SelectedValue = "-1"
+        TxtFechaI.Text = ""
+        DdlMarcas.SelectedValue = "-1"
+        TxtMetaCantidad.Text = ""
+        TxtMetaImporte.Text = ""
+        UpModalTiposD.Update()
+    End Sub
+
+    Protected Sub LnkAgregar_Click() Handles LnkAgregar.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+
+    Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click
+
+        If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 Then
+            Dim ObjVentas As New ClsVentas
+            If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal) Then
+                Alert("Se agregó la meta al vendedor")
+            Else
+                Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
+            End If
+        Else
+            Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
+        End If
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+        ResetDatosSeleccionadosModal()
+    End Sub
+End Class

Ventas/RepIngresosDetalle.aspx

@@ -144,6 +144,11 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Tipo">
+                        <ItemTemplate>
+                            <asp:Literal runat="server" Text='<%# Eval("TipoDocto")%>'> </asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="SerieFolio">
                         <ItemTemplate>
                             <asp:hyperlink runat="server" Text='<%# Eval("SerieFolio")%>' NavigateUrl='<%# Eval("CveVenta","/Ventas/Ventas.aspx?CveVenta={0}") %>'> </asp:hyperlink>
                         </ItemTemplate>
@@ -183,6 +188,16 @@
                             <asp:Label runat="server" Text='<%# Eval("Total", "${0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Amortización" ItemStyle-HorizontalAlign ="Right">
+                        <ItemTemplate>
+                            <asp:Literal runat="server" Text='<%#If(Eval("EsAmortizacion").ToString = "True", "Si", "No")%>'> </asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha Venta" ItemStyle-HorizontalAlign ="Right">
+                        <ItemTemplate>
+                            <asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'> </asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Ventas/RepVentasMensuales.aspx

@@ -0,0 +1,230 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentasMensuales.aspx.vb" Inherits="RepVentasMensuales" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-scrollable {
+            margin-top: 0px !important;
+            margin-bottom: 0px !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Ventas Mensuales
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter" style="">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 122px; position: relative;">
+                    <div class="tools">
+                        <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" /></td>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros caption magindate">
+                        <div class="row">
+
+                            <%--<div class="col-md-1 truncate">Proveedor</div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
+                            </div>--%>
+
+                            <div class="col-md-1 truncate">Fecha Inicio: </div>
+                            <div class="col-md-2 col-sm-2">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                            </div>
+
+                            <div class="col-md-1 truncate">Fecha Fin: </div>
+                            <div class="col-md-2 col-sm-2">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+
+                            <div class="col-md-1 truncate">Sucursal: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <div class="row" style="margin-top:10px">
+                            <div class="col-md-1 truncate" style="width:170px">Clasificación de Productos: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlClasificacionesPS" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1 truncate" style="width:170px">Vendedor: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1 truncate" style="width:170px">Marca: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlMarca" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveMarca" DataTextField="Marca"></asp:DropDownList>
+                            </div>
+
+                        </div>
+                        <div class="row" style="margin-top:10px">
+                            <div class="col-md-1 truncate" style="width:170px">Grupo: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlModalidad" runat="server" CssClass="form-control input-sm select2me" Width="100px">
+                                    <asp:ListItem Value="0">Clientes</asp:ListItem>
+                                    <asp:ListItem Value="1">Sucursales</asp:ListItem>
+                                    <asp:ListItem Value="2">Productos Servicios</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+
+                    </div>
+                </div>
+                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                    </div>
+                    <div class="row">
+                    </div>
+                    <div id="DivFamiliaSubFamilia" class="row" runat="server" visible="false">
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id="dvCuerpo" style ="width:100% ">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Clave,Nombre,Total"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Nombre Cliente" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="HlkNombre" runat="server" Target="_blank" Text='<%# Eval("Nombre").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ene" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblEne" runat="server" Target="_blank" Text='<%# Eval("Ene").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Feb" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblFeb" runat="server" Target="_blank" Text='<%# Eval("Feb").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Mzo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblMzo" runat="server" Target="_blank" Text='<%# Eval("Mzo").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Abr" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblAbr" runat="server" Target="_blank" Text='<%# Eval("Abr").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="May" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblMay" runat="server" Target="_blank" Text='<%# Eval("May").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Jun" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblJun" runat="server" Target="_blank" Text='<%# Eval("Jun").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Jul" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblJul" runat="server" Target="_blank" Text='<%# Eval("Jul").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ago" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblAgo" runat="server" Target="_blank" Text='<%# Eval("Ago").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Sep" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblSep" runat="server" Target="_blank" Text='<%# Eval("Sep").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Oct" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblOct" runat="server" Target="_blank" Text='<%# Eval("Oct").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Nov" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblNov" runat="server" Target="_blank" Text='<%# Eval("Nov").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Dic" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblDic" runat="server" Target="_blank" Text='<%# Eval("Dic").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:HyperLink ID="lblTotal" runat="server" Target="_blank" Text='<%# Eval("Total").ToString() %>'> </asp:HyperLink>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+</asp:Content>

Ventas/RepVentasMensuales.aspx.vb

@@ -0,0 +1,120 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class RepVentasMensuales
+    Inherits ClsPaginas
+
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            InicializarFiltros()
+            CargaDatos()
+        End If
+    End Sub
+    Private Sub InicializarFiltros()
+        Dim dNow As Date = Now
+        TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
+        dNow = dNow.AddDays(-30)
+        TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacionesPS.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacionesPS.DataBind()
+        DdlClasificacionesPS.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
+                                            DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+
+    Public Sub LnkPDF_Click() Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("Modalidad", DdlModalidad.SelectedValue))
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
+    End Sub
+
+    Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim CveCliente As Integer = -1
+            Dim CveSubProyecto As Integer = -1
+            If DdlModalidad.SelectedValue = "0" Then
+                CveCliente = e.Row.DataKey("Clave").ToEntero
+                CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
+            Else
+                CveSubProyecto = e.Row.DataKey("Clave")
+            End If
+            Dim FechaInicio As Date = TxtFechaI.Text
+            Dim FechaFin As Date = TxtFechaF.Text
+            Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero
+            Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
+            Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}",
+                                                                    CveCliente, CveSubProyecto, FechaInicio, FechaFin, CveMarca, CveVendedor)
+            e.Row.FCHyperLink("HlkNombre").NavigateUrl = URL
+            e.Row.FCHyperLink("LblEne").NavigateUrl = URL
+            e.Row.FCHyperLink("LblFeb").NavigateUrl = URL
+            e.Row.FCHyperLink("LblMzo").NavigateUrl = URL
+            e.Row.FCHyperLink("LblAbr").NavigateUrl = URL
+            e.Row.FCHyperLink("LblMay").NavigateUrl = URL
+            e.Row.FCHyperLink("LblJun").NavigateUrl = URL
+            e.Row.FCHyperLink("LblJul").NavigateUrl = URL
+            e.Row.FCHyperLink("LblAgo").NavigateUrl = URL
+            e.Row.FCHyperLink("LblSep").NavigateUrl = URL
+            e.Row.FCHyperLink("LblOct").NavigateUrl = URL
+            e.Row.FCHyperLink("LblNov").NavigateUrl = URL
+            e.Row.FCHyperLink("LblDic").NavigateUrl = URL
+        End If
+    End Sub
+End Class

Ventas/RepVentasMensualesDetalle.aspx

@@ -0,0 +1,142 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentasMensualesDetalle.aspx.vb" Inherits="RepVentasMensualesDetalle" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-scrollable {
+            margin-top: 0px !important;
+            margin-bottom: 0px !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Rep. Detalle de la Venta Mensual
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Nombre,Etiqueta,Ene,Feb,Mzo,Abr,May,Jun,Jul,Ago,Sep,Oct,Nov,Dic,Total"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Nombre Cliente" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Nombre").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ene" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Ene").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Feb" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Feb").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Mzo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Mzo").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Abr" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Abr").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="May" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("May").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Jun" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Jun").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Jul" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Jul").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ago" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Ago").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Sep" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Sep").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Oct" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Oct").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Nov" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Nov").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Dic" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Dic").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Total").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+</asp:Content>

Ventas/RepVentasMensualesDetalle.aspx.vb

@@ -0,0 +1,74 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class RepVentasMensualesDetalle
+    Inherits ClsPaginas
+
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        'URL DE PRUEBA
+        '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
+        Dim FechaInicio As Date = Request.QueryString("FechaInicio")
+        Dim FechaFin As Date = Request.QueryString("FechaFin")
+        Dim CveCliente As Integer = Request.QueryString("CveCliente")
+        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
+        Dim CveMarca As Integer = Request.QueryString("CveMarca")
+        Dim CveVendedor As Integer = Request.QueryString("CveVendedor")
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
+
+    Public Sub LnkPDF_Click() Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("Modalidad", 2))
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
+    End Sub
+
+    Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
+    End Sub
+
+    Public Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("Etiqueta") = "Padre" Then
+                e.Row.CssClass = "Totales"
+            ElseIf e.Row.DataKey("Etiqueta") = "SubPadre" Then
+                e.Row.CssClass = "SubTotales"
+            End If
+        End If
+    End Sub
+End Class

Ventas/Ventas.aspx.vb

@@ -5835,6 +5835,11 @@ Partial Class Ventas
         Descuento = (GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Text.ToDecimal).RoundSQL(NumeroDecimales)
         CuentaPredial = GvPS.Rows(e.RowIndex).FCTextBox("TxtPredial").Text.Trim
 
+        If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
+            Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If UsuarioActual.CveEmpresa = 140 Then
             Descuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero, Cantidad, PU)
         End If
@@ -6683,7 +6688,7 @@ Partial Class Ventas
         'If (UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 81, 83) And UsuarioActual.CveUsuario = 100) Or UsuarioActual.CveEmpresa.Contiene(80, 83) Or UsuarioActual.CveUsuario = 100 Then
         If (Archivo.Exists Or Archivo2.Exists) And IfNull(CveVenta, 0).ToString.ToEntero > 0 Then
             HplDownPDF.Visible = True
-            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))
+            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
         End If
 
         UpnTools.Update()
@@ -8803,8 +8808,8 @@ Partial Class Ventas
             'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
             ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
 
-            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
+            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
-            If Timbre.Comprobante.Total > 0 Then
+            If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
             End If
 
@@ -9763,7 +9768,7 @@ Partial Class Ventas
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then
-                                ConceptoContable = If(UsuarioActual.CveEmpresa.Contiene(1, 119), 95, ConceptoContable)
+                                ConceptoContable = If(UsuarioActual.CveEmpresa.Contiene(119), 95, ConceptoContable)
                                 importeMovimiento = ObjFactura.SubTotal * ValorMultiplicador
                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -13920,6 +13925,11 @@ Partial Class Ventas
             Return False
         End If
 
+        If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
+            Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
         'VALIDA PROMOCIONES
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then

vwd.webinfo

@@ -19,6 +19,12 @@
   
     
   
+    
+  
+    
+  
+    
+  
     
   
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>