Quiero desagregar una tabla para que sea detallado
Tengo una tabla que contiene los datos acumulados y los necesito desagregar como se muestra en la segunda tabla
1 respuesta
Respuesta de SysGen Argentina
1
Prueba lo siguiente:
If !Used('Control')
Use Control In 0
Endif
Select Select(0)
Select Fi_cont, Dni, Fi_nomb, Dian, Horas, Deta, Cuenta, " " As Ord ;
FROM Control Into Cursor Control2 Where .F. Readwrite
Select Control
Scan
Scatter Memvar
Insert Into Control2 (Fi_cont, Dni, Fi_nomb, Dian, Horas, Ord) ;
VALUES ;
(m.Fi_cont, m.Dni, m.Fi_nomb, m.Dian, m.Horas, "0")
For nX=1 To 7
cNum = Transform(nX)
cDia = "Dia"+Left("00",2-Len(cNum))+cNum
If !Empty(Control.&cDia)
m.Deta = cDia
m.Cuenta = Control.&cDia
Insert Into Control2 ;
(Fi_cont, Dni, Fi_nomb, Deta, Cuenta, Ord) ;
VALUES ;
(m.Fi_cont, m.Dni, m.Fi_nomb, m.Deta, m.Cuenta, "1")
Endif
Next
Endscan
Select Control2
Browse
