SoloCodigo

Con eso me muestra el valor del nodo seleccionado, ahoratengo que ver que el nodo seleccionado es padre o sea, un CONCEPTO......salu2

     
       

Hola amigos como estan, trabajo en una intranet  y necesito ejecutar un archivo .bat ubicado en el servidor (D:\), he probado con unos cuantos codigos y la verdad es que no pasa nada, no se ejecuta nada, he probado por si solo el archivo y me funciona correctamente,

lo que hace el .bat es traspasar desde un pc a otro archivos dado un rango de busqueda. espero me ayuden gracias.

este es uno de los codigo que probe
Dim MObj, oExec, res
'Crea el objeto
Set MObj = server.CreateObject("WScript.Shell")
'Ejecuta el fichero
Set oExec = MObj.Exec("D:\.......bat")


'Si el fichero bat devuelve algo lo puedes recoger así
res = oExec.StdOut.readline()

gracias por la respuesta y si habia pensado en usar TIMER, pero lo hice con tres, me resulta pero en el final cae en un loop, la verdad es que nose por que pasa esto, si alguien podria ayudarme. Envío el codigo

Public Class FRMinicio
    Private Sub FRMinicio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'inicio con el form minimizado
        Me.WindowState = FormWindowState.Minimized
       
        'Establezco las propiedades de los Timer y comienzo y comienzo el conteo
        Me.TMRdescanso.Stop()
        Me.TMRinicio.Stop()
        Me.TMRmensaje.Stop()

        With Me.TMRinicio
            .Interval = 1000
            .Enabled = True
            .Start()
        End With
    End Sub
    Private Sub TMRinicio_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMRinicio.Tick
        'variable estática que almacenará
        'su valor cada vez que entra en este evento
        Static Contador As Integer
        If Contador = 1 Then 'al segundo quiero que le form se oculte
            'Paramos el control Timer
            TMRinicio.Stop()
            'Lo deshabilito para asegurar que ya no esta correindo
            TMRinicio.Enabled = False
            'oculto el form
            Me.Visible = False
            'ejecuto el segundo timer
            With Me.TMRmensaje
                .Interval = 1000
                .Enabled = True
                ' .Start()
            End With
            Me.TMRdescanso.Stop()
        Else
            'Incrementamos en una unidad la variable estática
            Contador = Contador + 1
        End If
    End Sub

    Private Sub TMRmensaje_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMRmensaje.Tick
        Static Contador As Integer
        If Contador = 20 Then 'EN ESTE CASO SOLO LO dejo 20 SEG PARA EJEMPLO el form debe aparecer a los 20 segundos de iniciado WIndows
            'este form se maximiza y lemuestra un mensaje al usuario
            TMRmensaje.Stop()
            TMRmensaje.Enabled = False
            Me.Visible = True
            Me.WindowState = FormWindowState.Maximized
            ''ejecuto el tercer TIMER que es el que controla el tiempo en que el FORM este maximizado
            With Me.TMRdescanso
                .Interval = 1000
                .Enabled = True
                .Start()
            End With
            ' LimpiaContador()
        Else
            Contador = Contador + 1
        End If
    End Sub

    Private Sub TMRdescanso_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMRdescanso.Tick
        Static Contador1 As Integer
       
        If Contador1 = 10 Then '1200 los 20 minutos: AMODO DE EJEMPLO LO DEJO EN 10 SEG.
            'ESTE FORM DEBERIA PERMANECER MAXIMIZADO POR 10 SEG. luego de esto deberia volver a minimizarze
            TMRdescanso.Stop()
            TMRdescanso.Enabled = False
            Me.Visible = False
            'Me.WindowState = FormWindowState.Maximized
            'vuelve a llamar al Timer ANterior
            With Me.TMRmensaje
                .Interval = 1000
                .Enabled = True
                '.Start()
            End With
            TMRdescanso.Stop()
        Else
            Contador1 = Contador1 + 1
        End If
       
    End Sub
End Class

tema resuelto, era colocar el response.buffer= true, en la primera linea de codigo... gracias de todas maneras :-)

