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

GlobalDTOCEstatusUsuarios, GlobalDTBancosCuentas, OC anticpos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-07-16 15:23:10 -07:00
parent 2188c6b8ce
commit 7cf2df795a
74 changed files with 855 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AC/RegDevengadoIngresos.aspx.vb
View File

@@ -24,7 +24,7 @@ Partial Class AC_RegDevengadoIngresos
End Sub End Sub
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
'If CveMoneda > 0 Then 'If CveMoneda > 0 Then
' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) ' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))

4
AC/RegNomina.aspx.vb
View File

@@ -296,7 +296,7 @@ Partial Class AC_RegNomina
DdlNominaPersonal.DataBind() DdlNominaPersonal.DataBind()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
DdlCuenta.DataSource = dt DdlCuenta.DataSource = dt
DdlCuenta.DataBind() DdlCuenta.DataBind()
TbIE.Visible = True TbIE.Visible = True
@@ -385,7 +385,7 @@ Partial Class AC_RegNomina
If Seleccion.Contiene("3", "4") Then If Seleccion.Contiene("3", "4") Then
Dim dr As DataRow Dim dr As DataRow
dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
'DdlMoneda.SelectedValue = dr("CveMoneda").ToString 'DdlMoneda.SelectedValue = dr("CveMoneda").ToString
IdCtaBancaria = dr("IdCtaContable").ToString.ToEntero IdCtaBancaria = dr("IdCtaContable").ToString.ToEntero

4
AC/RegRecaudado.aspx.vb
View File

@@ -28,7 +28,7 @@ Partial Class AC_RegRecaudado
End Sub End Sub
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
'If CveMoneda > 0 Then 'If CveMoneda > 0 Then
' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) ' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))
@@ -137,7 +137,7 @@ Partial Class AC_RegRecaudado
Dim IdCtaConCuentaBancaria As Integer = 0 Dim IdCtaConCuentaBancaria As Integer = 0
Dim drcb As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero).FiltroPrimero("") Dim drcb As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
If drcb IsNot Nothing Then If drcb IsNot Nothing Then
IdCtaConCuentaBancaria = drcb("IdCtaContable").ToString.ToEntero IdCtaConCuentaBancaria = drcb("IdCtaContable").ToString.ToEntero
End If End If

3
App_Code/ClsBancos.vb
View File

@@ -1404,7 +1404,7 @@ Public Class ClsBancos
NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "") As Integer Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1) As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
DataAdapter("PA_Banc_IEAdd") DataAdapter("PA_Banc_IEAdd")
@@ -1444,6 +1444,7 @@ Public Class ClsBancos
.Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
.Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
End With End With
Try Try

38
App_Code/ClsOC.vb
View File

@@ -2553,6 +2553,44 @@ Public Class ClsOC
Return Retorno Return Retorno
End Function End Function
Public Function GetOCAnticipo(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OC_OCAnticipo")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los anticipos relacionados", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetOCAnticipoSaldo(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OC_OCAnticipoSaldo")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el saldo de la compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)

44
App_Code/ClsPaginas.vb
View File

@@ -1453,21 +1453,33 @@ Public Class ClsPaginas
' Application("GlobalDTBancosCuentas") = value ' Application("GlobalDTBancosCuentas") = value
' End Set ' End Set
'End Property 'End Property
Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1) As DataTable Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1) Then
Application(AppNombre) = ObjBancos.DtResultados
Else
Application(AppNombre) = Nothing
End If
ObjBancos.Dispose()
End If
Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario)
If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta)
If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))
Dim Dv As New DataView(DirectCast(Application("GlobalDTBancosCuentas"), DataTable), Str, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
GlobalDTBancosCuentas = Dv.ToTable GlobalDTBancosCuentas = Dv.ToTable
Dv.Dispose() Dv.Dispose()
'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable) 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTBancosCuentas") = value Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTipoTransacciones() As DataTable Property GlobalDTTipoTransacciones() As DataTable
@@ -2831,6 +2843,22 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
Application(AppNombre) = ObjOC.DtResultados
Else
Application(AppNombre) = Nothing
End If
ObjOC.Dispose()
End If
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
Dim filtro As New StringBuilder Dim filtro As New StringBuilder
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa) filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
@@ -2840,15 +2868,19 @@ Public Class ClsPaginas
If Tipo <> "" Then If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo) filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
End If End If
Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTOCEstatusUsuarios = DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable) GlobalDTOCEstatusUsuarios = DirectCast(Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOCEstatusUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
Application(AppNombre) = value
End Set End Set
End Property End Property

126
App_Code/Modelos.vb
View File

@@ -3216,13 +3216,13 @@ Namespace Modelos
Dim PorcentajeImpuestoPago As Decimal = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal Dim PorcentajeImpuestoPago As Decimal = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows.Count = 1 Then If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count = 1 Then
IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("IdCtaContable").ToString.ToEntero
' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If End If
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("NumCuentaMoneda").ToString.ToEntero)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
@@ -7165,37 +7165,58 @@ Namespace Modelos
HttpContext.Current.Application("GlobalDTBancos") = value HttpContext.Current.Application("GlobalDTBancos") = value
End Set End Set
End Property End Property
'Property GlobalDTBancosCuentas(CveUsuario As Integer) As DataTable
'Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1) As DataTable
' Get ' Get
' Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) ' Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
' If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario ={1}", Str, CveUsuario) ' If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario)
' If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta)
' If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))
' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTBancosCuentas"), DataTable), Str, "", DataViewRowState.CurrentRows) ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTBancosCuentas"), DataTable), Str, "", DataViewRowState.CurrentRows)
' GlobalDTBancosCuentas = Dv.ToTable ' GlobalDTBancosCuentas = Dv.ToTable
' Dv.Dispose() ' Dv.Dispose()
' 'GlobalDTBancosCuentas = DirectCast(HttpContext.Current.Application("GlobalDTBancosCuentas"), DataTable)
' End Get ' End Get
' Set(value As DataTable) ' Set(value As DataTable)
' HttpContext.Current.Application("GlobalDTBancosCuentas") = value ' HttpContext.Current.Application("GlobalDTBancosCuentas") = value
' End Set ' End Set
'End Property 'End Property
Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1) As DataTable
Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1) Then
HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
Else
HttpContext.Current.Application(AppNombre) = Nothing
End If
ObjBancos.Dispose()
End If
Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario)
If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta)
If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTBancosCuentas"), DataTable), Str, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
GlobalDTBancosCuentas = Dv.ToTable GlobalDTBancosCuentas = Dv.ToTable
Dv.Dispose() Dv.Dispose()
'GlobalDTBancosCuentas = DirectCast(HttpContext.Current.Application("GlobalDTBancosCuentas"), DataTable) 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTBancosCuentas") = value Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTipoTransacciones() As DataTable Property GlobalDTTipoTransacciones() As DataTable
Get Get
If UsuarioActual.CveEmpresa = 66 Then If UsuarioActual.CveEmpresa = 66 Then
@@ -8449,6 +8470,45 @@ Namespace Modelos
#End Region #End Region
#Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************" #Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************"
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
Else
HttpContext.Current.Application(AppNombre) = Nothing
End If
ObjOC.Dispose()
End If
Dim filtro As New StringBuilder
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
If CveUsuario > 0 Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
End If
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
@@ -8463,28 +8523,30 @@ Namespace Modelos
HttpContext.Current.Application("GlobalDTOCEstatus") = value HttpContext.Current.Application("GlobalDTOCEstatus") = value
End Set End Set
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get
If CveEmpresa <> -1 Then 'Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Dim filtro As New StringBuilder ' Get
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa) ' If CveEmpresa <> -1 Then
If CveUsuario > 0 Then ' Dim filtro As New StringBuilder
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario) ' filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
End If ' If CveUsuario > 0 Then
If Tipo <> "" Then ' filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
filtro.AppendFormat(" AND Tipo='{0}'", Tipo) ' End If
End If ' If Tipo <> "" Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows) ' filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
GlobalDTOCEstatusUsuarios = Dv.ToTable ' End If
Dv.Dispose() ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
Else ' GlobalDTOCEstatusUsuarios = Dv.ToTable
GlobalDTOCEstatusUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable) ' Dv.Dispose()
End If ' Else
End Get ' GlobalDTOCEstatusUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable)
Set(value As DataTable) ' End If
HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value ' End Get
End Set ' Set(value As DataTable)
End Property ' HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value
' End Set
'End Property
#End Region #End Region

70
Ashx/SIGFacturacion.ashx
View File

@@ -3279,30 +3279,72 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
HttpContext.Current.Application("GlobalDTOCEstatus") = value HttpContext.Current.Application("GlobalDTOCEstatus") = value
End Set End Set
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get Get
If CveEmpresa <> -1 Then
Dim filtro As New StringBuilder Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa) 'sino existe, recarga los datos
If CveUsuario > 0 Then If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
Else
HttpContext.Current.Application(AppNombre) = Nothing
End If End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo) ObjOC.Dispose()
End If
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTOCEstatusUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable)
End If End If
Dim filtro As New StringBuilder
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
If CveUsuario > 0 Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
End If
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
' Get
' If CveEmpresa <> -1 Then
' Dim filtro As New StringBuilder
' filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
' If CveUsuario > 0 Then
' filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
' End If
' If Tipo <> "" Then
' filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
' End If
' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
' GlobalDTOCEstatusUsuarios = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTOCEstatusUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTOCEstatusUsuarios"), DataTable)
' End If
' End Get
' Set(value As DataTable)
' HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value
' End Set
'End Property
#End Region #End Region
#Region "F I N A N Z A S " #Region "F I N A N Z A S "

4
Bancos/CIF.aspx.vb
View File

@@ -9,7 +9,7 @@ Partial Class Bancos_CIF
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentas.DataBind() DdlCuentas.DataBind()
'DdlCuentas.Items.Insert(0, New ListItem("Seleccione una Cuenta", "-1")) 'DdlCuentas.Items.Insert(0, New ListItem("Seleccione una Cuenta", "-1"))
@@ -29,7 +29,7 @@ Partial Class Bancos_CIF
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
Dim ObjMov As New ClsContabilidad(ObjBancos.IniciaTransacSQL) Dim ObjMov As New ClsContabilidad(ObjBancos.IniciaTransacSQL)
Dim Importe As Double = TxtImporte.Text.ToDouble Dim Importe As Double = TxtImporte.Text.ToDouble
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero() Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
Dim ErrorTransaccion As Boolean = False Dim ErrorTransaccion As Boolean = False
Dim Folio As String = ObjBancos.GetNextFolio(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero).ToString Dim Folio As String = ObjBancos.GetNextFolio(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero).ToString
Dim CvePrePoliza As Integer Dim CvePrePoliza As Integer

4
Bancos/CargarConciliacionesBancarias.aspx.vb
View File

@@ -41,11 +41,11 @@ Partial Class Bancos_CargarConciliacionesBancarias
Private Sub InicializaValores() Private Sub InicializaValores()
'Cargar Cuentas 'Cargar Cuentas
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuentaModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuentaModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentaModal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentaModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuentaModal.DataBind() DdlCuentaModal.DataBind()

8
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -74,7 +74,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Private Sub InicializaValores() Private Sub InicializaValores()
'Cargar Cuentas 'Cargar Cuentas
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuenta.DataBind() DdlCuenta.DataBind()
@@ -627,13 +627,13 @@ Partial Class Bancos_ConciliacionesBancariasaspx
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim CveCuenta As Integer = 0 Dim CveCuenta As Integer = 0
Dim CveCuentaComplementaria As Integer = 0 Dim CveCuentaComplementaria As Integer = 0
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
If CveMoneda > 1 Then If CveMoneda > 1 Then
CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
End If End If
End If End If
End If End If

