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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-03-08 14:09:53 -07:00
parent 7f79b4882c 36d3e2f1f8
commit 9d65dcfe6a
16 changed files with 338 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -162,7 +162,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>'></asp:Literal> <asp:Label ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>' ToolTip='<%# Eval("CveFolioGarantia") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Usuario"> <asp:TemplateField HeaderText="Usuario">

40
Acumuladores/CatGarantiasMeses.aspx
View File

@@ -91,9 +91,6 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlTipoUso" DataTextField="TipoUso" DataValueField="CveTipoUso" CssClass="form-control input-sm select2me" runat="server" Width="200px"></asp:DropDownList> <asp:DropDownList ID="DdlTipoUso" DataTextField="TipoUso" DataValueField="CveTipoUso" CssClass="form-control input-sm select2me" runat="server" Width="200px"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>
@@ -116,8 +113,8 @@
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaIng" DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaInicioVigencia,FechaIng"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas" EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
data-sort="true" data-sort="true"
data-freezerows="1" data-freezerows="1"
@@ -129,31 +126,36 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Uso" ItemStyle-Width="150px"> <asp:TemplateField HeaderText="Tipo Uso" >
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlTiposUso" runat="server" Text='<%# Eval("TipoUso")%>'></asp:Literal> &nbsp;<asp:Literal ID="LtlTiposUso" runat="server" Text='<%# Eval("TipoUso")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Mes" ItemStyle-Width="150px"> <asp:TemplateField HeaderText="Mes" ItemStyle-Width="100px">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Literal> &nbsp;<asp:Literal ID="LtlMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Valor" ItemStyle-Width="150px"> <asp:TemplateField HeaderText="Valor" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlValor" runat="server" Text='<%# Eval("Valor", "{0:N2}")%>'></asp:Literal> &nbsp;<asp:Literal ID="LtlValor" runat="server" Text='<%# Eval("Valor", "{0:N2}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Inicio Vigencia" ItemStyle-Width="120px">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlIVigencia" runat="server" Text='<%# Eval("FechaInicioVigencia", "{0:d}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px"> <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal> &nbsp;<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario"> <asp:TemplateField HeaderText="Usuario">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal> <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -214,6 +216,24 @@
<asp:RequiredFieldValidator ID="RfvTxtBonificacion" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTamanio"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtBonificacion" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTamanio"></asp:RequiredFieldValidator>
<label for="<%= TxtValor.ClientID.ToString()%>">Valor:</label> <label for="<%= TxtValor.ClientID.ToString()%>">Valor:</label>
<i></i> <i></i>
</div>
<div class="col-md-2 truncate">
Fecha Inicio:
</div>
<div class="col-md-1" style="min-width: 125px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important"> <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" /> <asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />

5
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -126,7 +126,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
If Not Actualizar Then If Not Actualizar Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtMes.Text = TxtMes.Text.ToEntero + 1 TxtMes.Text = TxtMes.Text.ToEntero + 1
TxtValor.Text = "" TxtValor.Text = ""
@@ -147,7 +147,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError) Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError)
End If End If
Else Else
If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario) Then If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario) Then
TxtMes.Text = "" TxtMes.Text = ""
TxtValor.Text = "" TxtValor.Text = ""
@@ -211,6 +211,7 @@ Partial Class Acumuladores_CatFoliosGarantia
TxtMes.Text = GvRow.DataKey("Mes") TxtMes.Text = GvRow.DataKey("Mes")
TxtValor.Text = GvRow.DataKey("Valor") TxtValor.Text = GvRow.DataKey("Valor")
txtFechaI.Text = GvRow.DataKey("FechaInicioVigencia")
CargaCombosModal() CargaCombosModal()
DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero) DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero)
DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero) DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero)

9
App_Code/ClsAcumuladores.vb
View File

