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

AF/CatSubTipos.aspx

@@ -52,8 +52,8 @@
                 </thead>
                 <tr>
                     <td>
-                        <asp:DropDownList ID="DdlTipos" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
+                        <asp:DropDownList ID="DdlTipos" runat="server" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVTipos" runat="server" ControlToValidate="DdlTipos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipos''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOTipos" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipos" Width="300px"></ajax:ValidatorCalloutExtender>

AF/CatSubTipos.aspx.vb

@@ -18,8 +18,10 @@ Partial Class AF_CatSubTipos
 	End Sub
 
     Private Sub CargaTipos()
+        DdlTipos.Items.Clear()
         DdlTipos.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlTipos.DataBind()
+        DdlTipos.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargaGlobal()
@@ -46,7 +48,6 @@ Partial Class AF_CatSubTipos
         Else
             CargaGrid("")
         End If
-        CargaGlobal()
     End Sub
 
 #Region "G V  D A T O S"
@@ -93,6 +94,7 @@ Partial Class AF_CatSubTipos
         End If
 
         If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -134,6 +136,7 @@ Partial Class AF_CatSubTipos
         End If
 
         If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -200,6 +203,8 @@ Partial Class AF_CatSubTipos
         ObjAF.Dispose()
 
         If Not TieneError Then
+            CargaGlobal()
+
             CargaDatos()
         End If
 

AF/CatTipos.aspx.vb

@@ -104,11 +104,7 @@ Partial Class AF_CatTipos
         UpDatos.Update()
     End Sub
     Private Sub CargaGlobal()
-        Dim ObjTipo As New ClsAF
+        GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
-        If ObjTipo.GetTiposActivosFijos(-1) Then
-            GlobalDTTipoActivoFijo(-1) = ObjTipo.DtResultados
-        End If
-        ObjTipo.Dispose()
     End Sub
 
 #Region " G V - D A T O S"

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -104,7 +104,7 @@
 
                             <asp:GridView ID="GvRefacturaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron solicitudes de cancelación"
                                 DataKeyNames="CveVenta,CveCliente,SerieFolio,Folio,TipoDocto,Nombre,FolioFiscal,Total,SubTotal,CveEstatusFactura,RFCReceptor,CveEstatusRefacturacion,CveVentaSustitucion,TotalSustitucion,RFCReceptorSustitucion,CveClienteSustitucion,FolioFiscalSustitucion,SerieFolioSustitucion"
-                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvDatos_RowDataBound">
+                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvRefacturaciones_RowDataBound">
                                 <Columns>
                                     <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="25%" />
                                     <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" ItemStyle-Width="265px" />
@@ -125,7 +125,7 @@
                                         <ItemTemplate>
                                             <div class="row" style="padding-bottom:3px;">
                                                 <div class="col-md-12">
-                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Cancelar refacturación" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Esta seguro que desea cancelar la factura pendiente?" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
                                                 </div>
                                             </div>
                                             <div class="row">

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -623,6 +623,35 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
             }
         }
     }
+
+    protected void GvRefacturaciones_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            GridView gv = (GridView)sender;
+            if (!(e.Row.DBCampo("PuedeRefacturar").ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion"))))
+            {
+                e.Row.FCHyperLink("HplRefact").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta"));
+                e.Row.FCHyperLink("HplRefact").Visible = true;
+            }
+
+            if (e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
+            {
+                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            }
+
+            if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
+            {
+                if (e.Row.FCLinkButton("LnkCancelar") != null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
+            }
+
+            if (string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscal")))
+            {
+                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            }
+        }
+    }
+
     public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e)
     {
         if (this.CveVenta > 0)

Ventas/Ventas.aspx.vb

@@ -23661,7 +23661,7 @@ Partial Class Ventas
 
 #Region " INVENTARIO POR ENTREGA"
     Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
-        If CveVentaPadre > 0 Then
+        If CveVentaPadre > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Dev" Then
             Dim RowVentas As DataRow = Nothing
             Using ObjVentas As New ClsVentas
                 If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
@@ -34657,6 +34657,10 @@ Partial Class Ventas
         CalculaLineasAdicionales()
         DdlLineaAdicional.Enabled = True
 
+        If UsuarioActual.TienePermisoProceso(357) AndAlso LblSeTimbro.Text = "No" Then
+            DdlUsoCFDI.Enabled = True
+        End If
+
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()