2
Bancos/Creditos.aspx.vb
View File

@@ -174,7 +174,7 @@ Partial Class Bancos_Creditos
DdlCSTipoMoneda.DataBind() DdlCSTipoMoneda.DataBind()
'Carga CuentasBancarias para CuentaCredito y CuentaDeposito 'Carga CuentasBancarias para CuentaCredito y CuentaDeposito
DtCuentasBancarias = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DtCuentasBancarias = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
CargaCuentasDeposito() CargaCuentasDeposito()
End Sub End Sub

4
Bancos/CreditosPagoMultiple.aspx.vb
View File

@@ -69,7 +69,7 @@ Partial Class Bancos_CreditosPagoMultiple
Private Sub CargaCuentas(tTipoTransaccion As Integer) Private Sub CargaCuentas(tTipoTransaccion As Integer)
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
If CveMoneda > 0 Then If CveMoneda > 0 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))
@@ -137,7 +137,7 @@ Partial Class Bancos_CreditosPagoMultiple
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero

11
Bancos/CuentasBancarias.aspx.vb
View File

@@ -62,17 +62,22 @@ Partial Class Bancos_CuentasBancarias
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
If ObjBancos.RemoveBancosCuentas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then If ObjBancos.RemoveBancosCuentas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTBancosCuentas") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTBancosCuentas") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
If ObjBancos.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjBancos.DtResultados GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
End If
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then
' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjBancos.DtResultados
'End If
Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString()) CargaGrid(ViewState("Orden").ToString())

36
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -204,11 +204,12 @@ Partial Class Bancos_CuentasBancariasDetalle
Next Next
If Not ErrorUsuarios Then If Not ErrorUsuarios Then
If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
Else ' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjCuentasBancariasDetalle.DtResultados
ErrorUsuarios = True 'Else
End If ' ErrorUsuarios = True
'End If
End If End If
End If End If
@@ -221,11 +222,12 @@ Partial Class Bancos_CuentasBancariasDetalle
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, UsaLayoutGrupos:=ChkLayoutGrupos.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 GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
Else ' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjCuentasBancariasDetalle.DtResultados
ErrorUsuarios = True 'Else
End If ' ErrorUsuarios = True
'End If
UpDatos.Update() UpDatos.Update()
Else Else
ErrorUsuarios = True ErrorUsuarios = True
@@ -322,9 +324,10 @@ Partial Class Bancos_CuentasBancariasDetalle
If Obj.AddBancosCuentasUsuarios(CveCuenta, DdlUsuarios.SelectedValue.ToEntero) Then If Obj.AddBancosCuentasUsuarios(CveCuenta, DdlUsuarios.SelectedValue.ToEntero) Then
DTUsuarios = Obj.DtResultados DTUsuarios = Obj.DtResultados
GVU.DataSource = Obj.DtResultados GVU.DataSource = Obj.DtResultados
If Obj.GetBancosCuentasUsuarios(-1) Then GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTBancosCuentas(-1) = Obj.DtResultados 'If Obj.GetBancosCuentasUsuarios(-1) Then
End If ' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Obj.DtResultados
'End If
End If End If
Else Else
If DTUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", DdlUsuarios.SelectedValue.ToString)).Rows.Count > 0 Then If DTUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", DdlUsuarios.SelectedValue.ToString)).Rows.Count > 0 Then
@@ -377,9 +380,10 @@ Partial Class Bancos_CuentasBancariasDetalle
GVU.EditIndex = -1 GVU.EditIndex = -1
DTUsuarios = ObjBancos.DtResultados DTUsuarios = ObjBancos.DtResultados
GVU.DataSource = ObjBancos.DtResultados GVU.DataSource = ObjBancos.DtResultados
If ObjBancos.GetBancosCuentasUsuarios(-1) Then GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTBancosCuentas(-1) = ObjBancos.DtResultados 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then
End If ' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjBancos.DtResultados
'End If
Alert("El usuario se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("El usuario se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
Else Else

9
Bancos/DepositoTerminal.aspx.vb
View File

@@ -137,8 +137,8 @@ Partial Class Bancos_DepositoTerminal
#Region "CARGA COMBOS" #Region "CARGA COMBOS"
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentaTerminal.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentaTerminal.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones().FiltraParametros("CveTipoTransaccion in (11,12)") DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones().FiltraParametros("CveTipoTransaccion in (11,12)")
DdlCuentaDeposito.DataBind() DdlCuentaDeposito.DataBind()
@@ -149,7 +149,7 @@ Partial Class Bancos_DepositoTerminal
End Sub End Sub
Private Sub DdlCuentaSelectIndexChange() Private Sub DdlCuentaSelectIndexChange()
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDeposito.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaDeposito.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
@@ -233,7 +233,8 @@ Partial Class Bancos_DepositoTerminal
Dim CveCuentaBancariaDestino As Integer = 0 Dim CveCuentaBancariaDestino As Integer = 0
Dim IDPoliza As Integer = 0 Dim IDPoliza As Integer = 0
Dim FolioPoliza As String = "" Dim FolioPoliza As String = ""
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa
).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}")
Dim MsgError As String = "" Dim MsgError As String = ""
If drDestino IsNot Nothing Then If drDestino IsNot Nothing Then

8
Bancos/DepositosCaja.aspx.vb
View File

@@ -24,10 +24,10 @@ Partial Class Bancos_DepositosCaja
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentaDeposito.DataBind() DdlCuentaDeposito.DataBind()
DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCajaChica.DataBind() DdlCajaChica.DataBind()
End Sub End Sub
@@ -80,8 +80,8 @@ Partial Class Bancos_DepositosCaja
Dim IdCuentaBancariaDestino As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0 Dim CveCuentaBancariaOrigen As Integer = 0
Dim CveCuentaBancariaDestino As Integer = 0 Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero($"CveCuenta = {DdlCajaChica.SelectedValue}") Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCajaChica.SelectedValue}")
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}")
If drOrigen IsNot Nothing Then If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero CveMoneda = drOrigen("CveMoneda").ToString.ToEntero

6
Bancos/Devoluciones.aspx.cs
View File

@@ -114,7 +114,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
} }
protected void CargaCuentas() protected void CargaCuentas()
{ {
DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1");
DdlCuenta.DataBind(); DdlCuenta.DataBind();
DdlCuenta.Items.Insert(0, new ListItem("Seleccione Cuenta", "-1")); DdlCuenta.Items.Insert(0, new ListItem("Seleccione Cuenta", "-1"));
} }
@@ -158,7 +158,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e)
{ {
int idcuenta; int idcuenta;
Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuenta); Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuenta);
IDCtaContableBancos = idcuenta; IDCtaContableBancos = idcuenta;
long Folio; long Folio;
@@ -332,7 +332,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
int CveConceptoContableDevolucion = 0; int CveConceptoContableDevolucion = 0;
int CvePlantillaPoliza = 0; int CvePlantillaPoliza = 0;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1; int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1;

147
Bancos/IE.aspx.vb
View File

