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

Documentos proveedores

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-03-04 08:47:14 -07:00
parent ea3ae05358 155a5ec61c
commit 35fe847b2a
4 changed files with 29 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
End If
Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
If RBLPago.SelectedValue.ToEntero = 4 Then

31
SiteGPS.master
View File

@@ -847,22 +847,23 @@
CveBitacora: -1
}
}
var json = JSON.stringify(request);
$.ajax({
data: json,
url: '/Ashx/SIGGPS.ashx',
type: 'post',
beforeSend: function () {
console.log("procesando.....");
},
success: function (response) {
console.log("notificacion actualizada....");
var datos = JSON.parse(response);
UpdateNotificacionesCampana(datos);
}
});
setTimeout(startTimer, 60000); // callback
//var json = JSON.stringify(request);
//$.ajax({
// data: json,
// url: '/Ashx/SIGGPS.ashx',
// type: 'post',
// beforeSend: function () {
// console.log("procesando.....");
// },
// success: function (response) {
// console.log("notificacion actualizada....");
// var datos = JSON.parse(response);
// UpdateNotificacionesCampana(datos);
// }
//});
//setTimeout(startTimer, 60000); // callback
}
//

14
Ventas/Ventas.aspx.vb
View File

@@ -5835,6 +5835,11 @@ Partial Class Ventas
Descuento = (GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Text.ToDecimal).RoundSQL(NumeroDecimales)
CuentaPredial = GvPS.Rows(e.RowIndex).FCTextBox("TxtPredial").Text.Trim
If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If UsuarioActual.CveEmpresa = 140 Then
Descuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero, Cantidad, PU)
End If
@@ -8803,8 +8808,8 @@ Partial Class Ventas
'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
' If drr("ImporteIVA").ToString.ToDouble > 0 Then
'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
If Timbre.Comprobante.Total > 0 Then
'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
End If
@@ -13920,6 +13925,11 @@ Partial Class Ventas
Return False
End If
If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
Return False
End If
'VALIDA PROMOCIONES
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then

4
vwd.webinfo
View File

@@ -22,10 +22,6 @@