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:
rrene
2020-06-08 22:48:21 -07:00
parent e16f36afb9 2a9be5cec9
commit 481328af7d
33 changed files with 3279 additions and 1180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
App_Code/ClsBancos.vb
View File

@@ -138,6 +138,8 @@ Public Class ClsBancos
Public Property LimiteCredito As Double Public Property LimiteCredito As Double
Public Property ConvenioPagoElectronico As String Public Property ConvenioPagoElectronico As String
Public Property UsaLayout As Boolean Public Property UsaLayout As Boolean
Public Property UsaLayoutGrupos As Boolean
Public Property UsaTarjeta As Boolean Public Property UsaTarjeta As Boolean
#End Region #End Region
@@ -424,6 +426,7 @@ Public Class ClsBancos
Me.LimiteCredito = Data.Rows(0)("LimiteCredito").ToString.ToDouble Me.LimiteCredito = Data.Rows(0)("LimiteCredito").ToString.ToDouble
Me.ConvenioPagoElectronico = Data.Rows(0)("ConvenioPagoElectronico").ToString Me.ConvenioPagoElectronico = Data.Rows(0)("ConvenioPagoElectronico").ToString
Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False) Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False)
Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").ToString = "True", True, False)
Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False) Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False)
End If End If
@@ -457,7 +460,9 @@ Public Class ClsBancos
Return Retorno + 1 Return Retorno + 1
End Function End Function
Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String, UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0) As Boolean Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String,
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosCuentasAdd") DataAdapter("PA_Banc_BancosCuentasAdd")
@@ -483,6 +488,10 @@ Public Class ClsBancos
.Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout .Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta .Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
.Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial .Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
End With End With
Try Try
@@ -502,7 +511,9 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String, UsaLayout As Boolean, UsaTarjeta As Boolean) As Boolean Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String,
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosCuentasUpdate") DataAdapter("PA_Banc_BancosCuentasUpdate")
@@ -526,6 +537,9 @@ Public Class ClsBancos
.Add("@ConvenioPagoElectronico", SqlDbType.VarChar).Value = ConvenioPagoElectronico .Add("@ConvenioPagoElectronico", SqlDbType.VarChar).Value = ConvenioPagoElectronico
.Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout .Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta .Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
End With End With
Try Try
@@ -696,7 +710,8 @@ Public Class ClsBancos
Public Function GetBancosIE(CveIE As Integer, CveBanco As Integer, CveCuenta As Integer, TipoMovimiento As String, CveTipoTransaccion As Integer, Folio As String, PagueseA As String, Importe As Double, Public Function GetBancosIE(CveIE As Integer, CveBanco As Integer, CveCuenta As Integer, TipoMovimiento As String, CveTipoTransaccion As Integer, Folio As String, PagueseA As String, Importe As Double,
CveMoneda As Integer, EsAbonoEnCuenta As Integer, FueConciliado As Integer, CveEstatusIE As Integer, CveMoneda As Integer, EsAbonoEnCuenta As Integer, FueConciliado As Integer, CveEstatusIE As Integer,
FechaInicio As Date, FechaFin As Date, FechaAplicacionInicio As Date, FechaAplicacionFin As Date, FechaInicio As Date, FechaFin As Date, FechaAplicacionInicio As Date, FechaAplicacionFin As Date,
FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer, Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1) As Boolean FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer,
Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IEGet") DataAdapter("PA_Banc_IEGet")
@@ -725,6 +740,7 @@ Public Class ClsBancos
.Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion .Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
@@ -3065,7 +3081,7 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function UpdateLayoutEnviosDetalle(CveLayoutEnvioDetalle As Integer, CveLayoutEnvio As Integer, CveIE As Integer, CveProveedor As Integer, Estatus As Integer, Observaciones As String) As Boolean Public Function UpdateLayoutEnviosDetalle(CveLayoutEnvioDetalle As Integer, CveLayoutEnvio As Integer, CveIE As Integer, CveProveedor As Integer, Estatus As Integer, Observaciones As String, Optional Confirmado As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_LayoutEnviosDetalleUpdate") DataAdapter("PA_Banc_LayoutEnviosDetalleUpdate")
@@ -3077,6 +3093,7 @@ Public Class ClsBancos
.Add("@Estatus", SqlDbType.SmallInt).Value = Estatus .Add("@Estatus", SqlDbType.SmallInt).Value = Estatus
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@CveLayoutEnvioDetalle", SqlDbType.Int).Value = CveLayoutEnvioDetalle .Add("@CveLayoutEnvioDetalle", SqlDbType.Int).Value = CveLayoutEnvioDetalle
.Add("@Confirmado", SqlDbType.Bit).Value = Confirmado
End With End With
Try Try
@@ -3089,6 +3106,29 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function UpdateBancos_IEFolio(CveIE As Integer, NuevoFolio As String, Comprobante As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_LayoutIEFolioUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@NuevoFolio", SqlDbType.Char).Value = NuevoFolio
.Add("@Comprobante", SqlDbType.Char).Value = Comprobante
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar El movimiento Bancario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
'ESTE SE PUEDE ELIMINAR YA NO SE USA 'ESTE SE PUEDE ELIMINAR YA NO SE USA
'Public Function UpdateProveedorPagoElectronico(CveProveedor As Integer, CveEmpresa As Integer) As Boolean 'Public Function UpdateProveedorPagoElectronico(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False

3
App_Code/ClsClientes.vb
View File

@@ -264,7 +264,7 @@ Public Class ClsClientes
End Sub End Sub
Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer,
CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1,
Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1) As Boolean Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClientesGet") DataAdapter("PA_ClientesGet")
@@ -285,6 +285,7 @@ Public Class ClsClientes
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

3
App_Code/ClsCompProveedores.vb
View File

@@ -297,7 +297,7 @@ Public Class ClsCompProveedores
Public Function GetProveedores(tipoConsulta As TipoConsulta, CveProveedor As Integer, Codigo As String, RazonSocial As String, NombreComercial As String, Public Function GetProveedores(tipoConsulta As TipoConsulta, CveProveedor As Integer, Codigo As String, RazonSocial As String, NombreComercial As String,
NombreCorto As String, RFC As String, ContactoNombre As String, Telefono As String, Estatus As Integer, CveEmpresa As Integer, NombreCorto As String, RFC As String, ContactoNombre As String, Telefono As String, Estatus As Integer, CveEmpresa As Integer,
Optional CveTipoProveedor As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1) As Boolean Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedoresGet") DataAdapter("PA_Comp_ProveedoresGet")
@@ -318,6 +318,7 @@ Public Class ClsCompProveedores
.Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable
.Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion
.Add("@CveMonedaPreferente", SqlDbType.Int).Value = CveMonedaPreferente .Add("@CveMonedaPreferente", SqlDbType.Int).Value = CveMonedaPreferente
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

4
App_Code/ClsCompras.vb
View File

@@ -143,7 +143,8 @@ Public Class ClsCompras
Return Retorno Return Retorno
End Function End Function
Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String, FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1) As Boolean Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String,
FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasGetBuscar") DataAdapter("PA_Comp_ComprasGetBuscar")
@@ -160,6 +161,7 @@ Public Class ClsCompras
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

6
App_Code/ClsProductosServicios.vb
View File

@@ -206,7 +206,10 @@ Public Class ClsProductosServicios
End Sub End Sub
#End Region #End Region
Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1, Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1") As Boolean Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosGet") DataAdapter("PA_ProductosServiciosGet")
@@ -227,6 +230,7 @@ Public Class ClsProductosServicios
.Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
.Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
.Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

10
App_Code/ClsRH.vb
View File

@@ -1546,10 +1546,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Public Function GetPersonal2(CvePersonal As Integer, Codigo As String, Nombre As String, NSS As String, RFC As String, CveTurno As Integer, CvePuesto As Integer, Public Function GetPersonal2(CvePersonal As Integer, Codigo As String, Nombre As String, NSS As String, RFC As String, CveTurno As Integer, CvePuesto As Integer,
CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer,
CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer, CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer,
CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer, CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer,
FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, SqlStr As String, NCaracteristicas As Integer, CveEmpresa As Integer) As Boolean FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, SqlStr As String, NCaracteristicas As Integer,
CveEmpresa As Integer, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_Personal2Get") SqlDataAdapter("PA_RH_Personal2Get")
@@ -1584,6 +1585,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@SqlStr ", SqlDbType.VarChar).Value = SqlStr .Add("@SqlStr ", SqlDbType.VarChar).Value = SqlStr
.Add("@NCaracteristicas", SqlDbType.Int).Value = NCaracteristicas .Add("@NCaracteristicas", SqlDbType.Int).Value = NCaracteristicas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

17
App_Code/ClsSisNotificaciones.vb
View File

@@ -210,23 +210,24 @@ Public Class ClsSisNotificaciones
Private Sub EnviarCorreos(DTNotificacionesCorreo As DataTable) Private Sub EnviarCorreos(DTNotificacionesCorreo As DataTable)
For Each notificacion As DataRow In DTNotificacionesCorreo.Rows For Each notificacion As DataRow In DTNotificacionesCorreo.Rows
MandaMail(notificacion("CveNotificacionBitacora").ToString.ToEntero, notificacion("Encabezado").ToString, notificacion("Cuerpo").ToString, notificacion("Correo").ToString, "") Dim Hilo As New System.Threading.Thread(Sub() MandaMail(notificacion("CveNotificacionBitacora").ToString.ToEntero, notificacion("Encabezado").ToString, notificacion("Cuerpo").ToString, notificacion("Correo").ToString, ""))
Hilo.Start()
Next Next
End Sub End Sub
Private Sub MandaMail(CveNotificacionBitacora As Integer, Asunto As String, Cuerpo As String, Mail As String, MailCC As String) Private Sub MandaMail(CveNotificacionBitacora As Integer, Asunto As String, Cuerpo As String, Mail As String, MailCC As String)
Dim ObjMail As New ClsSisMail() Dim ObjMail As New ClsSisMail()
Dim ObjNotificacion As New ClsSisNotificaciones
Try Try
Dim ResultadoMail As Integer = 0 Dim ResultadoMail As Integer = 0
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Mail, Asunto, Cuerpo, MailCC, LSRutasMail) Then If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Mail, Asunto, Cuerpo, MailCC, LSRutasMail) Then
UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) ObjNotificacion.UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1)
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió error al mandar el Mail", ex) OnError("Ocurrió error al mandar el Mail", ex)
End Try End Try
ObjNotificacion.Dispose()
End Sub End Sub
#End Region #End Region
@@ -1328,10 +1329,6 @@ Public Class ClsSisNotificaciones
Next Next
End If End If
If DTNotificacionesCorreo IsNot Nothing AndAlso DTNotificacionesCorreo.Rows.Count > 0 Then
EnviarCorreos(DTNotificacionesCorreo)
End If
If DTNotificacionesApp IsNot Nothing AndAlso DTNotificacionesApp.Rows.Count > 0 Then If DTNotificacionesApp IsNot Nothing AndAlso DTNotificacionesApp.Rows.Count > 0 Then
Dim DtTokens As DataTable = Nothing Dim DtTokens As DataTable = Nothing
@@ -1391,6 +1388,10 @@ Public Class ClsSisNotificaciones
End If End If
End If End If
If DTNotificacionesCorreo IsNot Nothing AndAlso DTNotificacionesCorreo.Rows.Count > 0 Then
EnviarCorreos(DTNotificacionesCorreo)
End If
If Not DTNotificacionesApp Is Nothing Then DTNotificacionesApp.Dispose() If Not DTNotificacionesApp Is Nothing Then DTNotificacionesApp.Dispose()
'If Not DTNotificacionesCampana Is Nothing Then DTNotificacionesCampana.Dispose() 'If Not DTNotificacionesCampana Is Nothing Then DTNotificacionesCampana.Dispose()
If Not DTNotificacionesCorreo Is Nothing Then DTNotificacionesCorreo.Dispose() If Not DTNotificacionesCorreo Is Nothing Then DTNotificacionesCorreo.Dispose()

