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

--Compras - 2025.02.27

Browse Source 
--hyperlink cotizaciones en ventas
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-27 18:39:25 -07:00
parent 5c5a0f995e
commit a08af9f74b
11 changed files with 164 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -5602,12 +5602,13 @@ Public Class ClsInventarios
#End Region #End Region
#Region "PRESTAMOS DE PROVEEDOR" #Region "PRESTAMOS DE PROVEEDOR"
Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_PrestamosdeProveedorGet") DataAdapter("PA_Inv_PrestamosdeProveedorGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@Folio", SqlDbType.Int).Value = Folio .Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

5
App_Code/ClsVentas.vb
View File

@@ -2501,7 +2501,8 @@ Public Class ClsVentas
#Region " PROMOCIONES " #Region " PROMOCIONES "
Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1) As Boolean CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1,
Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PromocionesGet") DataAdapter("PA_Vta_PromocionesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -2515,6 +2516,8 @@ Public Class ClsVentas
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
Ashx/TareasProgramadas.ashx
View File

@@ -402,7 +402,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31) Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31)
If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte, If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1 ) Then EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1) Then
DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"}) DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"})
End If End If
@@ -1326,7 +1326,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
objGenerales.Dispose() objGenerales.Dispose()
'MandaCorreoDiario 'MandaCorreoDiario
Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx"
' Dim Correos As String = " rene.molina@adssistemas.mx" 'Dim Correos As String = " rene.molina@adssistemas.mx;japmx95@gmail.com"
MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta) MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta)
Return respuesta Return respuesta
End Function End Function

39
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -16,24 +16,29 @@
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle magindate"> <div class="portlet-title portlet-filterT smalltitle magindate">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnCargaPendientes" runat="server" Text="Consultar" class="btn btn-default" /> <asp:Button ID="BtnCargaPendientes" runat="server" Text="Consultar" class="btn btn-default" />
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row" style="display: flex; align-items: center;">
<label class="col-md-1 truncate" style="text-align: right;">Proveedor:</label> <label class="col-md-1 truncate" style="text-align: right;">Proveedor:</label>
<div class="col-md-3"> <div class="col-md-2">
<ADS:Dropdownlost ID="ddlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" AutoPostBack="true" CssClassDdl="select2me" CssStyle="width: 300px; "></ADS:Dropdownlost> <ADS:Dropdownlost ID="ddlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" AutoPostBack="true" CssClassDdl="select2me" CssStyle="width: 300px; "></ADS:Dropdownlost>
</div>
<label class="col-md-1 truncate" style="text-align: right;">Folio:</label>
<div class="col-md-2">
<asp:TextBox ID="TxtFolioEntrega" runat="server" Width="100px" CssClass="form-control input-sm"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtFolioEntrega" FilterType="Numbers" />
</div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">Sucursal:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
<label class="col-md-1 truncate" style="text-align: right;">Folio:</label>
<div class="col-md-3">
<asp:TextBox ID="TxtFolioEntrega" runat="server" Width="70px"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtFolioEntrega" FilterType="Numbers" />
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -138,7 +143,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align:right;"></asp:TextBox> <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." /> <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -146,19 +151,19 @@
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false"/> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false" />
<asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false"> <asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal> <asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
<asp:Textbox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:Textbox> <asp:TextBox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:TextBox>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false"> <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
<asp:Textbox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Textbox> <asp:TextBox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:TextBox>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" />
</asp:TemplateField> </asp:TemplateField>

5
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -50,6 +50,9 @@ Partial Class Inventarios_PrestamosdeProveedor
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1)
DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.DataBind()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1)
DdlSubProyecto.DataBind()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
@@ -59,7 +62,7 @@ Partial Class Inventarios_PrestamosdeProveedor
If TxtFolioEntrega.Text <> "" Then tFolio = TxtFolioEntrega.Text.ToEntero If TxtFolioEntrega.Text <> "" Then tFolio = TxtFolioEntrega.Text.ToEntero
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
GvD.DataSource = ObjInv.DtResultados GvD.DataSource = ObjInv.DtResultados
Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("") Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
If Dr IsNot Nothing AndAlso tFolio > 0 Then If Dr IsNot Nothing AndAlso tFolio > 0 Then

3
Planeacion/CatFolios.aspx.vb
View File

@@ -72,6 +72,9 @@ Partial Class CatFolios
DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS")) DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC")) DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra")) DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra"))
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DdlTipoDocto.Items.Insert(35, New ListItem("Promoción", "PRM"))
End If
ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing")) DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs")) DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))

159
Ventas/CatPromociones.aspx
View File