@@ -289,14 +289,38 @@ Partial Class Bancos_IE
ViewState("CveMoneda") = value ViewState("CveMoneda") = value
End Set End Set
End Property End Property
Private Property CveOCSolicitudAnticipo As Integer Private Property CveOCSolicitudAnticipo As Integer
Get Get
Return ViewState("CveOCSolicitudAnticipo").ToString.ToEntero
If ViewState("CveOCSolicitudAnticipo") Is Nothing Then
Return -1
Else
Return ViewState("CveOCSolicitudAnticipo").ToString.ToEntero
End If
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveOCSolicitudAnticipo") = value ViewState("CveOCSolicitudAnticipo") = value
End Set End Set
End Property End Property
Private Property SaldoOCAnticipo As Decimal
Get
If ViewState("SaldoOCAnticipo") Is Nothing Then
Return -1
Else
Return ViewState("SaldoOCAnticipo").ToString.ToDecimal
End If
End Get
Set(value As Decimal)
ViewState("SaldoOCAnticipo") = value
End Set
End Property
Private Property EstaContabilizado As Boolean Private Property EstaContabilizado As Boolean
Get Get
Return CBool(ViewState("EstaContabilizado")) Return CBool(ViewState("EstaContabilizado"))
@@ -1561,7 +1585,7 @@ Partial Class Bancos_IE
Banco.Dispose() Banco.Dispose()
TxtFolio.Text = Folio.ToString TxtFolio.Text = Folio.ToString
Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If drI IsNot Nothing Then If drI IsNot Nothing Then
CargaNotas(drI("CveMoneda").ToString.ToEntero) CargaNotas(drI("CveMoneda").ToString.ToEntero)
@@ -1574,7 +1598,7 @@ Partial Class Bancos_IE
TxtFolio.Text = "" TxtFolio.Text = ""
End If End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -1741,9 +1765,9 @@ Partial Class Bancos_IE
Dim dt As DataTable Dim dt As DataTable
If UsuarioActual.Empresa.Funcionalidad(127) = "1" Then If UsuarioActual.Empresa.Funcionalidad(127) = "1" Then
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
Else Else
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
End If End If
@@ -2443,6 +2467,18 @@ Partial Class Bancos_IE
End If End If
Dep.Dispose() Dep.Dispose()
'If CveOCSolicitudAnticipo > 0 Then
' If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
' EsValido = False
' Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
' End If
'End If
Return EsValido Return EsValido
End Function End Function
@@ -2457,9 +2493,6 @@ Partial Class Bancos_IE
Exit Sub Exit Sub
End If End If
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
Dim ObjComp As New ClsCompras(ObjIE.IniciaTransacSQL) Dim ObjComp As New ClsCompras(ObjIE.IniciaTransacSQL)
@@ -2479,6 +2512,7 @@ Partial Class Bancos_IE
If CveIE = -1 Then If CveIE = -1 Then
Dim CveCuentaDeposito As Integer = 0 Dim CveCuentaDeposito As Integer = 0
If DdlCuentaDeposito.Items.Count > 0 Then If DdlCuentaDeposito.Items.Count > 0 Then
CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
@@ -2654,7 +2688,7 @@ Partial Class Bancos_IE
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte) ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
If CveIE > 0 Then If CveIE > 0 Then
@@ -5405,19 +5439,45 @@ Partial Class Bancos_IE
Private Sub InicializaSolicitudAnticipoOC() Private Sub InicializaSolicitudAnticipoOC()
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "EGSSINFACT" Then If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "EGSSINFACT" Then
If Request("CveOC") IsNot Nothing AndAlso Request("CveOC").ToString.ToEntero > 0 Then If Request("CveOC") IsNot Nothing AndAlso Request("CveOC").ToString.ToEntero > 0 Then
CveOCSolicitudAnticipo = Request("CveOC").ToString.ToEntero CveOCSolicitudAnticipo = Request("CveOC").ToString.ToEntero
TxtImporte.Enabled = False
End If End If
End If End If
If CveOCSolicitudAnticipo > 0 Then If CveOCSolicitudAnticipo > 0 Then
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
Else
SaldoOCAnticipo = 0
End If
If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
Dim DrOC = ObjOC.DtResultados.FiltroPrimero("") Dim DrOC = ObjOC.DtResultados.FiltroPrimero("")
If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) AndAlso DrOC("CveIEAnticipo").ToString = "" Then
If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) Then
TxtObservaciones.Text = DrOC("Descripcion").ToString TxtObservaciones.Text = DrOC("Descripcion").ToString
TxtImporte.Text = DrOC("ImporteAnticipo").ToString.FormatoNumero
TxtImporteLetra.Text = DrOC("ImporteAnticipo").ToString.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero) If DrOC("ImporteAnticipo").ToString.ToDecimal > SaldoOCAnticipo Then
'TxtImporte.Text = SaldoOCAnticipo.ToString().FormatoNumero
'TxtImporteLetra.Text = SaldoOCAnticipo.ToString().FormatoNumero.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)
Alert($"El importe solcitado es superior al saldo de la compra, importe solicitado: {DrOC("ImporteAnticipo").ToString.FormatoNumero} saldo: {SaldoOCAnticipo.ToString().FormatoNumero }", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
Else
TxtImporte.Text = DrOC("ImporteAnticipo").ToString.FormatoNumero
TxtImporteLetra.Text = DrOC("ImporteAnticipo").ToString.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)
End If
DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString
CveMoneda = DrOC("CveMoneda").ToString.ToEntero CveMoneda = DrOC("CveMoneda").ToString.ToEntero
CargaCuenta(DrOC("CveMoneda").ToString.ToEntero) CargaCuenta(DrOC("CveMoneda").ToString.ToEntero)
@@ -5433,19 +5493,72 @@ Partial Class Bancos_IE
End If End If
CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero
Else Else
If DrOC("CveIEAnticipo").ToString <> "" Then 'If DrOC("CveIEAnticipo").ToString <> "" Then
Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ya se le ha generado un anticipo.", TipoMensaje.MsgError) ' Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ya se le ha generado un anticipo.", TipoMensaje.MsgError)
End If 'End If
If DrOC("TipoTermino").ToString = "3" Then ' cuando es tipo rechazado If DrOC("TipoTermino").ToString = "3" Then ' cuando es tipo rechazado
Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ha sido cancelada.", TipoMensaje.MsgError) Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ha sido cancelada.", TipoMensaje.MsgError)
CveOCSolicitudAnticipo = -1
BtnGuardar.Enabled = False
End If End If
CveOCSolicitudAnticipo = -1
BtnGuardar.Enabled = False
End If End If
Else Else
Alert("Ocurrió un error al actualizar el estatus de anticipo de la OC/REQ. Por favor actualice y vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al actualizar el estatus de anticipo de la OC/REQ. Por favor actualice y vuelva a intentar.", TipoMensaje.MsgError)
End If End If
'If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
' Dim DrOC = ObjOC.DtResultados.FiltroPrimero("")
' If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) AndAlso DrOC("CveIEAnticipo").ToString = "" Then
' TxtObservaciones.Text = DrOC("Descripcion").ToString
' If DrOC("ImporteAnticipo").ToString.ToDecimal > SaldoOCAnticipo Then
' 'TxtImporte.Text = SaldoOCAnticipo.ToString().FormatoNumero
' 'TxtImporteLetra.Text = SaldoOCAnticipo.ToString().FormatoNumero.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)
' Alert($"El importe solcitado es superior al saldo de la compra, importe solicitado: {DrOC("ImporteAnticipo").ToString.FormatoNumero} saldo: {SaldoOCAnticipo.ToString().FormatoNumero } se cambio", TipoMensaje.MsgAdvertencia)
' Else
' TxtImporte.Text = DrOC("ImporteAnticipo").ToString.FormatoNumero
' TxtImporteLetra.Text = DrOC("ImporteAnticipo").ToString.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)
' End If
' DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString
' CveMoneda = DrOC("CveMoneda").ToString.ToEntero
' CargaCuenta(DrOC("CveMoneda").ToString.ToEntero)
' UpCuentaDeposito.Update()
' If DrOC("CveProveedor").ToString.ToEntero > 0 Then
' HdnCveProveedor.Value = DrOC("CveProveedor").ToString
' RBL.SelectedValue = "P"
' RBL_SelectedIndexChanged(RBL, Nothing)
' DdlProveedores.SelectedValue = HdnCveProveedor.Value
' DdlProveedores_selectedindexchange(DdlProveedores, Nothing)
' DdlProveedores.SelectedText = RazonSocial
' ' BuscaCargaProveedor()
' End If
' CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero
' Else
' If DrOC("CveIEAnticipo").ToString <> "" Then
' Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ya se le ha generado un anticipo.", TipoMensaje.MsgError)
' End If
' If DrOC("TipoTermino").ToString = "3" Then ' cuando es tipo rechazado
' Alert($"La {DrOC("Tipo")} #{DrOC("Folio")} ha sido cancelada.", TipoMensaje.MsgError)
' End If
' CveOCSolicitudAnticipo = -1
' BtnGuardar.Enabled = False
' End If
'Else
' Alert("Ocurrió un error al actualizar el estatus de anticipo de la OC/REQ. Por favor actualice y vuelva a intentar.", TipoMensaje.MsgError)
'End If
ObjOC.Dispose() ObjOC.Dispose()
End If End If

4
Bancos/IE2.aspx.vb
View File

@@ -617,7 +617,7 @@ Partial Class Bancos_IE
End If End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
DdlMoneda.SelectedValue = dr("CveMoneda").ToString DdlMoneda.SelectedValue = dr("CveMoneda").ToString
IDCtaContable = dr("IdCtaContable").ToString.ToEntero IDCtaContable = dr("IdCtaContable").ToString.ToEntero
@@ -699,7 +699,7 @@ Partial Class Bancos_IE
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
'If CveMoneda > 0 Then 'If CveMoneda > 0 Then
' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) ' dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))

8
Bancos/OtrosIE.aspx.vb
View File

@@ -115,7 +115,7 @@ Partial Class Bancos_OtrosIE
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -144,7 +144,7 @@ Partial Class Bancos_OtrosIE
TxtFolio.Text = "" TxtFolio.Text = ""
End If End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
End If End If
@@ -477,7 +477,7 @@ Partial Class Bancos_OtrosIE
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue) Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
If DR IsNot Nothing Then If DR IsNot Nothing Then
TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("IdCtaContable").ToString).ToString TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("IdCtaContable").ToString).ToString
UPPDocumento.Update() UPPDocumento.Update()
@@ -490,7 +490,7 @@ Partial Class Bancos_OtrosIE
Dim Retorno As Integer = 0 Dim Retorno As Integer = 0
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If CveCuenta > 0 Then If CveCuenta > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & CveCuenta) Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
If drr IsNot Nothing Then If drr IsNot Nothing Then
Retorno = drr("IdCtaContable").ToString.ToEntero Retorno = drr("IdCtaContable").ToString.ToEntero
End If End If

2
Bancos/OtrosIngresos.aspx.vb
View File

@@ -23,7 +23,7 @@ Partial Class Bancos_OtrosIngresos
Private Sub CargaCuentas() Private Sub CargaCuentas()
'DdlCuenta.Items.Clear() 'DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(1) DdlCuenta.DataSource = GlobalDTBancosCuentas(1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

12
Bancos/PagoAcreedor.aspx.cs
View File

@@ -159,8 +159,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
protected void CargaCuentas() protected void CargaCuentas()
{ {
DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas
DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1");
DdlCuenta.DataBind(); DdlCuenta.DataBind();
DdlCuentaPrestamo.DataBind(); DdlCuentaPrestamo.DataBind();
@@ -184,7 +184,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
#region "PAGO ACREEDORES" #region "PAGO ACREEDORES"
protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e)
{ {
DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)); DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue));
CveMonedaCuentaPago = 0; CveMonedaCuentaPago = 0;
if (dr != null) if (dr != null)
{ {
@@ -278,7 +278,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
int CveConceptoContablePrestamoComplementario = 202; int CveConceptoContablePrestamoComplementario = 202;
int CvePlantillaPoliza = 21; int CvePlantillaPoliza = 21;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
StringBuilder Msg = new StringBuilder(); StringBuilder Msg = new StringBuilder();
@@ -617,7 +617,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
#region "PRESTAMO ACREEDORES" #region "PRESTAMO ACREEDORES"
protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e)
{ {
DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)); DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue));
int tCveMoneda = 0; int tCveMoneda = 0;
if (dr != null) if (dr != null)
{ {
@@ -687,7 +687,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
int CveConceptoContablePrestamoComplementario = 202; int CveConceptoContablePrestamoComplementario = 202;
int CvePlantillaPoliza = 45; int CvePlantillaPoliza = 45;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
StringBuilder Msg = new StringBuilder(); StringBuilder Msg = new StringBuilder();

18
Bancos/PagoDeudor.aspx.cs
View File

@@ -213,8 +213,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
DdlCuenta.Items.Clear(); DdlCuenta.Items.Clear();
DdlCuentaPrestamo.Items.Clear(); DdlCuentaPrestamo.Items.Clear();
DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas
DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1");
DdlCuenta.DataBind(); DdlCuenta.DataBind();
DdlCuentaPrestamo.DataBind(); DdlCuentaPrestamo.DataBind();
@@ -264,8 +264,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e)
{ {
int idcuenta, idcuentaComp; int idcuenta, idcuentaComp;
Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)), out idcuenta); Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)), out idcuenta);
Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("IdCtaContableComplementaria", String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)), out idcuentaComp); Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableComplementaria", String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)), out idcuentaComp);
IDCtaContableBancosPrestamo = idcuenta; IDCtaContableBancosPrestamo = idcuenta;
IDCtaContableBancosComplementariaPrestamo = idcuentaComp; IDCtaContableBancosComplementariaPrestamo = idcuentaComp;
@@ -276,7 +276,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
TxtFolioPrestamo.Text = Folio.ToString(); TxtFolioPrestamo.Text = Folio.ToString();
CveMonedaPrestamo = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero(); CveMonedaPrestamo = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero();
if (CveMonedaPrestamo == 2) if (CveMonedaPrestamo == 2)
{ {
@@ -551,8 +551,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e)
{ {
int idcuenta, idcuentacomplementaria; int idcuenta, idcuentacomplementaria;
Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuenta); Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuenta);
Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("IdCtaContableComplementaria", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuentacomplementaria); Int32.TryParse(get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableComplementaria", String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)), out idcuentacomplementaria);
IDCtaContableBancos = idcuenta; IDCtaContableBancos = idcuenta;
IDCtaContableBancosComplementario = idcuentacomplementaria; IDCtaContableBancosComplementario = idcuentacomplementaria;
@@ -562,7 +562,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
bancos.Dispose(); bancos.Dispose();
TxtFolio.Text = Folio.ToString(); TxtFolio.Text = Folio.ToString();
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
HdnMonPago.Value = CveMoneda.ToString(); HdnMonPago.Value = CveMoneda.ToString();
if (CveMoneda == 2) if (CveMoneda == 2)
{ {
@@ -653,7 +653,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
int CveConceptoContablePagoComplementaria = 256; int CveConceptoContablePagoComplementaria = 256;
int CvePlantillaPoliza = 39; int CvePlantillaPoliza = 39;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
decimal tipoCambio = (TxtTCDolaresPago.Visible == true) ? TxtTCDolaresPago.Text.ToDecimal() : 1; decimal tipoCambio = (TxtTCDolaresPago.Visible == true) ? TxtTCDolaresPago.Text.ToDecimal() : 1;

4
Bancos/PagoElectronico.aspx.vb
View File

@@ -190,11 +190,11 @@ Partial Class Bancos_PagoElectronico
#Region " C A R G A - D A T O S " #Region " C A R G A - D A T O S "
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayout = 1") DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("UsaLayout = 1")
DdlCuenta.DataBind() DdlCuenta.DataBind()
UpFiltros.Update() UpFiltros.Update()
DdlCuentaReportes.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayout = 1") DdlCuentaReportes.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("UsaLayout = 1")
DdlCuentaReportes.DataBind() DdlCuentaReportes.DataBind()
UpFiltrosReporte.Update() UpFiltrosReporte.Update()
End Sub End Sub

6
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -327,16 +327,16 @@ Partial Class Bancos_PagoElectronicoGrupos
#Region " C A R G A - D A T O S " #Region " C A R G A - D A T O S "
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayoutGrupos = 1") DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("UsaLayoutGrupos = 1")
DdlCuenta.DataBind() DdlCuenta.DataBind()
UpFiltros.Update() UpFiltros.Update()
DdlCuentaReportes.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayoutGrupos = 1") DdlCuentaReportes.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("UsaLayoutGrupos = 1")
DdlCuentaReportes.DataBind() DdlCuentaReportes.DataBind()
UpFiltrosReporte.Update() UpFiltrosReporte.Update()
DdlCuentaEnviados.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayoutGrupos = 1") DdlCuentaEnviados.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("UsaLayoutGrupos = 1")
DdlCuentaEnviados.DataBind() DdlCuentaEnviados.DataBind()
UpFiltroEnviados.Update() UpFiltroEnviados.Update()

10
Bancos/PolizaCheque.aspx.vb
View File

@@ -213,7 +213,7 @@ Partial Class Bancos_PolizaCheque
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -296,7 +296,7 @@ Partial Class Bancos_PolizaCheque
'TxtFolio.Text = "" 'TxtFolio.Text = ""
'End If 'End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
End If End If
@@ -868,7 +868,7 @@ Partial Class Bancos_PolizaCheque
Dim ConceptoPoliza As String = TxtObservaciones.Text Dim ConceptoPoliza As String = TxtObservaciones.Text
If ConceptoPoliza = "" Then ConceptoPoliza = TxtPagueseA.Text If ConceptoPoliza = "" Then ConceptoPoliza = TxtPagueseA.Text
Dim CveMoneda As Integer = 1 Dim CveMoneda As Integer = 1
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
End If End If
@@ -1190,7 +1190,7 @@ Partial Class Bancos_PolizaCheque
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue) Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
If drr IsNot Nothing Then If drr IsNot Nothing Then
TxtImporte.Text = DtMovimientos.SUM("Abono", "IdCuenta =" & drr("IdCtaContable").ToString).ToString TxtImporte.Text = DtMovimientos.SUM("Abono", "IdCuenta =" & drr("IdCtaContable").ToString).ToString
UPPDocumento.Update() UPPDocumento.Update()
@@ -1206,7 +1206,7 @@ Partial Class Bancos_PolizaCheque
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If CveCuenta > 0 Then If CveCuenta > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & CveCuenta) Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
If drr IsNot Nothing Then If drr IsNot Nothing Then
Retorno = drr("IdCtaContable").ToString.ToEntero Retorno = drr("IdCtaContable").ToString.ToEntero
End If End If

6
Bancos/PopIECompras.aspx.vb
View File

@@ -759,7 +759,7 @@ Partial Class Bancos_PopIECompras
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
'dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) 'dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))
@@ -1076,7 +1076,7 @@ Partial Class Bancos_PopIECompras
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim Folio As Long Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim TCveMoneda = -1 Dim TCveMoneda = -1
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -1453,7 +1453,7 @@ Partial Class Bancos_PopIECompras
Select Case RBLContado.SelectedValue Select Case RBLContado.SelectedValue
Case "1" ' Banco Case "1" ' Banco
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
CveMoneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
End If End If
Case "2", "3", "4", "5", "6" 'FyE, Ingresos, Deudores, Acreedores Case "2", "3", "4", "5", "6" 'FyE, Ingresos, Deudores, Acreedores
If ChkPagarDolares.Checked Then If ChkPagarDolares.Checked Then

