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
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
DataAdapter("PA_Inv_RepNotasSinAlmacen")
@@ -2021,6 +2021,7 @@ Public Class ClsInventarios
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try

2
Bancos/Devoluciones.aspx
View File

@@ -160,7 +160,7 @@
<div class="row" style="padding-bottom: 5px;">
<div class="col-md-4">
<label>Subproyecto:</label>
<label><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</label>
</div>
<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">

1
Bancos/Devoluciones.aspx.cs
View File

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

7
Bancos/PagoAcreedor.aspx
View File

@@ -101,8 +101,7 @@
</div>
<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 class="col-md-3">
<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;">
<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 class="row">
<div class="col-md-3 input-icon">SubProyecto
<div class="row">
<label><asp:Label runat="server" id="LblSubProyecto2"></asp:Label>:</label>
</div>
<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();
txtFechaF.Text = NowADS().ToShortDateString();
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="col-md-2">
<label>SubProyecto:</label>
<div class="col-md-2">
<label><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</label>
</div>
<div class="col-md-4">
<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="col-md-2">
<label>SubProyecto:</label>
<div class="col-md-2">
<label><asp:Label runat="server" id="LblSubProyecto2"></asp:Label>:</label>
</div>
<div class="col-md-4">
<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);
TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4);
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: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>--%>
<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>

6
Compras/Compras.aspx.vb
View File

@@ -1406,6 +1406,9 @@ Partial Class Compras_Compras
End If
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
'Carga Proveedor
If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
ViewState("CveProveedor") = Request("CveProveedor")
@@ -1502,6 +1505,9 @@ Partial Class Compras_Compras
DVModalAnticipoFechaEjecucion.Visible = True
HlEvento.Visible = True
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
ViewState("CveProveedor") = -1

3
General/SaldosIniciales.aspx.vb
View File

@@ -2727,7 +2727,8 @@ Partial Class General_SaldosIniciales
If Not ErrorVentas Then
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
Exit For
End If

57
Inventarios/KardexAlmacenHorizontal.aspx
View File

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

62
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -4,6 +4,7 @@ Imports ADSNetLibrary.SIGAPI.Models.CGame
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Imports Telerik.Web.UI
Partial Class Inventarios_KardexAlmacenHorizontal
Inherits ClsPaginas
@@ -144,7 +145,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub
Private Sub CargarKardex(CvePS As Integer)
Dim dt As DataTable = Nothing
Dim dt As New DataTable
Dim ObjMovimientos As New ClsInventarios
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")
@@ -163,9 +164,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn)
If Not TienePermisoImportes Then
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'CP-quito columna de importe total
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'Valor-quito columna de importe total
If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then
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
For index As Integer = 3 To dt.Columns.Count - 1
Dim TotColumna As Double = 0
@@ -195,8 +197,23 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End If
GvDatos.DataBind()
For index = 4 To GvDatos.Rows(0).Cells.Count - 1
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
For index = 0 To GvDatos.Rows(0).Cells.Count - 1
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
End Sub
@@ -242,13 +259,26 @@ Partial Class Inventarios_KardexAlmacenHorizontal
Cells.Text = Cells.Text.FormatoNumero(2)
'ElseIf ce.ContainingField.HeaderText = "Total" Then
' 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
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
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
Index = Index + 1
Next
@@ -261,8 +291,20 @@ Partial Class Inventarios_KardexAlmacenHorizontal
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).
' 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
'e.Row.Cells(6).ToolTip = "Costo"
End If

2
Inventarios/RepAlmacenCompras.aspx
View File

@@ -33,7 +33,7 @@
</div>
<div class="titlefiltros caption ">
<ul class="list-inline" style="font-size: 12px;">
<li>SubProyecto:</li>
<li><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</li>
<%--SubProyecto--%>
<li>
<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
If Not Page.IsPostBack Then
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
CargaDatos()
CargaPermisos()
End If

4
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -140,7 +140,7 @@ Partial Class RepNotasSinAlmacen
CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
End If
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
GvVentas.DataSource = Reporte.DtResultados
@@ -159,7 +159,7 @@ Partial Class RepNotasSinAlmacen
CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
End If
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
DtNotasSinAlmacenCompras = Reporte.DtResultados
Else

2
Ventas/Promociones.aspx.vb
View File

@@ -198,7 +198,7 @@ Partial Class Ventas_Promociones
ChkEstatus.Enabled = False
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
ButBtnEliminar.Visible = False
End If