Agregar BCI

Ventas/PV.aspx.vb

@@ -3598,6 +3598,7 @@ Partial Class PV
     Private Sub CargaAgregar()
         Modalidad = "A"
         LnkAgregarPS.Text = "Agregar"
+        CargaBCI()
         LimpiaAgregar()
         LimpiaAjuste()
         ModalidadAjuste = "A"
@@ -3606,6 +3607,16 @@ Partial Class PV
         UpVenta.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddVenta"))
     End Sub
+    Private Sub CargaBCI()
+        Dim ObjGral As New ClsGenerales
+
+        If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
+            DdlBCIUsado.DataSource = ObjGral.DtResultados
+        End If
+        DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlBCIUsado.SelectedValueExist(-1)
+        DdlBCIUsado.DataBind()
+    End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Modalidad = "U"