crear celdas con un porcentaje

[guillebomtrasmiti]

alguien puede ayudarme con esto;?¿?

tengo un grid con un producto y un campo porcentaje, el caso es que necesito que al darle a un botón el programa compruebe el porcentaje y cree tantas líneas como porcentaje tenga y repita el mismo producto...ejemplo

producto1 porcentaje
tela 15%

al darle a un botón ejecutar se genere un 15% de líneas con el producto tela

[guillebomtrasmiti]

he conseguido este código

Dim cantidad As New Integer
Dim porcentaje As New Integer
Dim total As New Integer
Dim pvp As New Integer
Dim totalpvp As New Integer

'For i = 0 To DgGeneraTipo.Rows.Count - 1
porcentaje = CInt((DgGeneraTipo.CurrentRow.Cells(12).Value))
total = CInt(porcentaje * CDbl(TextImporte.Text) / 100)
MessageBox.Show(CStr(total))
'Next
pvp = CInt((DgGeneraTipo.CurrentRow.Cells(6).Value))

totalpvp = CInt(total / pvp)

MessageBox.Show(CStr(totalpvp))


totalpvp me da el número de líneas que se deben crear en la base de datos con el mismo producto pero no se hacerlo?¿?

[guillebomtrasmiti]

vale si alguien me está leyendo...necesito saber del totalpvp que me sale que en el ejemplo que estoy haciendo es 60...como crear 60 lineas en la base de datos en la tabla correspondiente con el producto repetido 60 veces ?¿?

[HaverRamirez]

que sql estas usando, si es 2005 o posterior


ddeclare @myData table (val int) ;
insert @myData values (666),(888),(777) --some dummy data

;with cte as
(
select 100 as a
union all
select a-1 from cte where a>0
--generate 100 rows, the max recursion depth

)
,someRows as
(
select top 1000 0 a from cte,cte x1,cte x2
--xjoin the hundred rows a few times
--to generate 1030301 rows, then select top n rows
)
select m.* from @myData m,someRows where m.val=666

Adecualo a tus necesidades o puedes probar tambien este

SELECT 1
go 50

checate aqui

http://www.sqldev.org/transactsql/insert-same-record-many-times-58507.shtml

[guillebomtrasmiti]

es 2010...y estoy en .net

[othix]

enciclalo y grabas en la base de datos algo como

for i as integer =0 to totalpvp-1
tubasededatos.insert(tudatosenlabd)
next

slds

[HaverRamirez]

o crea un procedimiento almacenado...

[guillebomtrasmiti]

bien lo he arreglado así para el que lo necesite;

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim maximo As Integer = CInt(TextLinea1.Text)
Dim maximo2 As Integer = CInt(TextLinea2.Text)

For x As Integer = 1 To maximo
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto1,Pvp1,Fecha1,Iva1 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto1 = comados.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next

[guillebomtrasmiti]

alguien sabría decirme por que al llegar a la (3) me dice que faltan parametros requeridos en el executenonquery...la dos y la 1 lo hacer perfecto


Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim maximo As Integer = CInt(TextLinea1.Text)
Dim maximo2 As Integer = CInt(TextLinea2.Text)
Dim maximo3 As Integer = CInt(TextLinea3.Text)
Dim maximo4 As Integer = CInt(TextLinea4.Text)
Dim maximo5 As Integer = CInt(TextLinea5.Text)
Dim maximo6 As Integer = CInt(TextLinea6.Text)

For x As Integer = 1 To maximo
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto1,Pvp1,Fecha1,Iva1 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto1 = comados.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo2
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados2 = conexion.CreateCommand
comados2.CommandType = CommandType.Text
comados2.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto2,Pvp2,Fecha2,Iva2 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto2 = comados2.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next

For x As Integer = 1 To maximo3
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados3 = conexion.CreateCommand
comados3.CommandType = CommandType.Text
comados3.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto3,Pvp3,Fecha3,Iva3 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto3 = comados3.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next

[guillebomtrasmiti]

arreglado...no tenía fecha3 thanks