6
Bancos/PopIEVentas.aspx.vb
View File

@@ -853,7 +853,7 @@ Partial Class Bancos_PopIEVentas
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
'dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)) 'dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))
@@ -1039,7 +1039,7 @@ Partial Class Bancos_PopIEVentas
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim Folio As Long Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim TCveMoneda = -1 Dim TCveMoneda = -1
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -1452,7 +1452,7 @@ Partial Class Bancos_PopIEVentas
Select Case RBLContado.SelectedValue Select Case RBLContado.SelectedValue
Case "1" ' Banco Case "1" ' Banco
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
CveMoneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
End If End If
Case "2", "3", "4", "5" 'FyE, Ingresos, Deudores Case "2", "3", "4", "5" 'FyE, Ingresos, Deudores
If ChkPagarDolares.Checked Then If ChkPagarDolares.Checked Then

2
Bancos/PopUpBuscarIE.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Bancos_PopUpBuscarIE
End Sub End Sub
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveBanco = '" & DdlBanco.SelectedValue.ToEntero & "'") DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveBanco = '" & DdlBanco.SelectedValue.ToEntero & "'")
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub

12
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -124,8 +124,8 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
protected void CargaCuentas() protected void CargaCuentas()
{ {
DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1"); //quito las cajas chicas
DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1"); DdlCuentaPrestamo.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1");
DdlCuenta.DataBind(); DdlCuenta.DataBind();
DdlCuentaPrestamo.DataBind(); DdlCuentaPrestamo.DataBind();
@@ -156,7 +156,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
#region "PAGO ACREEDORES" #region "PAGO ACREEDORES"
protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuenta_SelectedIndexChanged(object sender, EventArgs e)
{ {
DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)); DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue));
int tCveMoneda = 0; int tCveMoneda = 0;
if (dr != null) if (dr != null)
{ {
@@ -229,7 +229,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
int CveConceptoContablePrestamoComplementario = 202; int CveConceptoContablePrestamoComplementario = 202;
int CvePlantillaPoliza = 21; int CvePlantillaPoliza = 21;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
StringBuilder Msg = new StringBuilder(); StringBuilder Msg = new StringBuilder();
@@ -456,7 +456,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
#region "PRESTAMO ACREEDORES" #region "PRESTAMO ACREEDORES"
protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e) protected void DdlCuentaPrestamo_SelectedIndexChanged(object sender, EventArgs e)
{ {
DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue)); DataRow dr = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaPrestamo.SelectedValue));
int tCveMoneda = 0; int tCveMoneda = 0;
if (dr != null) if (dr != null)
{ {
@@ -520,7 +520,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
int CveConceptoContablePrestamoComplementario = 202; int CveConceptoContablePrestamoComplementario = 202;
int CvePlantillaPoliza = 8; int CvePlantillaPoliza = 8;
int CvePrePoliza = 0; int CvePrePoliza = 0;
int CveMoneda = get_GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero(); int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero();
int FolioFijo = 0; int FolioFijo = 0;
int IDPoliza = 0; int IDPoliza = 0;
StringBuilder Msg = new StringBuilder(); StringBuilder Msg = new StringBuilder();

8
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class Bancos_ProductosFinancieros
CargaTipoTrasaccion() CargaTipoTrasaccion()
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentas.DataBind() DdlCuentas.DataBind()
DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -254,7 +254,7 @@ Partial Class Bancos_ProductosFinancieros
End Sub End Sub
Protected Sub DdlCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlCuentas_SelectedIndexChanged(sender As Object, e As EventArgs)
ObtieneFolio() ObtieneFolio()
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentas.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentas.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then
CargaTarjetas() CargaTarjetas()
@@ -295,7 +295,7 @@ Partial Class Bancos_ProductosFinancieros
'Variables de controles 'Variables de controles
Dim Importe As Double = TxtImporte.Text.ToDouble Dim Importe As Double = TxtImporte.Text.ToDouble
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero() Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
Dim Fecha = TxtFecha.Text.ToDate Dim Fecha = TxtFecha.Text.ToDate
'Variables de error 'Variables de error
@@ -313,7 +313,7 @@ Partial Class Bancos_ProductosFinancieros
End If End If
'OBTIENE LA CUENTA CONTABLE DEL BANCO 'OBTIENE LA CUENTA CONTABLE DEL BANCO
Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"}) Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
Dim CtaCuenta = -1 Dim CtaCuenta = -1
If DtCuentas.Rows.Count = 1 Then If DtCuentas.Rows.Count = 1 Then

12
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -830,7 +830,7 @@ Partial Class Bancos_ProveedoresAbonar
'Saca moneda en que se va a pagar segun metodo de pago 'Saca moneda en que se va a pagar segun metodo de pago
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
CveMoneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
End If End If
If TxtImporte.Text.ToDouble > 0 Then If TxtImporte.Text.ToDouble > 0 Then
@@ -853,7 +853,7 @@ Partial Class Bancos_ProveedoresAbonar
'cheque 'cheque
If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
If CveMoneda = 2 Then If CveMoneda = 2 Then
If TxtTCDolares.Visible Then If TxtTCDolares.Visible Then
@@ -867,7 +867,7 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
End If End If
Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), ConceptoCIE:=TxtConceptoCIE.Text) Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), ConceptoCIE:=TxtConceptoCIE.Text)
If CveIE > 0 Then If CveIE > 0 Then
@@ -2454,7 +2454,7 @@ Partial Class Bancos_ProveedoresAbonar
#Region " CUENTAS MOVTO " #Region " CUENTAS MOVTO "
Private Sub CargaCuentas(tTipoTransaccion As Integer) Private Sub CargaCuentas(tTipoTransaccion As Integer)
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
If ChkPagarPesos.Checked Then If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
@@ -2488,7 +2488,7 @@ Partial Class Bancos_ProveedoresAbonar
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
If ChkPagarPesos.Checked Then If ChkPagarPesos.Checked Then
CveMoneda = 2 CveMoneda = 2
@@ -2518,7 +2518,7 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
Dim IdCuentaBancaria As Integer Dim IdCuentaBancaria As Integer
Dim dr2 As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr2 As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr2 IsNot Nothing Then If dr2 IsNot Nothing Then
IdCuentaBancaria = dr2("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr2("IdCtaContable").ToString.ToEntero
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then

6
Bancos/ProveedoresCreditos.aspx.vb
View File

@@ -778,9 +778,9 @@ Partial Class Bancos_ProveedoresCreditos
Dim dt As DataTable Dim dt As DataTable
If UsuarioActual.Empresa.Funcionalidad(127) = "1" Then If UsuarioActual.Empresa.Funcionalidad(127) = "1" Then
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
Else Else
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
End If End If
@@ -1306,7 +1306,7 @@ Partial Class Bancos_ProveedoresCreditos
If MsgError = "" Then If MsgError = "" Then
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim IdCuentaBancaria As Integer = 0 Dim IdCuentaBancaria As Integer = 0
If dr IsNot Nothing Then If dr IsNot Nothing Then

12
Bancos/Reembolsos.aspx.vb
View File

@@ -77,7 +77,7 @@ Partial Class Bancos_Reembolsos
ViewState("CveMoneda") = 1 ViewState("CveMoneda") = 1
'Cargar Filtros 'Cargar Filtros
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1 dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
DdlCajaChica.DataBind() DdlCajaChica.DataBind()
@@ -159,7 +159,7 @@ Partial Class Bancos_Reembolsos
Protected Sub DdlCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCajaChica.SelectedIndexChanged Protected Sub DdlCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCajaChica.SelectedIndexChanged
ViewState("CveCajaChica") = DdlCajaChica.SelectedValue ViewState("CveCajaChica") = DdlCajaChica.SelectedValue
Dim dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveCuenta = {0}", CveCajaChica)) Dim dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0}", CveCajaChica))
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
IdCuentaBeneficiario = dt.Rows(0)("IdCtaContable").ToString.ToEntero IdCuentaBeneficiario = dt.Rows(0)("IdCtaContable").ToString.ToEntero
@@ -245,7 +245,7 @@ Partial Class Bancos_Reembolsos
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.SelectedIndex = -1 DdlCuenta.SelectedIndex = -1
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveMoneda = {0} ", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0} ", 1))
DdlCuenta.DataSource = dt DdlCuenta.DataSource = dt
@@ -258,7 +258,7 @@ Partial Class Bancos_Reembolsos
#Region " SELECTED INDEX CHANGED " #Region " SELECTED INDEX CHANGED "
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -389,7 +389,7 @@ Partial Class Bancos_Reembolsos
CvePrePolizaVieja = ObjMov.AddPrePolizas("Banc", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, FechaPrePoliza, "Comprobación: " & TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePolizaVieja = ObjMov.AddPrePolizas("Banc", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, FechaPrePoliza, "Comprobación: " & TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
CveIE = DDlCheques.SelectedValue.ToEntero CveIE = DDlCheques.SelectedValue.ToEntero
CveIERegistrado = CveIE CveIERegistrado = CveIE
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -770,7 +770,7 @@ Partial Class Bancos_Reembolsos
If DDlCheques.SelectedValue.ToEntero > 0 Then If DDlCheques.SelectedValue.ToEntero > 0 Then
CveIE = DDlCheques.SelectedValue.ToEntero CveIE = DDlCheques.SelectedValue.ToEntero
CveIERegistrado = DDlCheques.SelectedValue.ToEntero CveIERegistrado = DDlCheques.SelectedValue.ToEntero
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero
If dr IsNot Nothing Then If dr IsNot Nothing Then

4
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -60,7 +60,7 @@ Partial Class Bancos_PagosIntermediarios
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentaDeposito.DataBind() DdlCuentaDeposito.DataBind()
DdlCuentaDeposito_SelectedIndexChanged(Nothing, Nothing) DdlCuentaDeposito_SelectedIndexChanged(Nothing, Nothing)
End Sub End Sub
@@ -84,7 +84,7 @@ Partial Class Bancos_PagosIntermediarios
End Sub End Sub
Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDeposito.SelectedIndexChanged Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDeposito.SelectedIndexChanged
Dim dr As DataRow = GlobalDTBancosCuentas(-1).FiltroPrimero("CveCuenta = " & DdlCuentaDeposito.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaDeposito.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero

2
Bancos/RepCobrado.aspx.vb
View File

@@ -108,7 +108,7 @@ Partial Class Ventas_RepRecuperacion
Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlCuentaBancaria.Items.Clear() DdlCuentaBancaria.Items.Clear()
If DdlBanco.SelectedValue.ToEntero > 0 Then If DdlBanco.SelectedValue.ToEntero > 0 Then
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}") DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
End If End If
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuentaBancaria.DataBind() DdlCuentaBancaria.DataBind()

2
Bancos/RepCobradoDetalle.aspx.vb
View File

@@ -165,7 +165,7 @@ Partial Class Ventas_RepRecuperacionDetalle
Public Sub CargaCuentas() Public Sub CargaCuentas()
DdlCuentaBancaria.Items.Clear() DdlCuentaBancaria.Items.Clear()
If DdlBanco.SelectedValue.ToEntero > 0 Then If DdlBanco.SelectedValue.ToEntero > 0 Then
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}") DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
End If End If
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuentaBancaria.DataBind() DdlCuentaBancaria.DataBind()

2
Bancos/RepComprobaciones.aspx.cs
View File

@@ -61,7 +61,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
} }
protected void CargaCuentas() protected void CargaCuentas()
{ {
DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("Banco = 'Empresa'"); DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
DdlCuentas.DataBind(); DdlCuentas.DataBind();
DdlCuentas.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlCuentas.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCuentas.SelectedValue = "-1"; DdlCuentas.SelectedValue = "-1";

2
Bancos/RepCreditos.aspx.vb
View File

@@ -472,7 +472,7 @@ Partial Class Bancos_RepCreditos
''obtengo la cuenta de pago, de crediproveedores ''obtengo la cuenta de pago, de crediproveedores
Dim CveCuenta As Integer Dim CveCuenta As Integer
Dim drBC As DataRow = GlobalDTBancosCuentas(-1).FiltroPrimero("CveTipoCuenta = 7") 'obtiene la primer cuenta de crediproveedores Dim drBC As DataRow = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7") 'obtiene la primer cuenta de crediproveedores
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, drE("Referencia").ToString.Trim, "-1", CveCuenta, CveCompra, -1, 1, drE("FechaInicio").ToString.ToDate, drE("FechaVencimiento").ToString.ToDate, drE("Tasa").ToString.ToDouble, drE("SobreTasa").ToString.ToDouble, 0.16, drE("Plazo").ToString.ToEntero, Dim CveCredito As Integer = ObjCredito.AddCreditos(1, drE("Referencia").ToString.Trim, "-1", CveCuenta, CveCompra, -1, 1, drE("FechaInicio").ToString.ToDate, drE("FechaVencimiento").ToString.ToDate, drE("Tasa").ToString.ToDouble, drE("SobreTasa").ToString.ToDouble, 0.16, drE("Plazo").ToString.ToEntero,

6
Bancos/RepIE.aspx.vb
View File

@@ -281,7 +281,7 @@ Partial Class Bancos_RepIE
CLABE = "" CLABE = ""
Banco = "" Banco = ""
Dim dr As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero).FiltroPrimero("") Dim dr As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -377,7 +377,7 @@ Partial Class Bancos_RepIE
#Region "CARGA COMBOS FILTRO" #Region "CARGA COMBOS FILTRO"
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
@@ -514,7 +514,7 @@ Partial Class Bancos_RepIE
Private Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Private Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing AndAlso dr("UsaTarjeta").ToString = "True" Then If dr IsNot Nothing AndAlso dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas() CargaGridTarjetas()

6
Bancos/RepProgramaciones.aspx.vb
View File

@@ -41,7 +41,7 @@ Partial Class Bancos_RepProgramaciones
End If End If
'inserto el movimiento en creditos 'inserto el movimiento en creditos
Dim CveCuenta As Integer Dim CveCuenta As Integer
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveTipoCuenta = 7") Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0, -1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0, -1, Gvr.DataKey("Total").ToDouble, 0, 0, -1, Gvr.DataKey("CveProveedor").ToEntero, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -96,7 +96,7 @@ Partial Class Bancos_RepProgramaciones
'inserto el movimiento en creditos 'inserto el movimiento en creditos
Dim CveCuenta As Integer Dim CveCuenta As Integer
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveTipoCuenta = 7") Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0, Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0,
@@ -149,7 +149,7 @@ Partial Class Bancos_RepProgramaciones
End If End If
'inserto el movimiento en creditos 'inserto el movimiento en creditos
Dim CveCuenta As Integer Dim CveCuenta As Integer
Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveTipoCuenta = 7") Dim drBC As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7")
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0, Dim CveCredito As Integer = ObjCredito.AddCreditos(1, Gvr.DataKey("Folio"), "", CveCuenta, Gvr.DataKey("CveCompra").ToEntero, -1, 1, Now, Now, 0, 0, 0.16, 0,

2
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -145,7 +145,7 @@ Partial Class Bancos_RepProgramarRecursos
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1)) DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyecto.DataBind() DdlProyecto.DataBind()
DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DtTipoTransaccion = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") DtTipoTransaccion = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), "-1").ToString.ToEntero Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), "-1").ToString.ToEntero