@@ -9,7 +9,7 @@
<asp:LinkButton ID="ImgAddPromocion" PostBackUrl="/Ventas/Promociones.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i>Nueva Promoción</asp:LinkButton> <asp:LinkButton ID="ImgAddPromocion" PostBackUrl="/Ventas/Promociones.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i>Nueva Promoción</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkAccInactivar" runat="server" OnClick="LnkAccInactivar_Click" Visible="false"><i class="fa fa-times" aria-hidden="true"></i>Inactivar</asp:LinkButton> <asp:LinkButton ID="LnkAccInactivar" runat="server" OnClick="LnkAccInactivar_Click" Visible="false"><i class="fa fa-times" aria-hidden="true"></i>Inactivar</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -32,117 +32,124 @@
<div class="tools"> <div class="tools">
<asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" /> <asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" />
<a href="javascript:;" class="expand"></a> <a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row" style="display: flex; align-items: center">
<div class="row" style="padding-top: 10px;"> <div class="col-md-3" style="display: flex; align-items: center">
<label style="min-width: 70px" class="truncate">Cliente</label>&nbsp;
<div class="col-md-1"> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;"></ADS:Dropdownlost>
<asp:Label runat="server" ID="LblSubProyecto" class="truncate"></asp:Label>:
</div>
<div class="col-md-2 ">
<asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div> </div>
<asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Cliente:</asp:Label> <div class="col-md-3" style="display: flex; align-items: center">
<div class="col-md-2 "> <label style="min-width: 70px" class="truncate">Vendedor</label>&nbsp;
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;"> <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
</ADS:Dropdownlost>
</div> </div>
<asp:Label runat="server" ID="Label2" class="col-md-1 truncate">Vendedor:</asp:Label> <div class="col-md-2 " style="display: flex; align-items: center">
<div class="col-md-2 "> <asp:Label runat="server" ID="LblSubProyecto" Style="min-width: 70px" class="truncate"></asp:Label>&nbsp;
<asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div> </div>
<div class="col-md-2" style="display: flex; align-items: center">
<label style="min-width: 70px" class="truncate">Estatus</label>&nbsp;
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Activo" Value="1"></asp:ListItem>
<asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label class="col-md-1 truncate">Estatus:</label> <div class="col-md-3" style="display: flex; align-items: center">
<div class="col-md-2"> <label style="min-width: 70px" class="truncate">Marca</label>&nbsp;
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> </div>
<asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem> <div class="col-md-3" style="display: flex; align-items: center;">
<asp:ListItem Text="Inactivo" Value="0"></asp:ListItem> <label style="min-width: 70px" class="truncate">Producto</label>&nbsp;
</asp:DropDownList> <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" Width="100%" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
<div class="col-md-2" style="min-width: 200px; display: flex; align-items: center;">
<label style="min-width: 70px" class="truncate">Fecha Inicio</label>&nbsp;
<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>
<asp:Label runat="server" ID="Label3" class="col-md-1 truncate">Marca:</asp:Label> <div class="col-md-2" style="min-width: 200px; display: flex; align-items: center">
<div class="col-md-2 "> <label style="min-width: 70px" class="truncate">Fecha Fin</label>&nbsp;
<asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
</div> <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:Label runat="server" ID="Label4" class="col-md-1 truncate">Producto:</asp:Label> </span>
<div class="col-md-2"> </div>
<ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</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="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<div class="col-md-8"> <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<div class="col-md-8">
</div> </div>
<div class="col-md-2">
<div class="col-md-2"> <asp:UpdatePanel runat="server" ID="UpInactivar" UpdateMode="Conditional">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpInactivar" UpdateMode="Conditional"> <asp:LinkButton runat="server" ID="LnkInactivar" CssClass="btn btn-primary" OnClick="LnkInactivar_Click" Visible="false"
<ContentTemplate> data-toggle="confirmation" data-popout="true" data-original-title="¿Inactivar selección?" data-btn-ok-label="si"><i class="fa fa-times" aria-hidden="true"></i> Inactivar</asp:LinkButton>
<asp:LinkButton runat="server" ID="LnkInactivar" CssClass="btn btn-primary" OnClick="LnkInactivar_Click" Visible="false" </ContentTemplate>
data-toggle="confirmation" data-popout="true" data-original-title="¿Inactivar selección?" data-btn-ok-label="si" ><i class="fa fa-times" aria-hidden="true"></i> Inactivar</asp:LinkButton> </asp:UpdatePanel>
</ContentTemplate> </div>
</asp:UpdatePanel> <div class="col-md-2">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
</div>
<div class="col-md-2">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div> </div>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None"
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CvePromocion">
DataKeyNames="CvePromocion"
>
<Columns> <Columns>
<asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Left" Visible="false" > <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Left" Visible="false">
<HeaderTemplate> <HeaderTemplate>
<input type="checkbox" id="chkSelectAll" onclick="checkAll()" /> <input type="checkbox" id="chkSelectAll" onclick="checkAll()" />
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:CheckBox runat="server" ID="chk" CssClass="selChk" /> <asp:CheckBox runat="server" ID="chk" CssClass="selChk" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl ='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink> <asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="NombreComercial" HeaderText="Cliente" /> <asp:BoundField DataField="NombreComercial" HeaderText="Cliente" />
<asp:BoundField DataField="Vendedor" HeaderText="Vendedor" /> <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" />
<asp:BoundField DataField="Marca" HeaderText="Marca" /> <asp:BoundField DataField="Marca" HeaderText="Marca" />
<asp:BoundField DataField="FechaInicio" DataFormatString="{0:d}" HeaderText="F. Inicio" ItemStyle-Width="80px" /> <asp:BoundField DataField="FechaInicio" DataFormatString="{0:d}" HeaderText="F. Inicio" ItemStyle-Width="80px" />
<asp:BoundField DataField="FechaFin" DataFormatString="{0:d}" HeaderText="F. Fin" ItemStyle-Width="80px" /> <asp:BoundField DataField="FechaFin" DataFormatString="{0:d}" HeaderText="F. Fin" ItemStyle-Width="80px" />
<asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="125px" /> <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="125px" />
@@ -161,13 +168,13 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
function checkAll() { function checkAll() {
var isChecked = $('#chkSelectAll').prop('checked'); var isChecked = $('#chkSelectAll').prop('checked');
$('#<%= GvDatos.ClientID %> input[type="checkbox"][id*=chk]').each(function () { $('#<%= GvDatos.ClientID %> input[type="checkbox"][id*=chk]').each(function () {
$(this).prop('checked', isChecked); $(this).prop('checked', isChecked);
}); });

22
Ventas/CatPromociones.aspx.vb
View File

@@ -36,7 +36,16 @@ Partial Class Ventas_CatPromociones
Private Sub InicializaControles() Private Sub InicializaControles()
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
txtFechaF.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DdlEstatus.SelectedValueExist("-1")
Else
DdlEstatus.SelectedValueExist("1")
End If
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto) CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
@@ -71,25 +80,26 @@ Partial Class Ventas_CatPromociones
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas
Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
Dim CvePS As Integer = If(DdlPS.SelectedValue.ToEntero > 0, DdlPS.SelectedValue.ToEntero, -1) Dim CvePS As Integer = If(DdlPS.SelectedValue.ToEntero > 0, DdlPS.SelectedValue.ToEntero, -1)
Dim FechaI, FechaF As Date
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromociones(-1, MinFecha, DdlVendedor.SelectedValue.ToEntero, CveCliente, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario, If ObjVentas.GetPromociones(-1, MinFecha, DdlVendedor.SelectedValue.ToEntero, CveCliente, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario,
CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS) Then CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS, FechaI:=FechaI, FechaF:=FechaF) Then
DtDatos = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados.Copy()
Else Else
DtDatos = Nothing DtDatos = Nothing
Alert("Ocurrio un error al cargar las promociones. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrio un error al cargar las promociones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
ObjVentas.Dispose()
If DtDatos IsNot Nothing Then If DtDatos IsNot Nothing Then
CargaGrid() CargaGrid()
End If End If
End Sub End Sub
Private Sub CargaGrid() Private Sub CargaGrid()

2
Ventas/Promociones.aspx
View File

@@ -107,7 +107,7 @@
<%-- <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <%-- <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%>
<asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>

26
Ventas/Promociones.aspx.vb
View File

@@ -327,6 +327,9 @@ Partial Class Ventas_Promociones
End If End If
Next Next
TxtPromocion.Enabled = False
TxtPromocion.ReadOnly = True
End If End If
End Sub End Sub
@@ -857,6 +860,11 @@ Partial Class Ventas_Promociones
Private Sub GuardaPromocion() Private Sub GuardaPromocion()
If String.IsNullOrEmpty(TxtPromocion.Text.Trim) Then
Alert("Debe asignar un nombre a la promoción.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If EmpresaGrupoDiaz Then If EmpresaGrupoDiaz Then
If DdlClientes.SelectedValue.ToEntero <= 0 AndAlso Not PermisoAutorizPromocionPorcentaje Then If DdlClientes.SelectedValue.ToEntero <= 0 AndAlso Not PermisoAutorizPromocionPorcentaje Then
@@ -1567,4 +1575,22 @@ Partial Class Ventas_Promociones
UpAgregar.Update() UpAgregar.Update()
End Sub End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
If Me.CvePromocion <= 0 Then
Dim ObjFolios As New ClsGralFolios()
If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then
Dim DT As DataTable = ObjFolios.DtResultados
If DT.Rows.Count > 0 Then
TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual"))
Else
TxtPromocion.Text = ""
End If
DT.Dispose()
End If
ObjFolios.Dispose()
UpGenerales.Update()
End If
End Sub
End Class End Class

2
Ventas/Ventas.aspx.vb
View File

@@ -9088,7 +9088,7 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
e.Row.FCHyperLink("HLPS").Visible = True e.Row.FCHyperLink("HLPS").Visible = True
e.Row.FCLabel("LblPS").Visible = False e.Row.FCLabel("LblPS").Visible = False
e.Row.FCHyperLink("HLPS").NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CveSubProyecto={0}", DdlSubProyectoDatos.SelectedValue.ToEntero()) e.Row.FCHyperLink("HLPS").NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}&CveSubProyecto={1}", e.Row.DBCampo("CvePS"), DdlSubProyectoDatos.SelectedValue.ToEntero())
Else Else
e.Row.FCHyperLink("HLPS").Visible = False e.Row.FCHyperLink("HLPS").Visible = False
e.Row.FCLabel("LblPS").Visible = True e.Row.FCLabel("LblPS").Visible = True