salu2

hola a todos ...

tengo el siguiente problema.

Tengo una tabla de ventas de la cual los registros tienen distintos estados de venta (0,1,-1,2) siendo el 2 el estado aprobado. mi pregunta es como logro seleccionar o identificar todos aquellos registros que nunca fueron aprobados (0,-1,1) , debo decir que el registro no es actualizable, quiero decir con esto que si le dia lunes 24 hice una venta y me sale rechazada (1) por x razon y hoy dia Jueves 27 la vuelvo a ingresar y sale aprobada (2), el registro estaria 2 veces pero con fechas distintas , este es su formato (aaaammdd:hhmmss)....creo que hay esta la clave comparar, con las fechas pero no se me ocurre como hacerlo, espero me me hayan entendio y me puedan ayudar...muchas gracias de antemano


adios

monky

hola amigo....gracias por responder....

yo lo que uso es lo siguiente...

Dim WSH as New Iwshruntimelibrary.iwshshell_class



WHS.Run = "Traspaso.bat"
Set WSH  = NOTHING


esto es lo que uso, y el llamado al .bat desde visual me funciona, lo que no se que hacer es como detectar si el.bat se ejecuta de manera satisfactoria o no, para poder asi enviarme un correo....gracias


muchas gracias de antemano

monkytrox

hola como estan ??

tengo una aplicacion que llama un .bat, la funcion de este es el traspaso de archivos (promedio de 200mb aprox) a travez de un FTP, esto funciona correctamente al ejecutar el .bat de manera individual, mi pregunta es... desde visual como puedo controlar que este preceso se complete o no, para asi yo desde visual pueda enviarme correos por una u otra respuesta, lo del correo lo tengo listo, lo que me falta es controlar si el bat se ejecuta o no de manera correcta, tener el control sobre este Bat me urgue, ya que este preceso se corre a 1:00 am y a esas horas ya no me encuentro en mi lugar de trabajo....espero me ayuden :-)

gracias

monkytrox

Hola amigos,como estan  

haber si me ayudan con este problemilla que tengo, tengo un tabla, en la que tengo registros repetidos, como hago para poder eliminarlos ? , con el fin de evitar duplicidad de registros, la idea es ahcer una consulta que pueda ejecutar para que borre estos registros.

espero me puedan ayudar gracias

Atte.



monkytrox    

Hola como estan.

Alguien me podria decir como hacer para saber la cantidad de archivos que tengo dentro de un directorio determinado ?

muchas gracias

monkytrox

hola como estan.
alguien sabe como pasarles parametros al data reports, yo lo hago de la sigueinte manera

en el command1 : escribo

select * from facturas
where codigo_factura = param1

al hacer esto la pestaña de "parametros" no se me habilita y no me deja declarar el parametro. ( no se por que )  :-(

en el boton imprimir tengo esto

If DataEnvironment1.Connection1.State = 1 Then
DataEnvironment1.Command1 Text1.Text
DataReport1.Show vbModal
DataEnvironment1.Connection1.Close
Else
DataEnvironment1.Connection1.Open
DataEnvironment1.Command1 Text1.Text
DataReport1.Show vbModal
DataEnvironment1.Connection1.Close
End If

donde text1.text es el codigo de la factura que kiero consultar.

me falto algo por hacer ????

gracias por su tiempo

monkytrox.

hola, bueno les escribo de nuevo para ver si alguien me puede ayudar, resulta que en un bloc de notas listo registros asociados a los datos de clientes, pero el problema es que me piden que estos datos vengan tabulados, se puede realizar esto ??? por favor que alguien me ayude, necesito que los resultados me los muestre de la siguiente manera

juan    perez    sepulveda


el espacio entre campos debe ser dado por una tabulacion, espero me entiendan y puedan ayudarme, ya que  estoy muy complicado en esto, muchas gracias de antemano.

monkytrox  

gracias por tu respuesta, intentare hacerlo con la opcion que tu me has dado, te mantendré al tanto de mis resultados.

muchas gracias

chauuu..monkytrox