3
App_Code/ClsVentas.vb
View File

@@ -204,7 +204,7 @@ Public Class ClsVentas
Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer, Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer,
CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1", CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1",
Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1", Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1",
Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1) As Boolean Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional TopSelect As Integer = 1000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasGetBuscar") DataAdapter("PA_Vta_VentasGetBuscar")
@@ -229,6 +229,7 @@ Public Class ClsVentas
.Add("@ClienteRFC", SqlDbType.VarChar).Value = ClienteRFC .Add("@ClienteRFC", SqlDbType.VarChar).Value = ClienteRFC
.Add("@CveEmpresaCRM", SqlDbType.Int).Value = CveEmpresaCRM .Add("@CveEmpresaCRM", SqlDbType.Int).Value = CveEmpresaCRM
.Add("@CveAcercamientoCRM", SqlDbType.Int).Value = CveAcercamientoCRM .Add("@CveAcercamientoCRM", SqlDbType.Int).Value = CveAcercamientoCRM
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try

224
Ashx/SIGWeb.ashx
View File

@@ -43,7 +43,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
ActualizaPrePoliza(context) ActualizaPrePoliza(context)
Case "getpersonal" Case "getpersonal"
getpersonal(context) getpersonal(context)
Case "GettingCURP"
context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero()))
Case "ValidaCURP"
context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
End Select End Select
Catch ex As Exception Catch ex As Exception
ex.GuardaLog(ex.Message) ex.GuardaLog(ex.Message)
@@ -181,6 +184,225 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End Sub End Sub
#End Region #End Region
Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
Dim resultado As String = ""
Try
Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
request.Timeout = maxTimeMilliseconds
request.Method = Methodo
request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"
If Not String.IsNullOrEmpty(Cookie) Then
request.Headers.Add("Cookie", Cookie)
End If
'Using stream As IO.Stream = request.GetRequestStream()
' Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
' stmw.Write("")
' End Using
'End Using
Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
resultado = sr.ReadToEnd()
sr.Close()
Catch ex As Exception
ex.ToString().GuardaLog()
'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
End Try
Return resultado
End Function
Public Shared Function GettingCURP(ByVal Curp As String, year As Integer) As String
Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Dim rule1 As String() = If(year < 2000, numeric01, abc)
Dim curpresult As String = ""
Dim i As Integer = 0
While curpresult.Length = 0 AndAlso i < rule1.Length
Dim z As Integer = 0
While curpresult.Length = 0 AndAlso z < numeric01.Length
curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")
Dim trlines As New List(Of String)
Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)
Dim indexttr As Integer = 0
Dim indexttrB As Integer = 0
Dim indexttd As Integer = 0
Dim indextdiv As Integer = 0
Dim indexinittext As Integer = 0
While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
indexttr = respuesta.IndexOf("<tr")
If indexttr >= 0 Then
indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
If indexttrB >= 0 Then
trlines.Add(respuesta.Substring(indexttr, indexttrB))
Else
trlines.Add(respuesta.Substring(indexttr))
End If
respuesta = respuesta.Substring(indexttr + 3)
Else
respuesta = ""
End If
End While
Dim key As String = ""
Dim keyvalue As String = ""
For Each item As String In trlines
key = ""
keyvalue = ""
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttrB + 3)
Else
item = ""
End If
If item.Length > 0 Then
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttr + 3)
Else
item = ""
End If
End If
If key.Length > 0 Then
keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
End If
Next
Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
If Nombres Is Nothing OrElse Nombres.Length = 0 Then
curpresult = ""
End If
System.Threading.Thread.Sleep(100)
z = z + 1
End While
i = i + 1
End While
Return curpresult
End Function
Public Shared Function ValidaCURP(ByVal Curp As String) As String
Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", Curp), "GET")
Dim trlines As New List(Of String)
Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)
Dim indexttr As Integer = 0
Dim indexttrB As Integer = 0
Dim indexttd As Integer = 0
Dim indextdiv As Integer = 0
Dim indexinittext As Integer = 0
While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
indexttr = respuesta.IndexOf("<tr")
If indexttr >= 0 Then
indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
If indexttrB >= 0 Then
trlines.Add(respuesta.Substring(indexttr, indexttrB))
Else
trlines.Add(respuesta.Substring(indexttr))
End If
respuesta = respuesta.Substring(indexttr + 3)
Else
respuesta = ""
End If
End While
Dim key As String = ""
Dim keyvalue As String = ""
For Each item As String In trlines
key = ""
keyvalue = ""
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttrB + 3)
Else
item = ""
End If
If item.Length > 0 Then
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttr + 3)
Else
item = ""
End If
End If
If key.Length > 0 Then
keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
End If
Next
Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
If Nombres Is Nothing OrElse Nombres.Length = 0 Then
Curp = ""
End If
Return Curp
End Function
#Region "Get Cliente" #Region "Get Cliente"
Private Function GetClientes(ByVal context As HttpContext) As String Private Function GetClientes(ByVal context As HttpContext) As String
Dim retorno As String = "" Dim retorno As String = ""

