Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/ProductosServicios.aspx

@@ -475,7 +475,7 @@
                                                         </div>
                                                         <div class="actions">
                                                             <div class="btn-group">
-                                                                <asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                                                                <asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="top" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
                                                             </div>
                                                         </div>
                                                     </div>
@@ -2340,10 +2340,12 @@
                             <ContentTemplate>
                                 <div class="row">
                                     <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlPSAdicional" Width="100%" runat="server" CssClass="form-control select2me" DataValueField="CvePS" DataTextField="PS"></asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RFVPSAdicional" runat="server" ControlToValidate="DdlPSAdicional" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto/Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                            <label for="<%= DdlPSAdicional.ClientID.ToString()%>">Producto/Servicio:</label>
+                                        <div class="form-group form-md-line-input input-iconright">                                           
+                                            
+                                            <ADS:Dropdownlost runat="server" ID="DdlPSAdicional" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me"  CssStyle="width:100%" DataTextField="PSCodigo" DataValueField="CvePS" />                                                
+                                            <label for="<%= DdlPSAdicional.ClientID.ToString()%>" >Producto/Servicio:</label>
+                                            
+                                            
                                         </div>
                                     </div>
                                     <div class="col-md-6" id="DivTipoAdicional" runat="server" visible="false">

Ventas/ProductosServicios.aspx.vb

@@ -1982,10 +1982,12 @@ Partial Class ProductosyServicios
         BtnAgregarPSAdicional.Text = "Agregar"
         CvePSAdicional = -1
 
-        DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
-        DdlPSAdicional.DataBind()
-        DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
-        UpAddPSAdicional.Update()
+        CargaPSAdicional(DdlPSAdicional)
+
+        'DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
+        'DdlPSAdicional.DataBind()
+        'DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
+
 
         DdlPSAdicional.SelectedValue = "-1"
         TxtCantidadPSAdicional.Text = ""
@@ -1993,9 +1995,36 @@ Partial Class ProductosyServicios
         RBLCantidad.SelectedValue = "1"
         RblTipoAdicional.SelectedValue = "1"
 
+        UpAddPSAdicional.Update()
         RegistraScript("$('#divAddPSAdicional').modal();")
     End Sub
+
+    Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
+
+        Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
+
+        If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
+            Objeto.ddl.Items.Clear()
+            Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
+            Objeto.ddl.DataBind()
+            Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+            Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        Else
+            Objeto.SelectedValue = " - 1"
+            Objeto.txtText.Value = ""
+            Objeto.txtValue.Value = ""
+        End If
+
+    End Sub
+
     Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
+
+
+        If DdlPSAdicional.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjProductosServicios As New ClsProductosServicios()
         ObjProductosServicios.IniciaTransacSQL()
         Dim TieneError As Boolean = False
@@ -2017,7 +2046,7 @@ Partial Class ProductosyServicios
         End If
 
         If TieneError Then
-            Alert("Ocurrio un error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
+            Alert("Ocurrio un Error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
             ObjProductosServicios.RollBack()
         Else
             ObjProductosServicios.Commit()
@@ -2032,6 +2061,8 @@ Partial Class ProductosyServicios
 
     Protected Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
         BtnAgregarPSAdicional.Text = "Guardar"
         TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad")
         PSAdicionalAnterior = GvRow.DataKey("PS").ToString
@@ -2044,17 +2075,24 @@ Partial Class ProductosyServicios
             UpCantidad.Visible = True
             RBLCantidad.SelectedValue = "2"
         End If
-        UpAddPSAdicional.Update()
 
-        DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
-        DdlPSAdicional.DataBind()
-        DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
-        UpAddPSAdicional.Update()
 
         CvePSAdicional = GvRow.DataKey("CvePSAdicional").ToEntero
+
+        CargaPSAdicional(DdlPSAdicional)
+
+        DdlPSAdicional.txtValue.Value = GvRow.DataKey("CvePSAdicional")
+        DdlPSAdicional.txtText.Value = GvRow.DataKey("CodigoPS")
+
         DdlPSAdicional.SelectedValue = GvRow.DataKey("CvePSAdicional")
+        DdlPSAdicional.SelectedText = GvRow.DataKey("CodigoPS")
+
+
+        UpBodyDireccion.Update()
+        UpAddPSAdicional.Update()
 
         RegistraScript("$('#divAddPSAdicional').modal();")
+
     End Sub
 
     Protected Sub RBLCantidad_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -3261,7 +3299,7 @@ Partial Class ProductosyServicios
             Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
             For Each Franquicia As Integer In EmpresasFranquicia
                 Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
-                Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
+                Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.txtText.Value)).ToEntero
 
                 If CvePSPagina <= 0 Then
                     Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)

Ventas/RepComisionesSMS.aspx

@@ -156,7 +156,7 @@
                                   <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                                       DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico"
                                       data-sort="true"
-                                      EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                      EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                       <Columns>
 
                                           <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta"  DatatextField="SerieFolio" ItemStyle-HorizontalAlign="Left" />

Ventas/RepComisionesSMS.aspx.vb

@@ -375,6 +375,7 @@ Partial Class Ventas_RepComisionesSMS
             If e.Row.DBCampo("SerieFolio") = "" Then
                 e.Row.CssClass = "SubTotales"
             End If
+            e.Row.Cells(4).Attributes.Add("data-order", e.Row.DBCampo("FechaCirugia").ToDate.ToString("yyyyMMddHHmmss"))
         End If
 
     End Sub

Ventas/RepVentaDetalle.aspx.vb

@@ -219,6 +219,7 @@ Partial Class RepVentaDetalle
 
         DdlServicioDomicilio.SelectedValue = If(Request("ServicioDomicilio") IsNot Nothing, Request("ServicioDomicilio").ToString, "-1").ToString
         DdlFacturaGlobal.SelectedValue = If(Request("EsFacturaGlobal") IsNot Nothing, Request("EsFacturaGlobal").ToString, "-1").ToString
+        DdlFilial.SelectedValue = IfNull(Request("EsFilial"), "-1").ToString
 
         UPFiltros.Update()
 

Ventas/RepVentas.aspx

@@ -334,13 +334,6 @@
                                 <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-1 truncate">Relación:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
-                            </asp:DropDownList>
-                        </div>
-
-
                         <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
                         <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
                             <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
@@ -358,6 +351,13 @@
                                 </asp:DropDownList>
                             </div>
                     </div>
+                    <div class="row">
+                         <label class="col-md-1 truncate">Relación:</label>
+                             <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
+                                 </asp:DropDownList>
+                             </div>
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepVentas.aspx.vb

@@ -486,7 +486,7 @@ Partial Class Ventas_RepVentas
 
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"