2
Bancos/RepSaldos.aspx.vb
View File

@@ -41,7 +41,7 @@ Partial Class Bancos_RepSaldos
'End Sub 'End Sub
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub

2
Bancos/RepSaldosPeriodo.aspx.cs
View File

@@ -38,7 +38,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
} }
} }
private void InicializaValores() private void InicializaValores()
{ {
TipoCambio = 1; TipoCambio = 1;
TCEspecifico = -1; TCEspecifico = -1;

2
Bancos/SaldarCajaChica.aspx.cs
View File

@@ -22,7 +22,7 @@ public partial class Bancos_SaldarCajaChica : ClsPaginas
private void CargaCajaChica() private void CargaCajaChica()
{ {
DdlCajaChica.Items.Clear(); DdlCajaChica.Items.Clear();
DdlCajaChica.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1")); DdlCajaChica.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta = 1"));
DdlCajaChica.DataBind(); DdlCajaChica.DataBind();
} }

18
Bancos/Transferencias.aspx.vb
View File

@@ -51,7 +51,7 @@ Partial Class Bancos_Transferencias
Opcion = -1 Opcion = -1
End If End If
DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
If Opcion = 1 Then If Opcion = 1 Then
LtlTitulo.Text = "Domicializaci<EFBFBD>n de tarjeta" LtlTitulo.Text = "Domicializaci<EFBFBD>n de tarjeta"
@@ -92,8 +92,8 @@ Partial Class Bancos_Transferencias
Private Sub VerificaMonedas() Private Sub VerificaMonedas()
'si es la destino verifico si la moneda es la misma, sino pregunto por la paridad cambiaria 'si es la destino verifico si la moneda es la misma, sino pregunto por la paridad cambiaria
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaOrigen.SelectedValue.ToEntero)) Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaOrigen.SelectedValue.ToEntero))
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaDestino.SelectedValue.ToEntero)) Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentaDestino.SelectedValue.ToEntero))
'Dim tCveMonedaOrigen, tCveMonedaDestino As Integer 'Dim tCveMonedaOrigen, tCveMonedaDestino As Integer
If drOrigen IsNot Nothing AndAlso drDestino IsNot Nothing Then If drOrigen IsNot Nothing AndAlso drDestino IsNot Nothing Then
tCveMonedaOrigen = drOrigen("CveMoneda").ToString.ToEntero tCveMonedaOrigen = drOrigen("CveMoneda").ToString.ToEntero
@@ -157,7 +157,7 @@ Partial Class Bancos_Transferencias
CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero) CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
End If End If
If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
CargaGridTarjetas() CargaGridTarjetas()
Else Else
GvTC.Visible = False GvTC.Visible = False
@@ -241,11 +241,11 @@ Partial Class Bancos_Transferencias
Next Next
dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaDestino.SelectedValue)) dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaDestino.SelectedValue))
If dr IsNot Nothing Then CveMonedaDestino = dr("CveMoneda").ToString.ToEntero If dr IsNot Nothing Then CveMonedaDestino = dr("CveMoneda").ToString.ToEntero
If Opcion = -1 Then If Opcion = -1 Then
dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaOrigen.SelectedValue)) dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaOrigen.SelectedValue))
If dr IsNot Nothing Then CveMonedaOrigen = dr("CveMoneda").ToString.ToEntero If dr IsNot Nothing Then CveMonedaOrigen = dr("CveMoneda").ToString.ToEntero
Else Else
CveMonedaOrigen = CveMonedaDestino CveMonedaOrigen = CveMonedaDestino
@@ -462,8 +462,8 @@ Partial Class Bancos_Transferencias
Private Sub EnviaCorreo(Comprobante As String) Private Sub EnviaCorreo(Comprobante As String)
Dim dtcorreo As DataTable = GlobalDTBancosCuentas(-1, DdlCuentaOrigen.SelectedValue.ToEntero) Dim dtcorreo As DataTable = GlobalDTBancosCuentas(-1, DdlCuentaOrigen.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
dtcorreo.Merge(GlobalDTBancosCuentas(-1, DdlCuentaDestino.SelectedValue.ToEntero)) dtcorreo.Merge(GlobalDTBancosCuentas(-1, DdlCuentaDestino.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa))
' Dim CorreosCCP As New List(Of String) ' Dim CorreosCCP As New List(Of String)
Dim StrCorreos As New StringBuilder Dim StrCorreos As New StringBuilder
@@ -593,7 +593,7 @@ Partial Class Bancos_Transferencias
Private Sub chkMovimientoTarjeta_CheckedChanged(sender As Object, e As EventArgs) Handles chkMovimientoTarjeta.CheckedChanged Private Sub chkMovimientoTarjeta_CheckedChanged(sender As Object, e As EventArgs) Handles chkMovimientoTarjeta.CheckedChanged
If chkMovimientoTarjeta.Checked Then If chkMovimientoTarjeta.Checked Then
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
CargaGridTarjetas() CargaGridTarjetas()
End If End If
Else Else

18
Compras/Compras.aspx.vb
View File

@@ -1446,7 +1446,7 @@ Partial Class Compras_Compras
End If End If
'Condiciones de la Compra 'Condiciones de la Compra
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
@@ -2504,7 +2504,7 @@ Partial Class Compras_Compras
TrRembolsoPersonal.Visible = True TrRembolsoPersonal.Visible = True
End If End If
Dim DtCajaChica As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim DtCajaChica As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DtCajaChica = DtCajaChica.FiltraParametros(String.Format("CveTipoCuenta = 1")) DtCajaChica = DtCajaChica.FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlRembolsoCajaChica.DataSource = DtCajaChica DdlRembolsoCajaChica.DataSource = DtCajaChica
DdlRembolsoCajaChica.Items.Insert(0, New ListItem("Sin Seleccionar", "-1")) DdlRembolsoCajaChica.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
@@ -4360,7 +4360,7 @@ Partial Class Compras_Compras
If RBLContado.SelectedValue = "1" Then If RBLContado.SelectedValue = "1" Then
ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0) Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
CveMonedaPago = Dr("CveMoneda").ToString.ToEntero CveMonedaPago = Dr("CveMoneda").ToString.ToEntero
@@ -4378,7 +4378,7 @@ Partial Class Compras_Compras
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, ImportePago, CveMonedaPago, TCPago, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, ImportePago, CveMonedaPago, TCPago, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
ElseIf RBLContado.SelectedValue = "6" Then ElseIf RBLContado.SelectedValue = "6" Then
ImportePago = TxtDocumentoImporteCaja.Text.Trim.ToDecimal ImportePago = TxtDocumentoImporteCaja.Text.Trim.ToDecimal
Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuentaCaja.SelectedValue}").Rows(0) Dim Dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuentaCaja.SelectedValue}").Rows(0)
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
CveMonedaPago = Dr("CveMoneda").ToString.ToEntero CveMonedaPago = Dr("CveMoneda").ToString.ToEntero
End If End If
@@ -11714,12 +11714,12 @@ Partial Class Compras_Compras
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta <> 1")) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta <> 1"))
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuentaCaja.Items.Clear() DdlCuentaCaja.Items.Clear()
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1")) DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlCuentaCaja.DataBind() DdlCuentaCaja.DataBind()
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -12497,7 +12497,7 @@ Partial Class Compras_Compras
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim Folio As Long Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -12524,7 +12524,7 @@ Partial Class Compras_Compras
Protected Sub DdlCuentaCaja_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCaja.SelectedIndexChanged Protected Sub DdlCuentaCaja_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCaja.SelectedIndexChanged
Dim Folio As Long Dim Folio As Long
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaCaja.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCaja.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -13570,7 +13570,7 @@ Partial Class Compras_Compras
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
End Sub End Sub
Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero

