CALL busca_pt()
          LET movi2[p_act].cod_n = pilas[curr1].cod_n
          LET movi2[p_act].cod_grupo = pilas[curr1].cod_grupo
          LET movi2[p_act].cod_tipo  = pilas[curr1].cod_tipo 
          LET movi2[p_act].cod_sec   = pilas[curr1].cod_sec  
          LET movi2[p_act].descrip_esp = pilas[curr1].descrip_esp
          LET movi2[p_act].unidad_med  = pilas[curr1].unidad_med 

          DISPLAY movi2[p_act].cod_n TO s_movi1.cod_n
          DISPLAY movi2[p_act].cod_grupo TO s_movi1.cod_grupo
          DISPLAY movi2[p_act].cod_tipo TO s_movi1.cod_tipo
          DISPLAY movi2[p_act].cod_sec TO s_movi1.cod_sec 
          DISPLAY movi2[p_act].descrip_esp TO s_movi1.descrip_esp