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

Compras/Compras.aspx.vb

@@ -8626,7 +8626,7 @@ Partial Class Compras_Compras
             Dim IndicePrimero As Integer = 0
 
             For Each dRow As DataRow In TmpDT.Rows
-                If Boolean.Parse(dRow("AplicaIEPS").ToString) Then
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And dRow("IEPSPS").ToString.ToDecimal > 0 Then
                     IndicePrimero = IndiceContador
                     Exit For
                 End If

Compras/PopUpVerFactura.aspx.vb

@@ -1437,7 +1437,7 @@ Partial Class PopUpVerFactura
                 DescargarArchivoPDFTraslado(Archivo, Path)
             Else
                 If Exten = "pdf" Then
-                    Dim ObjTimbres As New Timbres("Rec", cvetimbre, UsuarioActual)
+                    Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)
 
                     GeneraPDFFactura(ObjTimbres.ObjFactura)
                     Archivo = New System.IO.FileInfo(Path)

Compras/RepComprasAF.aspx

@@ -81,7 +81,7 @@
                             </div>
                             <div class="col-md-1 ">Grupo:</div>
                             <div class=" col-md-2 ">
-                                <asp:DropDownList CssClass=" select2me" Width="80%" ID="DdlGrupo" runat="server">
+                                <asp:DropDownList CssClass=" select2me"  ID="DdlGrupo" runat="server" Width="95%">
                                     <asp:ListItem Text="Año" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Mes" Value="2"></asp:ListItem>
                                     <asp:ListItem Selected="True" Text="Año/Mes" Value="3"></asp:ListItem>

Compras/RepComprasAF.aspx.vb

@@ -90,9 +90,22 @@ Partial Class Compras_RepComprasAF
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
-        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+
+        Dim ObjClasificacion As New ClsClasificaciones
+
+        If ObjClasificacion.GetClasificacion2ProductoServicio(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion2.DataSource = ObjClasificacion.DtResultados
+        Else
+            DdlClasificacion2.DataSource = Nothing
+        End If
+
+
+        ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
 
+
+
+
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
 

Compras/RepComprasAFDetalle.aspx

@@ -173,10 +173,7 @@
                                 <asp:DropDownList CssClass=" select2me"  ID="DdlProveedores" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="95%">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
-                            </div>
-
-                        
-                        
+                            </div>                        
 
                     </div>                
 
@@ -194,7 +191,7 @@
                          <div class="col-md-1">Clasificación 2:</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                
                             </asp:DropDownList>
                         </div> 
 
@@ -293,6 +290,17 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
+                     <asp:TemplateField>
+                        <HeaderTemplate>
+                           Clasificación 2
+                        </HeaderTemplate>
+                        <ItemTemplate>                           
+                            <asp:Label  ID="LblClasificacion2"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("Clasificacion2")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    
+
                     
 
                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left">

Compras/RepComprasAFDetalle.aspx.vb

@@ -186,9 +186,24 @@ Partial Class Compras_RepComprasAFDetalle
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
-        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'DdlClasificacion2.DataBind()
+
+        Dim ObjClasificacion As New ClsClasificaciones
+
+        If ObjClasificacion.GetClasificacion2ProductoServicio(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion2.DataSource = ObjClasificacion.DtResultados
+        Else
+            DdlClasificacion2.DataSource = Nothing
+        End If
+
+
+        ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
-        DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
+        DdlClasificacion2.Items.Insert(0, New ListItem("Totas", "-1"))
+        DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
+        DdlClasificacion2.SelectedValueExist(-1)
+
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()

Compras/RepCxP.aspx

@@ -269,7 +269,17 @@
                                 <asp:ListBox ID="DdlEmpresas" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Empresa" DataValueField="CveEmpresa"></asp:ListBox>
                             </div>
                         </div>
-
+                        <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                            Moneda:
+                        </div>
+                             
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlMoneda" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Dolares" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Compras/RepCxP.aspx.vb

@@ -180,7 +180,7 @@ Partial Class Compras_RepCxP
         If txtFechaVF.Text = "" Then FechaVF = "-1"
         Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
         Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
-        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
+        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                       DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
                       TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then
             GvCxP.DataSource = Mov.DtResultados