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

Correcion de saldos de usados, funcionalidad para lista de precios, aplicacion de concepto 150 con porcentaje IVA por partida

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-10 18:19:56 -07:00
parent b1024883dc
commit 3e2535aa1a
2 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx
View File

@@ -8454,7 +8454,7 @@
TxtImporte.value = FormatoNumero(Saldo, 2); TxtImporte.value = FormatoNumero(Saldo, 2);
} }
} else { } else {
if (SaldoMaximoUtilizable > 0) { if (SaldoMaximoUtilizable <= 0) {
TxtImporte.value = ""; TxtImporte.value = "";
Chk.checked = false; Chk.checked = false;
} else { } else {
@@ -8498,7 +8498,7 @@
if (Importe > 0) { if (Importe > 0) {
} else { } else {
if (SaldoMaximoUtilizable > 0) { if (SaldoMaximoUtilizable <= 0) {
Importe = 0; Importe = 0;
Chk.checked = false; Chk.checked = false;
} else { } else {
@@ -8565,7 +8565,7 @@
if (Importe > 0) { if (Importe > 0) {
} else { } else {
if (SaldoMaximoUtilizable > 0) { if (SaldoMaximoUtilizable <= 0) {
Importe = 0; Importe = 0;
Chk.checked = false; Chk.checked = false;
} else { } else {
@@ -8632,7 +8632,7 @@
if (Importe > 0) { if (Importe > 0) {
} else { } else {
if (SaldoMaximoUtilizable > 0) { if (SaldoMaximoUtilizable <= 0) {
Importe = 0; Importe = 0;
Chk.checked = false; Chk.checked = false;
} else { } else {
@@ -8862,7 +8862,7 @@
TxtImporte.value = FormatoNumero(Saldo, 2); TxtImporte.value = FormatoNumero(Saldo, 2);
} }
} else { } else {
if (SaldoMaximoUtilizable > 0) { if (SaldoMaximoUtilizable <= 0) {
TxtImporte.value = ""; TxtImporte.value = "";
Chk.checked = false; Chk.checked = false;
} else { } else {

23
Ventas/Ventas.aspx.vb
View File

@@ -14758,8 +14758,8 @@ Partial Class Ventas
'se excluyen las clasificaciones anteriores para que se asignen las de ingreso 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString() TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
End If End If
End If End If
@@ -17640,12 +17640,14 @@ Partial Class Ventas
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If End If
'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE If Me.CvePrecioListaCliente > 0 Then
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
CvePrecioListaPS = Me.CvePrecioListaCliente 'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente
End If
End If End If
End If End If
@@ -36156,9 +36158,12 @@ Partial Class Ventas
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If End If
'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE If Me.CvePrecioListaCliente > 0 Then
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
CvePrecioListaPS = Me.CvePrecioListaCliente 'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente
End If
End If End If
End If End If