Pago Grupos Liberacion General

Bancos/PolizaCheque.aspx.vb

@@ -211,10 +211,37 @@ Partial Class Bancos_PolizaCheque
     End Sub
 
     Private Sub CargaCuenta()
-        DdlCuenta.Items.Clear()
-        DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+        DdlCuenta.Items.Clear()
+
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+
+
+
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
+            dt = dt.FiltraParametros("CveTipoCuenta = 7")
+        End If
+
+        'cuando es layout
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+            dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
+            dt = dt.FiltraParametros("UsaLayout = 1")
+        End If
+
+        'cuando es layout Por Grupos
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+            dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
+            dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
+        End If
+
+
+
+
+        DdlCuenta.DataSource = dt 'GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
         DdlCuenta.DataBind()
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        UPPDocumento.Update()
     End Sub
 
     Private Sub CargaTipoTransaccion(TipoPlantilla As Integer)
@@ -240,7 +267,8 @@ Partial Class Bancos_PolizaCheque
     'End Sub
 
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
-        CargaFolio()
+        'CargaFolio()
+        CargaCuenta()
     End Sub
 
     Private Sub CargaFolio()
@@ -1184,8 +1212,9 @@ Partial Class Bancos_PolizaCheque
             End If
         End If
         Return Retorno
-    End Function
-
-
+    End Function
+
+
+
 End Class