Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -2521,7 +2521,7 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-3" id="divportalusuarios" runat="server" style="min-width: 315px;">
|
||||
<%-- <div class="col-md-3" id="divportalusuarios" runat="server" style="min-width: 315px;">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
@@ -2582,7 +2582,7 @@
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
<div class="col-md-3">
|
||||
<asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px" Visible="false" Enabled="false"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
@@ -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.<br><br> {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.<br><br> {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 = ""
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user