8
Compras/Reembolsos.aspx.vb
View File

@@ -52,7 +52,7 @@ Partial Class Compras_Reembolsos
ViewState("CveMoneda") = 1 ViewState("CveMoneda") = 1
'Cargar Filtros 'Cargar Filtros
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1 dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
DdlCajaChica.DataBind() DdlCajaChica.DataBind()
@@ -185,7 +185,7 @@ Partial Class Compras_Reembolsos
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.SelectedIndex = -1 DdlCuenta.SelectedIndex = -1
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = {1}", 1, DdlTipoTransaccion.SelectedValue)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = {1}", 1, DdlTipoTransaccion.SelectedValue))
DdlCuenta.DataSource = dt DdlCuenta.DataSource = dt
@@ -198,7 +198,7 @@ Partial Class Compras_Reembolsos
#Region " SELECTED INDEX CHANGED " #Region " SELECTED INDEX CHANGED "
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -304,7 +304,7 @@ Partial Class Compras_Reembolsos
CvePrePolizaVieja = ObjMov.AddPrePolizas("Banc", 9, TxtImporteVinculado.Text.ToDouble, TxtImporteVinculado.Text.ToDouble, CveMoneda, FechaPrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePolizaVieja = ObjMov.AddPrePolizas("Banc", 9, TxtImporteVinculado.Text.ToDouble, TxtImporteVinculado.Text.ToDouble, CveMoneda, FechaPrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
CveIE = DDlCheques.SelectedValue.ToEntero CveIE = DDlCheques.SelectedValue.ToEntero
CveIERegistrado = CveIE CveIERegistrado = CveIE
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero
If dr IsNot Nothing Then If dr IsNot Nothing Then

8
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class Compras_ReembolsosComprobaciones
Folio = "" Folio = ""
'Cargar Filtros 'Cargar Filtros
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1 dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
DdlCajaChica.DataBind() DdlCajaChica.DataBind()
@@ -236,7 +236,7 @@ Partial Class Compras_ReembolsosComprobaciones
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.SelectedIndex = -1 DdlCuenta.SelectedIndex = -1
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
@@ -304,7 +304,7 @@ Partial Class Compras_ReembolsosComprobaciones
#Region " SELECTED INDEX CHANGED " #Region " SELECTED INDEX CHANGED "
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -472,7 +472,7 @@ Partial Class Compras_ReembolsosComprobaciones
End If End If
End If End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero

2
Compras/RembolsosSinAsignar.aspx.vb
View File

@@ -66,7 +66,7 @@ Partial Class Compras_RembolsosSinAsignar
ViewState("CveCajaChica") = -2 ViewState("CveCajaChica") = -2
'Cargar Filtros 'Cargar Filtros
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1 dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
DdlCajaChica.DataBind() DdlCajaChica.DataBind()

2
Compras/RepPagado.aspx.cs
View File

@@ -129,7 +129,7 @@ public partial class Compras_RepPagado : ClsPaginas
DdlCuentaBancaria.Items.Clear(); DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0) if (DdlBanco.SelectedValue.ToEntero() > 0)
{ {
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}"); DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
} }
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1")); DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind(); DdlCuentaBancaria.DataBind();

2
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -170,7 +170,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
DdlCuentaBancaria.Items.Clear(); DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0) if (DdlBanco.SelectedValue.ToEntero() > 0)
{ {
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}"); DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
} }
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1")); DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind(); DdlCuentaBancaria.DataBind();

2
Compras/RepPagadoPeriodo.aspx.cs
View File

@@ -137,7 +137,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
DdlCuentaBancaria.Items.Clear(); DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0) if (DdlBanco.SelectedValue.ToEntero() > 0)
{ {
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}"); DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
} }
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1")); DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind(); DdlCuentaBancaria.DataBind();

2
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -67,7 +67,7 @@ Partial Class Compras_RepRembolsoComprobaciones
ViewState("CveMoneda") = 1 ViewState("CveMoneda") = 1
'Cargar Filtros 'Cargar Filtros
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1 dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
DdlCajaChica.DataSource = dt DdlCajaChica.DataSource = dt
DdlCajaChica.DataBind() DdlCajaChica.DataBind()

2
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -129,7 +129,7 @@ Partial Class Contabilidad_DiarioPagos
Private Sub CargaCuenta() Private Sub CargaCuenta()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("CveTipoCuenta IN (2)") DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta IN (2)")
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub

2
Contabilidad/FisImpuestos.aspx.vb
View File

@@ -514,7 +514,7 @@ Partial Class Contabilidad_FisImpuestos
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If CveCuenta > 0 Then If CveCuenta > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & CveCuenta) Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
If drr IsNot Nothing Then If drr IsNot Nothing Then
Retorno = drr("IdCtaContable").ToString.ToEntero Retorno = drr("IdCtaContable").ToString.ToEntero
End If End If

2
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -1331,7 +1331,7 @@ Partial Class ContabilidadC_RegPrePoliza
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

2
Contabilidad/RegPrePoliza1.aspx.vb
View File

@@ -1462,7 +1462,7 @@ Partial Class ContabilidadC_RegPrePoliza
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

2
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1446,7 +1446,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

4
Global.asax
View File

@@ -80,7 +80,7 @@
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
ObjOC.Dispose() ObjOC.Dispose()
@@ -181,7 +181,7 @@
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing

23
OC/OC.aspx
View File

@@ -467,7 +467,21 @@
</div> </div>
</div> </div>
<div class="portlet-body "> <div class="portlet-body ">
<div class="row">
<asp:GridView ID="GvAnticpos" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance table-hover Widthall" AutoGenerateColumns="False" Width="250px">
<Columns>
<asp:HyperLinkField DataNavigateUrlFields="CveIE" HeaderText="Folio" DataNavigateUrlFormatString="~/Bancos/IE.aspx?CveIE={0}" DataTextField="Folio" Target="_blank" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
</Columns>
</asp:GridView>
<%-- <div class="row">
<div class="col-md-2 bold">Folio:</div> <div class="col-md-2 bold">Folio:</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Literal Text="" ID="LtFolioIEAnticipo" runat="server" /> <asp:Literal Text="" ID="LtFolioIEAnticipo" runat="server" />
@@ -476,7 +490,7 @@
<b>$ </b> <b>$ </b>
<asp:Literal Text="" ID="LtImporteIEAnticipo" runat="server" /> <asp:Literal Text="" ID="LtImporteIEAnticipo" runat="server" />
</div> </div>
</div> </div>--%>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -2021,7 +2035,12 @@
<asp:TextBox ID="TxtSAImporte" min="0" max='<%=LblTotal.Text.ToString()%>' CssClass="form-control input-sm" type="number" step="any" pattern="(\d{3})([\.])(\d{2})" runat="server"></asp:TextBox> <asp:TextBox ID="TxtSAImporte" min="0" max='<%=LblTotal.Text.ToString()%>' CssClass="form-control input-sm" type="number" step="any" pattern="(\d{3})([\.])(\d{2})" runat="server"></asp:TextBox>
<asp:RangeValidator ID="RVSAImprote" CssClass="form-control" runat="server" ControlToValidate="TxtSAImporte" Display="None" Type="Double" MinimumValue="1.00" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> debe ser mayor a cero." ValidationGroup="GrpModalSolicitarAnticipo"></asp:RangeValidator> <asp:RangeValidator ID="RVSAImprote" CssClass="form-control" runat="server" ControlToValidate="TxtSAImporte" Display="None" Type="Double" MinimumValue="1.00" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> debe ser mayor a cero." ValidationGroup="GrpModalSolicitarAnticipo"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCESAImporte" runat="server" HighlightCssClass="vco" TargetControlID="RVSAImprote" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCESAImporte" runat="server" HighlightCssClass="vco" TargetControlID="RVSAImprote" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="input-group" style="text-align:right!important">
<asp:Label runat="server" ID="LblSaldoOCAnticipo"></asp:Label>
</div>
</div> </div>
</div> </div>
<hr /> <hr />

