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!!!!!!

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

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!

saludos desde acapulco gro.

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

''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

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!

una pregunta Maniac, como se tu sistema en distintas resoluciones???
me refiero a las resoluciones de video del monitor

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?

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?

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

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

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

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