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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-28 12:42:51 -07:00
parent b330684423 0a30fdade7
commit 288a54b159
87 changed files with 7965 additions and 4960 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -82,12 +82,12 @@ Partial Class CatClasificacionesDetalle
Private Sub CargaGlobal()
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then
GlobalDTClasificaciones = ObjClasificaciones.DtResultados
Else
Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
End If
'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
' GlobalDTClasificaciones = ObjClasificaciones.DtResultados
'Else
' Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
'End If
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
End If

15
Ventas/CatFamiliaSubFamilia.aspx.vb
View File

@@ -76,8 +76,7 @@ Partial Class Ventas_CatFamiliaSubFamilia
Public Sub CargaDatosS()
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
Else
GvDatosS.DataSource = Nothing
@@ -197,9 +196,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
Alert("La nueva SubFamilia se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosS.Update()
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
End If
'DdlCuentaGastoS.SelectedValue = "-1"
@@ -290,9 +289,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvDatosS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatosS.EditIndex = -1
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
End If
Alert("La SubFamilia se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If

2
Ventas/CatPS.aspx.vb
View File

@@ -51,7 +51,7 @@ Partial Class CatPS
End Sub
Public Sub CargaClasificaciones()
Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0} AND (UsoClasificacion = {1} OR {1} = -1)", UsuarioActual.CveEmpresa, DdlTipoClasificacion.SelectedValue.ToEntero))
Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue.ToEntero))
Ddlclasificacion.DataBind()
Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

2
Ventas/Clientes.aspx.vb
View File

@@ -6753,7 +6753,7 @@ Partial Class Clientes
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveCliente > 0 Then
GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1) = Nothing
End If
End Sub

32
Ventas/ClientesAbonar.aspx.vb
View File

@@ -898,7 +898,7 @@ Partial Class Ventas_ClientesAbonar
For Each Gvr As GridViewRow In GvCxC.Rows
If Gvr.FCCheckBox("Chk").Checked Then
CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
CveSubProyectoMaximo = Gvr.DataKey("CveSubProyecto").ToEntero
Exit For
End If
Next
@@ -1225,9 +1225,9 @@ Partial Class Ventas_ClientesAbonar
End If
End If
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
End If
End If
@@ -2235,30 +2235,29 @@ Partial Class Ventas_ClientesAbonar
If DdlTipoTransaccion.SelectedValue > 0 Then ' transferencias y layout
trCuentaDeposito.Visible = False
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then
Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
If dtc IsNot Nothing Then
If DdlTipoTransaccion.SelectedValue = "9" Then
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
trCuentaDeposito.Visible = True
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
Else
BtnIEGuardar.Enabled = False
Alert("El Cliente no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
End If
Else
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
If Dep.DtResultados.Rows.Count >= 1 Then
DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'")
If dtc.Rows.Count >= 1 Then
trCuentaDeposito.Visible = True
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
End If
End If
End If
Dep.Dispose()
DdlCuentaDeposito.DataBind()
Else
trCuentaDeposito.Visible = False
@@ -2280,16 +2279,17 @@ Partial Class Ventas_ClientesAbonar
CargaCuentasDepositos()
End Sub
Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then
If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
TrReferenciaCIE.Visible = True
TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString
Else
TrReferenciaCIE.Visible = False
End If
End If
Dep.Dispose()
UpCuentaDeposito.Update()
End Sub
#End Region

2
Ventas/PopUpBuscarPs.aspx.vb
View File

@@ -28,7 +28,7 @@ Partial Class PopUpBuscarPs
#Region " INICIALIZA VALORES "
Private Sub CargaClasificaciones()
Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
Ddlclasificacion.DataBind()
Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

26
Ventas/ProductosServicios.aspx.vb
View File

@@ -657,7 +657,7 @@ Partial Class ProductosyServicios
If ObjOpciones.UpdateProductosServiciosCaracteristicasOpciones(Opcion, CveCaracteristica, CveOpcion) Then
GvDatosOpciones.EditIndex = -1
ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
CambioProductosServiciosCaracteristicasOpciones()
@@ -1316,6 +1316,12 @@ Partial Class ProductosyServicios
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
If DdlFraccionArancelaria.SelectedValue.ToEntero > 0 AndAlso TxtCodigo.Text.Trim.Length = 0 Then
Alert("El campo Numero de Parte / Código es requerido (al seleccionar una Fracción Arancelaria el campo Numero de Parte / Código se vuelve requerido).", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If DdlSATPS.txtValue.Value.ToEntero > 0 Then
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte
@@ -2027,7 +2033,7 @@ Partial Class ProductosyServicios
Dim ObjPS As New ClsProductosServicios
'ObjPS.IniciaTransacSQL()
ObjPS.IniciaTransacSQL()
If ObjPS.UnificarPS(CvePS, DdlPsUnificar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("Los productos y/o servicios han sido unificados", TipoMensaje.MsgInformacion)
@@ -2036,11 +2042,11 @@ Partial Class ProductosyServicios
ErrorUnificacion = True
End If
'If ErrorUnificacion Then
' ObjPS.RollBack()
'Else
' ObjPS.Commit()
'End If
If ErrorUnificacion Then
ObjPS.RollBack()
Else
ObjPS.Commit()
End If
ObjPS.Dispose()
@@ -2771,9 +2777,9 @@ Partial Class ProductosyServicios
If ObjVentas.AddClasificacionDetalle(TxtClasificacionDetalle.Text, DdlClasificacionModal.SelectedValue.ToEntero,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetClasificacionDetalle(-1, -1, -1, -1) Then
GlobalDTClasificacionesDetalle = ObjVentas.DtResultados
End If
'If ObjVentas.GetClasificacionDetalle(-1, -1, -1, -1) Then
' GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa) = Nothing
'End If
CargaClasificacionesDetalles()
DdlTipoPSDes.SelectedValueExist(ObjVentas.CveClasificacionDetalle)
UpDatos.Update()