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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas