diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 75c12338f..b76823e23 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2521,7 +2521,7 @@ -
+ <%--
@@ -2582,7 +2582,7 @@
-
+
--%>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 18574cc43..4c98d9164 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -512,7 +512,7 @@ Partial Class Compras_Proveedores CargaDocs() 'CargaColectivas() 'CargaSaldosBeneficiarios() - CargaUsuariosPortal() + 'CargaUsuariosPortal() CargarPagosNoBancarios() CargaFiltroMonedas() MostrarFiltro() @@ -605,7 +605,7 @@ Partial Class Compras_Proveedores If UsuarioActual.Empresa.CvePlataforma = 2 Then DivFiscal.Visible = False TrFondoGarantia.Visible = False - divportalusuarios.Visible = False + 'divportalusuarios.Visible = False End If CveProveedorContacto = -1 @@ -890,8 +890,8 @@ Partial Class Compras_Proveedores HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1) TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza - LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza - LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;" + 'LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza + 'LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;" ChkFolioDuplicado.Checked = ObjProveedor.EditarFolioDuplicado DdlMonedaPrefente.SelectedValueExist(ObjProveedor.CveMonedaPreferente.ToString) @@ -1032,7 +1032,7 @@ Partial Class Compras_Proveedores Retorno = True - enviaractivacion() + ' enviaractivacion() CargaEventoBitacora() @@ -1255,38 +1255,38 @@ Partial Class Compras_Proveedores End Sub #End Region - Private Sub CargaUsuariosPortal() - Dim ObjUsrs As New ClsSisUsuarios() - GvUsuariosPortalSis.Visible = False + 'Private Sub CargaUsuariosPortal() + ' Dim ObjUsrs As New ClsSisUsuarios() + ' GvUsuariosPortalSis.Visible = False - If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then - Dim dtUsr As DataTable = ObjUsrs.DtResultados - 'GvUsuariosPortalSis.DataSource = dtUsr.FiltraParametros("Estatus = 1") + ' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then + ' Dim dtUsr As DataTable = ObjUsrs.DtResultados + ' 'GvUsuariosPortalSis.DataSource = dtUsr.FiltraParametros("Estatus = 1") - 'busco la clave del admin, si es que existe - Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'") + ' 'busco la clave del admin, si es que existe + ' Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'") - If dr IsNot Nothing Then - HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString - If Convert.ToBoolean(dr("Estatus")) Then - LblUsuarioActivo.Text = "Si" - 'divUsuariosPortal.Visible = True - HdnCveUsuarioPortalActivado.Value = "1" - trDesactivarUsuario.Visible = True - End If - End If + ' If dr IsNot Nothing Then + ' HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString + ' If Convert.ToBoolean(dr("Estatus")) Then + ' LblUsuarioActivo.Text = "Si" + ' 'divUsuariosPortal.Visible = True + ' HdnCveUsuarioPortalActivado.Value = "1" + ' trDesactivarUsuario.Visible = True + ' End If + ' End If - If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then - trEnviarActivacion.Visible = False - End If - Else - ' GvUsuariosPortalSis.DataSource = Nothing - End If - ObjUsrs.Dispose() - 'GvUsuariosPortalSis.DataBind() - UPUsuarios.Update() + ' If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then + ' trEnviarActivacion.Visible = False + ' End If + ' Else + ' ' GvUsuariosPortalSis.DataSource = Nothing + ' End If + ' ObjUsrs.Dispose() + ' 'GvUsuariosPortalSis.DataBind() + ' UPUsuarios.Update() - End Sub + 'End Sub Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -1539,14 +1539,14 @@ Partial Class Compras_Proveedores ObjProveedores.Dispose() End Sub - Protected Sub enviaractivacion() - If TxtCorreoCobranza.Text <> "" Then - LbEnviarActivacionPortal.Enabled = True - Else - LbEnviarActivacionPortal.Enabled = False - LbEnviarActivacionPortal.ToolTip = "Debe de agregar una dirección de Email en la pestaña Información del Proveedor, campo 'Cobranza/Portal'." - End If - End Sub + 'Protected Sub enviaractivacion() + ' If TxtCorreoCobranza.Text <> "" Then + ' LbEnviarActivacionPortal.Enabled = True + ' Else + ' LbEnviarActivacionPortal.Enabled = False + ' LbEnviarActivacionPortal.ToolTip = "Debe de agregar una dirección de Email en la pestaña Información del Proveedor, campo 'Cobranza/Portal'." + ' End If + 'End Sub Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean Dim IdCtaContProveedores As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(321).ToEntero, UsuarioActual.Empresa.Funcionalidad(322).ToEntero) @@ -1562,7 +1562,7 @@ Partial Class Compras_Proveedores End Function Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click - enviaractivacion() + 'enviaractivacion() Dim tIdContaProveedor As Integer Dim CuentaAbono As Integer @@ -1911,10 +1911,10 @@ Partial Class Compras_Proveedores Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) 'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO - If TxtCorreoCobranza.Text <> "" Then - LbEnviarActivacionPortal.Enabled = True - LbEnviarActivacionPortal.ToolTip = "" - End If + 'If TxtCorreoCobranza.Text <> "" Then + ' LbEnviarActivacionPortal.Enabled = True + ' LbEnviarActivacionPortal.ToolTip = "" + 'End If '''''' 'ACTUALIZA SUCURSALES @@ -2077,122 +2077,122 @@ Partial Class Compras_Proveedores #Region "U S U A R I O S" - Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click - 'guarda el nuevo usuario - Dim ObjUsuario As New ClsSisUsuarios - Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero - Dim CvePlataforma As Integer = 7 - Dim ErrorUsuario As Boolean = False + 'Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click + ' 'guarda el nuevo usuario + ' Dim ObjUsuario As New ClsSisUsuarios + ' Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero + ' Dim CvePlataforma As Integer = 7 + ' Dim ErrorUsuario As Boolean = False - 'DECLARAMOS PERMISOS DEFAULT DE ADMIN - Dim Permisos() As Integer = {236, 237, 238, 239, 240} + ' 'DECLARAMOS PERMISOS DEFAULT DE ADMIN + ' Dim Permisos() As Integer = {236, 237, 238, 239, 240} - If TxtCorreoCobranza.Text.Trim = "" Then - Alert("No se ha registrado ningún correo en la pestaña Información del Proveedor.", TipoMensaje.MsgAdvertencia) - Return - End If + ' If TxtCorreoCobranza.Text.Trim = "" Then + ' Alert("No se ha registrado ningún correo en la pestaña Información del Proveedor.", TipoMensaje.MsgAdvertencia) + ' Return + ' End If - ObjUsuario.IniciaTransacSQL() - 'AGREGAMOS USUARIO ADMIN NUEVO - If CveUsr = 0 Then - 'CREA USUARIO - CveUsr = ObjUsuario.AddUsuarioPortal(TxtCorreoCobranza.Text.Trim, ContraseñaPredeterminadaEncriptada, "Admin", TxtCorreoCobranza.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + ' ObjUsuario.IniciaTransacSQL() + ' 'AGREGAMOS USUARIO ADMIN NUEVO + ' If CveUsr = 0 Then + ' 'CREA USUARIO + ' CveUsr = ObjUsuario.AddUsuarioPortal(TxtCorreoCobranza.Text.Trim, ContraseñaPredeterminadaEncriptada, "Admin", TxtCorreoCobranza.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveUsr > 0 Then - ' AGREGA PERMISO A MODULO PORTALPROVEEDOR - If Not ObjUsuario.UpdateUsuariosModulos(CveUsr, 1201, True, UsuarioActual.CveUsuario) Then - ErrorUsuario = True - End If - Else - ErrorUsuario = True - End If - Else - 'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO - If Not ObjUsuario.UpdateUsuarioPortal(TxtCorreoCobranza.Text.Trim, "Admin", TxtCorreoCobranza.Text.Trim, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, CveUsr, UsuarioActual.CveUsuario) Then - ErrorUsuario = True - End If - End If + ' If CveUsr > 0 Then + ' ' AGREGA PERMISO A MODULO PORTALPROVEEDOR + ' If Not ObjUsuario.UpdateUsuariosModulos(CveUsr, 1201, True, UsuarioActual.CveUsuario) Then + ' ErrorUsuario = True + ' End If + ' Else + ' ErrorUsuario = True + ' End If + ' Else + ' 'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO + ' If Not ObjUsuario.UpdateUsuarioPortal(TxtCorreoCobranza.Text.Trim, "Admin", TxtCorreoCobranza.Text.Trim, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, CveUsr, UsuarioActual.CveUsuario) Then + ' ErrorUsuario = True + ' End If + ' End If - If Not ErrorUsuario Then - 'AGREGAMOS PERMISOS A ADMIN - For Each permiso In Permisos - If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then - ErrorUsuario = True - Exit For - End If - Next - End If + ' If Not ErrorUsuario Then + ' 'AGREGAMOS PERMISOS A ADMIN + ' For Each permiso In Permisos + ' If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then + ' ErrorUsuario = True + ' Exit For + ' End If + ' Next + ' End If - 'VERIFICAMOS SI HUBO ERRORES - If ErrorUsuario Then - ObjUsuario.RollBack() - Else - 'ACTUALIZAMOS SECCION USUARIO PORTAL - HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString - trDesactivarUsuario.Visible = True - trEnviarActivacion.Visible = False - LblUsuarioActivo.Text = "Si" + ' 'VERIFICAMOS SI HUBO ERRORES + ' If ErrorUsuario Then + ' ObjUsuario.RollBack() + ' Else + ' 'ACTUALIZAMOS SECCION USUARIO PORTAL + ' HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString + ' trDesactivarUsuario.Visible = True + ' trEnviarActivacion.Visible = False + ' LblUsuarioActivo.Text = "Si" - GvUsuariosPortalSis.Visible = False - ErrorUsuario = False - ObjUsuario.Commit() - End If + ' GvUsuariosPortalSis.Visible = False + ' ErrorUsuario = False + ' ObjUsuario.Commit() + ' End If - ObjUsuario.Dispose() - UPUsuarios.Update() + ' ObjUsuario.Dispose() + ' UPUsuarios.Update() - 'ENVIA CORREO DE ACTIVACION y CARGA USUARIOS - If CveUsr > 0 And Not ErrorUsuario Then - CargaUsuariosPortalProveedor() - UpGvUsuarios.Update() + ' 'ENVIA CORREO DE ACTIVACION y CARGA USUARIOS + ' If CveUsr > 0 And Not ErrorUsuario Then + ' CargaUsuariosPortalProveedor() + ' UpGvUsuarios.Update() - Dim MensajeCorreo As String = EnviaCorreoActivacionPortal(CveUsr) - Dim Mensaje As String = IIf(MensajeCorreo = "", $"No se pudo Notificar a : {TxtCorreoCobranza.Text.Trim}", MensajeCorreo).ToString() - Alert($"La Activación del Portal del Proveedor se ha realizado correctamente.

{Mensaje}", TipoMensaje.MsgInformacion) - End If - End Sub + ' Dim MensajeCorreo As String = EnviaCorreoActivacionPortal(CveUsr) + ' Dim Mensaje As String = IIf(MensajeCorreo = "", $"No se pudo Notificar a : {TxtCorreoCobranza.Text.Trim}", MensajeCorreo).ToString() + ' Alert($"La Activación del Portal del Proveedor se ha realizado correctamente.

{Mensaje}", TipoMensaje.MsgInformacion) + ' End If + 'End Sub - Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click - Dim ObjUsuario As New ClsSisUsuarios - Dim ErrorDesactivando As Boolean = False - If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then - ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados - Else - ErrorDesactivando = True - End If + 'Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click + ' Dim ObjUsuario As New ClsSisUsuarios + ' Dim ErrorDesactivando As Boolean = False + ' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then + ' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados + ' Else + ' ErrorDesactivando = True + ' End If - If Not ErrorDesactivando Then - For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosProveedor"), DataTable).Rows - 'se desactiva el usuario y se restablece la contraseña - If ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then - ErrorDesactivando = False - Else - ErrorDesactivando = True - Alert("Ocurrió un Error al desactivar a los Usuarios.", TipoMensaje.MsgError) - End If - Next - Else - Alert("No se Encontraron Usuarios.", TipoMensaje.MsgInformacion) - End If - If Not ErrorDesactivando Then - LblUsuarioActivo.Text = "No" - 'HdnCveUsuarioPortalAdmin.Value = "" - HdnCveUsuarioPortalActivado.Value = "0" - trEnviarActivacion.Visible = True - trDesactivarUsuario.Visible = False - ViewState("DTUsuariosProveedor") = "" + ' If Not ErrorDesactivando Then + ' For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosProveedor"), DataTable).Rows + ' 'se desactiva el usuario y se restablece la contraseña + ' If ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then + ' ErrorDesactivando = False + ' Else + ' ErrorDesactivando = True + ' Alert("Ocurrió un Error al desactivar a los Usuarios.", TipoMensaje.MsgError) + ' End If + ' Next + ' Else + ' Alert("No se Encontraron Usuarios.", TipoMensaje.MsgInformacion) + ' End If + ' If Not ErrorDesactivando Then + ' LblUsuarioActivo.Text = "No" + ' 'HdnCveUsuarioPortalAdmin.Value = "" + ' HdnCveUsuarioPortalActivado.Value = "0" + ' trEnviarActivacion.Visible = True + ' trDesactivarUsuario.Visible = False + ' ViewState("DTUsuariosProveedor") = "" - GvUsuariosPortalSis.Visible = False - Alert("Los Usuarios del Portal de Proveedores han sido Desactivados.", TipoMensaje.MsgInformacion) - End If + ' GvUsuariosPortalSis.Visible = False + ' Alert("Los Usuarios del Portal de Proveedores han sido Desactivados.", TipoMensaje.MsgInformacion) + ' End If - ObjUsuario.Dispose() - 'ACTUALIZA USUARIOS EN TABUSUARIOS - If Not ErrorDesactivando Then - CargaUsuariosPortalProveedor() - UpGvUsuarios.Update() - End If - End Sub + ' ObjUsuario.Dispose() + ' 'ACTUALIZA USUARIOS EN TABUSUARIOS + ' If Not ErrorDesactivando Then + ' CargaUsuariosPortalProveedor() + ' UpGvUsuarios.Update() + ' End If + 'End Sub Protected Function EnviaCorreoActivacionPortal(CveUsuario As Integer) As String Dim Mensaje As String = "" diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 864c9de7e..1dc719338 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1710,8 +1710,8 @@ Partial Class General_SaldosIniciales If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble, 0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(), - CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS, - ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then + CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS, ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, + PedidoContrato:=PedidoContrato, CveMetodoPago33:=3) Then ErrorVentas = True Exit For End If diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 64fc0dce6..45b1b8c0c 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -350,6 +350,15 @@ Partial Class Sistemas_PopUpAddUsuario Next End If + If CvePlataforma = 7 Then + 'DEBE AGREGAR EL USUARIO AL PROVEEDOR + If ObjUsuarios.DtResultados.Rows.Count = 0 Then + If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then + HuboError = True + End If + End If + End If + ElseIf CveUsuario > 0 Then 'VALIDA NO ALTERAR DATOS DE OTRO USUARIO 'Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {CveUsuario}") @@ -403,7 +412,20 @@ Partial Class Sistemas_PopUpAddUsuario If Not ObjUsuarios.UpdateUsuarioPortal(LtlUsuario.Text.Trim, TxtNombre.Text, TxtEmail.Text, ChkEstatus.Checked, "-1", CveCliente, CveProveedor, CveUsuario, UsuarioActual.CveUsuario) Then HuboError = True End If - End If + End If + + If CvePlataforma = 7 Then + If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then + 'DEBE AGREGAR EL USUARIO AL PROVEEDOR + If ObjUsuarios.DtResultados.Rows.Count = 0 Then + If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then + HuboError = True + End If + End If + Else + HuboError = True + End If + End If If Not HuboError Then For Each Row As GridViewRow In GvModulosAcceso.Rows diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index 4e7e19c10..b729a4477 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -16,10 +16,8 @@ Partial Class PopUpSeleccionarEmpresa End If End Sub - Private Sub GetEmpresas() - - - GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por los cambios de contaseña + Private Sub GetEmpresas() + GlobalDTUsuarios(-1, -1) = Nothing Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario) If Dt IsNot Nothing Then @@ -90,10 +88,10 @@ Partial Class PopUpSeleccionarEmpresa RegistraScript("Ir3();") End If End If - dt.Dispose() - Else - Alert($"Usuario Nulo {gvr.DataKey("Usuario")} , {gvr.DataKey("Contraseña")}, {IMEI}, {gvr.DataKey("CveEmpresa").ToEntero}", TipoMensaje.MsgAdvertencia) - End If + dt.Dispose() + + + End If End If End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9b7a3efa4..059d0372e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2209,6 +2209,16 @@ Partial Class Ventas ViewState("EsGarantia") = value End Set End Property + + Private Property TipoCambioOriginal As Decimal + Get + Return (IfNull(ViewState("TipoCambioOriginal"), 0, ViewState("TipoCambioOriginal"))).ToString().ToDecimal() + End Get + Set(value As Decimal) + ViewState("TipoCambioOriginal") = value + End Set + End Property + Private Property DtMercancias As DataTable Get Return If(IsNothing(ViewState("DtMercancias")), Nothing, CType(ViewState("DtMercancias"), DataTable)) @@ -4780,6 +4790,7 @@ Partial Class Ventas HdnCveVenta.Value = CveVenta.ToString() Me.EsGarantia = CBool(DbRowVenta("EsGarantia")) + Me.TipoCambioOriginal = DbRowVenta("TipoCambioOriginal").ToString().ToDecimal() RFCReceptorVenta = DbRowVenta("RFCReceptor").ToString() 'Adjuntar archivo @@ -17102,7 +17113,24 @@ Partial Class Ventas End If End If - If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then + Dim SeTimbro As Boolean = False + + Try + SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) + Catch ex As Exception + SeTimbro = False + End Try + + 'SI SE TIMBRO CON UN TIPO DE CAMBIO DISTINCTO, DEBE ACTUALIZAR LA PREPOLIZA + If SeTimbro AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso TxtTipoCambio.Text.ToDecimal() > 1 AndAlso (TxtTipoCambio.Text.ToDecimal() <> TipoCambioOriginal) Then + Using ObjVentas As New ClsVentas + If ObjVentas.UpdateVentaTC(Me.CveVenta, UsuarioActual.CveEmpresa, TxtTipoCambio.Text.ToDecimal()) Then + Alert("Se actualizó el tipo de cambio del documento") + End If + End Using + End If + + If SeTimbro Then 'MENSAJE PRINCIPAL MensajeAlert = New StringBuilder