176
OC/OC.aspx.vb
View File

@@ -485,6 +485,37 @@ Partial Class OC
End Property End Property
Private Property NumRow As Integer Private Property NumRow As Integer
Private Property SaldoOCAnticipo As Double
Get
If ViewState("SaldoOCAnticipo") Is Nothing Then
Return 0
Else
Return ViewState("SaldoOCAnticipo").ToString.ToDouble
End If
End Get
Set(value As Double)
ViewState("SaldoOCAnticipo") = value
End Set
End Property
Private Property ImporteAnticipos As Double
Get
If ViewState("ImporteAnticipos") Is Nothing Then
Return 0
Else
Return ViewState("ImporteAnticipos").ToString.ToDouble
End If
End Get
Set(value As Double)
ViewState("ImporteAnticipos") = value
End Set
End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -725,7 +756,7 @@ Partial Class OC
End If End If
End If End If
InicializaSolicitarAnticipo() 'InicializaSolicitarAnticipo()
If TipoOC = "REQ" Then If TipoOC = "REQ" Then
BtnSolicitudAnticipo.Visible = False BtnSolicitudAnticipo.Visible = False
@@ -1181,8 +1212,9 @@ Partial Class OC
MPContrato.Enabled = False MPContrato.Enabled = False
'SOLICITUD DE ANTICIPO 'SOLICITUD DE ANTICIPO
CveIEAnticipo = objOC.CveIEAnticipo CveIEAnticipo = objOC.CveIEAnticipo
LtImporteIEAnticipo.Text = objOC.ImporteAnticipo.FormatoNumero
LtFolioIEAnticipo.Text = $"<a class=""Texto"" href=""/Bancos/IE.aspx?CveIE={objOC.CveIEAnticipo}"" target=""_blank"">{objOC.FolioIEAnticipo}</a>" 'LtImporteIEAnticipo.Text = objOC.ImporteAnticipo.FormatoNumero
'LtFolioIEAnticipo.Text = $"<a class=""Texto"" href=""/Bancos/IE.aspx?CveIE={objOC.CveIEAnticipo}"" target=""_blank"">{objOC.FolioIEAnticipo}</a>"
CveVenta = objOC.CveVenta CveVenta = objOC.CveVenta
TieneVenta = objOC.TieneVenta TieneVenta = objOC.TieneVenta
@@ -1197,15 +1229,8 @@ Partial Class OC
'Anticipos 'Anticipos
CargarOptionAnticipos() CargarOptionAnticipos()
Dim objbancos As New ClsBancos CargaAnticiposSolicitudes()
If objbancos.GetPrePolizasDetalle(-1, -1, pCveOrdenCompra) AndAlso objbancos.DtResultados.Rows.Count > 0 Then
BtnSolicitudAnticipo.Visible = False
generarAnticipo.Text = "Ver Anticipo"
generarAnticipo.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", objbancos.DtResultados.Rows(0)("CveIE"))
Else
generarAnticipo.NavigateUrl = String.Format("/Bancos/IE.aspx?CveOrdenCompra={0}&CveProveedor={1}", pCveOrdenCompra, objOC.CveProveedor.ToString)
End If
objbancos.Dispose()
CveCotizacion = objOC.DtResultados.Rows(0)("CveCotizacion").ToString.ToEntero CveCotizacion = objOC.DtResultados.Rows(0)("CveCotizacion").ToString.ToEntero
If CveCotizacion > 0 Then If CveCotizacion > 0 Then
@@ -2438,7 +2463,7 @@ Partial Class OC
LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
CveOrdenCompra = OC.CveOrdenCompra CveOrdenCompra = OC.CveOrdenCompra
CveEstatus = CboE.SelectedValue.ToEntero CveEstatus = CboE.SelectedValue.ToEntero
@@ -3023,7 +3048,7 @@ Partial Class OC
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then
'CREA POLIZA POR CADA PROVEEDOR 'CREA POLIZA POR CADA PROVEEDOR
@@ -3089,7 +3114,7 @@ Partial Class OC
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
Promocion:=Promocion) Then Promocion:=Promocion) Then
@@ -4915,24 +4940,36 @@ Partial Class OC
#End Region #End Region
#Region " SOLICITAR ANTICIPOS " #Region " SOLICITAR ANTICIPOS "
Private Sub InicializaSolicitarAnticipo()
If CveOrdenCompra > 0 Then
If CveIEAnticipo > 0 Then 'Private Sub InicializaSolicitarAnticipo()
PorletIEAnticipo.Visible = True ' If CveOrdenCompra > 0 Then
UpIEAnticipo.Update()
Else ' If CveIEAnticipo > 0 Then
If GlobalDTOCEstatus(CveEmpresaActual).FiltroPrimeroValor("TipoTermino", $"CveEstatus = {CveEstatus}").ToEntero.Contiene(0, 3) Then ' PorletIEAnticipo.Visible = True
BtnSolicitudAnticipo.Visible = True ' UpIEAnticipo.Update()
DdlSAUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresaActual) ' Else
DdlSAUsuario.DataBind() ' If GlobalDTOCEstatus(CveEmpresaActual).FiltroPrimeroValor("TipoTermino", $"CveEstatus = {CveEstatus}").ToEntero.Contiene(0, 3) Then
DdlSAUsuario.Items.Insert(0, New ListItem("Seleccione", "-1")) ' BtnSolicitudAnticipo.Visible = True
End If ' DdlSAUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresaActual)
End If ' DdlSAUsuario.DataBind()
' DdlSAUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
' End If
' End If
' End If
'End Sub
Protected Sub BtnSolicitarAnticipo_Click(sender As Object, e As EventArgs) Handles BtnSolicitarAnticipo.Click
If TxtSAImporte.Text.ToDecimal > SaldoOCAnticipo Then
Alert("El importe solicitado supera el saldo de la orden de compra", TipoMensaje.MsgAdvertencia)
Exit Sub
End If End If
End Sub
Protected Sub BtnSolicitarAnticipo_Click(sender As Object, e As EventArgs) Handles BtnSolicitarAnticipo.Click
Dim Descripcion As New StringBuilder Dim Descripcion As New StringBuilder
Descripcion.AppendFormat("Importe anticipo : ${0} ({1}%) - <a target=""_blank"" href=""/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={2}"">Pagar anticipo</a> - <b>Observacion:</b> {2} ", TxtSAImporte.Text.FormatoNumero, TxtSAImPorcentaje.Text, CveOrdenCompra, TxtSAObservaciones.Text) Descripcion.AppendFormat("Importe anticipo : ${0} ({1}%) - <a target=""_blank"" href=""/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={2}"">Pagar anticipo</a> - <b>Observacion:</b> {2} ", TxtSAImporte.Text.FormatoNumero, TxtSAImPorcentaje.Text, CveOrdenCompra, TxtSAObservaciones.Text)
@@ -7896,6 +7933,85 @@ Partial Class OC
'End If 'End If
End Sub End Sub
Private Sub CargaAnticiposSolicitudes()
If CveOrdenCompra > 0 Then
If CveIEAnticipo > 0 Then
PorletIEAnticipo.Visible = True
UpIEAnticipo.Update()
Else
End If
End If
Dim objbancos As New ClsOC
If objbancos.GetOCAnticipoSaldo(CveOrdenCompra, UsuarioActual.CveEmpresa) AndAlso objbancos.DtResultados.Rows.Count > 0 Then
SaldoOCAnticipo = objbancos.DtResultados(0)("Saldo").ToString.ToDecimal
LblSaldoOCAnticipo.Text = $"Saldo OC ${SaldoOCAnticipo.ToString.FormatoNumero}"
If SaldoOCAnticipo > 0 Then
DdlSAUsuario.Items.Clear()
If GlobalDTOCEstatus(CveEmpresaActual).FiltroPrimeroValor("TipoTermino", $"CveEstatus = {CveEstatus}").ToEntero.Contiene(0, 3) Then
BtnSolicitudAnticipo.Visible = True
DdlSAUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresaActual)
DdlSAUsuario.DataBind()
DdlSAUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
BtnSolicitudAnticipo.Visible = True
'generarAnticipo.Text = "Ver Anticipo"
Else
BtnSolicitudAnticipo.Visible = False
'generarAnticipo.Text = "Ver Anticipo"
'generarAnticipo.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", objbancos.DtResultados.Rows(0)("CveIE"))
End If
Else
' generarAnticipo.NavigateUrl = String.Format("/Bancos/IE.aspx?CveOrdenCompra={0}&CveProveedor={1}", CveCompra, DdlProveedorContacto.SelectedValue.ToEntero)
End If
If objbancos.GetOCAnticipo(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
If objbancos.DtResultados.Rows.Count > 0 Then
PorletIEAnticipo.Visible = True
GvAnticpos.DataSource = objbancos.DtResultados
ImporteAnticipos = objbancos.DtResultados.SUM("Importe")
End If
Else
GvAnticpos.DataSource = Nothing
ImporteAnticipos = 0
End If
GvAnticpos.DataBind()
objbancos.Dispose()
UpAcciones.Update()
UpSolicitarAnticipo.Update()
End Sub
'Private Sub CargaVentaRelacionada() 'Private Sub CargaVentaRelacionada()
' Dim GridViewPSAux As GridView = GvD ' Dim GridViewPSAux As GridView = GvD
' Dim CveOCDetalle As New StringBuilder() ' Dim CveOCDetalle As New StringBuilder()

6
Sistemas/CatSesiones.aspx.vb
View File

@@ -428,9 +428,9 @@ Partial Class Sistemas_CatSesiones
End Sub End Sub
Private Sub CargaOCEstatusUsuarios() Private Sub CargaOCEstatusUsuarios()
Dim ObjOC As New ClsOC 'Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
ObjOC.Dispose() 'ObjOC.Dispose()
End Sub End Sub
'Compras 'Compras

17
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1313,13 +1313,16 @@ Partial Class Sistemas_UsuarioDetalle
End If End If
'RECARGA GLOBAL BANCOS 'RECARGA GLOBAL BANCOS
If ObjBancos.GetBancosCuentasUsuarios(-1) Then 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjBancos.DtResultados GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados
End If ' End If
'RECARGA GLOBAL ESTATUS 'RECARGA GLOBAL ESTATUS
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
'RECARGA GLOBAL ALMACEN 'RECARGA GLOBAL ALMACEN
@@ -2185,14 +2188,14 @@ Partial Class Sistemas_UsuarioDetalle
If UsuarioControlado Then If UsuarioControlado Then
DdlCuentasBancarias.DataSource = DtCuentasBancariasControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}") DdlCuentasBancarias.DataSource = DtCuentasBancariasControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
Else Else
DdlCuentasBancarias.DataSource = GlobalDTBancosCuentas(-1, -1, -1).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentasBancarias.DataSource = GlobalDTBancosCuentas(-1, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}", "", {"CveCuenta", "NumCuentaMoneda"})
End If End If
End If End If
DdlCuentasBancarias.DataBind() DdlCuentasBancarias.DataBind()
DdlCuentasBancarias.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentasBancarias.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub CargaDtCuentasBancarias() Private Sub CargaDtCuentasBancarias()
DtCuentasBancarias = GlobalDTBancosCuentas(CveUsuario, -1, -1).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}") DtCuentasBancarias = GlobalDTBancosCuentas(CveUsuario, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
DtCuentasBancarias.Columns.Add("Accion", GetType(Integer)) DtCuentasBancarias.Columns.Add("Accion", GetType(Integer))
CargaGvCuentasBancarias() CargaGvCuentasBancarias()
@@ -4130,7 +4133,7 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub CargaCuentasBancariasAsignar() Private Sub CargaCuentasBancariasAsignar()
DdlCuentasBancariasAsignar.Items.Clear() DdlCuentasBancariasAsignar.Items.Clear()
If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then
DdlCuentasBancariasAsignar.DataSource = GlobalDTBancosCuentas(-1, -1, -1).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignarPermiso.SelectedValue}", "", {"CveCuenta", "NumCuenta"}) DdlCuentasBancariasAsignar.DataSource = GlobalDTBancosCuentas(-1, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignarPermiso.SelectedValue}", "", {"CveCuenta", "NumCuenta"})
End If End If
DdlCuentasBancariasAsignar.DataBind() DdlCuentasBancariasAsignar.DataBind()
DdlCuentasBancariasAsignar.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentasBancariasAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))

