Ajustes RSCO, pasa a prudctos servicios, ajustes en reporte apuntando a productos servcios, se quita modulo RegRSCO

This commit is contained in:
rakcsle
2022-07-07 17:50:24 -07:00
parent afba929385
commit 79938f7a4d
10 changed files with 84 additions and 605 deletions

View File

@@ -15,8 +15,8 @@
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkCerrarFlete" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Cerrar Flete" OnClick="LnkCerrarFlete_Click"
data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Flete?" data-btn-ok-label="si" Visible="false" />
<asp:LinkButton ID="LnkCerrarFlete" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Cerrar Costo Indirecto" OnClick="LnkCerrarFlete_Click"
data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Costo Indirecto?" data-btn-ok-label="si" Visible="false" />
</li>
</ContentTemplate>
<Triggers>

View File

@@ -449,7 +449,7 @@ Partial Class Compras_Fletes
Dim ObjInv As New ClsInventarios
If ObjInv.UpdateFleteCierre(CveFlete, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Alert("Flete cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href = ""./Fletes.aspx?CveFlete={CveFlete}"" ")
Alert("Costo Indirecto cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href = ""./Fletes.aspx?CveFlete={CveFlete}"" ")
End If
ObjInv.Dispose()

View File

@@ -1,187 +0,0 @@
<%@ Page Title="Reg RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegRSCO.aspx.vb" Inherits="Inventarios_RegRSCO" EnableEventValidation="false" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
#DivAgregarUnidad > div.modal-dialog > div label input {
padding: 0px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Reg RSCO
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarRSCO" OnClick="LnkAgregarRSCO_Click" data-toggle="tooltip" data-placement="left" title="Agregar RSCO" Text="<i class='fa fa-plus'></i>Agregar RSCO"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario, NombreComercial"
EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" />
<asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
<asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivAgregarRSCO" class="modal ADS fade" role="dialog">
<div class="modal-dialog ">
<asp:UpdatePanel runat="server" class="modal-content rowpadding" tabindex="-1" ID="UpModalRSCO" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Literal runat="server" ID="LtlTituloModal" Text="Agregar Unidad"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12" runat="server" id="DVTiposRemolque" >
<div class="form-group form-md-line-input input-iconright" >
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssClass="form-control" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
<label for="<%= DdlProveedores.ClientID.ToString()%>" style="margin-top:-6px" >Proveedor:</label>
<i></i>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12" runat="server">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCompuesto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCompuesto" DataTextField="Compuesto" Style="padding: 0px">
</asp:DropDownList>
<label for="<%= DdlCompuesto.ClientID.ToString()%>">Compuesto:</label>
<asp:RequiredFieldValidator runat="server" ID="RfvDdlCompuesto" ControlToValidate="DdlCompuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Compuesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRegistroRSCO" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtRegistroRSCO.ClientID.ToString()%>">Registro RSCO:</label>
<asp:RequiredFieldValidator runat="server" ID="RfvTxtRegistroRSCO" ControlToValidate="TxtRegistroRSCO" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro RSCO''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" style="width: 160px!important" runat="server" id="DvFechaVijencia">
<asp:TextBox ID="TxtFechaVigencia" CssClass="form-control" MaxLength="50" runat="server" Width="130px"></asp:TextBox>
<span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
<asp:LinkButton ID="LnkTxtFechaVigencia" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:CalendarExtender runat="server" ID="CETxtFechaVigencia" TargetControlID="TxtFechaVigencia" PopupButtonID="LnkTxtFechaVigencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CvTxtFechaVigencia" runat="server" ControlToValidate="TxtFechaVigencia" Display="None"
ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRSCO"></asp:CompareValidator>
<asp:RequiredFieldValidator ID="RfvTxtFechaVigencia" runat="server" ControlToValidate="TxtFechaVigencia" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCETxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtFechaVigencia.ClientID.ToString() %>">Fecha de Vigencia:</label>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" runat="server">
<asp:CheckBox ID="ChkFechaIndeterminada" runat="server" CssClass="form-control" OnCheckedChanged="ChkFechaIndeterminada_CheckedChanged" AutoPostBack="true" />
<label for="<%= ChkFechaIndeterminada.ClientID.ToString()%>">Fecha Indeterminada:</label>
</div>
</div>
</div>
<div class="row" runat="server" id="DivModalContinuarAgregando">
<div class="col-md-12" style="text-align:right!important">
<asp:CheckBox ID="ChkModalContinuarAgregando" runat="server" Text="Continuar Agregando" TextAlign="Left" />
</div>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgregarRSCO" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" OnClick="BtnAgregarRSCO_Click" ValidationGroup="GrpRSCO" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -1,232 +0,0 @@
Imports Extensiones
Partial Class Inventarios_RegRSCO
Inherits ClsPaginas
Private Property CveCompuestoVigencia As Integer
Get
If ViewState("CveCompuestoVigencia") Is Nothing Then
Return -1
Else
Return ViewState("CveCompuestoVigencia").ToString().ToEntero()
End If
End Get
Set(ByVal value As Integer)
ViewState("CveCompuestoVigencia") = value
End Set
End Property
Private Sub Inventarios_RegRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
CargaDatos()
End If
End Sub
Public Sub CargaDatos()
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetCompuestosVigencia(-1, -1, MinFecha, MaxFecha, 1, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjInventarios.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjInventarios.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Private Sub CargaCombos()
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Seleccione Uno"
DdlProveedores.SelectedValue = "-1"
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
DdlCompuesto.DataSource = ObjPS.DtResultados
Else
DdlCompuesto.DataSource = Nothing
End If
ObjPS.Dispose()
DdlCompuesto.DataBind()
DdlCompuesto.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
UpModalRSCO.Update()
End Sub
Private Sub LimpiarModalDivAgregarRSCO()
CveCompuestoVigencia = -1
BtnAgregarRSCO.Text = "Agregar"
DdlProveedores.txtValue.Value = "-1"
DdlProveedores.txtText.Value = ""
DdlCompuesto.SelectedValueExist(-1)
TxtFechaVigencia.Text = ""
TxtRegistroRSCO.Text = ""
ChkFechaIndeterminada.Checked = False
LtlTituloModal.Text = "Agregar RSCO"
DivModalContinuarAgregando.Visible = True
ChkModalContinuarAgregando.Checked = True
UpModalRSCO.Update()
End Sub
Protected Sub LnkAgregarRSCO_Click(sender As Object, e As EventArgs)
LimpiarModalDivAgregarRSCO()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
End Sub
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
BtnAgregarRSCO.Text = "Actualizar"
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
CveCompuestoVigencia = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor")
DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial")
DdlCompuesto.SelectedValueExist(GvRow.DataKey("CveCompuesto"))
TxtFechaVigencia.Text = GvRow.DataKey("FechaVigencia").ToDate.ToString("dd/MM/yyyy")
TxtRegistroRSCO.Text = GvRow.DataKey("RegistroRSCO")
ChkFechaIndeterminada.Checked = Boolean.Parse(GvRow.DataKey("VigenciaIndeterminada"))
LtlTituloModal.Text = "Actualizar RSCO"
DivModalContinuarAgregando.Visible = False
ChkModalContinuarAgregando.Checked = False
If ChkFechaIndeterminada.Checked Then
DvFechaVijencia.Visible = False
TxtFechaVigencia.Text = "01/01/1900"
Else
DvFechaVijencia.Visible = True
End If
UpModalRSCO.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim ErrorAlElimiar As Boolean = False
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
Dim CveCompuestoVigenciaEliminar = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
Using ObjInventarios As New ClsInventarios
If (ObjInventarios.RemoveCompuestosVigencia(CveCompuestoVigenciaEliminar, UsuarioActual.CveEmpresa)) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
Alert("RSCO Eliminado Correctamente.")
Else
ErrorAlElimiar = True
End If
End Using
If Not ErrorAlElimiar Then
GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
CargaDatos()
End If
End Sub
Protected Sub BtnAgregarRSCO_Click(sender As Object, e As EventArgs)
Dim ErrorPrceso As Boolean = False
If DdlProveedores.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar un proveedor.")
Exit Sub
End If
Using ObjInventarios As New ClsInventarios
If CveCompuestoVigencia <= 0 Then
If ObjInventarios.AddCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("RSCO agregado correctamente")
Else
ErrorPrceso = True
End If
Else
If ObjInventarios.UpdateCompuestosVigencia(CveCompuestoVigencia, DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("RSCO actualizado correctamente")
Else
ErrorPrceso = True
End If
End If
End Using
If Not ErrorPrceso Then
GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
CargaDatos()
If Not ChkModalContinuarAgregando.Checked Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
Else
LimpiarModalDivAgregarRSCO()
End If
UpDatos.Update()
End If
End Sub
Protected Sub ChkFechaIndeterminada_CheckedChanged(sender As Object, e As EventArgs)
If ChkFechaIndeterminada.Checked Then
DvFechaVijencia.Visible = False
TxtFechaVigencia.Text = "01/01/1900"
Else
DvFechaVijencia.Visible = True
TxtFechaVigencia.Text = ""
End If
UpModalRSCO.Update()
End Sub
End Class

View File

@@ -115,26 +115,20 @@
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario"
DataKeyNames="CvePS,CveCompuesto,CveProveedorCompra,RegistroRSCO,FechaVigenciaRSCOStr,VigenciaIndeterminadaRSCO,CveUsuario"
EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigenciaRSCOStr" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" />
<asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="Fecha" ItemStyle-Width="5%" DataFormatString="{0:d}" />
<%-- <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</ContentTemplate>