E13 Buscar Cuentas de banco de proveedores en Popup

2023-01-23 23:07:15 -07:00
parent 5aa3da0ff0
commit b9651e8ba6
5 changed files with 300 additions and 1 deletions
--- a/Bancos/PopUpBuscarCuentasProveedor.aspx.vb
+++ b/Bancos/PopUpBuscarCuentasProveedor.aspx.vb
@@ -0,0 +1,124 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Partial Class Bancos_PopUpBuscarCuentasProveedor
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private ReadOnly Property CveProveedor As Integer
+        Get
+            Return ViewState("CveProveedor").ToString.ToEntero
+        End Get
+    End Property
+    Private Property DTCuentasBancos As DataTable
+        Get
+            Return CType(ViewState("DTCuentasBancos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCuentasBancos") = value
+        End Set
+    End Property
+
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+            CType(Me.Master, BaseMasterPage).PopupWidth = 780
+            RegistraScript("if($get('tdContenido')){$get('tdContenido').style.height='465px'}")
+
+            If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
+                ViewState("CveProveedor") = Request("CveProveedor")
+                CargaDatos(CveProveedor)
+                DdlProveedores.SelectedValue = CveProveedor.ToString
+            Else
+                ViewState("CveProveedor") = -1
+            End If
+
+            InicializaValores()
+
+            Me.Form.DefaultButton = BtnBuscar.UniqueID
+        End If
+    End Sub
+    Private Sub InicializaValores()
+        Dim Txt As String = IfNull(Request("Txt"), "").ToString
+        If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione"
+        DdlProveedores.SelectedValue = "-1"
+        DdlProveedores.DataBind()
+    End Sub
+    Private Sub CargaDatos(CveProveedor As Integer)
+
+        If ValidarFiltrosSeleccionados() OrElse CveProveedor > 0 Then
+            CargaCuentasBancarias()
+            UPDatos.Update()
+        Else
+            Alert("Seleccione un proveedor", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Private Sub CargaCuentasBancarias()
+        'If CveProveedor <= 0 Then Exit Sub
+        Dim ObjCuentasBancos As New ClsGenerales
+        DTCuentasBancos = New DataTable
+
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
+            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+        Else
+            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+            ObjCuentasBancos.Dispose()
+            Exit Sub
+        End If
+
+        If CveProveedor < 0 Then
+            'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
+            'TempDTCuentasBancos = DTCuentasBancos
+        End If
+
+        ObjCuentasBancos.Dispose()
+        CargaPSGridCuentasBancos()
+        RecargaGlobalCuentasBancarias()
+    End Sub
+
+    Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
+        If CveProveedor > 0 Then
+            Dim ObjCuentasBancos As New ClsGenerales
+
+            If ObjCuentasBancos.GetCuentasDepositos() Then
+                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
+            End If
+            ObjCuentasBancos.Dispose()
+        End If
+    End Sub
+
+    Private Sub CargaPSGridCuentasBancos()
+        GvBancosCuentas.DataSource = DTCuentasBancos.FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue}")
+        GvBancosCuentas.DataBind()
+        TblBusqueda.Visible = True
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
+        CargaDatos(DdlProveedores.SelectedValue.ToEntero)
+    End Sub
+
+    Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
+        'If e.Row.RowType = DataControlRowType.DataRow Then
+        '    If e.Row.DBCampo("CveAlmacen") = "" Then
+        '        e.Row.CssClass = "Totales"
+        '    End If
+        'End If
+    End Sub
+
+    Private Function ValidarFiltrosSeleccionados() As Boolean
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
+
+End Class