@@ -615,7 +615,7 @@ Public Class ClsAcumuladores
#Region " GARANTÍAS MESES " #Region " GARANTÍAS MESES "
Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1) As Boolean Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1, Optional FechaInicioVigencia As Date = MinFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -626,6 +626,7 @@ Public Class ClsAcumuladores
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@Mes", SqlDbType.Int).Value = Mes .Add("@Mes", SqlDbType.Int).Value = Mes
End With End With
@@ -641,7 +642,7 @@ Public Class ClsAcumuladores
Return Retorno Return Retorno
End Function End Function
Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -653,6 +654,7 @@ Public Class ClsAcumuladores
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@Mes", SqlDbType.Int).Value = Mes .Add("@Mes", SqlDbType.Int).Value = Mes
.Add("@Valor", SqlDbType.SmallMoney).Value = Valor .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -670,7 +672,7 @@ Public Class ClsAcumuladores
Return Retorno Return Retorno
End Function End Function
Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer) As Boolean Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -683,6 +685,7 @@ Public Class ClsAcumuladores
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@Mes", SqlDbType.Int).Value = Mes .Add("@Mes", SqlDbType.Int).Value = Mes
.Add("@Valor", SqlDbType.SmallMoney).Value = Valor .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With End With

2
Compras/Compras.aspx.vb
View File

@@ -8111,7 +8111,7 @@ Partial Class Compras_Compras
End If End If
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
Dim CvePreComprobacion As Integer Dim CvePreComprobacion As Integer
If ObjCompras.DtResultados.Rows.Count = 0 Then If ObjCompras.DtResultados.Rows.Count = 0 Then

22
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5986,6 +5986,28 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Observaciones", Observacion)) params.Add(New ReportParameter("Observaciones", Observacion))
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", ""))) params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
If UsuarioActual.CveEmpresa.Contiene(141) Then
Dim InicialesUsuarioGenero As String = ""
Try
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
If NombreUsuarioRenero.Trim.Length > 0 Then
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
End If
Catch ex As Exception
End Try
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
End If
Dim DtMovimientosPoliza As DataTable = Nothing Dim DtMovimientosPoliza As DataTable = Nothing
If UsuarioActual.CveEmpresa = 48 Then If UsuarioActual.CveEmpresa = 48 Then
'Movimientos del IE 'Movimientos del IE

2
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -586,7 +586,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta")) If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))

14
Empresas/141/Formatos/CHQ-7451.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner"> <Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh> <AutoRefresh>0</AutoRefresh>
<DataSources> <DataSources>
<DataSource Name="DataSet"> <DataSource Name="DataSet">
@@ -818,7 +818,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>IAP</Value> <Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style> <Style>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
@@ -829,9 +829,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName> <rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top> <Top>1.36525cm</Top>
<Left>3.13986cm</Left> <Left>2.53509cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>0.85958cm</Width> <Width>1.46435cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Language>es-MX</Language> <Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>

12
Empresas/141/Formatos/CHQ-7452.rdlc
View File

@@ -818,7 +818,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>IAP</Value> <Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style> <Style>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
@@ -829,9 +829,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName> <rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top> <Top>1.36525cm</Top>
<Left>3.13986cm</Left> <Left>2.53509cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>0.85958cm</Width> <Width>1.46435cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Language>es-MX</Language> <Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>

3
General/RepIndicadorResumen.aspx.vb
View File

@@ -41,7 +41,8 @@ Partial Class General_RepIndicadorResumen
End If End If
If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, TipoDocto:="Fac",
CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC") GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC")
End If End If

5
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1383,8 +1383,9 @@ Partial Class Sistemas_UsuarioDetalle
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If UsuarioActual.CveUsuario = 100 Then GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
Alert("Globals Recargados") If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then
Alert("Globals Recargados " & UsuarioActual.CveEmpresa)
End If End If
'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados

3
Sistemas/Usuarios.aspx.vb
View File

@@ -60,6 +60,9 @@ Partial Class Sistemas_Usuarios
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
ViewState("Orden") = "" ViewState("Orden") = ""
ViewState("CveRol") = -1 ViewState("CveRol") = -1
CargarEmpresa() CargarEmpresa()

5
Ventas/PV.aspx
View File

