validacionesprepolizas

Bancos/ProductosFinancieros.aspx.vb

@@ -296,14 +296,14 @@ Partial Class Bancos_ProductosFinancieros
         'Variables de controles
         Dim Importe As Double = TxtImporte.Text.ToDouble
         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 As Date = TxtFecha.Text.ToDate
 
         'Variables de error
-        Dim ErrorTransaccion = False
-        Dim ErrorAC = False
+        Dim ErrorTransaccion As Boolean = False
+        Dim ErrorAC As Boolean = False
 
-        Dim CvePrePoliza = -1
-        Dim IdPoliza = -1
+        Dim CvePrePoliza As Integer = -1
+        Dim IdPoliza As Integer = -1
         Dim FolioPoliza As Integer = -1
         Dim CveIE As Integer = -1
 
@@ -313,8 +313,8 @@ Partial Class Bancos_ProductosFinancieros
         End If
 
         'OBTIENE LA CUENTA CONTABLE DEL BANCO
-        Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
-        Dim CtaCuenta = -1
+        Dim DtCuentas As DataTable = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
+        Dim CtaCuenta As Integer = -1
 
         If DtCuentas.Rows.Count = 1 Then
             CtaCuenta = DtCuentas.Rows(0)("Id0CtaContable").ToString.ToEntero
@@ -324,7 +324,7 @@ Partial Class Bancos_ProductosFinancieros
 
         If CveIE > 0 OrElse (DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0) Then
 
-            Dim CvePlantilaPoliza = DdlTipoMovimiento.SelectedValue.ToString.ToEntero
+            Dim CvePlantilaPoliza As Integer = DdlTipoMovimiento.SelectedValue.ToString.ToEntero
             Dim idCuentaContabilizacion As Long = 1
             Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
             Dim CuentasContablesInvalidas As New StringBuilder
@@ -332,7 +332,7 @@ Partial Class Bancos_ProductosFinancieros
             If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantilaPoliza) Then
                 For Each Row As DataRow In ObjMov.DtResultados.Rows
 
-                    Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
+                    Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
                     Dim importeMovimiento As Decimal = 0
                     Dim FechaMovimiento As Date = Now
@@ -363,7 +363,7 @@ Partial Class Bancos_ProductosFinancieros
 
                 Next
 
-                If Not ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                If Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
                     ErrorTransaccion = True
                 End If