-- option explicit

-- repie, filtro por usuario

Bancos/RepIE.aspx.vb

@@ -97,6 +97,8 @@ Partial Class Bancos_RepIE
             CargaMoneda()
             CargaTipoTransaccion("-1")
             CargaUsuarioConcilio()
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
+            DdlUsuarioRegistro.databind
             txtFechaI.Text = Now.ToShortDateString
 
             DivDdlTarjeta.Visible = False
@@ -139,9 +141,9 @@ Partial Class Bancos_RepIE
         FechaConciliadoI = If(IsDate(TxtFechaConciliadoI.Text.Trim()), TxtFechaConciliadoI.Text.ToDate, MinFecha)
         FechaConciliadoF = If(IsDate(TxtFechaConciliadoF.Text.Trim()), TxtFechaConciliadoF.Text.ToDate, MaxFecha)
 
-        Dim Importe = If(TxtImporteFiltro.Text = "", -1, TxtImporteFiltro.Text.ToDouble)
-        Dim Tipo = If(DdlTipo.SelectedItem.ToString = "Todos", "-1", DdlTipo.SelectedItem.ToString)
-        Dim Cuenta = If(DdlCuenta.SelectedValue.ToEntero = 0, -1, DdlCuenta.SelectedValue.ToEntero)
+        Dim Importe As Double = If(TxtImporteFiltro.Text = "", -1, TxtImporteFiltro.Text.ToDouble)
+        Dim Tipo As String = If(DdlTipo.SelectedItem.ToString = "Todos", "-1", DdlTipo.SelectedItem.ToString)
+        Dim Cuenta As Integer = If(DdlCuenta.SelectedValue.ToEntero = 0, -1, DdlCuenta.SelectedValue.ToEntero)
 
         If TxtPagueseA.Text <> "" Then PagueseA = String.Format("%{0}%", TxtPagueseA.Text) Else PagueseA = "-1"
         If TxtFolio.Text.Trim = "" Then Folio = "-1" Else Folio = String.Format("%{0}%", TxtFolio.Text.Trim)
@@ -151,13 +153,13 @@ Partial Class Bancos_RepIE
         If ObjBancosIE.GetBancosRepIE(-1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero,
                                    If(ChkEsAbonoEnCuenta.Checked.ToEntero = 0, -1, 1),
                                    DdlConciliado.SelectedValue.ToEntero, DdlEstatusIE.SelectedValue.ToEntero, FechaI, FechaF, FechaAplicacionI, FechaAplicacionF,
-                                    FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then
+                                    FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, DdlUsuarioregistro.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjBancosIE.DtResultados
             DtDatos = ObjBancosIE.DtResultados
         End If
 
         If ChkTotalizar.Checked Then
-            Dim SaldoDolares = DtDatos.SUM("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now)
+            Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now).ToDecimal
             SaldoTotal.Text = DtDatos.SUM("ImporteMN").ToString.FormatoNumero '(DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero
             LtlSaldo.Text = DtDatos.SUM("Importe", "CveMoneda = 1").ToString.FormatoNumero
             LtlSaldoDolares.Text = DtDatos.SUM("Importe", "CveMoneda = 2").ToString.FormatoNumero
@@ -198,7 +200,7 @@ Partial Class Bancos_RepIE
         ObjIE.IniciaTransacSQL()
 
         Dim OcurrioError As Boolean = False
-        Dim ErrorFecha = False
+        Dim ErrorFecha As Boolean = False
         Dim Fecha As Date
         Dim FolioError As String = ""
         Dim OtrosIngresos As Double = 0
@@ -264,8 +266,8 @@ Partial Class Bancos_RepIE
         Dim DtConciliaciones As DataTable
         Dim ObjBancos As New ClsBancos
 
-        Dim FechaI = txtFechaI.Text.ToDate
-        Dim FechaF = txtFechaF.Text.ToDate
+        Dim FechaI As Date = txtFechaI.Text.ToDate
+        Dim FechaF As Date = txtFechaF.Text.ToDate
 
         If ObjBancos.GetConciliacionesReporte(DdlCuenta.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
             DtConciliaciones = ObjBancos.DtResultados
@@ -336,7 +338,7 @@ Partial Class Bancos_RepIE
             End If
 
             If TipoPagina = "Conciliaciones" Then
-                Dim TipoTrasaccion = If(e.Row.DBCampo("CveTipoTransaccion").ToEntero = 2 Or e.Row.DBCampo("CveTipoTransaccion").ToEntero = 8, True, False)
+                Dim TipoTrasaccion As Boolean = If(e.Row.DBCampo("CveTipoTransaccion").ToEntero = 2 Or e.Row.DBCampo("CveTipoTransaccion").ToEntero = 8, True, False)
                 'si no esta contabilizada le habilita la opcion, una vez contabilizada no se permite ajustar los movimientos
                 Dim StrTxtObr As String = If(AceptaOtrosIngresos AndAlso e.Row.DBCampo("IdPoliza").ToEntero <= 0, e.Row.FCTextBox("TxtOtIng").ClientID, "null")
                 e.Row.Cells(12).Visible = True