@@ -3115,7 +3115,8 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox> <asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label> <ajax:MaskedEditExtender ID="MEEEtiqueta" runat="server" TargetControlID="TxtEtiqueta" Mask="99\/99" MaskType="None" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta (mm/yy):</label>
</div> </div>
</div> </div>
</div> </div>
@@ -3142,7 +3143,7 @@
<div class="col-md-8"> <div class="col-md-8">
<div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright"> <div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox> <asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" ClientValidationFunction="ValidarCodigoEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" /> <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" Display="None" ClientValidationFunction="ValidarCodigoEnsamble" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
<label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label> <label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
</div> </div>
</div> </div>

24
Ventas/PV.aspx.vb
View File

@@ -6663,7 +6663,7 @@ Partial Class PV
Dim ObjCliente As New ClsClientes Dim ObjCliente As New ClsClientes
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False) Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False) Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
@@ -7126,7 +7126,7 @@ Partial Class PV
Else Else
'TxtPUFactura.Enabled = True 'TxtPUFactura.Enabled = True
'TxtPUFactura.Text = "" 'TxtPUFactura.Text = ""
DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) ' DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
End If End If
DdlPSAjuste.DataBind() DdlPSAjuste.DataBind()
' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7418,6 +7418,10 @@ Partial Class PV
Alert("No se ha especificado producto de ajuste a entregar") Alert("No se ha especificado producto de ajuste a entregar")
Exit Sub Exit Sub
End If End If
If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then
Alert("No se ha especificado la etiqueta.")
Exit Sub
End If
If Not CalculaMesesUso() Then If Not CalculaMesesUso() Then
Exit Sub Exit Sub
End If End If
@@ -7427,13 +7431,17 @@ Partial Class PV
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
Dim CveMarca As Integer = -1 Dim CveMarca As Integer = -1
CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
Dim ImportePagarCliente As Decimal = 0 Dim ImportePagarCliente As Decimal = 0
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If ObjAcum.DtResultados.Rows.Count > 0 Then If ObjAcum.DtResultados.Rows.Count > 0 Then
TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString ''obtener siempre y cuando la fecha de inicio sea mayor
Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate
Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia")
If drg IsNot Nothing Then
TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
@@ -7449,7 +7457,7 @@ Partial Class PV
End If End If
If DdlPS.SelectedValue.ToEntero > 0 Then If DdlPS.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("") Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
CveTamaño = Dr("CveTamaño").ToString.ToEntero CveTamaño = Dr("CveTamaño").ToString.ToEntero
End If End If
@@ -7480,6 +7488,12 @@ Partial Class PV
TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo" TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
TxtImporteAjuste.Text = "0.00" TxtImporteAjuste.Text = "0.00"
End If End If
Else
Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
'cuando no está registrada, no da ajuste
TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
TxtImporteAjuste.Text = "0.00"
End If
Else Else
Alert("No se tiene especificado tabla de garantía") Alert("No se tiene especificado tabla de garantía")
End If End If

48
Ventas/RepProductosServicios.aspx.vb
View File

@@ -62,28 +62,30 @@ Partial Class Ventas_RepProductosServicios
#Region " CARGA DATOS INICIALES " #Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo() Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4")) DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5")) DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(3, New ListItem("Año", "6")) DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
DdlGrupo.Items.Insert(4, New ListItem("Mes", "7")) DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8")) DdlGrupo.Items.Add(New ListItem("Año", "6"))
DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9")) DdlGrupo.Items.Add(New ListItem("Mes", "7"))
DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10")) DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12")) DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13")) DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14")) DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15")) DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16")) DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17")) DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18")) DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20")) DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21")) DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22")) DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23")) DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
DdlGrupo.Items.Insert(18, New ListItem("Marca", "24")) DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26")) DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
DdlGrupo.Items.Insert(18, New ListItem("Giro", "27")) DdlGrupo.Items.Add(New ListItem("Marca", "24"))
DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
DdlClienteClasificacion.DataBind() DdlClienteClasificacion.DataBind()
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing) CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
CargaGrupo()
TipoCambio = 1 TipoCambio = 1
TCEspecifico = 0 TCEspecifico = 0