-uso nuevo globaldt

Ventas/Ventas.aspx.vb

@@ -37628,32 +37628,27 @@ Partial Class Ventas
 
     End Sub
 
-
     Private Sub CargaDdlClientesSucursal()
 
-        DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+        DdlClienteSucursal.DataSource = GlobalDTClientesTodosSucursales(UsuarioActual.CveEmpresa)
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlClientesModal.setEsWebService(True)
-
         Else
             DdlClientesModal.setEsWebService(False)
             DdlClientesModal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
             DdlClientesModal.DataBind()
             DdlClientesModal.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         End If
-
     End Sub
 
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
 
-
         TdFechaOS1.Visible = ChkRequiereTecnico.Checked
 
-
         UpCliente.Update()
     End Sub
 
@@ -37669,7 +37664,6 @@ Partial Class Ventas
             ChkRequiereTecnicoModal.Checked = True
             ChkRequiereTecnicoModal.Enabled = True
             DvModalRequiereOSFecha.Visible = True
-
             'If CveCliente > 0 Then
             '    CargaSucursalesModal(CveCliente)
             'End If