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

-- se quitó candado emisión

Browse Source 
--  no recalcular precio en cambio de contado/crdito
This commit is contained in:
rrene
2025-01-03 08:37:56 -07:00
parent 5838b40f4c
commit dff20d006f
1 changed files with 8 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Ventas/Ventas.aspx.vb
View File

@@ -2745,7 +2745,7 @@ Partial Class Ventas
HdnCveCliente.Value = "-1" HdnCveCliente.Value = "-1"
'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR 'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR
If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 AndAlso CveVenta <= 0 Then
ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714) HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714)
RBLPago.SelectedValue = "2" RBLPago.SelectedValue = "2"
@@ -11079,10 +11079,6 @@ Partial Class Ventas
DebeTimbrar = False DebeTimbrar = False
End If End If
End If End If
'RMF, codigo temporal
If UsuarioActual.CveEmpresa.Contiene(189) Then
DebeTimbrar = False
End If
'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar 'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar
If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then
@@ -17900,9 +17896,6 @@ Partial Class Ventas
Dim SeTimbro As Boolean = False Dim SeTimbro As Boolean = False
Dim DebeTimbrar As Boolean = True Dim DebeTimbrar As Boolean = True
If UsuarioActual.CveEmpresa.Contiene(189) Then
DebeTimbrar = False
End If
Try Try
If DebeTimbrar Then If DebeTimbrar Then
@@ -24835,9 +24828,13 @@ Partial Class Ventas
End Sub End Sub
Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
LimpiaEscondeContado() LimpiaEscondeContado()
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then Dim EjecutaRecalculaPrecios As Boolean = False
RecalculaPrecios()
End If If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then EjecutaRecalculaPrecios = True
If UsuarioActual.CveEmpresa = 189 Then EjecutaRecalculaPrecios = False
If EjecutaRecalculaPrecios Then RecalculaPrecios()
End Sub End Sub
Private Function ValidaPagosContado(Optional MostrarAlertas As Boolean = True, Optional TipoDoctoViejo As String = "") As Boolean Private Function ValidaPagosContado(Optional MostrarAlertas As Boolean = True, Optional TipoDoctoViejo As String = "") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False