5
Bancos/CuentasBancariasDetalle.aspx
View File

@@ -88,6 +88,11 @@
<td>Layout:</td> <td>Layout:</td>
<td> <td>
<asp:CheckBox ID="ChkLayout" runat="server" OnCheckedChanged="ChkLayout_CheckedChanged" AutoPostBack="true" /></td> <asp:CheckBox ID="ChkLayout" runat="server" OnCheckedChanged="ChkLayout_CheckedChanged" AutoPostBack="true" /></td>
</tr>
<tr>
<td>Layout Grupos:</td>
<td>
<asp:CheckBox ID="ChkLayoutGrupos" runat="server" /></td>
</tr> </tr>
<tr id="TrConvenio" runat="server" visible="false"> <tr id="TrConvenio" runat="server" visible="false">
<td>Convenio:</td> <td>Convenio:</td>

6
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -147,10 +147,12 @@ Partial Class Bancos_CuentasBancariasDetalle
TxtCLABE.Text = ObjCuentasBancariasDetalle.CLABE TxtCLABE.Text = ObjCuentasBancariasDetalle.CLABE
DdlMoneda.SelectedValue = ObjCuentasBancariasDetalle.CveMoneda.ToString DdlMoneda.SelectedValue = ObjCuentasBancariasDetalle.CveMoneda.ToString
ChkEstatus.Checked = If((ObjCuentasBancariasDetalle.Estatus) = "Activo", True, False) ChkEstatus.Checked = If((ObjCuentasBancariasDetalle.Estatus) = "Activo", True, False)
ChkEstatus.Checked = If((ObjCuentasBancariasDetalle.Estatus) = "Activo", True, False)
LblFecha.Text = ObjCuentasBancariasDetalle.Fecha.ToShortDateString LblFecha.Text = ObjCuentasBancariasDetalle.Fecha.ToShortDateString
LblUsuario.Text = ObjCuentasBancariasDetalle.Usuario LblUsuario.Text = ObjCuentasBancariasDetalle.Usuario
TxtConvenio.Text = ObjCuentasBancariasDetalle.ConvenioPagoElectronico.ToString TxtConvenio.Text = ObjCuentasBancariasDetalle.ConvenioPagoElectronico.ToString
ChkLayout.Checked = ObjCuentasBancariasDetalle.UsaLayout ChkLayout.Checked = ObjCuentasBancariasDetalle.UsaLayout
ChkLayoutGrupos.Checked = ObjCuentasBancariasDetalle.UsaLayoutGrupos
ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta
ChkUsaTarjeta_CheckedChanged(Nothing, Nothing) ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)
@@ -187,7 +189,7 @@ Partial Class Bancos_CuentasBancariasDetalle
If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero,
DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked) Then DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then
ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
Else Else
ErrorUsuarios = True ErrorUsuarios = True
@@ -217,7 +219,7 @@ Partial Class Bancos_CuentasBancariasDetalle
End If End If
Else Else
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, ChkLayout.Checked, ChkUsaTarjeta.Checked) Then If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then
'CargaDatos() 'CargaDatos()
If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados

427
Bancos/PagoElectronicoGrupos.aspx
View File

