-- option explicit

-- repie, filtro por usuario

Bancos/Creditos.aspx.vb

@@ -312,7 +312,7 @@ Partial Class Bancos_Creditos
                 'CARGA CREDITO DETALLE
                 If ObjCreditos.GetCreditosDetalle(dr("CveCredito").ToString.ToEntero, -1) Then
                     If ObjCreditos.DtResultados.Rows.Count = 1 Then
-                        Dim DT = ObjCreditos.DtResultados.Rows(0)
+                        Dim DT As DataRow = ObjCreditos.DtResultados.Rows(0)
 
                         If DT("Estatus").ToString.Contiene("1", "101", "102") Then
                             trPagar.Visible = True
@@ -320,11 +320,11 @@ Partial Class Bancos_Creditos
                         End If
 
                         If CveTipoCredito = 2 Then
-                            Dim TotalCredi = 0
+                            Dim TotalCredi As Decimal = 0
                             'TxtCSPeriodos.Text = ObjCreditos.DtResultados.Rows.Count.ToString
                             'TxtCSFechaInicio.Text = ObjCreditos.DtResultados.FiltraParametros("Periodo = 1").Rows(0)("Fecha").ToString
 
-                            For index = 1 To ObjCreditos.DtResultados.Rows.Count
+                            For index As Integer = 1 To ObjCreditos.DtResultados.Rows.Count
                                 TotalCredi += ObjCreditos.DtResultados.Rows(index - 1)("Capital").ToString.ToEntero
                             Next
                             TxtCSTotalCredito.Text = TotalCredi.ToString.FormatoNumero
@@ -671,33 +671,33 @@ Partial Class Bancos_Creditos
 
         Dim ObjCredito As New ClsBancos
         Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL())
-        Dim ErrorCredito = False
+        Dim ErrorCredito As Boolean = False
         Dim Folio As String = ""
         Dim CvePrePoliza As Integer = 0
 
         If CveCredito = -1 Then
-            Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero
+            Dim TipoCreditoTemp As Integer = DdlTipoCredito.SelectedValue.ToEntero
 
             'Credito Revolvente -- ADD IE
-            If TipoCreditoTemp = 2 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
-                Folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString
-                If Folio <> "" Then
-                    CvePrePoliza = ObjMov.AddPrePolizas("Creditos", 2, 0, 0, 1, TxtFechaDeposito.Text.ToDate, TxtCSReferencia.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            'If TipoCreditoTemp = 2 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
+            '    Folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString
+            '    If Folio <> "" Then
+            '        CvePrePoliza = ObjMov.AddPrePolizas("Creditos", 2, 0, 0, 1, TxtFechaDeposito.Text.ToDate, TxtCSReferencia.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    If CveIE < 0 Then
-                        ErrorCredito = True
-                    End If
-                    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
-                    '    ErrorCredito = True
-                    'End If
-                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then
-                        ErrorCredito = True
-                    End If
-                Else
-                    ErrorCredito = True
-                End If
-            End If
+            '        CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            '        If CveIE < 0 Then
+            '            ErrorCredito = True
+            '        End If
+            '        'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
+            '        '    ErrorCredito = True
+            '        'End If
+            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then
+            '            ErrorCredito = True
+            '        End If
+            '    Else
+            '        ErrorCredito = True
+            '    End If
+            'End If
 
             'Credito Generico
             If Not ErrorCredito Then
@@ -707,13 +707,13 @@ Partial Class Bancos_Creditos
                     CveProveedor = HdnCveProveedor.Value.ToEntero
                 End If
 
-                CveIE = ObjCredito.AddBancos_IE(DdlCuentaCredito.SelectedValue.ToString.ToEntero, 2, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                If CveIE < 0 Then
-                    ErrorCredito = True
-                End If
-                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "Crédito") Then
-                    ErrorCredito = True
-                End If
+                'CveIE = ObjCredito.AddBancos_IE(DdlCuentaCredito.SelectedValue.ToString.ToEntero, 2, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                'If CveIE < 0 Then
+                '    ErrorCredito = True
+                'End If
+                'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "Crédito") Then
+                '    ErrorCredito = True
+                'End If
 
                 If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                           TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
@@ -755,10 +755,10 @@ Partial Class Bancos_Creditos
 
         Dim ObjCredito As New ClsBancos
         ObjCredito.IniciaTransacSQL()
-        Dim ErrorCredito = False
+        Dim ErrorCredito As Boolean = False
 
         If CveCredito > 0 Then
-            Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero
+            Dim TipoCreditoTemp As Integer = DdlTipoCredito.SelectedValue.ToEntero
 
             If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                          TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
@@ -783,7 +783,7 @@ Partial Class Bancos_Creditos
     End Sub
 
     Private Sub GuardaCreditoComplejo()
-        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
+        Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
 
         If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then
             Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
@@ -795,12 +795,12 @@ Partial Class Bancos_Creditos
 
         Dim ObjCredito As New ClsBancos
         Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL())
-        Dim ErrorCredito = False
-        Dim folio = ""
-        Dim CveIE = -1
-        Dim CvePrePoliza = 0
+        Dim ErrorCredito As Boolean = False
+        Dim folio As String = ""
+        Dim CveIE As Integer = -1
+        Dim CvePrePoliza As Integer = 0
         Dim CveMoneda As Integer = 1
-        Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
+        Dim FechaVencimiento As Date = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
         FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0)
 
         'If (DdlTipoCredito.SelectedValue.ToEntero = 3 Or DdlTipoCredito.SelectedValue.ToEntero = 5) AndAlso HdnCveAF.Value.ToEntero > -1 Then
