AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2023-03-30 06:53:46 -07:00
parent 72733294f3 631728a069
commit 6bfc27ec7d
6 changed files with 48 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/CatSubTipos.aspx
View File

@@ -52,8 +52,8 @@
</thead>
<tr>
<td>
<asp:DropDownList ID="DdlTipos" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlTipos" runat="server" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
</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>

13
AF/CatSubTipos.aspx.vb
View File

@@ -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"
@@ -92,7 +93,8 @@ Partial Class AF_CatSubTipos
CargaGrid("")
End If
If Not TieneError Then
If Not TieneError Then
CargaGlobal()
CargaDatos()
End If
End Sub
@@ -133,7 +135,8 @@ Partial Class AF_CatSubTipos
CargaGrid("")
End If
If Not TieneError Then
If Not TieneError Then
CargaGlobal()
CargaDatos()
End If
End Sub
@@ -199,7 +202,9 @@ Partial Class AF_CatSubTipos
End If
ObjAF.Dispose()
If Not TieneError Then
If Not TieneError Then
CargaGlobal()
CargaDatos()
End If

6
AF/CatTipos.aspx.vb
View File

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

4
Ventas/RepCancelacionesPorRespuesta.aspx
View File

@@ -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">

29
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -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)

6
Ventas/Ventas.aspx.vb
View File

@@ -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()