From 671bf4035bb865ba63503ac33b1f5841c7a73cf1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 5 Jul 2021 13:53:51 -0700
Subject: [PATCH] -- mejora en carga Excel

---
 Contabilidad/RegPrePolizaS.aspx.vb | 47 ++++++++++++++++++++----------
 1 file changed, 32 insertions(+), 15 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 9572faf35..6993700c2 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -860,13 +860,28 @@ Partial Class ContabilidadC_RegPrePolizaS
             Next
         End If
 
+        'validaciones
+
+
         If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) Then
             Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
             Exit Sub
-        End If
+        End If
+
+        For Each Gvr As GridViewRow In GvMov.Rows
+            If Gvr.DataKey("CveConceptoContable") = "30" AndAlso Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
+                If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then
+                    Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+
+        Next
+
+
+        'terminan validaciones
 
         If CvePrePoliza > 0 Then
-            'Nuevo Modulo Charlie
             ActualizarPrePoliza()
         Else
             Dim MensajeAlert = New StringBuilder
@@ -1966,43 +1981,43 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Not ErrorArchivo Then
 
-            If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
+            If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
                 Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(1).ColumnName = "Cuenta" Then
+            If Not dt.Columns(1).ColumnName.ToUpper = "CUENTA" Then
                 Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
+            If Not dt.Columns(2).ColumnName.ToUpper = "NOMBRECUENTA" Then
                 Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(3).ColumnName = "Cargo" Then
+            If Not dt.Columns(3).ColumnName.ToUpper = "CARGO" Then
                 Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(4).ColumnName = "Abono" Then
+            If Not dt.Columns(4).ColumnName.ToUpper = "ABONO" Then
                 Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(5).ColumnName = "Referencia" Then
+            If Not dt.Columns(5).ColumnName.ToUpper = "REFERENCIA" Then
                 Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(6).ColumnName = "Concepto" Then
+            If Not dt.Columns(6).ColumnName.ToUpper = "CONCEPTO" Then
                 Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(7).ColumnName = "SubProyecto" Then
+            If Not dt.Columns(7).ColumnName.ToUpper = "SUBPROYECTO" Then
                 Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(8).ColumnName = "Folio" Then
+            If Not dt.Columns(8).ColumnName.ToUpper = "FOLIO" Then
                 Alert("El nombre de la novena columna debe ser 'Folio'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(9).ColumnName = "TipoTransferencia" Then
+            If Not dt.Columns(9).ColumnName.ToUpper = "TIPOTRANSFERENCIA" Then
                 Alert("El nombre de la decima columna debe ser 'TipoTransferencia'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
@@ -2052,7 +2067,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                         If objconta3.DtResultados.Rows.Count > 0 Then
                             Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
                             CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
-                            DdlCuenta.SelectedValue = CveBancoCuenta
                         Else
                             CveBancoCuenta = 0
                         End If
@@ -2138,8 +2152,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("ContadoBeneficiario") = Beneficiario
                     dr("ContadoObservaciones") = Observaciones
 
-                    DtMovimientos.Rows.Add(dr)
-                    DtMovimientos.AcceptChanges()
+                    If Row("Cargo").ToString.ToDecimal <> 0 OrElse Row("Abono").ToString.ToDecimal Then
+                        DtMovimientos.Rows.Add(dr)
+                        DtMovimientos.AcceptChanges()
+                    End If
                 Next
 
                 TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
@@ -2151,6 +2167,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Catch ex As Exception
                 Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
+                GuardaLog(ex.Message)
             End Try
             ArregloCuentasFolios = Nothing
         End If