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

Tareas119 Cambio servidor FTP, Proveedores abonar filtros SubProyectos y tipo de contrato

Browse Source
This commit is contained in:
rakcsle
2021-05-20 19:27:33 -07:00
parent 85d283f175
commit 900aa1ae2c
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/ProveedoresAbonar.aspx
View File

@@ -176,7 +176,7 @@
<div class="row" id="trNotificar" runat="server" visible="False">
<label class="col-md-2 control-label">Notificar:</label>
<div class="col-md-7">
<asp:TextBox ID="TxtNotificarA" runat="server" MaxLength="12" CssClass="form-control input-sm" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
<asp:TextBox ID="TxtNotificarA" runat="server" MaxLength="100" CssClass="form-control input-sm" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
</div>
<div>

7
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1938,6 +1938,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
Case 42 'Acreedores
If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
Dim ObjCreditos As New ClsBancos
ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
@@ -1947,10 +1948,12 @@ Partial Class Bancos_ProveedoresAbonar
IdCtaContable = IdCuenta
End If
ImporteMovimiento = TxtImporte.Text.ToDecimal
importeMX = If(CveMoneda = 2, If(DivTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal * TipoCambioPago, TxtImporte.Text.ToDecimal * TipoCambioPago), TxtImporte.Text.ToDecimal)
Dim Importe42 As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
ImporteMovimiento = Importe42
importeMX = If(CveMoneda = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * TipoCambioPago, Importe42 * TipoCambioPago), Importe42)
TipoCambioGeneral = TipoCambioPago
End If
Case 30
'Conta ContPAQ
If IdCuenta < 1 Then