PopUpVerFactura logos de alamcen

Bancos/PolizaCheque.aspx.vb

@@ -159,7 +159,8 @@ Partial Class Bancos_PolizaCheque
                 .Add("Proyecto", Type.GetType("System.String"))
                 .Add("Personal", Type.GetType("System.String"))
                 .Add("CvePersonal", Type.GetType("System.Int32"))
-                .Add("CveSubProyecto", Type.GetType("System.Int32"))
+                .Add("CveSubProyecto", Type.GetType("System.Int32"))
+
             End With
 
             GvMov.DataBind()
@@ -469,10 +470,10 @@ Partial Class Bancos_PolizaCheque
             dr("CveSubProyecto") = drt("CveSubProyecto")
             dr("Proyecto") = drt("Proyecto")
             dr("Personal") = drt("Personal")
-            dr("CvePersonal") = drt("CvePersonal")
-            'dr("Cargo") = TxtCargoImporte.Text.ToDouble
-            'dr("Abono") = TxtAbonoImporte.Text.ToDouble
-
+            dr("CvePersonal") = drt("CvePersonal")
+            'dr("CveConcepto") = drt("CveConcepto")
+
+
             DtMovimientos.Rows.Add(dr)
         Next
 
@@ -816,7 +817,9 @@ Partial Class Bancos_PolizaCheque
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
         Dim TotalCargos, TotalAbonos, ImporteDocumento As Decimal
-        Dim CvePrePoliza As Integer
+        Dim CvePrePoliza As Integer
+
+        Dim ValidaConcepto30 As Boolean = False
 
         If DdlCuenta.SelectedValue.ToEntero <= 0 Then
             If UsuarioActual.CveEmpresa <> 126 Then
@@ -831,7 +834,25 @@ Partial Class Bancos_PolizaCheque
             TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal
             TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal
 
-        Next
+        Next
+
+        For Each Gvr As GridViewRow In GvMov.Rows
+
+            If Gvr.DataKey("CveConcepto").ToEntero = 30 Then
+
+                If Gvr.FCTextBox("TxtAbono").Text.ToDecimal = TxtImporte.Text.ToDecimal Then
+                    ValidaConcepto30 = True
+                End If
+
+            End If
+
+        Next
+
+        If Not ValidaConcepto30 Then
+            Alert("El importe no coicide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
 
         Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
         Dim filemove As String = ""