Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

como mostrar productos próximos a vencer y con stock minimo

0
Bunas tardes, Señor Ronald Lopez, quería hacerle una consulta, estoy desarrollando un software para una farmacia, ya la mas lo termino. Lo que quiero es que en el formulario de ventas me aparezca una grilla con los productos próximos a vencer y otra grilla con los productos con stock mínimo. Se lo voy agradecer mucho por su ayuda. Gracias
       
  • Respuesta de ELVIS YUBAL SILVA VELASQUEZ el Domingo, Marzo 16 2014, 06:35 PM · Ocultar · #1
    Mire señor Ronald.tengo este codigo pero solo me muestra los productos con el numero exacto de dias (4) como haria para todos los menores de 4 dias. y como haria con el stock minimo?
    Dim porvencer As Variant
    dataarticulo.DatabaseName = App.Path & "\ventas.mdb"
    '*******EVALUAR FECHA DE VENCIMIENTO******
    fechaactual = Date
    fechavenc = DateAdd("d", 4, fechaactual)
    porvencer = "select * from stock where trim(fecha_venc) like '" & fechavenc & "*" & "'"
    dataarticulo.RecordSource = porvencer
    dataarticulo.Refresh
  •  
  • Respuesta de ELVIS YUBAL SILVA VELASQUEZ el Lunes, Marzo 24 2014, 08:59 PM · Ocultar · #2
    BUENAS NOCHES ALGUIEN ME PODRIA AYUDAR CON ESTA CONSULTA PORFAVOR. SE LOS AGRADECERE MUCHO
  •  
  • Respuesta de Jose Ramirez el Martes, Marzo 25 2014, 05:13 PM · Ocultar · #3
    Hola amigo, te pongo un ejemplo con access(por ello los numerales), podrias hacer un formulario de configuracion donde pongas la cantidad de dias para mostrar los productos proximos a vencer. Cualquier duda a la orden

    Sub vencimiento()
    Dim ven As String
    ven = Date + 30

    With rsproductos
    If .State = 1 Then .Close
    .Open "select * from productos where FechaVencimiento>=#" & Date & "# and FechaVencimiento<=#" & CDate(ven) & "#", base, adOpenStatic, adLockOptimistic
    End With
    End Sub


    Saludos..
    [email protected]
  •  
  • Respuesta de ELVIS YUBAL SILVA VELASQUEZ el Sábado, Marzo 29 2014, 10:56 PM · Ocultar · #4
    buenas noches estimado Jose Ramirez te agradesco mucho por el aporte me sirvió de maravilla.
  •  
  •  
    Respuesta de ELVIS YUBAL SILVA VELASQUEZ el Martes, Abril 01 2014, 11:03 PM · Ocultar · #5
    ..ah
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook