AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-01 09:06:07 -07:00
parent 7f456a8175 2a16eb2d68
commit 41db4eacc2
100 changed files with 700 additions and 3691 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/CatProveedores.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Compras_CatProveedores
End Sub
Private Sub InicializaValores()
DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlResponsable.DataBind()
DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))

29
Compras/Proveedores.aspx.vb
View File

@@ -2394,7 +2394,7 @@ Partial Class Compras_Proveedores
End If
UPPSucursales.Update()
Me.RegistraScript("$('#divAgregarSucursal').modal('hide');")
RegistraScript("$('#divAgregarSucursal').modal('hide');")
LimpiaModalAgregarSucursal()
End Sub
Private Sub OcultaDiv()
@@ -2528,7 +2528,7 @@ Partial Class Compras_Proveedores
DivPContactosSucursal.Visible = True
UpAgregarSucursal.Update()
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
RegistraScript("$('#divAgregarSucursal').modal('show');")
End Sub
Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
@@ -2540,7 +2540,7 @@ Partial Class Compras_Proveedores
End If
DivPContactosSucursal.Visible = False
LimpiaModalAgregarSucursal()
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
RegistraScript("$('#divAgregarSucursal').modal('show');")
End Sub
Protected Sub LimpiaModalAgregarSucursal()
@@ -3876,7 +3876,7 @@ Partial Class Compras_Proveedores
lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
'Dim params As New List(Of ReportParameter)
Dim dtnc As New DataTable
Dim ObjCompra As New ClsCompras()
@@ -4908,7 +4908,7 @@ Partial Class Compras_Proveedores
EsEditar = 0
limpiarCamposModalAgregarContacto()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal();")
RegistraScript("$('#DivAgregarContactoProveedor').modal();")
End Sub
Protected Sub imgEditarContactoProv_Click(sender As Object, e As EventArgs)
@@ -4931,7 +4931,7 @@ Partial Class Compras_Proveedores
UpAgregarContatoProveedor.Update()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
@@ -4977,7 +4977,7 @@ Partial Class Compras_Proveedores
EsContactoSucursal = 1
EsEditar = 0
limpiarCamposModalAgregarContacto()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
Protected Sub imgEditarContactoProvSuc_Click(sender As Object, e As EventArgs)
@@ -5001,7 +5001,7 @@ Partial Class Compras_Proveedores
UpAgregarContatoProveedor.Update()
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
End Sub
Protected Sub GVContactosProveedorSucursal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
@@ -5130,7 +5130,7 @@ Partial Class Compras_Proveedores
End If
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
limpiarCamposModalAgregarContacto()
End Sub
@@ -5147,11 +5147,12 @@ Partial Class Compras_Proveedores
objUsuario.Dispose()
End Sub
Public Sub CargaGlobal()
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
End If
ObjUsuarios.Dispose()
'Dim ObjUsuarios As New ClsSisUsuarios
'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
'End If
'ObjUsuarios.Dispose()
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound

2
Compras/RepCompras.aspx.vb
View File

@@ -143,7 +143,7 @@ Partial Class Compras_RepCompras
DdlTipoGasto.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Usuarios Captura

2
Compras/RepComprasDetalle.aspx.vb
View File

@@ -253,7 +253,7 @@ Partial Class Compras_RepComprasDetalle
DdlProveedores.SelectedValue = "-1"
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Usuario Capturo

8
Compras/RepGastosFijos.aspx.cs
View File

@@ -145,7 +145,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
RecurrenciaTipo: RecurrenciaTipo, Frecuencia: Frecuencia, Mes: Mes, RecurrenciaFin: RecurrenciaFin.ToString(), CveTipoEvento: CveTipoEvento, Importe: Importe))
{
LimpiaModal();
this.RegistraScript("$('#DvModalGasto').modal('hide');");
RegistraScript("$('#DvModalGasto').modal('hide');");
Alert("El Evento Gasto Mensual se guardó correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
}
@@ -155,7 +155,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
RecurrenciaTipo: RecurrenciaTipo, Frecuencia: Frecuencia, Mes: Mes, RecurrenciaFin: RecurrenciaFin.ToString(), Importe: Importe))
{
LimpiaModal();
this.RegistraScript("$('#DvModalGasto').modal('hide');");
RegistraScript("$('#DvModalGasto').modal('hide');");
Alert("El Evento Gasto Mensual se ha Actualizado correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
}
@@ -179,7 +179,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
{
LimpiaModal();
UPModalGasto.Update();
this.RegistraScript("$('#DvModalGasto').modal();");
RegistraScript("$('#DvModalGasto').modal();");
}
protected void LnkEditar_Click(object sender, EventArgs e)
@@ -201,7 +201,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
UPModalGasto.Update();
this.RegistraScript("$('#DvModalGasto').modal();");
RegistraScript("$('#DvModalGasto').modal();");
}
#endregion

14
Compras/eFacturas.aspx.vb
View File

@@ -751,7 +751,7 @@ Partial Class Compras_eFacturas
Ejecutable = "F:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
Form.DefaultButton = BtnConsultar.UniqueID
DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
DdlResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlResponsable.DataBind()
DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -2528,7 +2528,7 @@ Partial Class Compras_eFacturas
TabPanel.ActiveTabIndex = 0
cargasolicitudes()
Me.RegistraScript("$('#ModalViewSolicitudes').modal();")
RegistraScript("$('#ModalViewSolicitudes').modal();")
End Sub
@@ -2553,9 +2553,9 @@ Partial Class Compras_eFacturas
' 'If Continuar Then
' ' txtFechaIAdd.Text = ""
' ' txtFechaFAdd.Text = ""
' ' Me.RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
' ' RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
' ' cargasolicitudes()
' ' Me.Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
' ' Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
' 'End If
' Dim idSolicitudCFDI As Integer = 0
@@ -2640,7 +2640,7 @@ Partial Class Compras_eFacturas
' If Continuar Then
' txtFechaIAdd.Text = ""
' txtFechaFAdd.Text = ""
' Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
' RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
' cargasolicitudes()
' End If
@@ -2705,7 +2705,7 @@ Partial Class Compras_eFacturas
txtFechaIAdd.Text = ""
txtFechaFAdd.Text = ""
ChkMetaDatos.Checked = False
Me.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
cargasolicitudes()
End If
End Sub
@@ -2869,7 +2869,7 @@ Partial Class Compras_eFacturas
txtFechaFAdd.Text = ""
ChkMetaDatos.Checked = False
UPModalViewSolicitudesAgregar.Update()
Me.RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
End Sub
Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)