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"> <div class="row" id="trNotificar" runat="server" visible="False">
<label class="col-md-2 control-label">Notificar:</label> <label class="col-md-2 control-label">Notificar:</label>
<div class="col-md-7"> <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>
<div> <div>

7
Bancos/ProveedoresAbonar.aspx.vb
View File

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

7
TareasProgramadas/Tareas119.ashx
View File

@@ -26,7 +26,7 @@ public class TareasJam : IHttpHandler
switch (Metodo) switch (Metodo)
{ {
case "TestConexion": case "TestConexion":
retorno = PruebaConexionFTP("ftp://us2.hostedftp.com/", "agrojam", "A12345678"); retorno = PruebaConexionFTP("ftp://thalamus.exavault.com", "agrojam", "A12345678");
break; break;
case "EjecutaThalamus": case "EjecutaThalamus":
@@ -112,7 +112,7 @@ public class TareasJam : IHttpHandler
//string FTPPass = "agj-3500"; //string FTPPass = "agj-3500";
string FTPServer = "ftp://us2.hostedftp.com"; string FTPServer = "ftp://thalamus.exavault.com";
string TFPUsr = "agrojam"; string TFPUsr = "agrojam";
string FTPPass = "A12345678"; string FTPPass = "A12345678";
@@ -377,6 +377,9 @@ public class TareasJam : IHttpHandler
} }
// ErrorProceso = true;
if (!ErrorProceso) if (!ErrorProceso)
{ {
var FInfoProductos = new FileInfo(RutaProductos); var FInfoProductos = new FileInfo(RutaProductos);