-- eliminados

This commit is contained in:
2023-07-04 18:34:52 -07:00
parent 019ee97be9
commit 528ce885fa
4 changed files with 0 additions and 552 deletions

View File

@@ -1,216 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="GraficaGantt.aspx.vb" Inherits="OI_GraficaGantt" %>
<asp:Content ID="ContentCP" ContentPlaceHolderID="CP" Runat="Server">
<link href="../Metronic/GraficaGantt/dhtmlxgantt.css" rel="stylesheet" />
<style>
.scalasgants input:checked + label{
border-bottom: 2px solid #45B6AF;
}
.scalasgants input{
display:none;
}
.scalasgants label{
padding:5px;
padding-bottom:10px;
}
.scalasgants label:hover {
background-color: rgba(0,0,0,0.03);
border-bottom: 2px solid #89FFF3;
}
</style>
</asp:Content>
<asp:Content ID="ContentCss" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="ContentE" ContentPlaceHolderID="E" Runat="Server">
</asp:Content>
<asp:Content ID="ContentHB" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="ContentH" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="ContentC" ContentPlaceHolderID="C" Runat="Server">
<%--<asp:UpdatePanel ID="UPfiltros" runat="server"><ContentTemplate>--%>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" Text="Consultar" runat="server" CssClass="btn btn-default" />
</div>
<div class="titlefiltros caption ">
<div class="row">
<label class="col-md-1" style="width: 70px;">De:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlUsuario" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList>
</div>
<%--<label class="col-md-1" style="width: 70px;">Para:</label>
<div class="col-md-2">
<asp:DropDownList ID="DDlPara" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList>
</div>--%>
<div class="col-md-2" >
<div class="row">
<label class="col-md-3 truncate">Revisión:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlRevision" CssClass="form-control input-sm" runat="server" DataTextField="Revision" DataValueField="CveRevision">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" >
<div class="row">
<label class="col-md-5 truncate">Primer Nivel:</label>
<div class="col-md-7">
<asp:DropDownList ID="DdlPrimerNivel" AutoPostBack="true" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" >
<div class="row">
<label class="col-md-3 truncate">Segundo Nivel:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlSegundoNivel" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" runat="server" id="TdSubTotales" visible="false">
<div class="row">
<label class="col-md-3 truncate">SubTotales:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlSubtotales" CssClass="form-control input-sm" runat="server">
<asp:ListItem Text="Sin Subtotales" Value="1"></asp:ListItem>
<asp:ListItem Text="Trimestral" Value="2"></asp:ListItem>
<asp:ListItem Text="Cuatrimestral" Value="3"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<%--</ContentTemplate></asp:UpdatePanel>--%>
<br />
<asp:HiddenField ID="Asunto" runat="server" />
<asp:HiddenField ID="FechaInicio" runat="server" />
<asp:HiddenField ID="Duracion" runat="server" />
<asp:HiddenField ID="EventoPadre" runat="server" />
<asp:Button ID="NewUser" runat="server" CssClass="hidden" Text="Button" />
<div class="portlet light calendar ">
<div class="portlet-title ">
<div class="caption">
<i class="icon-calendar font-green-sharp"></i>
<span class="caption-subject font-green-sharp bold uppercase">TaReaS</span>
</div>
<div class="actions scalasgants">
<input type="radio" id="scaleD" name="scale" value="1" /><label for="scaleD">Día</label>
<input type="radio" id="scaleS" name="scale" value="2" /><label for="scaleS">Semana</label>
<input type="radio" id="scaleM" name="scale" value="3" checked="checked" /><label for="scaleM">Mes</label>
<input type="radio" id="scaleA" name="scale" value="4" /><label for="scaleA">Año</label>
</div>
</div>
<div class="portlet-body">
<div id="gantt_here" style='width: 100%; height: 600px;'></div>
</div>
</div>
</asp:Content>
<asp:Content ID="ContentJS" ContentPlaceHolderID="JS" Runat="Server">
<script src="../Metronic/GraficaGantt/dhtmlxgantt.js"></script>
<script type="text/javascript">
function setScaleConfig(value){
switch (value) {
case "1":
gantt.config.scale_unit = "day";
gantt.config.step = 1;
gantt.config.date_scale = "%d %M";
gantt.config.subscales = [];
gantt.config.scale_height = 27;
gantt.templates.date_scale = null;
break;
case "2":
var weekScaleTemplate = function(date){
var dateToStr = gantt.date.date_to_str("%d %M");
var endDate = gantt.date.add(gantt.date.add(date, 1, "week"), -1, "day");
return dateToStr(date) + " - " + dateToStr(endDate);
};
gantt.config.scale_unit = "week";
gantt.config.step = 1;
gantt.templates.date_scale = weekScaleTemplate;
gantt.config.subscales = [
{unit:"day", step:1, date:"%D" }
];
gantt.config.scale_height = 50;
break;
case "3":
gantt.config.scale_unit = "month";
gantt.config.date_scale = "%F, %Y";
gantt.config.subscales = [
{unit:"day", step:1, date:"%j, %D" }
];
gantt.config.scale_height = 50;
gantt.templates.date_scale = null;
break;
case "4":
gantt.config.scale_unit = "year";
gantt.config.step = 1;
gantt.config.date_scale = "%Y";
gantt.config.min_column_width = 50;
gantt.config.scale_height = 90;
gantt.templates.date_scale = null;
gantt.config.subscales = [
{unit:"month", step:1, date:"%M" }
];
break;
}
}
var datagant =<%= DTTogant()%>;
function convertDate(inputFormat) {
function pad(s) { return (s < 10) ? '0' + s : s; }
var d = new Date(inputFormat);
return [pad(d.getDate()), pad(d.getMonth() + 1), d.getFullYear()].join('/');
}
Sys.Application.add_load(function (s, e) {
setScaleConfig('3');
// gantt.config.sort = true;
gantt.init("gantt_here");
gantt.parse(datagant);
gantt.attachEvent("onLightbox", function (task_id){
AbrirVentana('/OI/EventoDetalle.aspx?Masterimpoup=true&CveTipoEvento=3&CveEventoPadre='+task_id,900,630,'Proyecto');
gantt.hideLightbox();
});
var func = function (e) {
e = e || window.event;
var el = e.target || e.srcElement;
var value = el.value;
setScaleConfig(value);
gantt.render();
};
var els = document.getElementsByName("scale");
for (var i = 0; i < els.length; i++) {
els[i].onclick = func;
}
gantt.attachEvent("onAfterTaskAdd", function (id, item) {
// console.log(item.text + " itemstart:" + convertDate(item.start_date) + " " + item.start_date + " duration:" + item.duration + " pogresss:" + item.progress + " Parent:" + item.parent);
$('#<%= Asunto.ClientID%>').val(item.text);
$('#<%= FechaInicio.ClientID%>').val(convertDate(item.start_date));
$('#<%= EventoPadre.ClientID%>').val(item.parent);
$('#<%= Duracion.ClientID%>').val(item.duration);
$('#<%= NewUser.ClientID%>').click();
});
});
</script>
</asp:Content>