@@ -15,6 +15,7 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%"> <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
<ajax:TabPanel ID="TabGenerales" runat="server" HeaderText="Generación"> <ajax:TabPanel ID="TabGenerales" runat="server" HeaderText="Generación">
<ContentTemplate> <ContentTemplate>
@@ -262,35 +263,7 @@
</asp:GridView> </asp:GridView>
</div> </div>
<div class="col-md-6">
<center>
<b>Layouts Enviados</b>
</center>
<asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
<Columns>
<asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />
<asp:BoundField DataField="Tipo" HeaderText="Tipo" />
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:HyperLink ID="HLProveedor" Text='<%# Eval("RazonSocial") %>' Target="_blank" runat="server" CssClass="Texto" />
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" />--%>
<asp:TemplateField HeaderText="Detalle" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<%--<asp:Literal ID="LtDetalle" Text='<%# Eval("Observaciones") %>' runat="server" />--%>
<asp:HyperLink ID="HLDetalle" Text='<%# Eval("Observaciones") %>' Target="_blank" CssClass="Texto" runat="server" />
<asp:LinkButton Text="Regenerar" CommandArgument='<%# Eval("CveLayoutEnvio")%>' OnClick="LBRegenerar_Click" CssClass="Texto" ID="LBRegenerar" runat="server" Visible="false" />
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField DataField="Observaciones" HeaderText="Detalle" />--%>
<asp:BoundField DataField="Abonado" HeaderText="Importe" DataFormatString="{0:N2}&nbsp;&nbsp;" ItemStyle-HorizontalAlign="Right" />
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -305,59 +278,10 @@
<ajax:TabPanel ID="TabReportes" runat="server" HeaderText="Reportes"> <ajax:TabPanel ID="TabReportes" runat="server" HeaderText="Reportes">
<ContentTemplate> <ContentTemplate>
<%--<asp:UpdatePanel runat="server" ID="UpFiltrosReporte" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT" style="">
<div class="titlefiltros caption ">
<ul class="list-inline">
<li>Cuenta:
<asp:DropDownList ID="DdlCuentaReportes" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px"></asp:DropDownList>
</li>
<li>Estatus:
<asp:DropDownList ID="DdlEstatus" runat="server" Width="100px">
<asp:ListItem Text="Todos" Value="-1" />
<asp:ListItem Text="Enviado" Value="1" />
<asp:ListItem Text="Aceptado" Value="2" />
<asp:ListItem Text="Rechazado" Value="3" />
</asp:DropDownList>
</li>
<li>Fecha.I.:
<asp:TextBox ID="txtFechaI" runat="server" Width="70px"></asp:TextBox>
<asp:ImageButton runat="server" ID="imgCalendario" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:ImageButton ID="ImgGuardar" runat="server" ClientIDMode="Static" ImageUrl="/Imagenes/accept.png" ToolTip="Aplicar Cambios" Style="display: none;" />
</li>
<li>Fecha.F.:
<asp:TextBox ID="txtFechaF" runat="server" Width="70px"></asp:TextBox>
<asp:ImageButton runat="server" ID="imgCalendarioF" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</li>
</ul>
</div>
<div class="tools">
<asp:Button ID="BtnConsultarReportes" runat="server" Text="Consultar" OnClick="BtnConsultarReportes_Click" class="btn btn-primary" />
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>--%>
<asp:UpdatePanel runat="server" ID="UpFiltrosReporte" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpFiltrosReporte" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="Panel3" runat="server" DefaultButton="BtnConsultarReportes"> <asp:Panel ID="Panel3" runat="server" DefaultButton="BtnConsultarReportes">
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter">
@@ -424,57 +348,13 @@
</div> </div>
</div> </div>
<%-- <div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT" style="">
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1 truncate">Cuenta:</div>
<div class="col-md-2 ">
</div>
<div class="col-md-1 truncate">Estatus:</div>
<div class="col-md-1 ">
</div>
<div class="col-md-1 truncate">Fecha I:</div>
<div class="col-md-2 ">
</div>
<div class="col-md-1 truncate">Fecha F:</div>
<div class="col-md-1 ">
</div>
</div>
</div>
</div>
</div>--%>
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%-- <asp:UpdatePanel runat="server" ID="UpFiltrosReporte" UpdateMode="Conditional">
<ContentTemplate>
<table class="SubTotales3" width="100%">
<tr>
<td width="50px">Cuenta:</td>
<td width="220px"></td>
<td width="50px">Estatus:</td>
<td width="100px"></td>
<td width="50px">&nbsp;Fecha.I.:&nbsp;</td>
<td width="140px" valign="middle">
</td>
<td width="50px">&nbsp;Fecha.F.:&nbsp;</td>
<td width="140px" valign="middle">
</td>
<td></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>--%>
<br /> <br />
<br /> <br />
@@ -578,6 +458,186 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabEnviados" runat="server" HeaderText="Layout Enviados">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpFiltroEnviados" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="Panel4" runat="server" DefaultButton="BtnConsultaEnviados">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT">
<div class="tools">
<asp:Button ID="BtnConsultaEnviados" CssClass="btn btn-primary" runat="server" Text="Consultar" OnClick="BtnConsultaEnviados_Click" />
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="CheckBox1" CssClass="hidden" runat="server" />
</div>
<div class="titlefiltros caption ">
<ul class="list-inline">
<li >Cuenta
<asp:DropDownList ID="DdlCuentaEnviados" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100px" CssClass="form-control input-sm select2me"></asp:DropDownList>
</li>
<li >Estatus
<asp:DropDownList ID="DdlEstatusEnviados" runat="server" Width="100px" CssClass="form-control input-sm select2me">
<asp:ListItem Text="Todos" Value="-1" />
<asp:ListItem Selected="True" Text="Enviado" Value="1" />
<asp:ListItem Text="Confirmado" Value="2" />
<asp:ListItem Text="Cancelado" Value="3" />
</asp:DropDownList>
</li>
<li >F.I.&nbsp;&nbsp;
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="float:right; width: 120px !important; padding: 0px;">
<asp:TextBox ID="txtFechaIEnviados" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 85px !important" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnktxtFechaIEnviados" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEtxtFechaIEnviados" runat="server" TargetControlID="txtFechaIEnviados" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtFechaIEnviados" PopupButtonID="LnktxtFechaIEnviados" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVtxtFechaIEnviados" runat="server" ControlToValidate="txtFechaIEnviados" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEnviados"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="COtxtFechaIEnviados" runat="server" ControlToValidate="txtFechaIEnviados" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEnviados"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVtxtFechaIEnviados" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaIEnviados" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCCOtxtFechaIEnviados" runat="server" HighlightCssClass="vco" TargetControlID="COtxtFechaIEnviados" Width="350px"></ajax:ValidatorCalloutExtender>
<%--<asp:ImageButton ID="ImageButton1" runat="server" ClientIDMode="Static" ImageUrl="/Imagenes/accept.png" ToolTip="Aplicar Cambios" Style="display: none;" />--%>
</div>
</li>
<li>F.F &nbsp;&nbsp;
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="float:right; width: 120px !important; padding: 0px;">
<asp:TextBox ID="txtFechaFEnviados" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 85px !important" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnktxtFechaFEnviados" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEtxtFechaFEnviados" runat="server" TargetControlID="txtFechaFEnviados" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="txtFechaFEnviados" PopupButtonID="LnktxtFechaFEnviados" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVtxtFechaFEnviados" runat="server" ControlToValidate="txtFechaFEnviados" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEnviados"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="COtxtFechaFEnviados" runat="server" ControlToValidate="txtFechaFEnviados" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEnviados"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVtxtFechaFEnviados" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaFEnviados" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCCOtxtFechaFEnviados" runat="server" HighlightCssClass="vco" TargetControlID="COtxtFechaFEnviados" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</li>
</ul>
</div>
<div class="portlet-body" style="display: none;">
</div>
</div>
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpEnviados" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<div class="row">
<div class="col-md-6" style="text-align:right!important">
Prefijo Folio:
</div>
<div class="col-md-6" style="text-align:left!important">
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
</div>
</div>
<asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos"
DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus"
OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
<Columns>
<asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />
<asp:BoundField DataField="Tipo" HeaderText="Tipo" />
<asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:HyperLink ID="HLProveedor" Text='<%# Eval("RazonSocial") %>' Target="_blank" runat="server" CssClass="Texto" />
<asp:label runat="server" ID="LblArchivo" Visible="false" Text=""></asp:label>
<asp:TextBox runat="server" ID="TxtComprobante" Text="" style="display:none" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Detalle" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:HyperLink ID="HLDetalle" Text='<%# Eval("Observaciones") %>' Target="_blank" CssClass="Texto" runat="server" />
<asp:LinkButton Text="Regenerar" CommandArgument='<%# Eval("CveLayoutEnvio")%>' OnClick="LBRegenerar_Click" CssClass="Texto" ID="LBRegenerar" runat="server" Visible="false" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Abonado" HeaderText="Importe" DataFormatString="{0:N2}&nbsp;&nbsp;" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="StrEstatusGrupos" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="Nuevo Folio">
<ItemTemplate>
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important" ></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px" HeaderText="Cargar">
<ItemTemplate>
<asp:LinkButton ID="ImgUpload" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ImgUpload_Click"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload' title='Subir comprobante' ></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px" HeaderText="Confirmar">
<ItemTemplate>
<asp:LinkButton ID="LnkGvConfirmar" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-arrow-right'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar Pago?" data-btn-ok-label="si"
OnClick="LnkGvConfirmar_Click">
</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="74px" HeaderText="Cancelar" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:LinkButton ID="LnkGvCancelar" runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="¿Cancelar Pago?" data-btn-ok-label="si"
OnClick="LnkGvCancelar_Click">
</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer> </ajax:TabContainer>
@@ -651,6 +711,7 @@
<asp:BoundField HeaderText="Clabe" DataField="CLABEDestino" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Clabe" DataField="CLABEDestino" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Alias" DataField="BBVAAlias" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Alias" DataField="BBVAAlias" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Alta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px"> <asp:TemplateField HeaderText="Alta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="ChkCuentasEstatus" runat="server" Checked='<%# Eval("EstatusPagoElectronicoGrupos") %>' /> <asp:CheckBox ID="ChkCuentasEstatus" runat="server" Checked='<%# Eval("EstatusPagoElectronicoGrupos") %>' />
@@ -659,6 +720,9 @@
<%--________________________________________________________--%>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
@@ -682,6 +746,103 @@
</div> </div>
</div> </div>
<div id="ModalUploadComprobante" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<asp:UpdatePanel ID="UpModalTitleUploadComprobante" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<h4 class="modal-title">
<asp:Literal ID="LtlModalUploadTitulo" runat="server">Subir Comprobante</asp:Literal></h4>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UPModalUploadComprobante" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<asp:TextBox ID="TxtFileComprobante" ClientIDMode="Static" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server" data-maxFilesize="25" ></asp:TextBox>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="btnUploadFileComprobante" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" OnClick="btnUploadFileComprobante_Click" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div id="ModalDescarga" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<h4 class="modal-title">
<asp:Literal ID="LtlModalTituloDescarga" runat="server">Descarga Layout</asp:Literal></h4>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalDescarga" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12" runat="server" id="DVDescargaPagos" visible=" false" >
<p> Pagos Descarga <asp:LinkButton runat="server" ID="LnkDescarga" OnClick="LnkDescarga_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
<p> Cuentas Bancomer <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas2" visible=" false">
<p> Cuentas Interbancarias <asp:LinkButton runat="server" ID="LnkDescargaCuentas2" OnClick="LnkDescargaCuentas2_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescarga" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
</Triggers>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
@@ -693,5 +854,19 @@
function fncp() { function fncp() {
$get('BtnReportePago').click(); $get('BtnReportePago').click();
} }
function PrefijoFolioEnviados(TxtPrefijo) {
$(`.CSSPrefijo`).each(function () {
$(this).val(TxtPrefijo.value)
});
}
</script> </script>
</asp:Content> </asp:Content>

