.

App_Code/ClsPaginas.vb

@@ -4667,6 +4667,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720)
             PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721)
             PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722)
+            PaginaDict.Add("/Ventas/CatMetasVendedores.aspx".ToUpper(), 723)
 #End Region
 
 

RH/CatCursos.aspx.vb

@@ -642,28 +642,35 @@ Partial Class RH_CatCursos
 
         Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx"
         Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png")
+        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
 
         If Not File.Exists(RutaArchivo) Then
             RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
         End If
 
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Curso", _Curso))
+        params.Add(New ReportParameter("Contenido", Contenido))
+        params.Add(New ReportParameter("Fecha", Today.ToString))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        Dim DtDatos As New DataTable
+        Return StreamPDF("Empresas/72/Formatos/CursoInvitacion.rdlc", DtDatos, params, "Invitación a curso", "PDF")
 
-        Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+        'Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
-        Dim Tags As New List(Of TagsDocumentos)
+        'Dim Tags As New List(Of TagsDocumentos)
 
 
-        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & "   Por medio de la presente el departamento de recursos de esta empresa   le hace la cordial invitación  para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ".  Esperamos contar con su asistencia."
 
 
-        Tags.Add(New TagsDocumentos("{Curso}", _Curso))
+        'Tags.Add(New TagsDocumentos("{Curso}", _Curso))
-        Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
+        'Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
 
-        'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
+        ''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
-        objGemBoxDocument.SustituirTags(Tags)
+        'objGemBoxDocument.SustituirTags(Tags)
-        objGemBoxDocument.GuardarStream()
+        'objGemBoxDocument.GuardarStream()
 
 
-        Return objGemBoxDocument.GetBytesDocumento
+        'Return objGemBoxDocument.GetBytesDocumento
 
     End Function
 
@@ -678,7 +685,7 @@ Partial Class RH_CatCursos
 
         With itemMail
             itemMail.ArchivoBinario = ArchivoBinario
-            itemMail.NombreArchivo = "Invitación.docx"
+            itemMail.NombreArchivo = "Invitación.pdf"
 
         End With
 

Ventas/CatMetasVendedores.aspx

@@ -0,0 +1,91 @@
+<%@ Page Title="Catálogo de metas para vendedores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMetasVendedores.aspx.vb" Inherits="CatMetasVendedores" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de metas para vendedores
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkAgregar" runat="server"> Agregar Meta</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMotivoBaja,MotivoBaja,Estatus,FechaIng" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <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">Clasificacion:</label>
+                            <asp:DropDownList ID="DdlClasificacion" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            <i></i>
+                        </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">
+</asp:Content>

Ventas/CatMetasVendedores.aspx.vb

@@ -0,0 +1,61 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class CatMetasVendedores
+    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"))
+
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+    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, DdlClasificacion.SelectedValue.ToEntero) 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
+
+    Private Sub ResetDatosSeleccionadosModal()
+        DdlVendedores.SelectedValue = "-1"
+        TxtFechaI.Text = ""
+        DdlMarcas.SelectedValue = "-1"
+        TxtMetaCantidad.Text = ""
+        TxtMetaImporte.Text = ""
+        UpModalTiposD.Update()
+    End Sub
+
+End Class

Ventas/MetasVendedores.aspx.vb

@@ -91,21 +91,21 @@ Partial Class MetasVendedores
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
     End Sub
 
-    Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click
+    '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
+    '    If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 Then
-            Dim ObjVentas As New ClsVentas
+    '        Dim ObjVentas As New ClsVentas
-            If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal) Then
+    '        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")
+    '            Alert("Se agregó la meta al vendedor")
-            Else
+    '        Else
-                Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
+    '            Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
-            End If
+    '        End If
-        Else
+    '    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, ")))
+    '        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
+    '    End If
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+    '    RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
-        ResetDatosSeleccionadosModal()
+    '    ResetDatosSeleccionadosModal()
-    End Sub
+    'End Sub
 
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargarDatosReporte()

Ventas/Ventas.aspx.vb

@@ -22430,6 +22430,11 @@ Partial Class Ventas
         Dim PedidoContrato As String = ""
         Dim EnvioContacto As String = ""
         Dim EnvioDireccion As String = ""
+        Dim EnviarOficina As String = ""
+        Dim EnviarCalle As String = ""
+        Dim EnviarColonia As String = ""
+        Dim EnvioCiudad As String = ""
+        Dim EnvioTel As String = ""
         Dim Guia As String = ""
         If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
@@ -22442,6 +22447,11 @@ Partial Class Ventas
                 PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
                 EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
                 EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
+                EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
+                EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
+                EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
+                EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
+                EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
             End If
         End If
         Dim Dt As DataTable = Nothing
@@ -22460,6 +22470,11 @@ Partial Class Ventas
             params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
             params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
             params.Add(New ReportParameter("Guia", Guia))
+            params.Add(New ReportParameter("EnviarOficina", EnviarOficina))
+            params.Add(New ReportParameter("EnviarCalle", EnviarCalle))
+            params.Add(New ReportParameter("EnviarColonia", EnviarColonia))
+            params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
+            params.Add(New ReportParameter("EnvioTel", EnvioTel))
             ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString))
         End If
     End Sub