From 10a60e8db255a5e743ab50ac983c04acedc1d9eb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 22 Jun 2022 01:32:13 -0700 Subject: [PATCH] Validacion de carta porte, regimen de sociedad en nombre del cliente, habilitar textbox de TC en E13 y E83, limpiar adjuntos en "crear a partir de" --- App_Code/Modelos.vb | 1 + Ventas/Ventas.aspx.vb | 197 ++++++++++++++++++++++++++++-------------- 2 files changed, 132 insertions(+), 66 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d46e13536..cc723ffa4 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -10355,6 +10355,7 @@ Namespace Modelos Public Property CveCliente As Integer Public Property Nombre As String Public Property NombreComercial As String + Public Property RegimenSociedad As String Public Property Codigo As String Public Property Direccion As String Public Property NoExt As String diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 722b70af5..88db28285 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2695,9 +2695,6 @@ Partial Class Ventas End If End If - - - 'PERMISO PARA CANCELAR PEDIDO If GvInv.Rows.Count = 0 Then If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then @@ -3276,70 +3273,69 @@ Partial Class Ventas HlFacturasRelaciondas.Visible = False End If - End If - - ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? - If Not CveVenta > 0 Then - 'LbDescargarExcel.Visible = True - HlAgregarExcel.Visible = True - End If - - If DdlTipoComprobante.SelectedValue.Contiene("Rem") Then - ' IPP 15 Julio 2017 - ERA FALSE - ImgAntiPend.Visible = False - UpPS.Update() - End If - - If UsuarioActual.Empresa.Funcionalidad(517) <> "" Then - TxtFolio.Enabled = False - TxtFecha.Enabled = False - If LblSeTimbro.Text = "No" And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Dev", "Ant") Then - TxtFecha.Text = Now.ToShortDateString + ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? + If Not CveVenta > 0 Then + 'LbDescargarExcel.Visible = True + HlAgregarExcel.Visible = True End If - ImgFecha.Visible = False - End If - 'condición temporal por implementación JAM. usuario FernandaRomo - If UsuarioActual.CveUsuario.Contiene(11703, 1719) Then + If DdlTipoComprobante.SelectedValue.Contiene("Rem") Then + ' IPP 15 Julio 2017 - ERA FALSE + ImgAntiPend.Visible = False + UpPS.Update() + End If + + If UsuarioActual.Empresa.Funcionalidad(517) <> "" Then + TxtFolio.Enabled = False + TxtFecha.Enabled = False + If LblSeTimbro.Text = "No" And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Dev", "Ant") Then + TxtFecha.Text = Now.ToShortDateString + End If + ImgFecha.Visible = False + End If + + 'condición temporal por implementación JAM. usuario FernandaRomo + If UsuarioActual.CveUsuario.Contiene(11703, 1719) Then + TxtFecha.Enabled = True + ImgFecha.Visible = True + End If TxtFecha.Enabled = True - ImgFecha.Visible = True + + BloqueaCondiconesPago() + + BloqueaClasificaciones() + + 'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + BtnModalAddPS.Enabled = False + End If + + MostrarOpcionesPaqueteria() + + 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then + + 'If Not AjustarTotalCotizacionFacturada(ViewState("CveCotizacion").ToString().ToEntero(), TxtTotal.Text.ToDecimal) Then + ' BtnEmitirImprimir.Visible = True + ' Alert("Ocurrió un error al ajustar el importe", TipoMensaje.MsgError) + 'End If + + 'End If + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + trRotacion.Visible = True + trRotacionlbl.Visible = True + trAlineacion.Visible = True + trAlineacionlbl.Visible = True + + Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate + LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString + LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString + + UPObservaciones.Update() + End If + End If - TxtFecha.Enabled = True - BloqueaCondiconesPago() - - BloqueaClasificaciones() - - 'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - BtnModalAddPS.Enabled = False - End If - MostrarOpcionesPaqueteria() - - - - 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then - - 'If Not AjustarTotalCotizacionFacturada(ViewState("CveCotizacion").ToString().ToEntero(), TxtTotal.Text.ToDecimal) Then - ' BtnEmitirImprimir.Visible = True - ' Alert("Ocurrió un error al ajustar el importe", TipoMensaje.MsgError) - 'End If - - 'End If - - - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - trRotacion.Visible = True - trRotacionlbl.Visible = True - trAlineacion.Visible = True - trAlineacionlbl.Visible = True - - Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate - LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString - LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString - - UPObservaciones.Update() - End If End Sub Private Sub BloqueaClasificaciones() If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then @@ -5239,8 +5235,11 @@ Partial Class Ventas TxtFech3.ReadOnly = True : ImgFech3.Enabled = False ChkConvertirDoctoPesos.Enabled = False ChkConvertirDolares.Enabled = False - TxtTipoCambio.Enabled = False - TxtTipoCambioDlls.Enabled = False + + TxtTipoCambio.Enabled = UsuarioActual.CveEmpresa.Contiene(13, 83) + TxtTipoCambioDlls.Enabled = UsuarioActual.CveEmpresa.Contiene(13, 83) + TxtTipoCambio.ReadOnly = Not UsuarioActual.CveEmpresa.Contiene(13, 83) + TxtTipoCambioDlls.ReadOnly = Not UsuarioActual.CveEmpresa.Contiene(13, 83) 'Condiciones de Pago RBLPago.Enabled = False @@ -8376,6 +8375,37 @@ Partial Class Ventas Alert("La carta porte no tiene un destino definido.", TipoMensaje.MsgAdvertencia) Exit Sub End If + If DdlChofer.SelectedValue.ToEntero() <= 0 Then + Alert("La carta porte no tiene un chofer definido.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If DdlUnidadCamion.SelectedValue.ToEntero() <= 0 Then + Alert("La carta porte no tiene un chofer definido.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If String.IsNullOrEmpty(TxtDistancia.Text.Trim) Then + Alert("La carta porte no tiene la distancia definida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If String.IsNullOrEmpty(TxtFechaEntregaCP.Text.Trim) Then + Alert("La carta porte no tiene la F.Salida definida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If String.IsNullOrEmpty(TxtFechaLlegadaCP.Text.Trim) Then + Alert("La carta porte no tiene la F.Llegada definida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If DtMercancias Is Nothing OrElse DtMercancias.Rows.Count = 0 Then + Alert("La carta porte no tiene mercancía definida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If DvConfiguracionVeiculo.Visible Then + If DdlConfigAuto.SelectedValue.ToEntero() <= 0 Then + Alert("La carta porte no tiene la configuración definida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If End If 'CUANDO ES COTIZACION Y SE VA A FACTURAR SE HACE INGRESO @@ -11572,7 +11602,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Timbre.Receptor.Nombre = Obj.Cliente.Nombre Else - Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial + Timbre.Receptor.Nombre = Obj.Cliente.Nombre + " " + Obj.Cliente.RegimenSociedad End If Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP End If @@ -18103,7 +18133,7 @@ Partial Class Ventas If CvePS.Contiene(402917, 402918) Then PUPromocion = 40D End If - PUModificado = Math.Round(PUPromocion / (1 + If(IncluyeImpuestos, PorcentajeIVA, 0)), 6) + PUModificado = Math.Round(PUPromocion / (1 + PorcentajeIVA), 6) End If End If @@ -21681,6 +21711,15 @@ Partial Class Ventas TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TrConversionTipoCambio.Visible = True End Select + + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + TxtTipoCambio.Enabled = True + TxtTipoCambioDlls.Enabled = True + TxtTipoCambio.ReadOnly = False + TxtTipoCambioDlls.ReadOnly = False + End If + + UpPS.Update() If CveCliente > 0 Then @@ -31305,6 +31344,8 @@ Partial Class Ventas ' BtnCrearApartirDe.Visible = False 'End If + Dim FolioOriginal As String = TxtFolio.Text + HdnCveVenta.Value = "" BtnCrearApartirDe.Visible = False '[IPP-2Novimebre2018] REEMPLAZA LO COMENTADO ARRIBA @@ -31504,6 +31545,30 @@ Partial Class Ventas HabilitarControlesCartaPorte(True) End If + If DivAdjuntar.Visible Then + Dim FolioNuevo As String = TxtFolio.Text + If FolioNuevo <> FolioOriginal Then + If Adjunto <> "" Then + Adjunto = "" + BtnArchivoAdjunto.Text = "" + BtnArchivoAdjunto.Visible = False + BtnEliminarAdjunto.Visible = False + BtnAdjuntar.Visible = True + + tdAdjuntar.Style.Item("display") = "block" + tdAdjunto.Style.Item("display") = "none" + Else + DivAdjuntar.Visible = True + End If + Else + DivAdjuntar.Visible = False + End If + UpAdjuntar.Update() + Else + DivAdjuntar.Visible = True + End If + + UpnTools.Update() UpCliente.Update() UpParametros.Update()