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