1388
Bancos/PagoElectronicoGrupos.aspx.vb
View File

File diff suppressed because it is too large Load Diff

2
Bancos/PopUpBuscarIE.aspx.vb
View File

@@ -74,7 +74,7 @@ Partial Class Bancos_PopUpBuscarIE
Dim ObjBancosIE As New ClsBancos Dim ObjBancosIE As New ClsBancos
If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados) DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
Else Else
Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError) Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)

73
Compras/Compras.aspx.vb
View File

@@ -2164,9 +2164,9 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then 'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
End If 'End If
End If End If
@@ -2315,23 +2315,23 @@ Partial Class Compras_Compras
'ASIGNA VALORES ORIGINALES PARA GUARDAR 'ASIGNA VALORES ORIGINALES PARA GUARDAR
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total) AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
If RetencionIVA = 0 And IVAOriginal > 0 Then ' If RetencionIVA = 0 And IVAOriginal > 0 Then
For Each dRow As DataRow In TmpDT.Rows ' For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
'comentado para reubicar el boton ' 'comentado para reubicar el boton
'tdIVA6.Visible = True ' 'tdIVA6.Visible = True
Exit For ' Exit For
End If ' End If
Next ' Next
End If ' End If
End If 'End If
End Sub End Sub
@@ -6045,7 +6045,12 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then 'Codigo anterior
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
'End If
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
End If End If
@@ -8855,11 +8860,14 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then 'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
'End If
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
End If End If
End If End If
End If End If
@@ -15258,6 +15266,9 @@ Partial Class Compras_Compras
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
Vinculacion() Vinculacion()
ElseIf Math.Abs(SubTotalGV - SubTotalCompra) > DiferenciaPermitida And LblAmortizacion.Text.ToDecimal > 0 Then '2020-06-08 Oscar Permitir vincular cuando hay amortizacion de NC
LbSubTotalDif.Visible = False
Vinculacion()
ElseIf Math.Abs(SubTotalGV - (SubTotalCompra - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then ElseIf Math.Abs(SubTotalGV - (SubTotalCompra - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
Vinculacion() Vinculacion()
@@ -17525,23 +17536,23 @@ Partial Class Compras_Compras
GuardaAC() GuardaAC()
End If End If
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
'If UsuarioActual.CveRol = 1 Then ' 'If UsuarioActual.CveRol = 1 Then
' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}") ' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
'End If ' 'End If
If RetencionIVA = 0 And IVAOriginal > 0 Then ' If RetencionIVA = 0 And IVAOriginal > 0 Then
For Each dRow As DataRow In TmpDT.Rows ' For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
'Comnetado para reubicar el boton ' 'Comnetado para reubicar el boton
'tdIVA6.Visible = True ' 'tdIVA6.Visible = True
Exit For ' Exit For
End If ' End If
Next ' Next
End If ' End If
End If 'End If

5
Compras/PopUpBuscarFolioC.aspx.vb
View File

@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
If ValidarUnFiltroSeleccionado() Then If ValidarUnFiltroSeleccionado() Then
Dim ObjCompras As New ClsCompras() Dim ObjCompras As New ClsCompras()
If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs, If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
CveProveedor:=DdlProveedor.SelectedValue.ToEntero) Then CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
If ObjCompras.DtResultados.Rows.Count > 0 Then If ObjCompras.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjCompras.DtResultados GV.DataSource = ObjCompras.DtResultados
@@ -111,7 +111,8 @@ Partial Class Compras_PopUpBuscarFolioC
If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
If TxtDescripcion.Text.Trim.Length > 0 Then Return True If TxtDescripcion.Text.Trim.Length > 0 Then Return True
If TxtObservaciones.Text.Trim.Length > 0 Then Return True If TxtObservaciones.Text.Trim.Length > 0 Then Return True
If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True If DdlTipoDocto.SelectedValue <> "-1" Then Return True
If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
Return False Return False
End Function End Function
End Class End Class

3
Compras/PopUpBuscarProveedor.aspx.vb
View File

@@ -61,7 +61,8 @@ Partial Class Compras_PopUpBuscarProveedor
CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
If ValidarUnFiltroSeleccionado() Then If ValidarUnFiltroSeleccionado() Then
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1,
UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor, TopSelect:=100) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then If ObjProveedor.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjProveedor.DtResultados GV.DataSource = ObjProveedor.DtResultados

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3108,7 +3108,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Sucursal", "Sucursal")) params.Add(New ReportParameter("Sucursal", "Sucursal"))
params.Add(New ReportParameter("Cliente", NombreCliente)) params.Add(New ReportParameter("Cliente", NombreCliente))
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
Case 7 Case 7
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
Dim CiudadSucursal As String = "" Dim CiudadSucursal As String = ""

8
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1759,7 +1759,7 @@ Partial Class RegPoliza
End Sub End Sub
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
Dim dt As New DataTable Dim dt As New DataTable
Dim Conexion As Odbc.OdbcConnection = Nothing 'Dim Conexion As Odbc.OdbcConnection = Nothing
Dim ErrorArchivo = False Dim ErrorArchivo = False
Dim n As Integer = 0 Dim n As Integer = 0
Try Try
@@ -1772,7 +1772,7 @@ Partial Class RegPoliza
'cmd.CommandText = "Select * FROM [Hoja1$]" 'cmd.CommandText = "Select * FROM [Hoja1$]"
'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) 'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
'DataAdapter.Fill(dt) 'DataAdapter.Fill(dt)
dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{0}{1}", Ruta, FileName), True) dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{1}", Ruta, FileName), True)
Case Else Case Else
Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
Exit Sub Exit Sub
@@ -1781,7 +1781,7 @@ Partial Class RegPoliza
ErrorArchivo = True ErrorArchivo = True
OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex) OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
End Try End Try
Conexion.Close() 'Conexion.Close()
If Not ErrorArchivo Then If Not ErrorArchivo Then
If Not dt.Columns(0).ColumnName = "Referencia" Then If Not dt.Columns(0).ColumnName = "Referencia" Then
Alert("El nombre de la primera columna debe ser 'Referencia'.Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Referencia'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -1881,7 +1881,7 @@ Partial Class RegPoliza
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo) CargarArchivo(Directorio, file.FileUrl, Tipo)
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
End If End If

