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:
rrene
2023-02-11 08:14:35 -07:00
parent ac14be1345 8eb6faa6d1
commit 8912f57cf8
10 changed files with 50 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Ventas/Ventas.aspx
View File

@@ -555,9 +555,9 @@
</td>
</tr>
<tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
<td><b>Descripción de factura:</b></td>
<td>
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
<td><b>Descripción de factura:</b></td>
<td colspan="3">
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
</tr>
</table>
</div>
@@ -8454,7 +8454,7 @@
TxtImporte.value = FormatoNumero(Saldo, 2);
}
} else {
if (SaldoMaximoUtilizable > 0) {
if (SaldoMaximoUtilizable <= 0) {
TxtImporte.value = "";
Chk.checked = false;
} else {
@@ -8498,7 +8498,7 @@
if (Importe > 0) {
} else {
if (SaldoMaximoUtilizable > 0) {
if (SaldoMaximoUtilizable <= 0) {
Importe = 0;
Chk.checked = false;
} else {
@@ -8565,7 +8565,7 @@
if (Importe > 0) {
} else {
if (SaldoMaximoUtilizable > 0) {
if (SaldoMaximoUtilizable <= 0) {
Importe = 0;
Chk.checked = false;
} else {
@@ -8632,7 +8632,7 @@
if (Importe > 0) {
} else {
if (SaldoMaximoUtilizable > 0) {
if (SaldoMaximoUtilizable <= 0) {
Importe = 0;
Chk.checked = false;
} else {
@@ -8862,7 +8862,7 @@
TxtImporte.value = FormatoNumero(Saldo, 2);
}
} else {
if (SaldoMaximoUtilizable > 0) {
if (SaldoMaximoUtilizable <= 0) {
TxtImporte.value = "";
Chk.checked = false;
} else {

19
Ventas/Ventas.aspx.vb
View File

@@ -14761,8 +14761,8 @@ Partial Class Ventas
'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString()
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
End If
End If
@@ -17643,7 +17643,14 @@ Partial Class Ventas
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
If Me.CvePrecioListaCliente > 0 Then
Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
'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
@@ -36153,6 +36160,14 @@ Partial Class Ventas
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
If Me.CvePrecioListaCliente > 0 Then
Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
'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
If CvePrecioListaPS > 0 Then