-- cambio para utilizar la FNC 595, con valor 2, que son las autorizaciones por solicitud, como lo tiene BDH
This commit is contained in:
@@ -2562,15 +2562,13 @@ Partial Class Ventas
|
||||
thPoliza2.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveUsuario = 100 Then
|
||||
DivPenalizacion.Visible = True
|
||||
End If
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveUsuario = 100 Then DivPenalizacion.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(595) = "2" Then
|
||||
LnkSolicitarCredito.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
DdlSATPS.setEsWebService(True) : DdlSATPS.Attributes.Add("data-metodo", "getpssat")
|
||||
DivPSSAT.Visible = True
|
||||
|
||||
@@ -2881,8 +2879,6 @@ Partial Class Ventas
|
||||
BtnCrearApartirDe.Visible = True
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
|
||||
|
||||
|
||||
|
||||
If DdlTipoComprobante.SelectedValue = "Ped" Then
|
||||
BtnPermisoEditarRemision.Text = "Editar Pedido"
|
||||
BtnEditarRemision.Text = "Actualizar Pedido"
|
||||
@@ -3969,7 +3965,7 @@ Partial Class Ventas
|
||||
Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga)
|
||||
End If
|
||||
Else
|
||||
Alert("Debe especificar el efectivo en caja", TipoMensaje.MsgAdvertencia)
|
||||
Alert("Debe especificar el efectivo en caja", TipoMensaje.ToastAdventencia)
|
||||
RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueo"").click(); }")
|
||||
End If
|
||||
ObjPVenta.Dispose()
|
||||
@@ -7208,7 +7204,6 @@ Partial Class Ventas
|
||||
Alert("Ocurrió un error al cargar los datos del cliente. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
CveAlmacenAsignado = ObjCliente.CveAlmacenAsignado
|
||||
|
||||
End If
|
||||
@@ -7565,7 +7560,7 @@ Partial Class Ventas
|
||||
RBLPago.Items(0).Enabled = False
|
||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||
'GENERAR UNA AUTORIZACIÓN SI EL CLIENTE NO PERMITE CREDITO
|
||||
If UsuarioActual.Empresa.Funcionalidad(595) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) Then
|
||||
If ValorAutorizacion = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) Then
|
||||
'SI LLEGÓ POR LA OPCIÓN DE COTIZACIÓN NO DEBE DE RESTRINGUIR
|
||||
If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
|
||||
DdlTipoComprobante.SelectedValue = "Cot"
|
||||
@@ -7615,7 +7610,6 @@ Partial Class Ventas
|
||||
UPCondicionesPago.Update()
|
||||
End If
|
||||
|
||||
|
||||
Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
|
||||
|
||||
If CreditoDispo > 0 Then
|
||||
@@ -7652,7 +7646,7 @@ Partial Class Ventas
|
||||
If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValue = "Cot"
|
||||
|
||||
'quito remisión y factura
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(595) <> "2" Then
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
|
||||
If Not UsuarioActual.TienePermisoProceso(325) Then
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
|
||||
@@ -7671,7 +7665,7 @@ Partial Class Ventas
|
||||
Bloqueo = True
|
||||
End If
|
||||
|
||||
If Bloqueo AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
If Bloqueo AndAlso ValorAutorizacion = "2" Then
|
||||
Dim Autorizacion As Integer = 0
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
@@ -7694,7 +7688,7 @@ Partial Class Ventas
|
||||
If Autorizacion > 0 Then
|
||||
Bloqueo = False
|
||||
TieneBloqueoPorCreditoVencimiento = 0
|
||||
Alert("El cliente tiene una autorización aprobada")
|
||||
Alert("El cliente tiene una autorización aprobada", TipoMensaje.ToastInformacion)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7713,10 +7707,8 @@ Partial Class Ventas
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
TieneBloqueoPorCreditoVencimiento = 1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
' el cliente tiene crédito disponible, no tiene bloqueo
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
|
||||
@@ -7837,15 +7829,54 @@ Partial Class Ventas
|
||||
Case "2" 'Autorizacion desde una solicitud del catalogo de autorizaciones
|
||||
'RMF. validacion temporal
|
||||
'verifica si tiene autorizaciones de Nota de crédito autorizadas
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Ing", CveEstatus:=1) Then
|
||||
Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion")
|
||||
If RowAutorizacion IsNot Nothing Then
|
||||
DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos")
|
||||
End If
|
||||
'Dim ObjVentas As New ClsVentas
|
||||
'If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Ing", CveEstatus:=1) Then
|
||||
' Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion")
|
||||
' If RowAutorizacion IsNot Nothing Then
|
||||
' DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos")
|
||||
' End If
|
||||
'End If
|
||||
'ObjVentas.Dispose()
|
||||
Dim Vta As New ClsVentas
|
||||
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)
|
||||
Vta.Dispose()
|
||||
If Opcion > 0 Then
|
||||
If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
|
||||
LnkSolicitarCredito.Visible = True
|
||||
DdlTipoAutorizacion.SelectedValueExist("1")
|
||||
|
||||
If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
|
||||
Dim Autorizacion As Integer = 0
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then
|
||||
Dim RowAutorizacion As DataRow = Nothing
|
||||
'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
|
||||
If TieneDiasVencidos Then
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
Else
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
End If
|
||||
|
||||
If RowAutorizacion IsNot Nothing Then
|
||||
Autorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
|
||||
If Autorizacion <= 0 Then
|
||||
BtnEmitirImprimir.Visible = False
|
||||
TieneBloqueoPorCreditoVencimiento = 1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
|
||||
'VERIFICAR CANDADOS DE VENTA
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
|
||||
Dim Vta As New ClsVentas
|
||||
@@ -7871,37 +7902,6 @@ Partial Class Ventas
|
||||
'este codigo no es temporal
|
||||
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
LnkSolicitarCredito.Visible = True
|
||||
DdlTipoAutorizacion.SelectedValueExist("1")
|
||||
|
||||
If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
|
||||
Dim Autorizacion As Integer = 0
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then
|
||||
Dim RowAutorizacion As DataRow = Nothing
|
||||
'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
|
||||
If TieneDiasVencidos Then
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
Else
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
End If
|
||||
|
||||
If RowAutorizacion IsNot Nothing Then
|
||||
Autorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
|
||||
If Autorizacion <= 0 Then
|
||||
BtnEmitirImprimir.Visible = False
|
||||
TieneBloqueoPorCreditoVencimiento = 1
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
|
||||
@@ -8063,25 +8063,19 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE
|
||||
If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then
|
||||
'ENVIO DE FACTURA
|
||||
ChkEnviarFactura.Checked = False
|
||||
ChkEnviarFactura.Visible = False
|
||||
LblEnviarMail.Visible = False
|
||||
ChkEnviarFactura.Visible = True
|
||||
LblEnviarMail.Visible = True
|
||||
If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
Else
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then
|
||||
'ENVIO DE FACTURA
|
||||
ChkEnviarFactura.Checked = False
|
||||
ChkEnviarFactura.Visible = True
|
||||
LblEnviarMail.Visible = True
|
||||
If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
Else
|
||||
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
ChkEnviarFactura.Visible = True
|
||||
LblEnviarMail.Visible = True
|
||||
End If
|
||||
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
ChkEnviarFactura.Visible = True
|
||||
LblEnviarMail.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -9711,46 +9705,38 @@ Partial Class Ventas
|
||||
|
||||
Me.CveAutorizacion = -1
|
||||
'SI ES A CREDITO DEBE VERIFICAR SI TIENE AUTORIZACIONES
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso RBLPago.SelectedValue = "1" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso RBLPago.SelectedValue = "1" Then
|
||||
Dim TipoDocumentoAutorizacion As String = ""
|
||||
Dim ImporteAutorizacion As Decimal = 0
|
||||
Dim TipoAutorizacion As Integer = 0
|
||||
Dim DiasVencidosAutorizacion As Integer = 0
|
||||
Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Try
|
||||
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, "Ing", CveEstatus:=1) Then
|
||||
Dim RowAutorizacion As DataRow = Nothing
|
||||
'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
|
||||
If TieneDiasVencidos Then
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
Else
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
End If
|
||||
|
||||
If RowAutorizacion IsNot Nothing Then
|
||||
TipoDocumentoAutorizacion = RowAutorizacion("CveTipoDocumento").ToString()
|
||||
ImporteAutorizacion = RowAutorizacion("Importe").ToString().ToDecimal()
|
||||
CveAutorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
|
||||
TipoAutorizacion = RowAutorizacion("TipoAutorizacion").ToString().ToEntero()
|
||||
DiasVencidosAutorizacion = RowAutorizacion("DiasVencidos").ToString().ToEntero()
|
||||
End If
|
||||
|
||||
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, "Ing", CveEstatus:=1) Then
|
||||
Dim RowAutorizacion As DataRow = Nothing
|
||||
'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
|
||||
If TieneDiasVencidos Then
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
Else
|
||||
RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener las autorizaciones", ex)
|
||||
End Try
|
||||
|
||||
If RowAutorizacion IsNot Nothing Then
|
||||
TipoDocumentoAutorizacion = RowAutorizacion("CveTipoDocumento").ToString()
|
||||
ImporteAutorizacion = RowAutorizacion("Importe").ToString().ToDecimal()
|
||||
CveAutorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
|
||||
TipoAutorizacion = RowAutorizacion("TipoAutorizacion").ToString().ToEntero()
|
||||
DiasVencidosAutorizacion = RowAutorizacion("DiasVencidos").ToString().ToEntero()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If TipoDocumentoAutorizacion = "Ing" Then
|
||||
If TipoAutorizacion = 1 Then
|
||||
|
||||
'If TieneDiasVencidos Then
|
||||
' CveAutorizacion = -1
|
||||
' Alert($"El crédito no esta autorizado. El cliente tiene días vencidos", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
If ImporteAutorizacion < TxtTotal.Text.ToDecimal() Then
|
||||
Dim BloquearCredito As Boolean = True
|
||||
CveAutorizacion = -1
|
||||
@@ -9850,7 +9836,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'VALIDA PRECIO AL AGREGAR A ALMACEN
|
||||
If Not UsuarioActual.TienePermisoProceso(169) Then
|
||||
If (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") AndAlso NuevaFactura <> 1) Or (DdlTipoComprobante.SelectedValue = "Cot" AndAlso BtnEmitirImprimir.Text = "Facturar") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119)) Then
|
||||
@@ -10781,10 +10766,10 @@ Partial Class Ventas
|
||||
OnError("Ocurrió un error al generar el directorio de xml", ex)
|
||||
End Try
|
||||
|
||||
|
||||
Dim SeTimbro As Boolean = False
|
||||
Dim SeTimbroNC As Boolean = False
|
||||
Dim EstatusSMS As Integer = 0
|
||||
Dim MsgErrorTimbrado As String = ""
|
||||
|
||||
Dim MsgCancelacionRefacturacion As Modelos.Factura.MCancelacionVentaMensaje = Nothing
|
||||
|
||||
@@ -10808,8 +10793,6 @@ Partial Class Ventas
|
||||
DebeTimbrar = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
|
||||
|
||||
@@ -10842,7 +10825,7 @@ Partial Class Ventas
|
||||
End Try
|
||||
|
||||
Dim FolioFiscalFactura As String = ObjTimbrado.UUID
|
||||
Dim MsgErrorTimbrado As String = ObjTimbrado.MensajeErrorCFDI
|
||||
MsgErrorTimbrado = ObjTimbrado.MensajeErrorCFDI
|
||||
ObjTimbrado = Nothing
|
||||
|
||||
'NOTA DE CREDITO - REFACTURADA - CASO ESPECIAL, TIMBRADO E IMPRESION
|
||||
@@ -10872,9 +10855,9 @@ Partial Class Ventas
|
||||
EstatusSMS = EnviarSMSTimbrado(ObjEventos)
|
||||
End If
|
||||
|
||||
If Not SeTimbro Then
|
||||
Alert(MsgErrorTimbrado, TipoMensaje.MsgError)
|
||||
End If
|
||||
'If Not SeTimbro Then
|
||||
' Alert(MsgErrorTimbrado, TipoMensaje.MsgError)
|
||||
'End If
|
||||
|
||||
'CANCELAR FACTURA ANTERIOR
|
||||
Try
|
||||
@@ -10955,6 +10938,12 @@ Partial Class Ventas
|
||||
OnError("Ocurrió un error al enviar el PDF", ex)
|
||||
End Try
|
||||
Else
|
||||
|
||||
'ERROR DE NO TIMBRADO
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
|
||||
Dim StrEr As String = $"<br/><div id = 'DivTipoCambioAdvertencia' class='alert alert-warning' style='padding: 5px; margin-bottom: 5px; padding-right: 25px;'><strong style = 'font-size: 20px; margin-right: 25px;' > Comprobante no emitido : </strong> {MsgErrorTimbrado}<br/>Por favor inténtelo de nuevo a través del botón Emitir.</div>"
|
||||
MensajeAlert.Append(StrEr)
|
||||
End If
|
||||
'PARA PRUEBAS, GENERAR PDF AUNQUE NO ESTE TIMBRADA
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
Try
|
||||
@@ -11029,10 +11018,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
'ERROR DE NO TIMBRADO
|
||||
If Not SeTimbro And (DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Or DdlTipoComprobante.SelectedValue = "Ant") Then
|
||||
MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
|
||||
End If
|
||||
|
||||
'ERROR DE NO TIMBRADO NC
|
||||
If Not IsNothing(ObjNC) AndAlso ObjNC.Count > 0 AndAlso Not SeTimbroNC Then
|
||||
@@ -13876,6 +13861,17 @@ Partial Class Ventas
|
||||
CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim drr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimero("")
|
||||
If drr IsNot Nothing Then
|
||||
If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
|
||||
CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
|
||||
ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then 'cuando es Consignación
|
||||
CveAlmacenTraspasoDestino = drr("CveAlmacenConsignacion").ToString.ToEntero
|
||||
Else
|
||||
CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not CveAlmacenTraspasoDestino > 0 Then ' para consignación es salida directa
|
||||
@@ -14073,7 +14069,7 @@ Partial Class Ventas
|
||||
factura.Timbre.Comprobante.Serie = ObjVentas.Serie
|
||||
factura.Timbre.Comprobante.Folio = ObjVentas.Folio.ToString()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveAutorizacion > 0 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso Me.CveAutorizacion > 0 Then
|
||||
If Not ObjVentas.UpdateAutorizacionLimite(Me.CveAutorizacion, factura.CveCliente, factura.CveVenta) Then
|
||||
ErrorList.Add("Error al guardar los limites de la autorizacion")
|
||||
End If
|
||||
@@ -16794,7 +16790,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If e.Row.DBCampo("Tipo").ToString() = "NC" And e.Row.DataKey("CveVenta").ToEntero() > 0 OrElse (e.Row.DBCampo("Tipo").Contiene("Ant", "IxC") And e.Row.DataKey("CveMoneda").ToEntero() = 1 AndAlso DdlMoneda.SelectedValue.ToEntero() = 2) Then
|
||||
'If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 2 Then
|
||||
' tipoCambio = e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal
|
||||
@@ -18787,7 +18782,6 @@ Partial Class Ventas
|
||||
|
||||
|
||||
Dim Existencia As Decimal = 0D
|
||||
''CveAlamcenFiltroDdl
|
||||
|
||||
If RBLTipoVenta.SelectedValue.ToEntero = 6 Then
|
||||
Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, CveAlamcenFiltroDdl, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=-1,
|
||||
@@ -22412,7 +22406,6 @@ Partial Class Ventas
|
||||
|
||||
Private Sub ObtenerFechaVencimientoCER()
|
||||
Try
|
||||
|
||||
Dim CerFile As New FileStream(Ruta & "Certificados\" & UsuarioActual.Empresa.ArchivoCer, FileMode.Open, FileAccess.Read)
|
||||
Dim Size As Integer = CerFile.Length.ToString().ToEntero()
|
||||
Dim Data As Byte() = New Byte(Size - 1) {}
|
||||
@@ -22424,11 +22417,7 @@ Partial Class Ventas
|
||||
x509.Import(Data)
|
||||
|
||||
If x509.NotAfter <= NowADS() Then
|
||||
TrVistaPrevia.Visible = False
|
||||
TrEmitir.Visible = False
|
||||
BtnEmitirImprimir.Visible = False
|
||||
BtnCrearApartirDe.Enabled = False
|
||||
Alert("La fecha del certificado ha expirado", TipoMensaje.MsgAdvertencia)
|
||||
Alert("La fecha del certificado ha expirado.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -36091,6 +36080,10 @@ Partial Class Ventas
|
||||
If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos, Motivo:=Motivo) Then
|
||||
RegistraScript("$('#DivModalSolicitarCredito').modal('hide')")
|
||||
Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
|
||||
'signal
|
||||
Dim mensaje = "<br/> <a target='_blank' href='https://www.w3schools.com'>La autorización se agregó correctamente.</a>"
|
||||
ClsSisNotificaciones.EnviarAlerta("Autorización Crédito", mensaje, "100", Tipo:=TipoNotificacion.ToastInformacionB)
|
||||
|
||||
End If
|
||||
ObjPS.Dispose()
|
||||
UpModalSolicitud.Update()
|
||||
@@ -36100,18 +36093,6 @@ Partial Class Ventas
|
||||
DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 2
|
||||
UpModalSolicitud.Update()
|
||||
End Sub
|
||||
'Protected Sub DdlTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoDocto.SelectedIndexChanged
|
||||
' Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString()
|
||||
' Select Case TipoDocto
|
||||
' Case "Ing"
|
||||
' DivAutorizacion.Visible = True
|
||||
' DivImporteSolicitud.Visible = True
|
||||
' Case "Egs"
|
||||
' DivAutorizacion.Visible = False
|
||||
' DivImporteSolicitud.Visible = False
|
||||
' End Select
|
||||
' UpModalSolicitud.Update()
|
||||
'End Sub
|
||||
|
||||
Protected Sub DdlTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoDocto.SelectedIndexChanged
|
||||
Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString()
|
||||
@@ -36129,30 +36110,6 @@ Partial Class Ventas
|
||||
UpModalSolicitud.Update()
|
||||
End Sub
|
||||
|
||||
'Private Sub CargaVendedoresSubProyectos()
|
||||
|
||||
' DdlVendedor.Items.Clear()
|
||||
' DdlVendedor.SelectedValue = Nothing
|
||||
|
||||
' Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
|
||||
|
||||
' If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
|
||||
' DdlVendedor.DataSource = DtVendedoresSucursales
|
||||
' DtVendedoresSucursales.Dispose()
|
||||
' Else
|
||||
' If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
|
||||
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
|
||||
' Else
|
||||
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' DdlVendedor.DataBind()
|
||||
' DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
|
||||
|
||||
' UpParametros.Update()
|
||||
'End Sub
|
||||
|
||||
Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
|
||||
DdlDireccionEnvio.Enabled = True
|
||||
ChkDireccionEnvio.Enabled = True
|
||||
@@ -38168,7 +38125,7 @@ Partial Class Ventas
|
||||
CveAlamcenFiltroDdl = -1
|
||||
Dim tCveAlmacenExistencia As Integer = -1
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
|
||||
Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
|
||||
If drr IsNot Nothing Then
|
||||
@@ -38180,18 +38137,28 @@ Partial Class Ventas
|
||||
tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim drr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimero("")
|
||||
If drr IsNot Nothing Then
|
||||
If RBLTipoVenta.SelectedValue.Contiene("6") Then 'cuando es A-vista
|
||||
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
|
||||
ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then 'cuando es Consignación
|
||||
tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
|
||||
Else
|
||||
tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
CveAlamcenFiltroDdl = tCveAlmacenExistencia
|
||||
If Not CveAlamcenFiltroDdl > 0 Then
|
||||
CveAlamcenFiltroDdl = If(CveAlmacenAsignado > 0, CveAlmacenAsignado, -1)
|
||||
End If
|
||||
DdlPS.ddlWS.Attributes.Remove("data-CveAlmacen")
|
||||
DdlPS.ddlWS.Attributes.Add("data-CveAlmacen", tCveAlmacenExistencia.ToString)
|
||||
DdlPS.ddlWS.Attributes.Add("data-CveAlmacen", CveAlamcenFiltroDdl.ToString)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Reference in New Issue
Block a user