
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
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
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 SubGlobal Rstemporalventa As New ADODB.Recordset
Sub temporalventa() With Rstemporalventa If .State = 1 Then .Close .Open "select * from temporalventa", Base, adOpenStatic, adLockOptimistic End With End Sub
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 SubAgradesco 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