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

Ventas/RepAuxiliarFacturas.aspx

@@ -154,6 +154,9 @@
                     <asp:BoundField HeaderText="Tot. Máximo" DataField="MAX_Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <asp:BoundField HeaderText="Tot. Promedio" DataField="AVG_Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <asp:BoundField HeaderText="Tot. Mínimo" DataField="MIN_Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" />
+                    <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
+
+                    
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />

Ventas/RepPS.aspx

@@ -134,6 +134,32 @@
                         </div>
                     </div>
                 </div>
+                
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                        <label class="col-md-1 truncate">Productos Servicios:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                        </div>
+                        
+                        <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:ListBox ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%" data-text="Todos" SelectionMode="Multiple">
+                            </asp:ListBox>
+                        </div>
+                        <label runat="server" id="LblLinea" data-placement="top" class="col-md-1" visible="false">Linea:</label>
+                        <div runat="server" id="DivLinea" class="col-md-2" visible="false">
+                            <asp:ListBox ID="DdlLinea" CssClass="select2me" runat="server" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Style="width: 100%"  data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
+                        </div>
+                        
+                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
+                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
+                            <asp:ListBox ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%"  data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
+                        </div>
+
+                        
+                    </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -142,11 +168,19 @@
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron productos con los filtros especificados" ToolTip="Listado de Ventas"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
                 <Columns>
-                    <asp:TemplateField HeaderText="Grupo" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Grupo"  ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField   ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate >
+
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlGrupoPS" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%">
                         <ItemTemplate>
                             <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Literal>

Ventas/RepPS.aspx.vb

@@ -33,6 +33,39 @@ Partial Class Ventas_RepPS
 
     Private Sub CargaCombos()
         CargaTipoCentroCosto()
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = ""
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        End If
+
+
+        If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
+            DivMarca.Visible = True
+            LblMarca.Visible = True
+            LblLinea.Visible = True
+            DivLinea.Visible = True
+
+            Using ObjMarcas As New ClsProductosServicios
+                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+                    DdlMarcaPSDes.DataBind()
+                End If
+            End Using
+        End If
+
+        DdlLinea.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa)
+        DdlLinea.DataBind()
+        'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
     End Sub
 
     Private Sub CargaTipoCentroCosto()
@@ -70,9 +103,12 @@ Partial Class Ventas_RepPS
 
     Private Sub CargaDatos()
 
+        Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM)
+        Dim Linea As String = If(DdlLinea.GetSelectedValuesM = "", "-1", DdlLinea.GetSelectedValuesM)
+        Dim Marca As String = If(DdlMarcaPSDes.GetSelectedValuesM = "", "-1", DdlMarcaPSDes.GetSelectedValuesM)
         Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero()
         Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero()
-        Dim CvePS As Integer = -1
+        Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero()
         Dim CveMoneda As Integer = -1
         Dim TC As Integer = 1
         Dim TCEspecifico As Decimal = -1
@@ -81,7 +117,7 @@ Partial Class Ventas_RepPS
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
 
         Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then
+        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then
             DtReporte = ObjVentas.DtResultados.Copy()
             GvDatos.DataSource = DtReporte
         Else
@@ -97,14 +133,25 @@ Partial Class Ventas_RepPS
         If e.Row.RowType = DataControlRowType.DataRow Then
             Select Case e.Row.DBCampo("Orden").ToString.ToEntero()
                 Case 4
+
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                     e.Row.CssClass = "Totales"
                 Case 3
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                     e.Row.CssClass = "SubTotales2"
                 Case 2
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                     e.Row.CssClass = "SubTotales"
                 Case 1
+                    e.Row.Cells(0).ColumnSpan = 2
+                    e.Row.Cells(1).Visible = False
                     e.Row.CssClass = "SubTotalesB"
                 Case 0
+                    e.Row.Cells(0).ColumnSpan = 1
+                    e.Row.Cells(1).Visible = True
                     e.Row.CssClass = "Texto"
             End Select
         End If

Ventas/RepProductosServicios.aspx.vb

@@ -295,12 +295,12 @@ Partial Class Ventas_RepProductosServicios
             DivMarca.Visible = True
             LblMarca.Visible = True
 
-            Dim ObjMarcas As New ClsProductosServicios
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                ObjMarcas.Dispose()
-                DdlMarcaPSDes.DataBind()
-            End If
+            Using ObjMarcas As New ClsProductosServicios
+                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+                    DdlMarcaPSDes.DataBind()
+                End If
+            End Using
         End If
         DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
     End Sub

Ventas/Ventas.aspx.vb

@@ -3668,7 +3668,7 @@ Partial Class Ventas
                                 HlCuentaTerminal.Visible = True
                             End If
                             CargarSaldoAuxiliar(CveCliente)
-                            TabAuxiliarConta.Visible = True
+                            TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306)
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)