View File

@@ -1,131 +0,0 @@
Imports Extensiones
Imports System.Data
Partial Class OI_GraficaGantt
Inherits ClsPaginas
Private Property DTDatos As DataTable
Get
Return CType(ViewState("DTDatos"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTDatos") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
DdlPrimerNivel.DataBind()
DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
CargaCombos()
CargaEventos()
CargaComboP1()
End If
End Sub
Private Sub CargaCombos()
'usuarios
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuario.SelectedValue = -1
'Revision
Dim ObjOI As New ClsOIEventos
If ObjOI.GetRevisionesEventos(UsuarioActual.CveEmpresa) Then
DdlRevision.DataSource = ObjOI.DtResultados
DdlRevision.DataBind()
End If
ObjOI.Dispose()
DdlRevision.Items.Insert(0, New ListItem("Todos", "-1"))
DdlRevision.SelectedValue = -1
End Sub
Protected Sub CargaEventos()
Dim de As Integer = DdlUsuario.SelectedValue
Dim cverevision As Integer = DdlRevision.SelectedValue
Dim objoi As New ClsOIEventos
If objoi.GetEventosProyecto(UsuarioActual.CveEmpresa, de, cverevision, DdlPrimerNivel.SelectedValue, DdlSegundoNivel.SelectedValue) Then
DTDatos = objoi.DtResultados
End If
objoi.Dispose()
End Sub
Private Sub CargaComboP1()
DdlPrimerNivel.Items.Clear()
DdlPrimerNivel.DataSource = DTDatos.FiltraParametros("CveEventoPadre = 0")
DdlPrimerNivel.DataBind()
DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSegundoNivel.Items.Clear()
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaComboP2()
DdlSegundoNivel.Items.Clear()
DdlSegundoNivel.DataSource = DTDatos.FiltraParametros(String.Format("CveEventoPadre = {0} OR {0}=-1", DdlPrimerNivel.SelectedValue))
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub DdlPrimerNivel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPrimerNivel.SelectedIndexChanged
CargaComboP2()
End Sub
Public Function DTTogant() As String
Dim StrDatos As New StringBuilder
StrDatos.Append("{""data"": [ ")
Dim dttemp As DataTable = GetDatos()
If Not (dttemp Is Nothing) Then
For Each item As DataRow In dttemp.Rows '28-03-2013
Dim duracion = DateDiff(DateInterval.Day, item("FechaInicio").ToString().ToDate(), item("FechaFin").ToString().ToDate())
If item("ISFhater").ToString = "1" Then
StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"",""type"":""Project"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
Else
StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"", ""duration"": ""{3}"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
End If
Next
End If
Return StrDatos.ToString.Substring(0, StrDatos.ToString.Length - 1) & "]}"
End Function
Public Function GetDatos() As DataTable
Dim dt As DataTable = DTDatos.Copy
'If Not (DdlPrimerNivel.SelectedValue = -1 And DdlSegundoNivel.SelectedValue = -1) Then
' dt.Clear()
'End If
Return dt
End Function
Protected Sub NewUser_Click(sender As Object, e As EventArgs) Handles NewUser.Click
Dim FechaI As Date = FechaInicio.Value.ToDate()
Dim Fechaf As Date = FechaI.AddDays(Duracion.Value.ToEntero)
Dim objOI As New ClsOIEventos
If objOI.AddEventoProyecto(Asunto.Value, Asunto.Value, 1, UsuarioActual.CveUsuario, -1, FechaI, Fechaf,
EventoPadre.Value.ToEntero, -1, "", -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario,-1,
UsuarioActual.CveEmpresa) Then
Dim newrow As DataRow = DTDatos.NewRow()
newrow("CveEvento") = objOI.CveEvento
newrow("Asunto") = Asunto.Value
newrow("FechaInicio") = FechaInicio.Value
newrow("FechaFin") = Fechaf.ToString("dd/MM/yyyy")
newrow("CveEventoPadre") = EventoPadre.Value
DTDatos.Rows.Add(newrow)
Else
Alert("No se logro agregar la tarea", TipoMensaje.MsgInformacion)
End If
objOI.Dispose()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaEventos()
' RegistraScript(String.Format("debugger;gantt.parse('{0}');datagant='{0}';", DTTogant()))
End Sub
End Class

View File

@@ -1,132 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepABT.aspx.vb" Inherits="Ventas_RepABT" %>
<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" />&nbsp;
<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="CSS" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="E" runat="Server">
<asp:Label ID="LbTitulo" Text="Reporte ABT" runat="server"></asp:Label>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<%--<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
<ContentTemplate>--%>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" CssClass="btn btn-default" Text="Consultar" runat="server" />
<a href="javascript;" class="expand" data-original-title="" title=""></a>
</div>
<div class="titlefiltros caption ">
<div class="row">
<label class="col-md-1">Ejercicio:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEjercicio" CssClass="form-control input-sm input-small select2me" runat="server" >
<asp:ListItem Text="2014" Value="2014"></asp:ListItem>
<asp:ListItem Text="2015" Value="2015"></asp:ListItem>
</asp:DropDownList></div>
<label class="col-md-1">Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlPeriodo" CssClass="form-control input-small input-sm select2me" runat="server" >
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
<asp:ListItem Text="Abril" Value="4"></asp:ListItem>
<asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
<asp:ListItem Text="Junio" Value="6"></asp:ListItem>
<asp:ListItem Text="Julio" Value="7"></asp:ListItem>
<asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
<asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
<asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
<asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
</asp:DropDownList></div>
</div>
</div>
</div>
</div>
<%-- </ContentTemplate>
</asp:UpdatePanel>--%>
<br />
<br />
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView ID="GvRepABT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros">
<Columns>
<asp:TemplateField HeaderText="Reporte ABT">
<HeaderTemplate>
<table CssClass="table table-smallpadding Widthall">
<tr>
<td style="width: 5%">Tipo</td>
<td style="width: 5%">Folio</td>
<td style="width: 25%">Cliente</td>
<td style="width: 25%">Sucursal</td>
<td style="width: 10%">Fecha Venta</td>
<td style="width: 5%">Mesa</td>
<td style="width: 5%"># Per</td>
<td style="width: 10%">Fecha Corte</td>
<td style="width: 10%" align="right">Total</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table width="995px">
<tr>
<td style="width: 5%"><b><%# Eval("TipoDocto") %></b></td>
<td style="width: 5%"><b><%# Eval("SerieFolio") %></b></td>
<td style="width: 25%"><b><%# Eval("Cliente")%></b></td>
<td style="width: 25%"><b><%# Eval("Sucursal")%></b></td>
<td style="width: 10%"><b><%# Eval("FechaVenta", "{0:d}")%></td>
<td style="width: 5%"><b><%# Eval("Mesa")%></b></td>
<td style="width: 5%"><b><%# Eval("NumeroPersonas")%></b></td>
<td style="width: 10%"><b><%# Eval("FechaCorte", "{0:d}")%></b></td>
<td style="width: 10%" align="right"><b><%# Eval("TotalRemision", "{0:F2}")%></b></td>
</tr>
<tr>
<td colspan="4"></td>
<td colspan="5" align="right">
<asp:GridView ID="GvD" CssClass="table table-hover table-advance table-smallpadding Widthall" BorderWidth="0" GridLines="None" runat="server" AutoGenerateColumns="false" ShowHeader="false" >
<Columns>
<asp:BoundField DataField="Cantidad" HeaderText="Folio" ItemStyle-Width="5%"/>
<asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-Width="80%"/>
<asp:BoundField DataField="TotalConcepto" HeaderText="TotalConcepto" DataFormatString="{0:F2}" ItemStyle-HorizontalAlign="right" ItemStyle-Width="15%"/>
</Columns>
</asp:GridView>
</td>
</tr>
</table>
<%--<asp:Label ID="Label1" runat="server" Text='<%# Bind("TipoDocto") %>'></asp:Label>--%>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField DataField="SerieFolio" HeaderText="Folio"/>
<asp:BoundField DataField="Cliente" HeaderText="Cliente"/>
<asp:BoundField DataField="Sucursal" HeaderText="Sucursal"/>
<asp:BoundField DataField="FechaVenta" HeaderText="Fecha Venta" DataFormatString="{0:dd/MM/yyyy}"/>
<asp:BoundField DataField="Mesa" HeaderText="Mesa"/>
<asp:BoundField DataField="NumeroPersonas" HeaderText="Número de Personas"/>
<asp:BoundField DataField="Cantidad" HeaderText="Cant."/>
<asp:BoundField DataField="Concepto" HeaderText="Concepto"/>
<asp:BoundField DataField="PU" HeaderText="P. U."/>
<asp:BoundField DataField="Descuento" HeaderText="Desct."/>
<asp:BoundField DataField="TotalConcepto" HeaderText="Total Concepto"/>
<asp:BoundField DataField="TotalRemision" HeaderText="Total Remisión"/>
<asp:BoundField DataField="FechaCorte" HeaderText="Fecha Corte" DataFormatString="{0:dd/MM/yyyy}"/>--%>
</Columns>
<HeaderStyle CssClass="Titulos" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<RowStyle CssClass="Texto" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

View File

@@ -1,73 +0,0 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data
Partial Class Ventas_RepABT
Inherits ClsPaginas
'Private ReadOnly Property Ejercicio As Integer
' Get
' Return ViewState("Ejercicio")
' End Get
'End Property
'Private ReadOnly Property Periodo As Integer
' Get
' Return ViewState("Periodo")
' End Get
'End Property
Private Property DtDatos As datatable
Get
Return CType(ViewState("DtDatos"), DataTable)
End Get
Set(value As datatable)
ViewState("DtDatos") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
'If Request("Ejercicio") IsNot Nothing AndAlso IsNumeric(Request("Ejercicio")) Then
' ViewState("Ejercicio") = Request("Ejercicio")
'End If
'If Request("Periodo") IsNot Nothing AndAlso IsNumeric(Request("Periodo")) Then
' ViewState("Periodo") = Request("Periodo")
'End If
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlPeriodo.SelectedValue = Now.Month.ToString
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepABT(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then
GvRepABT.DataSource = ObjVentas.DtResultados.FiltraParametros("", DistinctColumns:={"CveVenta", "TipoDocto", "SerieFolio", "Cliente", "SubProyecto", "FechaVenta", "Mesa", "NumeroPersonas", "TotalRemision", "FechaCorte"})
Else
GvRepABT.DataSource = Nothing
End If
DtDatos = ObjVentas.DtResultados
ObjVentas.Dispose()
GvRepABT.DataBind()
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvRepABT.ExportToExcel("Reporte ABT")
End Sub
Protected Sub GvRepABT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepABT.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCGridView("GvD").DataSource = DtDatos.FiltraParametros(String.Format("CveVenta = {0}", e.Row.DBCampo("CveVenta")))
e.Row.FCGridView("GvD").DataBind()
End If
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaDatos()
UpDatos.Update()
End Sub
End Class