-- filtro de tipo de venta. en rep cirugía

-- globaldtsucursalcliente

Ventas/Ventas.aspx.vb

@@ -24488,6 +24488,11 @@ Partial Class Ventas
         If Not DtTemporal.Columns.Contains("Serie") Then
             DtTemporal.Columns.Add("Serie", Type.GetType("System.String"))
         End If
+        If Not DtTemporal.Columns.Contains("CveAlmacen") Then DtTemporal.Columns.Add("CveAlmacen", GetType(Integer))
+        If Not DtTemporal.Columns.Contains("Fecha") Then
+            Dim colNew As DataColumn = New DataColumn("Fecha", GetType(Date)) With {.DefaultValue = NowADS()}
+            DtTemporal.Columns.Add(colNew)
+        End If
 
         GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> "" Or CveVenta <= 0
         GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
@@ -37610,16 +37615,7 @@ Partial Class Ventas
 
     Private Sub CargaDdlClientesSucursal()
 
-        Dim objcliente As New ClsClientes
-
-        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
-            DdlClienteSucursal.DataSource = objcliente.DtResultados
-        Else
-            DdlClienteSucursal.DataSource = Nothing
-        End If
-
-        objcliente.Dispose()
-
+        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))