--FIX condiciones de credito
This commit is contained in:
@@ -6199,14 +6199,13 @@ Partial Class Ventas
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub VerificarBtnFacturarCotizacion(CveVendedor As Integer, Optional MostrarGenerarRemision As Boolean = True)
|
Private Sub VerificarBtnFacturarCotizacion(CveVendedor As Integer, Optional MostrarGenerarRemision As Boolean = True)
|
||||||
If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
|
If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then
|
||||||
|
|
||||||
If UsuarioActual.TienePermisoProceso(199) Then
|
If UsuarioActual.TienePermisoProceso(199) Then
|
||||||
BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
|
BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
|
||||||
Else
|
Else
|
||||||
BtnGenerarRemision.Visible = False
|
BtnGenerarRemision.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
|
If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(60) Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(60) Then
|
||||||
@@ -7635,7 +7634,7 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'SI EL CLIENTE ES DISTRIBUIDOR Y TIENE FACTURAS VENCIDAS, DEBE BLOQUEAR
|
'SI EL CLIENTE ES DISTRIBUIDOR Y TIENE FACTURAS VENCIDAS, DEBE BLOQUEAR
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion = 2 Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
|
||||||
Bloqueo = True
|
Bloqueo = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -7793,7 +7792,7 @@ Partial Class Ventas
|
|||||||
BtnGenerarRemision.Visible = False
|
BtnGenerarRemision.Visible = False
|
||||||
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
|
||||||
TieneBloqueoPorCreditoVencimiento = 1
|
TieneBloqueoPorCreditoVencimiento = 1
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -7811,48 +7810,39 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
ObjVentas.Dispose()
|
ObjVentas.Dispose()
|
||||||
Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
|
Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
|
||||||
'RMF. codigo temporal para pruebas
|
'VERIFICAR CANDADOS DE VENTA
|
||||||
If Alertas AndAlso UsuarioActual.CveEmpresa = 140 Then
|
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
|
||||||
Dim Vta As New ClsVentas
|
Dim Vta As New ClsVentas
|
||||||
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
|
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
|
||||||
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
|
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
|
||||||
Vta.Dispose()
|
Vta.Dispose()
|
||||||
If Opcion > 0 Then
|
If Opcion > 0 Then
|
||||||
LnkSolicitarCredito.Visible = True
|
BtnsFacturar.Visible = False
|
||||||
|
BtnGenerarRemision.Visible = False
|
||||||
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
|
||||||
|
TieneBloqueoPorCreditoVencimiento = 1
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
|
RBLPago.SelectedValue = "2"
|
||||||
|
RBLPago.Items(0).Enabled = False
|
||||||
|
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||||
|
UPCondicionesPago.Update()
|
||||||
Else
|
Else
|
||||||
'VERIFICAR CANDADOS DE VENTA
|
'este codigo no es temporal
|
||||||
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
|
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
||||||
Dim Vta As New ClsVentas
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||||
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
|
LnkSolicitarCredito.Visible = True
|
||||||
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
|
DdlTipoAutorizacion.SelectedValueExist("1")
|
||||||
Vta.Dispose()
|
|
||||||
If Opcion > 0 Then
|
If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
|
||||||
BtnsFacturar.Visible = False
|
BtnEmitirImprimir.Visible = False
|
||||||
BtnGenerarRemision.Visible = False
|
TieneBloqueoPorCreditoVencimiento = 1
|
||||||
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
|
||||||
TieneBloqueoPorCreditoVencimiento = 1
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
|
||||||
RBLPago.SelectedValue = "2"
|
|
||||||
RBLPago.Items(0).Enabled = False
|
|
||||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
|
||||||
UPCondicionesPago.Update()
|
|
||||||
Else
|
|
||||||
'este codigo no es temporal
|
|
||||||
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
|
||||||
If UsuarioActual.CveEmpresa = 140 Then
|
|
||||||
LnkSolicitarCredito.Visible = True
|
|
||||||
DdlTipoAutorizacion.SelectedValueExist("1")
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
@@ -7877,7 +7867,7 @@ Partial Class Ventas
|
|||||||
ValidaCondicionesCredito = True
|
ValidaCondicionesCredito = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If (ValidaRemision AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
|
If (ValidaRemision AndAlso DdlTipoComprobante.SelectedValue = "Rem") AndAlso RBLPago.SelectedValue = "1" Then
|
||||||
ValidaCondicionesCredito = True
|
ValidaCondicionesCredito = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -7919,7 +7909,7 @@ Partial Class Ventas
|
|||||||
BtnsFacturar.Visible = False
|
BtnsFacturar.Visible = False
|
||||||
BtnGenerarRemision.Visible = False
|
BtnGenerarRemision.Visible = False
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
|
||||||
TieneBloqueoPorCreditoVencimiento = 1
|
TieneBloqueoPorCreditoVencimiento = 1
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -7930,7 +7920,7 @@ Partial Class Ventas
|
|||||||
BtnsFacturar.Visible = False
|
BtnsFacturar.Visible = False
|
||||||
BtnGenerarRemision.Visible = False
|
BtnGenerarRemision.Visible = False
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
|
||||||
TieneBloqueoPorCreditoVencimiento = 1
|
TieneBloqueoPorCreditoVencimiento = 1
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -18000,7 +17990,7 @@ Partial Class Ventas
|
|||||||
TrAlmacenOrigen.Visible = False
|
TrAlmacenOrigen.Visible = False
|
||||||
|
|
||||||
If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then
|
If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then
|
||||||
Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia)
|
Alert("Se requiere una autorización.", TipoMensaje.MsgAdvertencia)
|
||||||
TrDireccion.Visible = False
|
TrDireccion.Visible = False
|
||||||
TrCiudad.Visible = False
|
TrCiudad.Visible = False
|
||||||
TrRFC.Visible = False
|
TrRFC.Visible = False
|
||||||
@@ -18395,14 +18385,14 @@ Partial Class Ventas
|
|||||||
If Not CveEmpresaCRM > 0 Then
|
If Not CveEmpresaCRM > 0 Then
|
||||||
'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
|
'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
|
||||||
If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
|
If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
|
||||||
BtnCrearApartirDe.Enabled = EstatusCliente
|
BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
|
||||||
BtnEmitirImprimir.Visible = EstatusCliente
|
BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
|
||||||
TrVistaPrevia.Visible = EstatusCliente
|
TrVistaPrevia.Visible = EstatusCliente
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||||
BtnCrearApartirDe.Enabled = EstatusCliente
|
BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
|
||||||
BtnEmitirImprimir.Visible = EstatusCliente
|
BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
|
||||||
TrVistaPrevia.Visible = EstatusCliente
|
TrVistaPrevia.Visible = EstatusCliente
|
||||||
Else
|
Else
|
||||||
BtnCrearApartirDe.Enabled = True
|
BtnCrearApartirDe.Enabled = True
|
||||||
|
|||||||
Reference in New Issue
Block a user