2
Inventarios/AjustesSeccionAlmacen.aspx
View File

@@ -54,7 +54,7 @@
<br /> <br />
<asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,CveSeccionAlmacen,FechaCaducidad,Lote" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None"> <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,SeccionAlmacen,CveSeccionAlmacen,FechaCaducidad,Lote,Codigo,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" /> <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />

80
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -1,6 +1,7 @@
 
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet
Partial Class Inventarios_AjustesSeccionAlmacen Partial Class Inventarios_AjustesSeccionAlmacen
Inherits ClsPaginas Inherits ClsPaginas
@@ -145,21 +146,69 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End Sub End Sub
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx" If GvD.Rows.Count > 0 Then
Dim Archivo As New IO.FileInfo(Directorio) DescargarExcel()
If Archivo.Exists Then Else
Response.Clear() Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx"
Response.ClearHeaders() Dim Archivo As New IO.FileInfo(Directorio)
Response.ClearContent() If Archivo.Exists Then
Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) Response.Clear()
Response.AddHeader("Content-Length", Archivo.Length.ToString()) Response.ClearHeaders()
Response.ContentType = "text/plain" Response.ClearContent()
Response.Flush() Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
Response.TransmitFile(Archivo.FullName) Response.AddHeader("Content-Length", Archivo.Length.ToString())
Response.End() Response.ContentType = "text/plain"
Response.Flush()
Response.TransmitFile(Archivo.FullName)
Response.End()
End If
End If End If
End Sub End Sub
Private Sub DescargarExcel()
Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
Where row.RowType = DataControlRowType.DataRow
Select New With
{
.Cantidad = row.DataKey("Existencia"),
.Codigo = row.DataKey("Codigo"),
.PS = row.DataKey("PS"),
.SeccionAlmacen = row.DataKey("SeccionAlmacen"),
.Serie = row.DataKey("Serie"),
.Lote = row.DataKey("Lote"),
.FechaCaducidad = row.DataKey("FechaCaducidad")
}).QueryToDataTable(True)
If DtExcel.Rows.Count < 1 Then
Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
DtExcel.TableName = "Ajustes"
DtExcel.Columns("Codigo").ColumnName = "Código"
DtExcel.Columns("PS").ColumnName = "Producto/Servicio"
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()
Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
{
.ColumnHeaders = True,
.StartRow = 0,
.StartColumn = 0
})
worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next
FileExcel.Save(Response, "FormatoAjusteSecCad.xlsx", SaveOptions.XlsxDefault)
End Sub
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
@@ -257,7 +306,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero() Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero()
Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim
Dim CveSeccionAlmacen As Integer = dtSecciones.FiltroPrimeroValor("CveSeccion", $"SeccionAlmacen='{SeccionAlmacen}'") Dim CveSeccionAlmacen As Integer = -1
Dim DrSeccion As DataRow = dtSecciones.FiltroPrimero($"SeccionAlmacen='{SeccionAlmacen}'")
If DrSeccion IsNot Nothing Then
CveSeccionAlmacen = DrSeccion("CveSeccion").ToString().ToEntero()
End If
Dim Serie As String = RowExcel("Serie").ToString() Dim Serie As String = RowExcel("Serie").ToString()
Dim Lote As String = RowExcel("Lote").ToString() Dim Lote As String = RowExcel("Lote").ToString()

2
Nomina/Nomina2.aspx
View File

@@ -654,7 +654,7 @@
<div class=""> <div class="">
<asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label> <asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label>
<asp:DropDownList ID="DdlFonTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" Width="100%"> <asp:DropDownList ID="DdlFonTipoAplicacion" runat="server" Class="form-control select2me" Width="100%">
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem> <asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem>
<asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem> <asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem>

2
OC/PopUpBuscarReq.aspx.vb
View File

@@ -253,7 +253,7 @@ Partial Class OC_PopUpBuscarReq
End Sub End Sub
Private Function ValidarFiltrosSeleccionado() As Boolean Private Function ValidarFiltrosSeleccionado() As Boolean
If DdlTipo.SelectedValue.ToEntero > 0 Then Return True If DdlTipo.SelectedValue = "REQ" OrElse DdlTipo.SelectedValue = "OC" Then Return True
If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
If DdlProveedor.SelectedValue.ToEntero > 0 Then Return True If DdlProveedor.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.ToEntero > 0 Then Return True If TxtFolio.Text.ToEntero > 0 Then Return True

3
OC/RepSolicitudesAnticipo.aspx
View File

@@ -37,7 +37,8 @@
<label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label> <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label>
<div class="col-md-2" runat="server"> <div class="col-md-2" runat="server">
<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList> <%--<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>--%>
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
</div> </div>
<label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label> <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label>

22
OC/RepSolicitudesAnticipo.aspx.cs
View File

@@ -70,6 +70,8 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void InicializaDatos() protected void InicializaDatos()
{ {
txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString();
CveProveedor = -1; CveProveedor = -1;
CargaProveedor(); CargaProveedor();
CargaDatos(); CargaDatos();
@@ -77,17 +79,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void CargaProveedor() protected void CargaProveedor()
{ {
DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); DdlProveedores.setEsWebService(true);
DdlProveedor.DataBind(); DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
DdlProveedor.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1")); DdlProveedores.SelectedText = "Seleccione";
DdlProveedor.SelectedValue = "-1"; DdlProveedores.SelectedValue = "-1";
} }
protected void CargaDatos() protected void CargaDatos()
{ {
ClsOC ObjOC = new ClsOC(); ClsOC ObjOC = new ClsOC();
CveProveedor = DdlProveedor.SelectedValue.ToEntero(); CveProveedor = DdlProveedores.SelectedValue.ToEntero();
FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha); FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha);
FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now); FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now);
@@ -140,7 +142,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
String FechaF; String FechaF;
if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; } if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
String Proveedor; String Proveedor;
if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; } if (DdlProveedores.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedores.ddl.SelectedItem.Text}"; } else { Proveedor = ""; }
String Estatus; String Estatus;
if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; } if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; }
@@ -200,13 +202,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
} }
all = ms.ToArray(); all = ms.ToArray();
} }
//ImprimirbytesPDF(all, "RepSolicitudesAnticipo"); ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
ZipFile zip = new ZipFile();
zip.AddEntry("RepSolicitudesAnticipo", all);
zip.Save(Response.OutputStream);
Response.AddHeader("content-Disposition", "attachment; filename=RepSolicitudesAnticipo.zip");
Response.ContentType = "application/zip";
Response.End();
} }
} }