@@ -923,8 +923,8 @@ Partial Class Bancos_Creditos
     End Sub
 
     Private Sub UpdateCreditoComplejo()
-        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
-        Dim TotalAnticipoVinculado = 0.0
+        Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
+        Dim TotalAnticipoVinculado As Double = 0.0
 
         If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then
             Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
@@ -956,10 +956,10 @@ Partial Class Bancos_Creditos
 
         Dim ObjCredito As New ClsBancos
         ObjCredito.IniciaTransacSQL()
-        Dim ErrorCredito = False
+        Dim ErrorCredito As Boolean = False
         'Dim CveIE = -1
         Dim CveMoneda As Integer = 1
-        Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
+        Dim FechaVencimiento As Date = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
         FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0)
 
         If CveCredito > 0 Then
@@ -1049,7 +1049,7 @@ Partial Class Bancos_Creditos
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
         Dim Cred As New ClsBancos
 
-        If Cred.RemoveCreditos(CveCredito) Then
+        If Cred.RemoveCreditos(CveCredito, UsuarioActual.CveEmpresa) Then
             Alert("Movimiento Eliminado", TipoMensaje.MsgInformacion)
         End If
         Cred.Dispose()
@@ -1099,7 +1099,7 @@ Partial Class Bancos_Creditos
         Dim Tasa As Double = 0
 
         If TxtMensualidad.Text.ToDouble <= 0 Then
-            Dim Mensualidad = Pmt((TxtTasa.Text.ToDouble / 100) / 12, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1
+            Dim Mensualidad As Double = Pmt((TxtTasa.Text.ToDouble / 100) / 12, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1
             TxtMensualidad.Text = Mensualidad.ToString.FormatoNumero
         End If
 
@@ -1120,7 +1120,7 @@ Partial Class Bancos_Creditos
 
         Dim MensajeImportesIncorrectos As Boolean = False
 
-        For i = 1 To TxtPlazo.Text.ToEntero
+        For i As Integer = 1 To TxtPlazo.Text.ToEntero
             Row = DTAmortizacion.NewRow()
 
             'Datos en comun
@@ -1267,7 +1267,7 @@ Partial Class Bancos_Creditos
         ObjAF.Dispose()
 
 
-        Dim Repetido = False
+        Dim Repetido As Boolean = False
 
         'Valida si ya esta vinculado el AF
         For Each dr As DataRow In DtAF.Rows
@@ -1364,7 +1364,7 @@ Partial Class Bancos_Creditos
                     DtIE = ObjBancosIE.DtResultados.Clone
                 End If
 
-                Dim RowIE = ObjBancosIE.DtResultados.Rows(0)
+                Dim RowIE As DataRow = ObjBancosIE.DtResultados.Rows(0)
 
                 LtBancoIE.Text = RowIE("Banco").ToString
                 LtCuentaIE.Text = RowIE("NumCuenta").ToString
@@ -1391,10 +1391,10 @@ Partial Class Bancos_Creditos
         End If
         ObjBancosIE.Dispose()
 
-        Dim Repetido = False
+        Dim Repetido As Boolean = False
 
-        Dim TotalAnticipoVinculado = 0.0
-        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
+        Dim TotalAnticipoVinculado As Double = 0.0
+        Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
 
         For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (0,1) OR Estatus is null").Rows
             TotalAnticipoVinculado += dr("Importe").ToString.ToDouble
@@ -1512,7 +1512,7 @@ Partial Class Bancos_Creditos
         End If
     End Sub
     Protected Sub BtnAplicarGarantia_Click(sender As Object, e As EventArgs)
-        Dim ImporteVinculado = 0.0
+        Dim ImporteVinculado As Double = 0.0
 
         For Each Gvr As GridViewRow In GvAplicarGarantia.Rows
             If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then
@@ -1527,7 +1527,7 @@ Partial Class Bancos_Creditos
 
         Dim ObjBancos As New ClsBancos
         ObjBancos.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         For Each Gvr As GridViewRow In GvAplicarGarantia.Rows
             If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then
@@ -1562,24 +1562,24 @@ Partial Class Bancos_Creditos
         Dim ObjContabilidad As New ClsContabilidad()
         Dim ObjProveedor As New ClsCompProveedores(ObjContabilidad.IniciaTransacSQL())
         Dim ObjBancos As New ClsBancos(ObjContabilidad.IniciaTransacSQL())
-        Dim ErrorPrePoliza = False
-        Dim CvePrePoliza = 0
+        Dim ErrorPrePoliza As Boolean = False
+        Dim CvePrePoliza As Integer = 0
 
         'GENERA PREPOLIZA
 
 
-        Dim importeMovimiento = 0.0D
-        Dim ConceptoContable = 0
-        Dim TipoMovimiento = False
-        Dim Concepto = ""
-        Dim Referencia = $"Crédito: {TxtReferencia.Text}"
-        Dim FechaMovimiento = Now.ToDate
+        Dim importeMovimiento As Decimal = 0.0D
+        Dim ConceptoContable As Integer = 0
+        Dim TipoMovimiento As Boolean = False
+        Dim Concepto As String = ""
+        Dim Referencia As String = $"Crédito: {TxtReferencia.Text}"
+        Dim FechaMovimiento As Date = Now.ToDate
         Dim MsgError As String = ""
 
         CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
-        Dim CveProveedor = -1
-        Dim CveCreditoPrePoliza = -1
+        Dim ImporteDocXPagar As Decimal = TxtTotalCredito.Text.ToDecimal
+        Dim CveProveedor As Integer = -1
+        Dim CveCreditoPrePoliza As Integer = -1
 
         If CvePrePoliza > 0 Then
             importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal  'importe financiado