16
Ventas/ClientesAbonar.aspx.vb
View File

@@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuenta.Items.Clear() DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
If ChkPagarPesos.Checked Then If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
@@ -454,10 +454,10 @@ Partial Class Ventas_ClientesAbonar
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'recargo la moneda con la que se va a pagar 'recargo la moneda con la que se va a pagar
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim moneda As Integer = 0 Dim moneda As Integer = 0
If DdlCuenta.SelectedValue > 0 Then If DdlCuenta.SelectedValue > 0 Then
moneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
End If End If
CveMonedaPago = moneda CveMonedaPago = moneda
@@ -495,7 +495,7 @@ Partial Class Ventas_ClientesAbonar
If IfNull(Request("CveMoneda"), "-1").ToString.ToEntero = -1 Then If IfNull(Request("CveMoneda"), "-1").ToString.ToEntero = -1 Then
CargaDatos(-1) CargaDatos(-1)
moneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
If moneda = 1 Then If moneda = 1 Then
'DivTC.Visible = True 'DivTC.Visible = True
DivTCDolares.Visible = False DivTCDolares.Visible = False
@@ -709,7 +709,7 @@ Partial Class Ventas_ClientesAbonar
Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text) Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text)
If DdlCuenta.SelectedValue > 0 Then If DdlCuenta.SelectedValue > 0 Then
CveMoneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
Else Else
CveMoneda = If(Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, 1) CveMoneda = If(Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, 1)
End If End If
@@ -742,7 +742,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario) CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
Else Else
If RblTipoPago.SelectedValue.Contiene("3") Then If RblTipoPago.SelectedValue.Contiene("3") Then
CveIE = DdlIngreso.SelectedValue.ToEntero CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -2738,7 +2738,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
Dim DTTipoTransacciones As DataTable = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion={DdlTipoTransaccion.SelectedValue}") Dim DTTipoTransacciones As DataTable = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion={DdlTipoTransaccion.SelectedValue}")
Dim DTCuentas As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta={DdlCuenta.SelectedValue}") Dim DTCuentas As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta={DdlCuenta.SelectedValue}")
Dim ClaveFormaPagoSAT As String = "" Dim ClaveFormaPagoSAT As String = ""
Dim Cuentapago As String = "" Dim Cuentapago As String = ""
@@ -3048,7 +3048,7 @@ Partial Class Ventas_ClientesAbonar
TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
End If End If
Dim moneda As Integer = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero Dim moneda As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
If CveMonedaFiltro = -1 Then If CveMonedaFiltro = -1 Then
RegistraScript(String.Format("FnCambia(0,0,0,0,-1,{0});", moneda)) RegistraScript(String.Format("FnCambia(0,0,0,0,-1,{0});", moneda))
Else Else

12
Ventas/PV.aspx.vb
View File

@@ -5237,11 +5237,11 @@ Partial Class PV
DdlCuentaTransferencia.Items.Clear() DdlCuentaTransferencia.Items.Clear()
DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
DdlCuentaEfectivo.DataBind() DdlCuentaEfectivo.DataBind()
DdlCuentaTarjetaCredito.DataBind() DdlCuentaTarjetaCredito.DataBind()
@@ -5420,7 +5420,7 @@ Partial Class PV
Private Sub CargaCuentasTerminal() Private Sub CargaCuentasTerminal()
DdlCuentasTerminal.Items.Clear() DdlCuentasTerminal.Items.Clear()
DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentasTerminal.DataBind() DdlCuentasTerminal.DataBind()
DdlCuentasTerminal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentasTerminal.Items.Insert(0, New ListItem("Seleccione", "-1"))
UPTarjetaTermminal.Update() UPTarjetaTermminal.Update()

6
Ventas/ProductosFinancieros.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class Bancos_ProductosFinancieros
CargaTipoTrasaccion() CargaTipoTrasaccion()
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()
DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentas.DataBind() DdlCuentas.DataBind()
DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -284,7 +284,7 @@ Partial Class Bancos_ProductosFinancieros
'Variables de controles 'Variables de controles
Dim Importe As Double = TxtImporte.Text.ToDouble Dim Importe As Double = TxtImporte.Text.ToDouble
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero() Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
Dim Fecha = TxtFecha.Text.ToDate Dim Fecha = TxtFecha.Text.ToDate
'Variables de error 'Variables de error
@@ -306,7 +306,7 @@ Partial Class Bancos_ProductosFinancieros
'End If 'End If
'OBTIENE LA CUENTA CONTABLE DEL BANCO 'OBTIENE LA CUENTA CONTABLE DEL BANCO
Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"}) Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
Dim CtaCuenta = -1 Dim CtaCuenta = -1
If DtCuentas.Rows.Count = 1 Then If DtCuentas.Rows.Count = 1 Then

2
Ventas/RepRecuperacion.aspx.vb
View File

@@ -180,7 +180,7 @@ Partial Class Ventas_RepRecuperacion
Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlCuentaBancaria.Items.Clear() DdlCuentaBancaria.Items.Clear()
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}") DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuentaBancaria.DataBind() DdlCuentaBancaria.DataBind()
End Sub End Sub

2
Ventas/RepRecuperacionDetalle.aspx.vb
View File

@@ -230,7 +230,7 @@ Partial Class Ventas_RepRecuperacionDetalle
Public Sub CargaCuentas() Public Sub CargaCuentas()
DdlCuentaBancaria.Items.Clear() DdlCuentaBancaria.Items.Clear()
If DdlBanco.SelectedValue.ToEntero > 0 Then If DdlBanco.SelectedValue.ToEntero > 0 Then
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}") DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
End If End If
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1")) DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuentaBancaria.DataBind() DdlCuentaBancaria.DataBind()

2
Ventas/RepRecuperacionPeriodo.aspx.cs
View File

@@ -298,7 +298,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
protected void BtnTipoCambio_Click(object sender, EventArgs e) protected void BtnTipoCambio_Click(object sender, EventArgs e)
{ {
Consulta(); Consulta();
} }
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e) protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
{ {

18
Ventas/Ventas.aspx.vb
View File

@@ -5651,8 +5651,8 @@ Partial Class Ventas
DdlCuentasTerminal.Items.Clear() DdlCuentasTerminal.Items.Clear()
DdlCuentaTerminalModal.Items.Clear() DdlCuentaTerminalModal.Items.Clear()
DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentaTerminalModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentaTerminalModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentasTerminal.DataBind() DdlCuentasTerminal.DataBind()
DdlCuentaTerminalModal.DataBind() DdlCuentaTerminalModal.DataBind()
@@ -11206,13 +11206,13 @@ Partial Class Ventas
Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count = 1 Then
IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero() IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("IdCtaContable").ToString().ToEntero()
' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero() ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero()
End If End If
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("NumCuentaMoneda").ToString().ToEntero())
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
@@ -18048,7 +18048,7 @@ Partial Class Ventas
DdlCuentaCheque.Items.Clear() DdlCuentaCheque.Items.Clear()
DdlCuentaTransferencia.Items.Clear() DdlCuentaTransferencia.Items.Clear()
Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario) Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
@@ -18076,13 +18076,13 @@ Partial Class Ventas
Case 1 Case 1
DivContadoOtrosCuenta.Attributes.Add("class", "col-md-3") DivContadoOtrosCuenta.Attributes.Add("class", "col-md-3")
DivMesesSinIntereses2.Visible = True DivMesesSinIntereses2.Visible = True
DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
Exit Select Exit Select
Case 2 Case 2
DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
Exit Select Exit Select
Case 3 Case 3
DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
Exit Select Exit Select
Case -1 Case -1
DdlCuentaOtrosContado.DataSource = Nothing DdlCuentaOtrosContado.DataSource = Nothing

68
asmx/WSApp.asmx
View File

@@ -249,28 +249,68 @@ Public Class WSApp
End Set End Set
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get Get
If CveEmpresa <> -1 Then
Dim filtro As New StringBuilder Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa) 'sino existe, recarga los datos
If CveUsuario > 0 Then If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
Else
HttpContext.Current.Application(AppNombre) = Nothing
End If End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo) ObjOC.Dispose()
End If
Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTOCEstatusUsuarios = DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable)
End If End If
Dim filtro As New StringBuilder
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
If CveUsuario > 0 Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
End If
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOCEstatusUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
' Get
' If CveEmpresa <> -1 Then
' Dim filtro As New StringBuilder
' filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
' If CveUsuario > 0 Then
' filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
' End If
' If Tipo <> "" Then
' filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
' End If
' Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
' GlobalDTOCEstatusUsuarios = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTOCEstatusUsuarios = DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable)
' End If
' End Get
' Set(value As DataTable)
' Application("GlobalDTOCEstatusUsuarios") = value
' End Set
'End Property
Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then

44
asmx/WSSIGApp.asmx
View File

@@ -264,28 +264,44 @@ Public Class WSSIGApp
End Set End Set
End Property End Property
Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
Get Get
If CveEmpresa <> -1 Then
Dim filtro As New StringBuilder Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa) 'sino existe, recarga los datos
If CveUsuario > 0 Then If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
Dim ObjOC As New ClsOC
If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
Else
HttpContext.Current.Application(AppNombre) = Nothing
End If End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo) ObjOC.Dispose()
End If
Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTOCEstatusUsuarios = DirectCast(Application("GlobalDTOCEstatusUsuarios"), DataTable)
End If End If
Dim filtro As New StringBuilder
filtro.AppendFormat("CveEmpresa = {0} ", CveEmpresa)
If CveUsuario > 0 Then
filtro.AppendFormat(" AND CveUsuario={0} ", CveUsuario)
End If
If Tipo <> "" Then
filtro.AppendFormat(" AND Tipo='{0}'", Tipo)
End If
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable
Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOCEstatusUsuarios") = value Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then