1674
RH/Personal.aspx
View File

File diff suppressed because it is too large Load Diff

180
RH/Personal.aspx.vb
View File

@@ -8,6 +8,8 @@ Imports System.IO
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.Globalization Imports System.Globalization
Imports System.Xml
Imports System.Web.Script.Services
Partial Class RH_Personal Partial Class RH_Personal
Inherits ClsPaginas Inherits ClsPaginas
@@ -615,6 +617,136 @@ Partial Class RH_Personal
#End Region #End Region
Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
Dim resultado As String = ""
Try
Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
request.Timeout = maxTimeMilliseconds
request.Method = Methodo
request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"
If Not String.IsNullOrEmpty(Cookie) Then
request.Headers.Add("Cookie", Cookie)
End If
'Using stream As IO.Stream = request.GetRequestStream()
' Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
' stmw.Write("")
' End Using
'End Using
Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
resultado = sr.ReadToEnd()
sr.Close()
Catch ex As Exception
ex.ToString().GuardaLog()
'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
End Try
Return resultado
End Function
'<ScriptMethod(UseHttpGet:=True, ResponseFormat:=ResponseFormat.Json)>
<System.Web.Services.WebMethod()>
Public Shared Function gettingCURP(ByVal Curp As String, year As Integer) As String
Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Dim rule1 As String() = If(year < 2000, numeric01, abc)
Dim curpresult As String = ""
Dim i As Integer = 0
While Curp.Length = 0 AndAlso i < rule1.Length
Dim z As Integer = 0
While Curp.Length = 0 AndAlso z < numeric01.Length
curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")
Dim trlines As New List(Of String)
Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)
Dim indexttr As Integer = 0
Dim indexttrB As Integer = 0
Dim indexttd As Integer = 0
Dim indextdiv As Integer = 0
Dim indexinittext As Integer = 0
While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
indexttr = respuesta.IndexOf("<tr")
If indexttr >= 0 Then
indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
If indexttrB >= 0 Then
trlines.Add(respuesta.Substring(indexttr, indexttrB))
Else
trlines.Add(respuesta.Substring(indexttr))
End If
respuesta = respuesta.Substring(indexttr + 3)
Else
respuesta = ""
End If
End While
Dim key As String = ""
Dim keyvalue As String = ""
For Each item As String In trlines
key = ""
keyvalue = ""
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttrB + 3)
Else
item = ""
End If
If item.Length > 0 Then
indexttd = item.IndexOf("<td")
indextdiv = item.IndexOf("<div")
If indextdiv >= 0 Then
indexttr = indextdiv
indexttrB = item.IndexOf("</div")
Else
indexttr = indexttd
indexttrB = item.IndexOf("</td")
End If
If indexttr >= 0 Then
indexinittext = item.Substring(indexttr + 3).IndexOf(">")
keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
item = item.Substring(indexttr + 3)
Else
item = ""
End If
End If
If key.Length > 0 Then
keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
End If
Next
Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
If Nombres Is Nothing OrElse Nombres.Length = 0 Then
curpresult = ""
End If
z = z + 1
End While
i = i + 1
End While
Return curpresult
End Function
Const wdPageBreak As Integer = 7 Const wdPageBreak As Integer = 7
Const wdCharacter As Integer = 1 Const wdCharacter As Integer = 1
@@ -624,6 +756,8 @@ Partial Class RH_Personal
If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
pnlSalarioIMSS.Visible = False pnlSalarioIMSS.Visible = False
End If End If
'
ViewState("Orden") = "" ViewState("Orden") = ""
ViewState("Orden1") = "" ViewState("Orden1") = ""
@@ -2151,7 +2285,7 @@ Partial Class RH_Personal
Private Sub CarcaConceptosNomina() Private Sub CarcaConceptosNomina()
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
GVConceptos.DataSource = ObjPersonal.DtResultados GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL")
Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3") Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
If Not IsNothing(frow) Then If Not IsNothing(frow) Then
TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe")) TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
@@ -2163,6 +2297,24 @@ Partial Class RH_Personal
TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion")) TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE") ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
End If End If
frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
TxtFonValor.Text = ""
DdlFonTipoAplicacion.SelectedValueExist("-1")
TxtFonDescripcion.Text = ""
TxtFonNumCredito.Text = ""
TxtFonFechaInicio.Text = ""
ChkFonacot.Checked = False
If Not IsNothing(frow) Then
TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
End If
Else Else
GVConceptos.DataSource = Nothing GVConceptos.DataSource = Nothing
End If End If
@@ -5930,4 +6082,30 @@ Partial Class RH_Personal
gvrow.FCTextBox("TxtPorPago").Text = "87.5" gvrow.FCTextBox("TxtPorPago").Text = "87.5"
End If End If
End Sub End Sub
Protected Sub LnkGuardarFonacot_Click(sender As Object, e As EventArgs)
Dim importe As Double = TxtFonValor.Text.ToDouble()
Dim TipoAplicacion As Integer = DdlFonTipoAplicacion.SelectedValue.ToEntero()
Dim NoPagos As Integer = 0
Dim SaldoIni As Double = 0
Dim descripcion02 As String = TxtFonDescripcion.Text
Dim descripcion01 As String = TxtFonNumCredito.Text
Dim fecha As String = TxtFonFechaInicio.Text.Replace("_", "")
Dim estatus As Integer = If(ChkFonacot.Checked, 1, 0)
If fecha.Length > 8 Then
fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
Else
fecha = ""
End If
Dim continuar As Boolean = True
Using ObjPersonal As ClsRH = New ClsRH()
If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
End Using
If continuar Then
Alert("Se actualizo el calculo de fonacot")
End If
End Sub
End Class End Class

17
RH/PopUpBuscarPersonal.aspx.vb
View File

@@ -396,16 +396,19 @@ Partial Class RH_PopUpBuscarPersonal
If TxtRFC.Text.Trim <> String.Empty Then Return True If TxtRFC.Text.Trim <> String.Empty Then Return True
If TxtHorarioDe.Text.Trim <> String.Empty Then Return True If TxtHorarioDe.Text.Trim <> String.Empty Then Return True
If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True If DdlTipoPeriodo.SelectedValue.ToEntero > 0 Then Return True
If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True If DdlTipoContrato.SelectedValue.ToEntero > 0 Then Return True
If DdlDepartamentos.SelectedValue.ToEntero > 0 Then Return True If DdlDepartamentos.SelectedValue.ToEntero > 0 Then Return True
If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
If DdlGenero.SelectedValue.ToEntero > 0 Then Return True If DdlGenero.SelectedValue.ToEntero > 0 Then Return True
If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True
If DdlClienteAsignado.SelectedValue.ToEntero > 0 Then Return True If DdlClienteAsignado.SelectedValue.ToEntero > 0 Then Return True
If DdlProyecto.SelectedValue.ToEntero > 0 Then Return True
If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
Return False Return False
End Function End Function

29
Sistemas/CatSesiones.aspx
View File

