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

--puntos varios

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-07-24 17:37:16 -07:00
parent ec4e5c4072
commit d4140fad0b
9 changed files with 85 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx
View File

@@ -6125,7 +6125,10 @@
// totalPoints += ToDouble($(this).val());
let txtvalue = ToDouble($(this).val());
//let asdasdasd = $(this).data('tcanticipo');
let TCAnticipo = ToDouble($(this).data('tcanticipo'));
let TCAnticipo = 1;
if ($(this).data('tcanticipo')) {
TCAnticipo = ToDouble($(this).data('tcanticipo'));
}
if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
txtvalue = ToDouble(txtvalue / TCAnticipo);
@@ -6146,7 +6149,10 @@
$('input[name*=TxtComision]').each(function () {
//totalPoints += ToDouble($(this).val());
let txtvalue = ToDouble($(this).val());
let TCAnticipo = ToDouble($(this).data('tcanticipo'));
let TCAnticipo = 1;
if ($(this).data('tcanticipo')) {
TCAnticipo = ToDouble($(this).data('tcanticipo'));
}
if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
txtvalue = ToDouble(txtvalue / TCAnticipo);
} else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {

3
Compras/Compras.aspx.vb
View File

@@ -9919,6 +9919,7 @@ Partial Class Compras_Compras
e.Row.FCTextBox("TxtAnticipo").Attributes.Add("data-tcanticipo", tTCFecha.ToString)
e.Row.FCTextBox("TxtComision").Attributes.Add("data-tcanticipo", tTCFecha.ToString)
Dim TCAnt As Decimal = If(DdlMoneda.SelectedValue = "1", 1, If(CveCompra > 0, LblTC.Text.Replace("TC:", "").ToDecimal, TxtTC.Text.ToDecimal))
@@ -13309,7 +13310,7 @@ Partial Class Compras_Compras
DDLDevolucion.Items.Clear()
Dim dtt As DataTable = objcompras.DtResultados
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'solo los últimos 3 meses
dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-6).ToString("yyyy/MM/dd")}#")
dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-12).ToString("yyyy/MM/dd")}#")
End If
DDLDevolucion.DataSource = dtt
DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))

15
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1557,6 +1557,16 @@ Partial Class PopUpVerFactura
Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"
If ConsultaPorSucursal Then
'SI NO TIENE ESTOS VALORES, SARCALOS DEL CORTE
If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then
Using ObjVta As New ClsPuntoVenta
If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then
FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date
CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero()
End If
End Using
End If
CveCorte = -1
End If
@@ -1638,7 +1648,10 @@ Partial Class PopUpVerFactura
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
If DtReporteCorte IsNot Nothing Then
Dim DtTT = GenerateTransposedTable(DtReporteCorte)
Dim dtDatos = DtReporteCorte.Clone()
dtDatos.ImportRow(DtReporteCorte.Rows(0))
Dim DtTT = GenerateTransposedTable(dtDatos)
Dim DtDatosVentas As New DataTable()
DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer)))
DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String)))