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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rakcsle
2022-08-05 17:51:47 -07:00
parent 1ed5910c6f 202c73c9e0
commit ba4d44ec9b
6 changed files with 123 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Clientes.aspx.vb
View File

@@ -4216,8 +4216,22 @@ Partial Class Clientes
<br />
Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
<br />
<b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
<b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
If UsuarioActual.CveEmpresa = 140 Then
Cuerpo = String.Format("Estimado cliente <u>{0}</u>, se anexa su estado de cuenta con adeudo actual en {1}.<br />
<br />
Quedamos a sus ordenes para cualquier duda o aclaración: con su asesor comercial, al teléfono celular del área de Crédito y Cobranza 6624 52 99 64 o a los correos:<br /><br />
credito@bdhbaterias.com<br />
cobranza@bdhbaterias.com<br />
<br />
Gracias por la atención brindada al presente.<br />
Reciba un cordial saludo.<br />
<br />
<b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA, FAVOR DE NO RESPONDERLO.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
End If
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
Hilo.Start()
Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
Catch ex As Exception

11
Ventas/ClientesAbonar.aspx
View File

@@ -693,7 +693,7 @@
if (textBoxes[i].value != '') {
idd = textBoxes[i].id.replace('C_GvCxC_TxtAbonar_', '');
Ventas = Ventas + (Importe == 0 ? '' : ', ') + $get("C_GvCxC_HplF_" + idd).innerText;
abono = parseFloat(textBoxes[i].value.split(',').join(''));
abono = ToDouble(textBoxes[i].value);
moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText;
if (monedaPago == 1 && moneda == 'USD') {
@@ -708,7 +708,7 @@
}
if (textBoxes[i].id.indexOf('C_GvCxC_TxtComision') >= 0) {
if (textBoxes[i].value != '') {
abonoComision = parseFloat(textBoxes[i].value.split(',').join(''));
abonoComision = ToDouble(textBoxes[i].value);
moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText;
if (monedaPago == 1 && moneda == 'USD') {
facDolares = true
@@ -954,6 +954,7 @@
let Total = 0.0;
let Anticipos = 0.0;
debugger;
$( ClsSelLiqVenta).each(function () {
@@ -966,11 +967,10 @@
});
Total = Total + Anticipos;
Total = Total + Anticipos;
$(ClsSelLiqVentaTotal).each(function () {
$(this).val(Total);
$(this).val(Total.toFixed(2));
FormatoMoneda2($(this));
});
@@ -979,6 +979,7 @@
var Suma = SumaValores(pagoMultiple, monedaPago);
$get('TxtImporte').value = FormatoNumero(Suma, 2);
}
function disablekeys()

2
Ventas/Ventas.aspx.vb
View File

@@ -4426,7 +4426,7 @@ Partial Class Ventas
End If
If DbRowVenta IsNot Nothing Then
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetVentasRelacionadas(CveVenta, 1, UsuarioActual.CveEmpresa) Then
DtAntRelacionados = ObjVentas.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Ant','Egs','Dev')")
End If