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