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

CatBancos CveSATBancos, EntregaAlamcen desactivar requiered de fecha de caducidad cuando no este marcado el check

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-07-04 17:37:21 -07:00
parent 67ada9d48e
commit 88233be132
5 changed files with 157 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsBancos.vb
View File

@@ -295,7 +295,8 @@ Public Class ClsBancos
Return Retorno
End Function
Public Function AddBancos(Banco As String, Ejecutivo As String, Telefono As String, CveUsuario As Integer, CveEmpresa As Integer, Optional IdContPaq As Integer = -1, Optional RFC As String = "-1") As Boolean
Public Function AddBancos(Banco As String, Ejecutivo As String, Telefono As String, CveUsuario As Integer, CveEmpresa As Integer, Optional IdContPaq As Integer = -1, Optional RFC As String = "-1",
Optional CveSATBanco As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosAdd ")
@@ -308,6 +309,7 @@ Public Class ClsBancos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@IdContPaq", SqlDbType.Int).Value = IdContPaq
.Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
End With
Try
@@ -326,7 +328,8 @@ Public Class ClsBancos
Return Retorno
End Function
Public Function UpdateBancos(Banco As String, Ejecutivo As String, Telefono As String, Estatus As Boolean, CveBanco As Integer, Optional IdContPaq As Integer = -1, Optional RFC As String = "-1") As Boolean
Public Function UpdateBancos(Banco As String, Ejecutivo As String, Telefono As String, Estatus As Boolean, CveBanco As Integer, Optional IdContPaq As Integer = -1, Optional RFC As String = "-1",
Optional CveSATBanco As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosUpdate")
@@ -339,6 +342,7 @@ Public Class ClsBancos
.Add("@CveBanco", SqlDbType.Int).Value = CveBanco
.Add("@IdContPaq", SqlDbType.Int).Value = IdContPaq
.Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
End With
Try

51
Bancos/CatBancos.aspx
View File

@@ -4,6 +4,16 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.select2 .select2-selection{
max-height:21.14px!important
}
.select2-selection__rendered{
margin-top:-4px!important
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li>
@@ -24,6 +34,12 @@
<table class="table table-striped table-advance table-hover">
<thead>
<tr class="Titulos">
<th width="150px">
<asp:LinkButton ID="LbBancoSAT" runat="server" CausesValidation="false" Text="" CommandArgument="BancoSAT" OnClick="LbOrden_Click">
Banco SAT
<asp:Literal ID="ImgBancoSAT" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="150px">
<asp:LinkButton ID="LbBanco" runat="server" CausesValidation="false" Text="" CommandArgument="Banco" OnClick="LbOrden_Click">
Banco
@@ -64,6 +80,13 @@
</tr>
</thead>
<tr>
<td>
<asp:DropDownList CssClass="form-control select2me" Width="100%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<asp:TextBox ID="TxtBanco" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="140px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVBanco" runat="server" ControlToValidate="TxtBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -90,8 +113,22 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveBanco" EmptyDataText="No se encontraron Bancos Registrados" ToolTip="Listado de Bancos" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveBanco,CveSATBanco" EmptyDataText="No se encontraron Bancos Registrados" ToolTip="Listado de Bancos"
CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlBancoSAT" runat="server" Text='<%# Eval("SATBanco", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList CssClass="form-control select2me" Width="100%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco" Height="21.14px">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlBanco" runat="server" Text='<%# Eval("Banco", "{0}") %>'></asp:Literal>
@@ -142,10 +179,14 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
<div class="row">
<div class="col-md-6" style="text-align:right!important">
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
</div>
<div class="col-md-6">
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</div>
</div>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />

104
Bancos/CatBancos.aspx.vb
View File

@@ -19,13 +19,43 @@ Partial Class Bancos_CatBancos
End Set
End Property
Private Property DTBancosSAT As DataTable
Get
If ViewState("DTBancosSAT") Is Nothing Then
ViewState("DTBancosSAT") = New DataTable()
End If
Return DirectCast(ViewState("DTBancosSAT"), DataTable)
End Get
Set(ByVal value As DataTable)
ViewState("DTBancosSAT") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaBancosSAT()
ViewState("Orden") = ""
CargaDatos()
End If
End Sub
Private Sub CargaBancosSAT()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosSAT Then
DdlSatBanco.DataSource = ObjBancos.DtResultados
DTBancosSAT = ObjBancos.DtResultados
End If
ObjBancos.Dispose()
DdlSatBanco.DataBind()
DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Public Sub CargaDatos()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancos() Then
@@ -47,7 +77,8 @@ Partial Class Bancos_CatBancos
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjBancos As New ClsBancos
If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSATBanco:=DdlSatBanco.SelectedValue.ToEntero) Then
DdlSatBanco.SelectedValueExist(-1)
TxtBanco.Text = ""
TxtEjecutivo.Text = ""
TxtTelefono.Text = ""
@@ -68,24 +99,42 @@ Partial Class Bancos_CatBancos
#Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO
e.Row.Cells(1).Width = Unit.Pixel(206) 'EJECUTIVO
e.Row.Cells(2).Width = Unit.Pixel(106) 'TELEFONO
e.Row.Cells(3).Width = Unit.Pixel(95) 'ESTATUS
e.Row.Cells(4).Width = Unit.Pixel(95) 'FECHA
e.Row.Cells(5).Width = Unit.Pixel(100) 'USUARIO
e.Row.Cells(6).Width = Unit.Pixel(100) 'EDITAR
e.Row.Cells(7).Width = Unit.Pixel(65) 'ELIMINAR
e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO SAT
e.Row.Cells(1).Width = Unit.Pixel(156) 'BANCO
e.Row.Cells(2).Width = Unit.Pixel(206) 'EJECUTIVO
e.Row.Cells(3).Width = Unit.Pixel(106) 'TELEFONO
e.Row.Cells(4).Width = Unit.Pixel(95) 'ESTATUS
e.Row.Cells(5).Width = Unit.Pixel(95) 'FECHA
e.Row.Cells(6).Width = Unit.Pixel(100) 'USUARIO
e.Row.Cells(7).Width = Unit.Pixel(65) 'EDITAR
e.Row.Cells(8).Width = Unit.Pixel(65) 'ELIMINAR
End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Center
End If
If (e.Row.RowState And DataControlRowState.Edit) = DataControlRowState.Edit Then
Dim DdlSatBanco As DropDownList = e.Row.FCDropDownList("DdlSatBanco")
DdlSatBanco.ClearSelection()
DdlSatBanco.SelectedValue = Nothing
DdlSatBanco.Items.Clear()
DdlSatBanco.DataSource = DTBancosSAT
DdlSatBanco.DataBind()
DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlSatBanco.SelectedValueExist(e.Row.DataKey("CveSATBanco").ToString())
End If
End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
@@ -126,19 +175,16 @@ Partial Class Bancos_CatBancos
Dim Telefono As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTelefono"), TextBox).Text.Trim
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
Dim CveSATBanco As Integer = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSatBanco").SelectedValue.ToEntero
Dim TieneError As Boolean = False
If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
If ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
GvDatos.EditIndex = -1
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTBancos = ObjBancos.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
Else
If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco, CveSATBanco:=CveSATBanco) Then
If Not ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
TieneError = True
End If
Else
TieneError = True
End If
@@ -152,12 +198,24 @@ Partial Class Bancos_CatBancos
ObjBancos.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
If Not TieneError Then
GvDatos.EditIndex = -1
CargaDatos()
GlobalDTBancos = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End If
End Sub
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing

22
Inventarios/EntregaAlmacen.aspx
View File

@@ -1163,16 +1163,36 @@
}
function fncCantidad(checkbox, numeroMax, idTbCantidadF) {
function fncCantidad(checkbox, numeroMax, idTbCantidadF, rfv) {
var $textbox = $('#' + idTbCantidadF);
if ($(checkbox).is(':checked')) {
$textbox.val(numeroMax);
activarValidatorPorId(rfv);
} else {
$textbox.val(0);
desactivarValidatorPorId(rfv);
}
}
function desactivarValidatorPorId(idValidatorCliente) {
var validator = document.getElementById(idValidatorCliente);
if (validator) {
validator.enabled = false;
validator.style.display = "none";
}
}
function activarValidatorPorId(idValidatorCliente) {
var validator = document.getElementById(idValidatorCliente);
if (validator) {
validator.enabled = true;
validator.style.display = "inline";
}
}
</script>

4
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1278,7 +1278,7 @@ Partial Class Inventarios_EntregaAlmacen
If BloqueCantidad Then
e.Row.FCTextBox("TbCantidadF").Enabled = False
Else
e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}')")
e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}','{e.Row.FCRequiredFieldValidator("RFVCaducidad").ClientID}')")
End If
@@ -1996,6 +1996,8 @@ Partial Class Inventarios_EntregaAlmacen
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
Alert("ok")
Exit Sub
Select Case TipoEntrega
Case 1