@@ -1,4 +1,5 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatSesiones.aspx.vb" Inherits="Sistemas_CatSesiones" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatSesiones.aspx.vb" Inherits="Sistemas_CatSesiones" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -10,7 +11,7 @@
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem> <asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
<asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem> <asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
@@ -21,7 +22,7 @@
<asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem> <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
<asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem> <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
<asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem> <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
<%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%> <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
<asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem> <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>
<asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem> <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>
<asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem> <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
@@ -40,28 +41,30 @@
<asp:ListItem Text="Conta - Plantillas " Value="GlobalDTContaPlantillasPolizas"></asp:ListItem> <asp:ListItem Text="Conta - Plantillas " Value="GlobalDTContaPlantillasPolizas"></asp:ListItem>
<asp:ListItem Text="Usuarios Activos" Value="UsuariosActivos"></asp:ListItem> <asp:ListItem Text="Usuarios Activos" Value="UsuariosActivos"></asp:ListItem>
<asp:ListItem Text="ProductosServicios" Value="ProductosServicios"></asp:ListItem> <asp:ListItem Text="ProductosServicios" Value="ProductosServicios"></asp:ListItem>
<asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem> <asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem>
<asp:ListItem Text="CONAC" Value="CONAC"></asp:ListItem> <asp:ListItem Text="CONAC" Value="CONAC"></asp:ListItem>
<asp:ListItem Text="Tipo Cambio" Value="TipoCambio"></asp:ListItem> <asp:ListItem Text="Tipo Cambio" Value="TipoCambio"></asp:ListItem>
<asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem> <asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem>
<asp:ListItem Text="Inventarios - PS Equivalencias" Value="GlobalDTProductosServiciosEquivalencias"></asp:ListItem> <asp:ListItem Text="Inventarios - PS Equivalencias" Value="GlobalDTProductosServiciosEquivalencias"></asp:ListItem>
<asp:ListItem Text="RH" Value="RH"></asp:ListItem> <asp:ListItem Text="RH" Value="RH"></asp:ListItem>
<asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem> <asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem>
<asp:ListItem Text="Precios Lista " Value="GlobalDTPrecioListas"></asp:ListItem> <asp:ListItem Text="Precios Lista " Value="GlobalDTPrecioListas"></asp:ListItem>
<asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem> <asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem>
<asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem> <asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem>
<asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem> <asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem>
<asp:ListItem Text="GlobalDTContratos" Value="GlobalDTContratos"></asp:ListItem> <asp:ListItem Text="GlobalDTContratos" Value="GlobalDTContratos"></asp:ListItem>
<asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem> <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
<asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem> <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
<asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem> <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
<asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
</asp:DropDownList>&nbsp;&nbsp; </asp:DropDownList>&nbsp;&nbsp;
<asp:Button ID="BtnCargar" runat="server" Text="Cargar" class="btn btn-primary"/>&nbsp;&nbsp;<asp:Button ID="BtnRefresh" runat="server" Text="Consultar" class="btn btn-primary" />
<asp:Button ID="BtnCargar" runat="server" Text="Cargar" class="btn btn-primary" />&nbsp;&nbsp;<asp:Button ID="BtnRefresh" runat="server" Text="Consultar" class="btn btn-primary" />
<br /> <br />
<br /> <br />
<asp:Label ID="LblTotal" runat="server" Text=""></asp:Label> <asp:Label ID="LblTotal" runat="server" Text=""></asp:Label>
<asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px; text-align:center;" GridLines="None"></asp:GridView> <asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"></asp:GridView>
</asp:Content> </asp:Content>
<asp:Content ID="Content" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content" ContentPlaceHolderID="JS" runat="Server">
</asp:Content> </asp:Content>

22
Sistemas/CatSesiones.aspx.vb
View File

@@ -59,7 +59,7 @@ Partial Class Sistemas_CatSesiones
ElseIf DdlVariable.SelectedItem.Value = "ProductosServicios" Then ElseIf DdlVariable.SelectedItem.Value = "ProductosServicios" Then
CargaProductosServicios() CargaProductosServicios()
ElseIf DdlVariable.SelectedItem.Value = "PSSimplificado" Then ElseIf DdlVariable.SelectedItem.Value = "PSSimplificado" Then
CargaProductosServiciossimplificado() CargaProductosServiciosSimplificado()
ElseIf DdlVariable.SelectedItem.Value = "CONAC" Then ElseIf DdlVariable.SelectedItem.Value = "CONAC" Then
CargaCONAC() CargaCONAC()
@@ -89,8 +89,10 @@ Partial Class Sistemas_CatSesiones
CargaSATMotivoTraslado() CargaSATMotivoTraslado()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
CargaConceptosContables() CargaConceptosContables()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
CargaDTClasificacionPorcentaje() CargaDTClasificacionPorcentaje()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
CargaDTInvPSSeccionesAlmacen()
End If End If
@@ -364,7 +366,7 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaPaises() Private Sub CargaPaises()
Dim Gral As New ClsGenerales Dim Gral As New ClsGenerales
If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
Gral.Dispose() Gral.Dispose()
End Sub End Sub
@@ -554,12 +556,16 @@ Partial Class Sistemas_CatSesiones
LblTotal.Text = dominio LblTotal.Text = dominio
End Sub End Sub
Private Sub CargaDTClasificacionPorcentaje() Private Sub CargaDTClasificacionPorcentaje()
Dim ObjGenerales As New ClsGenerales Dim ObjGenerales As New ClsGenerales
If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
ObjGenerales.Dispose() ObjGenerales.Dispose()
End Sub End Sub
Private Sub CargaDTInvPSSeccionesAlmacen()
GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
End Sub
End Class End Class

2
Ventas/PopUpBuscarClientes.aspx.vb
View File

@@ -73,7 +73,7 @@ Partial Class PopUpBuscarClientes
Dim ObjClientes As New ClsClientes() Dim ObjClientes As New ClsClientes()
If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente) Then DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente, TopSelect:=100) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjClientes.DtResultados GV.DataSource = ObjClientes.DtResultados

3
Ventas/PopUpBuscarFolio.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class PopUpBuscarFolio
Dim ObjVentas As New ClsVentas() Dim ObjVentas As New ClsVentas()
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1), DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1),
DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TopSelect:=100) Then
If ObjVentas.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjVentas.DtResultados GV.DataSource = ObjVentas.DtResultados
@@ -280,6 +280,7 @@ Partial Class PopUpBuscarFolio
End Sub End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean Private Function ValidarUnFiltroSeleccionado() As Boolean
If DdlClasificacion.SelectedValue.ToEntero > 0 Then Return True
If DdlTipoDocto.SelectedValue <> "-1" Then Return True If DdlTipoDocto.SelectedValue <> "-1" Then Return True
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True

4
Ventas/PopUpBuscarPs.aspx.vb
View File

@@ -68,7 +68,7 @@ Partial Class PopUpBuscarPs
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre, If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre,
pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero, pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero) Then CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, TopSelect:=100) Then
GvDatos.DataSource = ObjPS.DtResultados GvDatos.DataSource = ObjPS.DtResultados
dvbusqueda.Visible = True dvbusqueda.Visible = True
Else Else
@@ -103,7 +103,9 @@ Partial Class PopUpBuscarPs
If TxtNombre.Text.Trim <> String.Empty Then Return True If TxtNombre.Text.Trim <> String.Empty Then Return True
If DdlCveTipoPS.SelectedValue.ToEntero > 0 Then Return True If DdlCveTipoPS.SelectedValue.ToEntero > 0 Then Return True
If DdlEstado.SelectedValue.ToEntero > 0 Then Return True
If DdlAplicaVenta.SelectedValue.ToEntero > 0 Then Return True If DdlAplicaVenta.SelectedValue.ToEntero > 0 Then Return True
If Ddlclasificacion.SelectedValue.ToEntero > 0 Then Return True
If DdlCompuesto.SelectedValue.ToEntero > 0 Then Return True If DdlCompuesto.SelectedValue.ToEntero > 0 Then Return True
Return False Return False