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

PopUpVerFactura logos de alamcen

Browse Source
This commit is contained in:
rakcsle
2021-11-30 23:22:06 -07:00
parent d80c4076b3
commit ee9b1ebb90
7 changed files with 184 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/IE.aspx.vb
View File

@@ -1085,7 +1085,7 @@ Partial Class Bancos_IE
If DdlTipoTransaccion.SelectedValue = "9" Then
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveProveedor:=ObjIE.CveProveedor) Then
DdlCuentaDeposito.DataSource = Dep.DtResultados
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
If Dep.DtResultados.Rows.Count > 0 Then
trCuentaDeposito.Visible = True
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
@@ -5250,7 +5250,7 @@ Partial Class Bancos_IE
If Dep.DtResultados.Rows.Count > 0 Then
DdlCuentaDeposito.DataSource = Dep.DtResultados
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
trCuentaDeposito.Visible = True
BtnGuardar.ToolTip = ""

15
Bancos/PagoElectronicoGrupos.aspx
View File

@@ -574,7 +574,7 @@
Prefijo Folio:
</div>
<div class="col-md-6" style="text-align:left!important">
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
<asp:TextBox ID="TxtFolio" MaxLength="6" runat="server" CssClass="CSSPrefijo form-control" Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
</div>
</div>
@@ -606,7 +606,7 @@
<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="Nuevo Folio">
<ItemTemplate>
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important" ></asp:TextBox>
<asp:TextBox ID="TxtFolio" MaxLength="15" onkeyup="validaLongitudFolio(this);" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important" ></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
@@ -928,6 +928,17 @@
}
function validaLongitudFolio(v) {
var TamanioS = String(v.value);
var Tamanio = TamanioS.lenght;
alert(Tamanio);
if (Tamanio >= 14) {
alert("El folio especificado es demaciado grande");
}
}
</script>
</asp:Content>

2
Bancos/PolizaCheque.aspx
View File

@@ -43,6 +43,8 @@
<div class="col-md-10">
<asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlPlantilla" runat="server" ControlToValidate="DdlPlantilla" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDdlPlantilla" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlPlantilla" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>

35
Bancos/PolizaCheque.aspx.vb
View File

@@ -159,7 +159,8 @@ Partial Class Bancos_PolizaCheque
.Add("Proyecto", Type.GetType("System.String"))
.Add("Personal", Type.GetType("System.String"))
.Add("CvePersonal", Type.GetType("System.Int32"))
.Add("CveSubProyecto", Type.GetType("System.Int32"))
.Add("CveSubProyecto", Type.GetType("System.Int32"))
End With
GvMov.DataBind()
@@ -469,10 +470,10 @@ Partial Class Bancos_PolizaCheque
dr("CveSubProyecto") = drt("CveSubProyecto")
dr("Proyecto") = drt("Proyecto")
dr("Personal") = drt("Personal")
dr("CvePersonal") = drt("CvePersonal")
'dr("Cargo") = TxtCargoImporte.Text.ToDouble
'dr("Abono") = TxtAbonoImporte.Text.ToDouble
dr("CvePersonal") = drt("CvePersonal")
'dr("CveConcepto") = drt("CveConcepto")
DtMovimientos.Rows.Add(dr)
Next
@@ -816,7 +817,9 @@ Partial Class Bancos_PolizaCheque
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim TotalCargos, TotalAbonos, ImporteDocumento As Decimal
Dim CvePrePoliza As Integer
Dim CvePrePoliza As Integer
Dim ValidaConcepto30 As Boolean = False
If DdlCuenta.SelectedValue.ToEntero <= 0 Then
If UsuarioActual.CveEmpresa <> 126 Then
@@ -831,7 +834,25 @@ Partial Class Bancos_PolizaCheque
TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal
TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal
Next
Next
For Each Gvr As GridViewRow In GvMov.Rows
If Gvr.DataKey("CveConcepto").ToEntero = 30 Then
If Gvr.FCTextBox("TxtAbono").Text.ToDecimal = TxtImporte.Text.ToDecimal Then
ValidaConcepto30 = True
End If
End If
Next
If Not ValidaConcepto30 Then
Alert("El importe no coicide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
Dim filemove As String = ""