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

GDiaz Pendientes de implementación 2025-01-09

Browse Source
This commit is contained in:
rakcsle
2025-01-09 22:31:52 -07:00
parent 0df4e08d5a
commit df941ff913
16 changed files with 113 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -2008,7 +2008,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RepNotasSinAlmacen") DataAdapter("PA_Inv_RepNotasSinAlmacen")
@@ -2021,6 +2021,7 @@ Public Class ClsInventarios
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With End With
Try Try

2
Bancos/Devoluciones.aspx
View File

@@ -160,7 +160,7 @@
<div class="row" style="padding-bottom: 5px;"> <div class="row" style="padding-bottom: 5px;">
<div class="col-md-4"> <div class="col-md-4">
<label>Subproyecto:</label> <label><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</label>
</div> </div>
<div class="col-md-8" style="width:175px;"> <div class="col-md-8" style="width:175px;">
<asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar" Width="145px"> <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar" Width="145px">

1
Bancos/Devoluciones.aspx.cs
View File

@@ -24,6 +24,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
TxtComisiones.Attributes.Add("disabled", "disabled"); TxtComisiones.Attributes.Add("disabled", "disabled");
TxtTotal.Attributes.Add("disabled", "disabled"); TxtTotal.Attributes.Add("disabled", "disabled");
TipoDevolucion.SelectedValue = "1"; TipoDevolucion.SelectedValue = "1";
CargarCentrosDeCosto(null, null, null, LblSubProyecto);
} }
} }

7
Bancos/PagoAcreedor.aspx
View File

@@ -101,8 +101,7 @@
</div> </div>
<div class="col-md-1 control-label" > <div class="col-md-1 control-label" >
<asp:Label ID="LblSubproyecto" runat="server" Text="SubProyecto:"></asp:Label> <label><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</label>
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px" CssClass="select2me" ></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px" CssClass="select2me" ></asp:DropDownList>
@@ -249,8 +248,8 @@
<div class="row" style="text-align:right;"> <div class="row" style="text-align:right;">
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3 input-icon">SubProyecto <label><asp:Label runat="server" id="LblSubProyecto2"></asp:Label>:</label>
</div> </div>
<div class="col-md-3"> <div class="col-md-3">

2
Bancos/PagoAcreedor.aspx.cs
View File

@@ -50,6 +50,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString(); txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().ToShortDateString(); txtFechaF.Text = NowADS().ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled"); TxtImporte.Attributes.Add("disabled", "disabled");
CargarCentrosDeCosto(null, null, null, LblSubProyecto);
LblSubProyecto2.Text = LblSubProyecto.Text;
} }
} }

8
Bancos/PagoDeudor.aspx
View File

@@ -121,8 +121,8 @@
<div class="row"> <div class="row">
<div class="col-md-2"> <div class="col-md-2">
<label>SubProyecto:</label> <label><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</label>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList>
@@ -304,8 +304,8 @@
<div class="row"> <div class="row">
<div class="col-md-2"> <div class="col-md-2">
<label>SubProyecto:</label> <label><asp:Label runat="server" id="LblSubProyecto2"></asp:Label>:</label>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList>

2
Bancos/PagoDeudor.aspx.cs
View File

@@ -54,6 +54,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4); TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4);
TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4); TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4);
TxtImporte.Attributes.Add("disabled", "disabled"); TxtImporte.Attributes.Add("disabled", "disabled");
CargarCentrosDeCosto(null, null, null, LblSubProyecto);
LblSubProyecto2.Text = LblSubProyecto.Text;
} }
} }

4
Compras/Compras.aspx
View File

@@ -4576,7 +4576,9 @@
</asp:DropDownList> </asp:DropDownList>
<%--<asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVSubProyecto" ControlToValidate="DdlSubProyecto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator> <%--<asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVSubProyecto" ControlToValidate="DdlSubProyecto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCORVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCORVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%>
<label runat="server" id="LblSubProyecto" for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label> <label runat="server" id="LblSubProyectoEx" for="<%= DdlSubProyecto.ClientID.ToString()%>">
<asp:Label runat="server" id="LblSubProyecto"></asp:Label>:
</label>
</div> </div>
</div> </div>

6
Compras/Compras.aspx.vb
View File

