Menu

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

Suscríbete a Aprende-Viendo 5.0

Content

PUNTO DE VENTA VB6.0

Maniac el Miércoles, Abril 24 2013, 03:49 PM
0
estoy realizando un pequeño sistema de punto de venta , es mi primer sistema que hago , pero no se que mas lleva alguien me puede dar mas ideas ..gracias
       
  • Respuesta de francojmagrini13 el Miércoles, Mayo 08 2013, 05:34 PM · Ocultar · #1
    lo voy a intentar! gracias!

    ahora ronald, primero y antes que nada, gracias me sirve mucho todo lo que haces... sos mi mentor en la programacion
    necesito que me des una mano con la devolucion de los articulos.

    como di en el ejemplo anterior

    yo compro en total 10 jugos de naranja, pero mi soft no suma las cantidades (cuestion a reparar)
    ejemplo de venta

    10001 jugo de naranja 8 $2.50
    10003 huevo blanco 6 $1.60
    10001 jugo de naranja 2 $2.50

    si yo quiero devolver el de 8 unidades como lo hago?

    aca te dejo mi codigo de devolución


    Private Sub Command4_Click()
    devolucion = InputBox("Ingrese El Codigo Del Articulo", "DEVOLUCION") 'msj de la inputbox
    If devolucion = "" Then Exit Sub ' si no se completa nada, que la busqueda no haga nada
    With RsPosTemporal 'si se pone algo que busque
        .Requery
        .Find "CodigoBarras='" & Trim(devolucion) & "'"
         If .EOF Then 'si no encuentra nada
         MsgBox "No Se Encontro El Articulo En La Compra", vbInformation, "Aviso"
         
         FormatoGrillaPos ' mantener el formato de la grilla
         
         Exit Sub
         Else
            
            With RsPosTemporal
            '.Requery
            '.MoveLast
            .Find "CodigoBarras='" & Val(GrillaPos.Columns(2).Text) & "'"
            .Delete
            .Requery
            suma ' suma de totales
            suma2 ' contador de articulos en la compra
            FormatoGrillaPos ' mantener el formato de la grilla
            End With
            End If
            
      
        End With
    End Sub


    en ado el metodo de busqueda .find se puede usar con 2 variables ejemplo cantidad y codigo de barras?

    desde ya gracias por la ayuda!!!!!!
  •  
  • Respuesta de Maniac el Miércoles, Mayo 08 2013, 08:14 AM · Ocultar · #2
    no se como tengas tu conexxion a la base de datos yo la tengo asi
    tengo agregado dos modulos en un tengo declarado
    Global Rstemporalventa As New ADODB.Recordset

    y en el otro tengo un sub
    Sub temporalventa()
    With Rstemporalventa
    If .State = 1 Then .Close
    .Open "select * from temporalventa", Base, adOpenStatic, adLockOptimistic
    End With
    End Sub


    no te debe de dar ningun problema con esto
    espero te sirva
    saludos
  •  
  • Respuesta de francojmagrini13 el Lunes, Mayo 06 2013, 06:51 PM · Ocultar · #3
    gracias por el aporte ahora un problema y esto me pasa con todas las flexgrid

    me da este error
    Variable de objeto o de bloque With no establecida

    y me pinta este renglon

    Set MSFlexGrid1.DataSource = RsPosTemporal

    y no puedo salir de ahi lo demas que me pasaste funciona genial

    gracias amigo, desde rosario Argentina!
  •  
  • Respuesta de Maniac el Lunes, Mayo 06 2013, 04:27 PM · Ocultar · #4
    saludos desde acapulco gro.
  •  
  • Respuesta de Maniac el Lunes, Mayo 06 2013, 04:24 PM · Ocultar · #5
    este es el sub del formato para el flex por ultimo lo llamas desde el evento load y listo hermano
    Sub formatoflex()
    Set MSFlexgrid1.DataSource = Rstemporalventa
     ' -- Enviar como parámetro el grid y los dos valores de colores
        Call pvSetColors(MSFlexgrid1, RGB(300, 300, 300), RGB(109, 222, 253))
    MSFlexgrid1.ColWidth(0) = 10
    MSFlexgrid1.ColWidth(1) = 0
    MSFlexgrid1.ColWidth(2) = 3000
    MSFlexgrid1.ColWidth(3) = 2000
    MSFlexgrid1.ColWidth(4) = 2000
    MSFlexgrid1.ColWidth(5) = 2000
    MSFlexgrid1.ColWidth(9) = 0
    MSFlexgrid1.ColWidth(6) = 0
    MSFlexgrid1.ColWidth(7) = 0
    MSFlexgrid1.ColWidth(8) = 0
    End Sub


    depende de la cantidad de columnas que tengas y quieras que se muestren
  •  
  • Respuesta de Maniac el Lunes, Mayo 06 2013, 04:20 PM · Ocultar · #6
    ''aqui tienes es para darle los colores de los renglones
    Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
        Dim iRow            As Long
        Dim iCol            As Integer
        Dim lCurrentColor   As Long
          
        With MSFlexgrid1
        ' -- Desahbilitar el repintado del control para agilizar el trabajo
            
            .Redraw = False
            .BackColor = lColor1
            ' -- Recorrer las filas
            For iRow = 1 To .Rows - 1 Step 2
                ' -- Establecer la Fila actual del flex
                .Row = iRow
                ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
                For iCol = 0 To .Cols - 1
                    .Col = iCol
                    .CellBackColor = lColor2
                Next
            Next
            ' -- Reestablecer la propiedad Redraw para poder refrescar el control
            .Redraw = True
        End With
    End Sub
  •  
  • Respuesta de francojmagrini13 el Lunes, Mayo 06 2013, 03:09 PM · Ocultar · #7
    vos sabes Junior Gomez que yo la habia pensado esa del "id", pero mi idea era que se pudiera devolver con el mismo codigo ean del articulo ! por eso se me complico!!!

    gracias por el dato de la grid, esa la sabia, es mas la uso un monton, pero lo que me habia interesados era los colores en los reglones.

    =)

    manic me baje la ocx para la flexgrid pero no se como llenarla!!!!!
    tirame un par de ideas!!!

    jajajja gracias chicos!
  •  
  • Respuesta de Junior Gomez el Sábado, Mayo 04 2013, 01:11 PM · Ocultar · #8
    una pregunta Maniac, como se tu sistema en distintas resoluciones???
    me refiero a las resoluciones de video del monitor
  •  
  • Respuesta de Maniac el Sábado, Mayo 04 2013, 09:43 AM · Ocultar · #9
    tengo un problema que quierro que al ir agregando el articulo automaticamente se vaya marcando de otro color la ultima fila agregada pero no lo he logrado hacer, sabes como hacerlo?

    Archivos:

    • Ronald López - Kalizron - more than a month ago
      hola Maniac
      veo tu imagen focus.jpg y quisiera darte una recomendacion (espero no te moleste jeje)

      * Los productos iguales deben sumarse en cantidad y no mostrarse en registros distinto. Esto quiere decir que si agregas 6 gaseosas cocacola de 600ml deberia aparecerte solo un registro con la cantidad 6 y el importe de (cantidad * precio) ...

      Eso dara una mejor presentacion a tu sistema y una facilida a los detalles de compra.

      Saludos cualquier duda avisame..
    • Maniac - more than a month ago
      hola ronald y no para nada me molesto estoy para aprender de los grandes como tu y ok claro de echo tambien funciona asi puedo agregar asi como se ve en la imagen focus pero tambien funciona poniendo la cantidad asi como tu me comentas funciona de las dos formas
  •  
  • Respuesta de Maniac el Sábado, Mayo 04 2013, 09:36 AM · Ocultar · #10
    hola francojmagrini13 bueno para darle ese formato a la grilla no estoy usando el data grid estoy usando un MSFLexgrid
    ahorita no he tenido tiempo para seguir programando pero le estoy cambiando el diseño veo que se ve mejor que opinas?
  •  
  • Respuesta de Junior Gomez el Viernes, Mayo 03 2013, 06:04 PM · Ocultar · #11
    muy sencillo, digamos que deseas devolver el primer articulo, pues, yo haria de la sigte forma, en el form pongo un label con el name=LblID, entonces al evento click de la grilla le hago que capture el text del column 0 y le paso a este label, y con el boton devolver lo saco de ahi, ya sea borrar y sumar al stock, o utilizar un flag para cambiar su estado. y para que la grilla tome ese formato dependiendo si usas el datagrid, solamente creas un sub con el nombre Formato, y lo llamas despues de la grilla, y dentro del sub programas lo sgte:
    sub FormatoGrilla()
    	with rs
    		grid1.columns(0).width=0
    		grid1.columns(1).width=1000
    		grid1.columns(2).width=2000
    		grid1.columns(3).width=1000
    		grid1.columns(4).width=1200
    	end with
    end sub


    mas o menos asi, esto es para el ancho de cada columna, pero hay muchas funciones, cambiar el caption, formato monedas, numeros, fechas, alineaciones, color, etc
  •  
  • Respuesta de francojmagrini13 el Viernes, Mayo 03 2013, 05:40 PM · Ocultar · #12
    hola , yo tambien estoy haciendo un soft de punto de vanta, tengo bastante experiencia en el tema, ahora una pregunta cuando devolves un articulo ejemplo

    cod articulo cant precio
    1111 jugo de naranja 2 2.10
    1111 jugo de naranja 1 2.10

    si yo quiero devolver el articulo de 2 unidades como lo hago?
    porque mi sistema puede vender de a 1 o de a 100000, y ahi se me complico

    otra cosa como se crear la datagrid asi con ese formato?
    gracias
  •  
  • Respuesta de Maniac el Viernes, Abril 26 2013, 05:08 PM · Ocultar · #13
    gracias Ronald claro tratare de realizar con esto que me indicas, que si empiezo a ver todo oscuro no dusdes en que voy a pedir de tu apoyo. gracias
    haa y pocierto ya le di un poco de mas diseño seguiere desrrollandolo y cunado ya tenga un avance subires las panllas

    saludos desde acapulco
  •  
  •  
    Respuesta de Ronald López - Kalizron el Jueves, Abril 25 2013, 11:37 AM · Ocultar · #14
    Hola Maniac..
    Te felicito ya que las pantallas estan geniales y me da mucho gusto que lo estes desarrollando.
    A continuacion te explico algunos modulos basicos que todo Punto de Venta debe Tener:
    - Ventas: Registrar ventas, preventas, busqueda por coduigos de barras, categorizacion de productos, tipos de pagos, entre otros.
    - cotizador:es muy similar al modulo de ventas solo que no procesa la ventas.. sirve para realizar presupuestos o cotizacion previas .. llamadas PREVENTAS
    - Productos: aqui se especifica la categorizacion de prodcutos y el registro de productos. Tipo de producto (unidad, puieza, granel, kilos, litros, etc).. Seguimiento de Stock o inventario, entre otros
    - Inventario: desde aqui se controla el stock directo de todos los prodcutos que tiene seguimiento de Stock o inventario. agregar cantidades de stock, disminuir, registrar perdidas, caducidades, merma, entre otros.
    - clientes: modulo donde puedes clientes frecuentes, externder lineas de pedidos y credito, consultar deudas de clientes, entre otros
    - Proveedores: registrar compras de prodctos, devoluciones, expiracion de prodcutos, compras
    - Corte de caja: puedes realizar cortes de caja con el fin de saber ingresos por rangos de fechas y poder iniciar las ventas con una caja nueva.
    - Reportes: generar reportes de todo tipo
    - Configuracion: aqui generas cuentas de usuarios, cajas, tiendas en caso de ser multitienda, permisos, configurar datos importantes del sistema e impresiones.

    Basicamente esto es lo lelva un TPV per puede llevar mucho mas..
    yo tambien estoy desarrollando un Terminal Punto Venta.
    luego publicare algunas pantallas.
    Saludos espero te sirva esta informacion
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