@@ -1406,6 +1406,9 @@ Partial Class Compras_Compras
End If End If
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
'Carga Proveedor 'Carga Proveedor
If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
ViewState("CveProveedor") = Request("CveProveedor") ViewState("CveProveedor") = Request("CveProveedor")
@@ -1502,6 +1505,9 @@ Partial Class Compras_Compras
DVModalAnticipoFechaEjecucion.Visible = True DVModalAnticipoFechaEjecucion.Visible = True
HlEvento.Visible = True HlEvento.Visible = True
HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;" HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;"
If UsuarioActual.CveEmpresa = 189 Then
BtnCancelarCompra.Visible = False
End If
Else Else
ViewState("CveProveedor") = -1 ViewState("CveProveedor") = -1

3
General/SaldosIniciales.aspx.vb
View File

@@ -2727,7 +2727,8 @@ Partial Class General_SaldosIniciales
If Not ErrorVentas Then If Not ErrorVentas Then
If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PuDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PuDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=0, IEPS:=IEPSDetalle, PorcentajeRetISR:=0, PorcentajeIEPS:=PorcentajeIEPSDetalle) Then PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=0, IEPS:=IEPSDetalle, PorcentajeRetISR:=0, PorcentajeIEPS:=PorcentajeIEPSDetalle,
EstatusAlmacen:=2) Then
ErrorVentas = True ErrorVentas = True
Exit For Exit For
End If End If

57
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -257,33 +257,36 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true" <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None" > DataKeyNames="CvePS"
<Columns> CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None">
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"> <Columns>
<HeaderTemplate> <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
Código <HeaderTemplate>
</HeaderTemplate> Código
<ItemTemplate> </HeaderTemplate>
<div class="truncate" style="min-width:120px"> <ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label> <div class="truncate" style="min-width: 120px">
</div> <asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate> </div>
<HeaderStyle HorizontalAlign="Left" Width="120px" /> </ItemTemplate>
</asp:TemplateField> <HeaderStyle HorizontalAlign="Left" Width="120px" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="250px"> </asp:TemplateField>
<HeaderTemplate>
Producto <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="250px">
</HeaderTemplate> <HeaderTemplate>
<ItemTemplate> Producto
<div class="truncate" style="min-width:250px"> </HeaderTemplate>
<asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label> <ItemTemplate>
</div> <div class="truncate" style="min-width: 250px">
</ItemTemplate> <asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
<HeaderStyle HorizontalAlign="Left" Width="250px" /> </div>
</asp:TemplateField> </ItemTemplate>
</Columns> <HeaderStyle HorizontalAlign="Left" Width="250px" />
<RowStyle Height="31" /> </asp:TemplateField>
</asp:GridView>
</Columns>
<RowStyle Height="31" />
</asp:GridView>
</div> </div>

62
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -4,6 +4,7 @@ Imports ADSNetLibrary.SIGAPI.Models.CGame
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Telerik.Web.UI
Partial Class Inventarios_KardexAlmacenHorizontal Partial Class Inventarios_KardexAlmacenHorizontal
Inherits ClsPaginas Inherits ClsPaginas
@@ -144,7 +145,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub End Sub
Private Sub CargarKardex(CvePS As Integer) Private Sub CargarKardex(CvePS As Integer)
Dim dt As DataTable = Nothing Dim dt As New DataTable
Dim ObjMovimientos As New ClsInventarios Dim ObjMovimientos As New ClsInventarios
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
@@ -163,9 +164,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn) Dim ListaBorrar As New List(Of DataColumn)
If Not TienePermisoImportes Then
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'CP-quito columna de importe total If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'Valor-quito columna de importe total dt.Columns.RemoveAt(dt.Columns.Count - 2) 'CP-quito columna de importe total
dt.Columns.RemoveAt(dt.Columns.Count - 2) 'Valor-quito columna de importe total
End If End If
For index As Integer = 3 To dt.Columns.Count - 1 For index As Integer = 3 To dt.Columns.Count - 1
Dim TotColumna As Double = 0 Dim TotColumna As Double = 0
@@ -195,8 +197,23 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End If End If
GvDatos.DataBind() GvDatos.DataBind()
For index = 4 To GvDatos.Rows(0).Cells.Count - 1 For index = 0 To GvDatos.Rows(0).Cells.Count - 1
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
If GvDatos.HeaderRow.Cells(index).Text = "CvePS" Then
GvDatos.HeaderRow.Cells(index).Text = ""
End If
If GvDatos.HeaderRow.Cells(index).Text = "PS" Then
GvDatos.HeaderRow.Cells(index).Text = "Producto"
GvDatos.HeaderRow.Cells(index).Width = 300
End If
If index >= 2 Then
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
End If
Next Next
End Sub End Sub
@@ -242,13 +259,26 @@ Partial Class Inventarios_KardexAlmacenHorizontal
Cells.Text = Cells.Text.FormatoNumero(2) Cells.Text = Cells.Text.FormatoNumero(2)
'ElseIf ce.ContainingField.HeaderText = "Total" Then 'ElseIf ce.ContainingField.HeaderText = "Total" Then
' Cells.Text = Cells.Text.FormatoNumero(2) ' Cells.Text = Cells.Text.FormatoNumero(2)
ElseIf ce.ContainingField.HeaderText = "Codigo" Then
ElseIf ce.ContainingField.HeaderText = "PS" Then
Cells.Width = 300
ElseIf ce.ContainingField.HeaderText = "CvePS" Then
Cells.Text = ""
Cells.Width = 1
ElseIf ce.ContainingField.HeaderText = "Total" Then
Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
Else Else
Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then
Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}")
Cells.Text = String.Format("<a target='_blank' href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
End If
End If End If
End If End If
e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80) e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
End If End If
Index = Index + 1 Index = Index + 1
Next Next
@@ -261,8 +291,20 @@ Partial Class Inventarios_KardexAlmacenHorizontal
Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui). 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
' e.Row.Cells(0).Width = New Unit("200px") ' e.Row.Cells(0).Width = New Unit("200px")
e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False
If DdlExistencia.SelectedValue.ToEntero = 2 Then
Try
e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False
Catch ex As Exception
End Try
Else
e.Row.Cells(0).Visible = False
End If
If e.Row.RowType = DataControlRowType.Header Then If e.Row.RowType = DataControlRowType.Header Then
'e.Row.Cells(6).ToolTip = "Costo" 'e.Row.Cells(6).ToolTip = "Costo"
End If End If

2
Inventarios/RepAlmacenCompras.aspx
View File

@@ -33,7 +33,7 @@
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<ul class="list-inline" style="font-size: 12px;"> <ul class="list-inline" style="font-size: 12px;">
<li>SubProyecto:</li> <li><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</li>
<%--SubProyecto--%> <%--SubProyecto--%>
<li> <li>
<div > <div >

1
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -34,6 +34,7 @@ Partial Class Inventarios_RepAlmacenCompras
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
CargaDatos() CargaDatos()
CargaPermisos() CargaPermisos()
End If End If

4
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -140,7 +140,7 @@ Partial Class RepNotasSinAlmacen
CveClienteProveedor = DdlCliente.SelectedValue.ToEntero CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
End If End If
Dim Reporte As New ClsInventarios Dim Reporte As New ClsInventarios
If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then
Dim dtt As DataTable = Reporte.DtResultados Dim dtt As DataTable = Reporte.DtResultados
GvVentas.DataSource = Reporte.DtResultados GvVentas.DataSource = Reporte.DtResultados
@@ -159,7 +159,7 @@ Partial Class RepNotasSinAlmacen
CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
End If End If
Dim Reporte As New ClsInventarios Dim Reporte As New ClsInventarios
If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then
GvCompras.DataSource = Reporte.DtResultados GvCompras.DataSource = Reporte.DtResultados
DtNotasSinAlmacenCompras = Reporte.DtResultados DtNotasSinAlmacenCompras = Reporte.DtResultados
Else Else

2
Ventas/Promociones.aspx.vb
View File

@@ -198,7 +198,7 @@ Partial Class Ventas_Promociones
ChkEstatus.Enabled = False ChkEstatus.Enabled = False
End If End If
If (ChkEstatus.Checked = True And Not PermisoAutorizPromocionPorcentaje) Or (ReqAutorizacion And Not PermisoAutorizPromocionPorcentaje) Then If (ChkEstatus.Checked = False And Not PermisoAutorizPromocionPorcentaje And ReqAutorizacion) Or (ReqAutorizacion And Not PermisoAutorizPromocionPorcentaje) Then
BtnGuardar.Visible = False BtnGuardar.Visible = False
ButBtnEliminar.Visible = False ButBtnEliminar.Visible = False
End If End If